#!/usr/local/bin/perl
 
# My Kinda Prices - Referal from another site to MyKindaPrices

require "header";

#print "Content-type: text/html\n\n";

$input = $ARGV[0];
($sitename,$url) = split(/:-:/,$input);

$url =~ s/\\//gi;

   #write a cookie for referer site tracking purposes
        @months = ('','Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul','Aug','Sep','Oct','Nov','Dec');
        @days = ('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday');

        $tt = time + (3600 * 24); #1 day
        ($a, $b, $c, $d, $e, $f, $g, $h, $i) = localtime($tt);
        $e++;
        $g--;
        $dow = @days[$g];
        $mon = @months[$e];
        if ("$f" eq "99") {$year = "1999";}
        if ($f >= 100) {$year = 1900 + $f;}

        #$Cookie_Exp_Date = 'Sunday, 31-Dec-2000 00:00:00 GMT';
        $Cookie_Exp_Date = "$dow, $d-$mon-$year 00:00:00 GMT";
        $Cookie_Path = '/';

      #set cookie for .com domain
        $Cookie_Domain = '.mykindaprices.com';
        $Secure_Cookie = "0";

        &PrepareCookie("refer", "$sitename");

        &SetCookies;

      #set cookie for .co.za domain
        $Cookie_Domain = '.mykindaprices.co.za';
        $Secure_Cookie = "0";

        &PrepareCookie("refer", "$sitename");

        &SetCookies;


if ($url ne "") {
   print "Location:$url\n\n\n";
}
else {
   print "Location:http://www.mykindaprices.com\n\n\n";
}


exit;