summaryrefslogtreecommitdiff
path: root/utilities/diatheke/cgi/dia-def.pl
blob: d50ef9b9f48cbc194136928082bd50203b07a5f7 (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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#!/usr/bin/perl

#******************************************************************************
#
#  dia-def.pl -	
#
# $Id: dia-def.pl 2841 2013-06-29 10:58:08Z chrislit $
#
# Copyright 2000-2013 CrossWire Bible Society (http://www.crosswire.org)
#	CrossWire Bible Society
#	P. O. Box 2528
#	Tempe, AZ  85280-2528
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation version 2.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#

#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>";