#!/usr/bin/perl
print "Content-Type: text/html\n\n";

$id = "$ENV{PATH_INFO}";
$id =~ s/\///;
($id,@page) = split (/\//, $id);
foreach $item (@page) { $page .= "$item/"; }
chop $page;
if ($page !~ /http\:\/\//i && $page) { $page = "http://$page"; }

$go =   "http://www.NitroAffiliates.com/g.o/roibot";

print "HTTP/1.0 302 Temporary Redirection\r\n" if $ENV{PERLXS} eq "PerlIS";

print "Location: $go\n\n";

exit;