#! c:/perl/bin/perl -w
use strict;

use CGI qw(:standard *table);
use CGI::Carp qw/fatalsToBrowser/;
use DBI;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time);

$mon++;
$year += 1900;

my $dbh = DBI->connect('DBI:ODBC:db1') or die "Fehler beim Connect: ",$DBI::errstr;

my $sqlstatement = "SELECT Tabelle1.Kundennummer, Tabelle2.Rechnungsbetrag FROM Adressen INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer WHERE Tabelle1.Kundennummer =?";

my $sth = $dbh->prepare($sqlstatement)  or die $dbh->errstr;
$sth->execute (param('Kundennummer'))   or die $sth->errstr;

print header(-type => 'text/html'), 
  start_html(-title => 'Auswahl'),
  h3('Ergebnis'), 
  hr(),
  start_table()
;

my @row = ();

my $i = 1;
while (@row=$sth->fetchrow_array()){

    # HTML Tabellenzeile ausgeben
    print Tr( map { td($_) } @row );

    my $rechnung = 'd:\\SGD\\Apache2\\htdocs\\rechnung'.$i.'.txt';

    if ( open my $output, '>', $rechnung ) {
        
        # Ausgabe einer langen Liste ins Dateihandle $output

        print $output, 
          "Rechnungsnummer:\tRE4711\tvom: $mday\.$mon\.$year\n\n\n",
          "Kundennummer: $row[0]\n\n",
          $row[3],"\n\n",
          $row[2],"\n\n",
          $row[1],"\n\n",
          "Telefonnummer: $row[4] \n\n\n\n\n",
#         $row[2]," ",$row[3],"\n" x 7,
          "-" x 34 ,"\n",
          "Rechnungsbetrag:\t","\n",
          "-" x 34 ,"\n\n",
          "Mit freundlichen Grüßen\nIhre Webfirma",
        ;

        close $output or die "$rechnung: $!\n";
    }
    else {
        # Meldung, dass Oeffnen fehlgeschlagen
        warn "$rechnung: $!\n";
    }

    $i++;
}

print end_table(),
  end_html(),
;