#!c:/Perl/bin/perl
use strict;
my @data;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI;
my $cgi = CGI->new;
print $cgi->header();
my $DBH;
my $STH;
my $CGI;
my $antwort;
$CGI = new CGI();
##Suche oder Eintrag##
if ($CGI->param("suchanfrage")){
suche($CGI,$DBH,$STH);
}
#Start Subroutine Suche
sub suche {
my $nachname = param("nachname");
my $abteilung = param("abt");
$DBH = DBI->connect("DBI:CSV:db_mitarbeiter=c:/apachefriends/xampp/htdocs/cgi-bin")
or die "Konnte keine Verbindung zur Datenbank herstellen:$!";
$STH = $DBH->prepare("SELECT * FROM db_mitarbeiter
WHERE Nachname = '$nachname' AND Abteilung = '$abteilung'")
or die "Konnte SQL-Statement nicht bereitstellen:$!";
$STH->execute()
or die "Ausfuehren nicht moeglich:$DBI::errstr";
#Treffer
if ($STH->rows != 0){
print "Content-type: text/html\n\n";
print qq~;
Antwort
Suchergebnis
| Familienname: |
Vorname: |
Abteilung: |
Telefon: |
~
my @data;
while (@data = $STH->fetchrow_array()) {
my $familienname = $data[0];
my $vorname = $data[1];
my $abt = $data[2];
my $telefon = $data[3];
print qq§\n| $familienname | \n$vorname |
\n$abt | \n$telefon | \n
\n§;
}
print qq§
\nNeue Suche
\n
\n\n\n§;
}
##Keine Treffer
else {
print qq~
print "Content-type:text/html\n\n";
Antwort
Leider brachte die Suche keine Ergebnisse!
Neue[/URL] Suche!
~
}
$STH->finish();
$DBH->disconnect;}
##Ende Subroutine Suche
#Start Subroutine Eintragen
sub eintragen{
my ($nachname, $vorname, $abt, $telefon)=(param('nachname'),
param('vorname'), param('abt'),param('telefon'));
$DBH = DBI->connect("DBI:CSV:db_mitarbeiter=c:/apachefriends/xampp/cgi-bin")
or die "Konnte keine Verbindung zur Datenbank herstellen:$!";
$STH = $DBH->do("INSERT INTO db_mitarbeiter
VALUES ('$nachname','$vorname','$abt','$telefon')")
or die "Konnte SQL-Staement nicht bereitstellen:$!";
#Antwortseite
print qq~
print "Content-type:text/html\n\n";
print '';
print '';
print 'Antwort';
print '';
print '';
print "Datenbankeintrag:
";
print "
";
print "$nachname,$vorname, $abt, $telefon
";
print "
";
print "Neuer Eintrag!
";
print "
";
print "";
print "";