#!/usr/local/bin/perl

require("cgi-lib.pl")
&ReadParse(*input);

$sponsor = $input{'sponsor'};
$url = $input{'url'};



#$CBS = `cat /var/db/snap/$sponsor.txt`;
#$CBS = $CBS + 1;
                open (CBS, ">> /var/db/snap/acumulator/$sponsor.txt");
                print CBS "x\n";
                close CBS;

                print "Location: http://$url", "\n\n";