Ich versteh deinen Code nicht ganz...
poste hier mal meinen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/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 = <HEAD>;
close HEAD;
open FOOT, "../foot.htm" or die "$!";
my @foot = <FOOT>;
close FOOT;
# Ausgabe der Seite beginnt
print "Content-type: text/html\n\n";
print @head;
if (!%vars) {
print '<h1>Shop</h1>';
} 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!<br>") if (!$aktion);
push(@message,"kein Produkt angegeben!<br>") if (!$produkt);
push(@message,"keinen Preis angegeben!<br>") if (!$preis);
if (!$anzahl) {
push(@message,"keine Anzahl angegeben!<br>");
} elsif ($anzahl == 0) {
push(@message,"Keine gueltige Anzahl angegeben!<br>");
}
# Meldung ausgeben
if(!@message){
#Cookie setzen
my $cookie = $cgi->cookie(
-name => "warenkorb",
-value => my @waren,
-path => "/",
-expires => '+1h',
);
print "<h2>In Warenkorb aufgenommen!</h2>
<br><br><a href=\"/shop/index.shtml\">Hier</a> geht es zurück zum Shop!";
} else {
print "<h2>Folgende Fehler traten bei der Eingabe auf:</h2>
@message
<a href=\"javascript:history.back()\">Hier</a> geht es zurück zum Shop";
}
}
print @foot;
Das sollte dann mal einen Shop geben, sobald das mit den Cookies funktioniert sehe ich keine grossen Probleme mehr (das denke ich eigentlich jedes mal wenn ich was schreibe und dann kommts immer anders... ):)
Ich wär natürlich dennoch dankbar wenn ihr mir helfen könntet!\n\n
<!--EDIT|youngalcapone|1077643836-->