#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use CGI qw/:standard :html3/;    # Standard und Tabellen

if(defined param('go_shopping')) { # "Einkaufen geh'n" gedrückt

                                 # Formularparameter -> Cookie
    foreach $key (param()) { $data{$key} = param($key); }

                                 # Header mit Cookie senden
    $cookie = cookie(-name   => 'kunde', -value => \%data,
                     -expires => "+1y");

    print header(-cookie => $cookie);

                                 # ... und loslegen.
    print h1("Willkommen im Einkaufsparadies!");

    # ... hier ginge es weiter ...

} else {                         # Offensichtlich erster Aufruf
    if(cookie(-name => 'kunde')) {          # Cookie da?
        %cookie = cookie(-name => 'kunde'); # Cookie 
                                            #   entgegennehmen
        foreach $key (keys %cookie) {       # Parameter 
            param($key, $cookie{$key});     #   vorbesetzen
        }
    }

    print header();                # CGI-Header
    print_address_form();          # Adressenformular ausgeben
}


###############################################################
sub print_address_form {
###############################################################
    my $msg = (shift || "");

    print start_html(), 
        tt(CGI::font({color => 'red'}, $msg)),
        start_form(),
        table(
            TR(td("Name:"),         
               td(textfield(-name => 'name')),
               td("Vorname:"),      
               td(textfield(-name => 'vorname'))),
            TR(td("Straße:"),       
               td(textfield(-name => 'strasse')),
               td("Hausnummer:"),   
               td(textfield(-name => 'nummer'))),
            TR(td("Postleitzahl:"), 
               td(textfield(-name => 'plz')),
               td("Wohnort:"),      
               td(textfield(-name => 'wohnort'))),
            TR(td("Zahlungsmethode"), 
               td(popup_menu(-name =>'pay', 
                    '-values' => ['Rechnung', 'Nachnahme'])))),
        submit(-name => 'go_shopping', 
               -value => "Einkaufen gehen"),
        end_form(), end_html();
}