Opened by youngalcapone at 2004-02-18 19:59
User since
2003-08-14
185 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
185 Artikel
BenutzerIn
Aloha!
So sollte es eigentlich ja gehen:
Es werden aber keine Cookies gespeichert, wo ist da noch der Wurm drin?
Wäre extrem dankbar wenn ihr mir weiterhin helfen könntet!
Gruss, der wiederheimgekehrte Dave
So sollte es eigentlich ja gehen:
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
60
61
62
63
64
65
66
67
68
69
#!/usr/bin/perl
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser); # zur Fehlerausgabe auf dem Browser
my $output = "";
my $cgi = CGI->new();
my %vars = $cgi->Vars();
print "Content-Type: text/html\n\n";
# 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
$output .= join "", @head;
if (!%vars) {
$output .= '<h1>Shop</h1>';
} else {
# Eingaben einlesen
my $aktion = $vars{aktion};
my $produkt = $vars{produkt};
my $preis = $vars{preis};
my $anzahl = $vars{anzahl};
my @message = ();
# Eingaben überprüfen
push(@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 => "$produkt, $preis, $anzahl\n", # my @waren, solange bis in @waren auch mal was drin ist
-path => "/",
-expires => '+1h',
);
print $cookie;
$output .= "<h2>In Warenkorb aufgenommen!</h2>
<br><br><a href=\"/shop/index.shtml\">Hier</a> geht es zurück zum Shop!";
} else {
$output .= "<h2>Folgende Fehler traten bei der Eingabe auf:</h2>
@message
<a href=\"javascript:history.back()\">Hier</a> geht es zurück zum Shop";
}
}
print $output;
print @foot;
Es werden aber keine Cookies gespeichert, wo ist da noch der Wurm drin?
Wäre extrem dankbar wenn ihr mir weiterhin helfen könntet!
Gruss, der wiederheimgekehrte Dave