#!/usr/bin/perl # ############################################################################## # Perl-Script for Order Form (c) Klaus Schönenberg Lohmar # schoenenberg@lohmar.org # # Relaeses # 1999-09-12 KS first release # # require "main.lib"; # read The INPUT BUFFER from .htm FORM-TAG &read_args; $goon=$ARGS{goon}; # open logfile # open (LOG,">>../LOGS/shop.log") or die "Cannot write to logfile"; # get the cookies &get_cookies; $orders=$cookie{AIShopBasket}; # Get the Cookie for the AIShopBasket $anz = split(/\]\[/, $orders); if (length($orders) <10) { $anz=0}; &print_html_header; # print LOG "L:$goon \n"; # What to do ? if ($goon eq "leeren") { &shop_leeren; } if ($anz eq "" || $anz eq "0") { &shop_ist_leer; } else { &shop_hat_positionen; } if ($goon eq "dontknow") { &dontknow; } &print_html_feeter; # # end of Mainprogram ############################################################################### # # Print the HTML Header # sub print_html_header { print < EOF } sub shop_leeren { print < $anz Pos im Warenkorb
Zur Kasse hier lang EOF } sub shop_ist_leer { print < Warenkorb ist leer
EOF } # # Print the HTML Feeter # sub print_html_feeter { print ""; }