#!/usr/bin/perl -w
use strict;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);
print "Content-type: text/html\n\n";
my $sendmail = "/usr/lib/sendmail";
my $an_name = "Martin Alter";
my $mail_adr_an = '****';
my $von_name = "Martin Alter";
my $mail_adr_von = '****';
my $betreff = "Hallo";
my $text = "Hallo wenn ich das hier lese bin ich zufrieden";
my $dbh = DBI -> connect("DBI:mysql:jung3r","jung3r","******")or die "connection failed $DBI::errstr";
my $auswertung = $dbh -> prepare("SELECT * FROM bilder");
$auswertung -> execute or die $auswertung -> errstr;
$dbh -> disconnect();
open (MAIL, "|$sendmail -t") or die ("Fehler $!");
print MAIL qq|To: "$an_name" <$mail_adr_an>\n|;
print MAIL qq|From: "$von_name" <$mail_adr_von>\n|;
print MAIL qq|Subject: $betreff\n\n|;
print MAIL "Content-Type: text/html\n\n";
print MAIL " charset=\"iso-8859-1\"\n";
print MAIL "Content-Transfer-Encoding: quoted-printable\n\n";
print MAIL "";
print MAIL "";
print MAIL "Start";
print MAIL '';
print MAIL "";
print MAIL '';
print MAIL "";
print MAIL "";
print MAIL "| Vorname | Name | Abteilung | Zimmer | ";
print MAIL &schleife;
print MAIL "";
print MAIL "";
close (MAIL) or die ("Fehler beim Schließen. Grund : $!");
sub schleife {
while(my $data = $auswertung -> fetchrow_hashref) {
print MAIL "
";
print MAIL "| $$data{'Vorname'} | ";
print MAIL "$$data{'name'} | ";
print MAIL "$$data{'Abteilung'} | ";
print MAIL "$$data{'zimmer'} | ";
print MAIL "
";
}
}