diff options
author | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:52 -0400 |
---|---|---|
committer | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:52 -0400 |
commit | 148bd343f3e7e32d141f66b5b5c9b98b2975b0b3 (patch) | |
tree | 31078963b85110d57310759016e60e8d26ccb1e6 /utilities/diatheke/cgi/dia-def.pl | |
parent | 8c8aa6b07e595cfac56838b5964ab3e96051f1b2 (diff) |
Imported Upstream version 1.5.8
Diffstat (limited to 'utilities/diatheke/cgi/dia-def.pl')
-rwxr-xr-x | utilities/diatheke/cgi/dia-def.pl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/utilities/diatheke/cgi/dia-def.pl b/utilities/diatheke/cgi/dia-def.pl deleted file mode 100755 index e2f1d4f..0000000 --- a/utilities/diatheke/cgi/dia-def.pl +++ /dev/null @@ -1,41 +0,0 @@ -#!/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>"; - - - - - - - - - |