Thread Cookies: Wie mach ich das? (10 answers)
Opened by youngalcapone at 2004-02-18 19:59

youngalcapone
 2004-02-24 19:07
#1261 #1261
User since
2003-08-14
185 Artikel
BenutzerIn
[default_avatar]
Ich versteh deinen Code nicht ganz...
poste hier mal meinen:
Code: (dl )
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-->

View full thread Cookies: Wie mach ich das?