blob: e2f1d4fb1c4064cc5f4951d3f4a432d0a22edcec (
plain)
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
|
#!/usr/bin/perl
#change this variable to hostname of your server
@values = split(/\&/,$ENV{'QUERY_STRING'});
$DOMAIN = $ENV{'REMOTE_ADDR'};
$EXPIRES = 'Fri Dec 31 23:59:00 GMT 2005';
foreach $i (@values) {
($varname, $mydata) = split(/=/,$i);
if ($varname eq "defversion") {
$COOKIE = "DEFTRANS=$mydata ; expires=$EXPIRES";
}
elsif ($varname eq "locale") {
$COOKIE = "LOCALE=$mydata ; expires=$EXPIRES";
}
elsif ($varname eq "settrans") {
$COOKIE = "SETTRANS=$mydata ; expires=$EXPIRES";
}
elsif ($varname eq "setcomm") {
$COOKIE = "SETCOMM=$mydata ; expires=$EXPIRES";
}
elsif ($varname eq "setld") {
$COOKIE = "SETLD=$mydata ; expires=$EXPIRES";
}
}
# Set the cookie and send the user the thank you page.
print "Set-cookie: $COOKIE\n";
print "Content-type: text/html\n\n"; #Note extra newline to mark
#end of header.
print "<html><meta http-equiv=\"refresh\" content=\"0\; URL=$ENV{'HTTP_REFERER'}\"></html>";
|
