#!/usr/bin/perl
# By Artem Litvinovich (al867@columbia.edu)
# Feb 15, 2003
use CGI qw(:standard);
# TARGET DIRECTORY (must have write permission)
my $targetdir = "/tmp";
# VALID CALLER URL (beginning)
my $validorigin = "http://localhost";
my $q = CGI->new();
my $notify = $q->param("notify");
if(referer() =~ /^\Q$validorigin\E/) {
`echo $notify | cat > $targetdir/.forward` if($notify);
print header,start_html(),"Forwarding to: ".(`cat $targetdir/.forward`)."",end_html();
} else {
print header,start_html(),"invalid origin",end_html();
}
exit 1;
####