#!/usr/bin/perl use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); # zur Fehlerausgabe auf dem Browser my $cgi = CGI->new(); my %vars = $cgi->Vars(); # head.htm und foot.htm einlesen open HEAD, "../head.htm" or die "$!"; my @head = ; close HEAD; open FOOT, "../foot.htm" or die "$!"; my @foot = ; close FOOT; # Ausgabe der Seite beginnt print "Content-type: text/html\n\n"; print @head; if (!%vars) { print '

Shop

'; } else { # Eingaben einlesen my $aktion = $vars{aktion}; my $produkt = $vars{produkt}; my $preis = $vars{preis}; my $anzahl = $vars{anzahl}; # Eingaben überprüfen push(my @message,"keinen Aktion angegeben!
") if (!$aktion); push(@message,"kein Produkt angegeben!
") if (!$produkt); push(@message,"keinen Preis angegeben!
") if (!$preis); if (!$anzahl) { push(@message,"keine Anzahl angegeben!
"); } elsif ($anzahl == 0) { push(@message,"Keine gueltige Anzahl angegeben!
"); } # Meldung ausgeben if(!@message){ #Cookie setzen my $cookie = $cgi->cookie( -name => "warenkorb", -value => my @waren, -path => "/", -expires => '+1h', ); print "

In Warenkorb aufgenommen!

Hier geht es zurück zum Shop!"; } else { print "

Folgende Fehler traten bei der Eingabe auf:

@message Hier geht es zurück zum Shop"; } } print @foot;