Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Datenbanken und Verzeichnisdienste
[thread]3503[/thread]

Premature end of script headers (Seite 2)



<< |< 1 2 >| >> 12 Einträge, 2 Seiten
renee
 2004-08-27 10:03
#32590 #32590
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ersetze diesen Teil:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 if ($sth->rows != 0){
   print $cgi->start_html(-title => 'Antwort');
   print qq~<center><h1>Suchergebnis</h1><hr><table border=1><tr><td width="200"><b>Familienname:</b></td>
            <td width="100"><b>Vorname:</b></td><td width="200"><b>Abteilung:</b></td><td width="100">
            <b>Telefon:</b></td></tr>~;

   while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {
     print qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>\n<td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;
   }

   print qq§</table>\n<p><a href="formular1.html">Neue Suche</a></p>\n<hr>\n</center>§;
 }
 else { ##Keine Treffer
   print $cgi->start_html(-title => 'Antwort');
   print qq~<body><p>Leider brachte die Suche keine Ergebnisse!</p><hr><p>
            <a href="http://localhost/formular1.html">Neue Suche!</a></p>~;
 }
durch diesen hier:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 print $cgi->start_html(-title => 'Antwort');

 my $msg = qq~<center><h1>Suchergebnis</h1><hr><table border=1><tr><td width="200">
              <b>Familienname:</b></td><td width="100"><b>Vorname:</b></td>
              <td width="200"><b>Abteilung:</b></td>
              <td width="100"><b>Telefon:</b></td></tr>~;

 my $table = "";
 while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {
   $table .= qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>
                <td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;
 }

 unless($table){
   $msg = qq~<p>Leider brachte die Suche keine Ergebnisse!</p><hr>~;
 }
 else{
   $msg .= $table.'</table>';
 }

 $msg .= qq~<p><a href="formular1.html">Neue Suche</a></p>\n<hr>\n</center>~;
 print $msg;
\n\n

<!--EDIT|renee|1093586703-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2004-08-27 10:07
#32591 #32591
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#!c:/Perl/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use DBI;

my $cgi = CGI->new;
print $cgi->header();
my %params = $cgi->Vars();
warningsToBrowser(1); # damit werden Warnungen an den Browser geschickt


##Suche oder Eintrag##

if ($params{suchanfrage}){
  suche();
}
else{
  eintragen();
}

#Start Subroutine Suche

sub suche {
  my $nachname  = $params{nachname};
  my $abteilung = $params{abt};

  my $dbh = DBI->connect("DBI:CSV:mitarbeiter=c:/apachefriends/xampp/htdocs/cgi-bin") or die "Fehler: $DBI::errstr\n";
  my $statement = "SELECT * FROM mitarbeiter WHERE Nachname = ? AND Abteilung = ?"; # hier besser mit Platzhaltern arbeiten
  my $sth = $dbh->prepare($statement) or die "Konnte SQL-Statement nicht bereitstellen: $DBI::errstr";

  $sth->execute($nachname,$abteilung) or die "Ausfuehren nicht moeglich: $DBI::errstr"; # hier die Platzhalter füllen

 #Treffer
  print $cgi->start_html(-title => 'Antwort');

  my $msg = qq~<center><h1>Suchergebnis</h1><hr><table border=1><tr><td width="200">
             <b>Familienname:</b></td><td width="100"><b>Vorname:</b></td>
             <td width="200"><b>Abteilung:</b></td>
             <td width="100"><b>Telefon:</b></td></tr>~;

  my $table = "";
  while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {
    $table .= qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>
                 <td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;
  }

  unless($table){
    $msg = qq~<p>Leider brachte die Suche keine Ergebnisse!</p><hr>~;
  }
  else{
    $msg .= $table.'</table>';
  }

  $msg .= qq~<p><a href="formular1.html">Neue Suche</a></p>\n<hr>\n</center>~;
  print $msg;

  print $cgi->end_html();
  $sth->finish();
  $dbh->disconnect;
} ##Ende Subroutine Suche

sub eintragen{ #Start Subroutine Eintragen
  my $dbh = DBI->connect("DBI:CSV:mitarbeiter=c:/apachefriends/xampp/cgi-bin") or die "Fehler: $DBI::errstr";
  my $statement = "INSERT INTO mitarbeiter(Nachname,Vorname,Abteilung,Telefon) VALUES(?,?,?,?)";
  my $sth = $dbh->prepare($statement) or die "Konnte SQL-Statement nicht bereitstellen: $DBI::errstr";
  $sth->execute($params{nachname},$params{vorname},$params{abt},$params{telefon});

  #Antwortseite
  print $cgi->start_html(-title => 'Antwort');
  print qq~<h4>Datenbankeintrag:</h4><hr><p><b>$params{nachname}</b>,$params{vorname}, $params{abt}, $params{telefon}</p><hr><p>
          <a href="formular2.html">Neuer Eintrag!</a></p><hr></body>~;

  $sth->finish();
  $dbh->disconnect;
}
\n\n

<!--EDIT|renee|1093609357-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 >| >> 12 Einträge, 2 Seiten



View all threads created 2004-08-22 16:54.