1.) Das Script für das Änderungsformular:
#!/usr/bin/perl
# Einbinden der Module
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI;
use DBI;
##### Verbindung zur Datenbank herstellen ####################
my $dbh=DBI->connect('dbi:mysql:Datenbank', 'Username', 'Passwort') || die "Kann keine Verbindung zur Datenbank herstellen: $DBI::errstr";
my $http=new CGI;
my $Name = $ENV{'REMOTE_USER'};
##############################################################
print "Content-type: text/html\n\n";
my $Abfrage=$dbh->prepare("SELECT ID, Username, [..], Sonstiges, LastChange FROM adressen WHERE Username=? ");
$Abfrage->execute($Name);
my @Datensatz = $Abfrage->fetchrow_array();
##### Sonderzeichen escapen
@Datensatz = map CGI::escapeHTML($_), @Datensatz;
my ($F01, [..], $F40) = @Datensatz;
print <<"ENDE";
<form action="aenderung.pl" method="post" name="Adressbuch" target="_top">
<table width="570" border="0" cellspacing="1" cellpadding="3" bgcolor="#700000">
<tr>
<td class="standart" align="left" valign="middle" bgcolor="#8b0000" width="40%"><b>Name</b></td>
<td class="standart" align="left" valign="top" bgcolor="#8b0000" width="60%"><input class="text3" type="text" name="AktuellerName" value="$F05" size="24" border="0"></td>
</tr>
[..]
<tr>
<td class="standart" colspan="2" align="right" valign="top" bgcolor="#8b0000"><input type="submit" name="Senden" value="Daten übertragen" border="0"></td>
</tr>
</table>
</form>
ENDE
$Abfrage->finish;
$dbh->disconnect; # Datenbankverbindung trennen
exit;
_______________________________________________________________
2.) Das Script zum Übernehmen der Änderungen:
#!/usr/bin/perl
# Einbinden der Module
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI;
use DBI;
##### Verbindung zur Datenbank herstellen ####################
my $dbh=DBI->connect('dbi:mysql:Datenbank', 'Username', 'Passwort') || die "Kann keine Verbindung zur Datenbank herstellen: $DBI::errstr";
my $http=new CGI;
##### Formularfelder einlesen ################################
my $i05 = $http->param('AktuellerName');
[..]
my $i39 = $http->param('Sonstiges');
##### Wer ist online? ########################################
my $Name = $ENV{'REMOTE_USER'};
my $Abfrage1=$dbh->prepare("SELECT ID FROM adressen WHERE Username = '$Name'");
$Abfrage1->execute();
(my $ID)=$Abfrage1->fetchrow_array;
$Abfrage1->finish;
##### Aktuelles Datum ########################################
my (undef, $min, $hour, $mday, $mon, $year, $wday, undef, undef) = localtime(time);
my $year = $year+1900;
if ($min < 10) {
my $min = "0$min";
}
if ($hour < 10) {
my $hour = "0$hour";
}
my @tag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my @monat = ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
my $Aenderungsdatum = "$tag[$wday], $mday. $monat[$mon] $year";
##### Änderung in Datenbank übernehmen #######################
my $query = $dbh->prepare ("UPDATE adressen SET NeuerName=?, [..], LastChange=? WHERE Username=? ");
print $dbh->errstr; #Errorstring
$query->execute($i05, [..], $Aenderungsdatum, $Name);
$query->finish;
print "Location: ../details.pl?id\=$ID\n\n";
$dbh->disconnect; # Datenbankverbindung trennen
exit;
