#!/usr/local/bin/perl use strict; use CGI; my $bTesting = 0; my $q = new CGI; my $z = $q->param('z')||''; my $id = $q->param('id')||''; my $cd = $q->param('cd')||''; my $s1 = $q->param('s1')||''; my $phDT_Cake = {#PPD 7751 => {68120 => 64, 68153 => 28, 35822 => 1692, 35832 => 1692, 68230 => 36, 35644 => 2452, 35645 => 2452, 35646 => 2452, 35647 => 2452, 35648 => 2452, 35649 => 2452, 35650 => 2452, 35651 => 2452, 35652 => 2452, 35653 => 2452, 35654 => 2452, 35655 => 2452, 35656 => 2452, 35657 => 2452, 66893 => 2476, 21362 => 468, 22835 => 1469, 22836 => 1469, 68277 => 2709, 70 => 2572}, #PwP 52561 => {35434 => 1705, 68270 => 86, 16340 => 456, 23317 => 1518}, #FF 58898 => {35814 => 1692, 35822 => 1692, 12165 => 468, 26900 => 2578}, #WaHC 61910 => {35434 => 1705, 68270 => 86, 16340 => 456, 23317 => 1518}}; if ($cd && (defined $phDT_Cake->{$cd}) && $id && (defined $phDT_Cake->{$cd}->{$id})){ $id = $phDT_Cake->{$cd}->{$id}; } my $sNewUrl = 'http'; $sNewUrl .= 's' if ($q->server_port()==443); $sNewUrl .= '://forwardrocketlaunch.com/?a='.$cd.'&c='.$id.'&s1='.$s1; if ($bTesting){ print 'Content-type: text/html'."\n\n"; print 'Location '.$sNewUrl.''; exit; } my($minute, $hour, $day, $month, $year) = (localtime)[1..5]; $year = $year + 1900; $month++; if(length $minute == 1){ $minute = "0${minute}"; } my $redirtime = "${hour}:${minute} on ${month}/${day}/${year}"; if (open FH, '>>/tmp/cake_redirs'){ my $uri = $ENV{SCRIPT_URI}; my $refer = $q->referer(); print FH "Request $uri from $refer at ${redirtime}.\n"; close FH; } print 'Location: '.$sNewUrl."\n\n"; #open(MAIL,"|/usr/sbin/sendmail -t"); #print MAIL "To: steve.little\@oceansideten.com (Steve Little)\n"; #print MAIL "From: system\@mywebdev.org (MyWebDev)\n"; #print MAIL "Subject: DT Redirect Identified\n\n"; #print MAIL "/opt/www/roirocket/htdocs/svy/cgi-bin received traffic:\n\n"; #print MAIL "Request ".$ENV{SCRIPT_URI}." from ".$q->referer()."\n"; #close (MAIL); exit;