From 03134fa5f6f25d92724ce4c183f9bbe12a9e37dc Mon Sep 17 00:00:00 2001 From: "Roberto C. Sanchez" Date: Sat, 29 Mar 2014 10:53:59 -0400 Subject: Imported Upstream version 1.5.11 --- utilities/diatheke/cgi/dia-def.pl | 41 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100755 utilities/diatheke/cgi/dia-def.pl (limited to 'utilities/diatheke/cgi/dia-def.pl') diff --git a/utilities/diatheke/cgi/dia-def.pl b/utilities/diatheke/cgi/dia-def.pl new file mode 100755 index 0000000..e2f1d4f --- /dev/null +++ b/utilities/diatheke/cgi/dia-def.pl @@ -0,0 +1,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 ""; + + + + + + + + + -- cgit v1.2.3