Remove website CGI script.

This commit is contained in:
Simon Howard 2006-05-13 19:24:44 +00:00
parent 0a492ad0a3
commit d88782f802

View file

@ -1,16 +0,0 @@
#!/usr/bin/perl -w
# I am a perlscript
use CGI qw(param);
$flat = param("flat") or die "BAH";
$flat =~ s/deutex\/flats\///;
$backme = "/showflats.cgi";
print <<EOF ;
<!doctype html public "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>$flat</title></head>
<body background="$flat">
<table bgcolor="#000000"><tr><td><a href="$backme"><font color="#ffffff">Back</font></a></td></tr></table>
</body></html>
EOF