ToothyWikiInternals/EgressCounter

Simple redirection script that filters some characters to stop javascript and HTML abuse and means that people leaving the site via it show up in the logs.


#! /usr/bin/perl -w
use English;
use strict;

my $CRLF = "\015\012";

my $url = $ENV{'QUERY_STRING'};
defined $url or $url = "localhost";

$url =~ s/\:/%3A/g;
$url =~ s/\(/%28/g;
$url =~ s/\)/%29/g;
$url =~ s/\ /%20/g;
$url =~ s/\</%3C/g;

$url = 'http://' . $url;
print "Content-Type: text/html".$CRLF;
print "Location: ".$url.$CRLF.$CRLF;
print "Redirect: <A HREF=\"$url\">$url</A>."