Update of /cvsroot/woc/woc/src/woc/cgi-src/topiclink
In directory usw-pr-cvs1:/tmp/cvs-serv23171/woc/cgi-src/topiclink
Added Files:
link.pl
Log Message:
--- NEW FILE: link.pl ---
#!/usr/local/bin/perl -w
#
# Records the items to which was linked with topic map links.
#
use strict;
use diagnostics;
my $logfile = "receivers";
my $item = shift @ARGV;
my $assoc = shift @ARGV || "unknown";
#open ARGFILE, ">>$logfile";
my $date = `date`;
$date =~ s/\n//g;
my $client = $ENV{"REMOTE_ADDR"};
my $source = $ENV{"HTTP_REFERER"};
$source =~ s/http.*\/(.*).shtml/$1/;
my $target = $item;
$target =~ s/.*\/(.*).shtml/$1/;
#print ARGFILE "$date, $client - $assoc: $source -> $target\n";
#close ARGFILE;
print "Location: http://www.sci.kun.nl" . $item . "\n";
print "Content-type: text/html\n\n";
# do nothing more
|
