[Woc-commit] CVS: woc/src/woc/cgi-src/topiclink link.pl,NONE,1.1

[Geert J. <gj...@us...>]

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