#!/usr/bin/perl -w
use CGI qw(:standard :html3);
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser); # errorsToBrowser set_message);
# get the argument
$url = 'http://www.joerivanleeuwen.nl/\?';
$ENV{'HTTP_REFERER'} =~ /$url(.*)/;
$argument = $1;
$argument =~ s/[^a-zA-Z0-9\.\=\/\-]//g;
# $path = "/home/strknd/jleeuwen/public_html/webontwerp/";
# $webpath = "http://www.phys.uu.nl/~jleeuwen/webontwerp/";
$path = "/auto/astron/leeuwen/public_html/joerivanleeuwen.nl/";
$webpath = "http://www.astron.nl/~leeuwen/joerivanleeuwen.nl/";
# safety first
$ENV{PATH} = '';
$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL};
$| = 1;
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
# start
# do something?
if (-e "$path/$argument".".html") {
print "Content-type: text/html","\n\n";
open FILE, "$path/$argument".".html" or die "Oops, could not open $path/$argument".".html";
print while ();
close FILE;
} elsif ($argument =~ /file=(.*)/) {
print "Status: 302 Moved\nLocation: $webpath/$1\n\n";
} else {
print "Content-type: text/html","\n\n";
# print "ARG=", $argument;
open FILE, "start.html" or die "Oops, could not open start.html";
print while ();
close FILE;
}