#!/usr/bin/perl

use CGI ("param");

#use LWP::Simple;

$sfile=param("file");
$sfile=~s/\.\.//g;
$sfile=~s/^\/+//;

$base='http://www.channel4.com/hood/';
$file=$base.$sfile;

print <<ENDHTML1;
Content-type: text/html


ENDHTML1

&getfromlive;

print $content;

#### PROGRAM TERMINATES HERE


##SUBROUTINE TO OBTAIN ARCHIVE FILES FROM LIVE SITE
sub getfromlive
{

#print "Fetching <a href=\"$file\">$base + $sfile<\/a><br>";

unless ($sfile=~/\.html$/ && -e $sfile) {$sfile='index.html';}


undef $/;
open (IN, "<$sfile");
$content=<IN>;
close (IN);
$/="\n";

#$content=get("$file");

#open (OUT, ">$sfile") || print "can't open $sfile";
#print OUT $content;
#close (OUT);


$content=~s/<form.+?<\/form>//gis;
$content=~s/<script.+?<\/script>//gis;
$content=~s/<style.+?<\/style>//gis;
$content=~s/<div align="center".+?<\/div>//gis;

$content=~s/<\/table>/<br>/gis;
$content=~s/<[\/]?(table|font|hr|td|tr)[^>]*?>//gi;

$content=~s/<a href="hood\.cgi".*?<\/a>//gi;
$content=~s/<a href="([^"]+?)"[^>]*?>/urlprocess($1)/gie;
$content=~s/<\/a>/<\/a>&nbsp; /gi;

$content=~s/<img src="(\.\.\/)*(\/)?images\/spacer.gif"[^>]+?>//gi;
#$content=~s/<img src="\/top_nav[^>]+?>//gi;

$content=~s/<img src=".*?([^\/]+?)_button.gif".*?>/buttonprocess($1)/gie;

$content=~s/<img.*?name="(.*?)".*?>/buttonprocess($1)/gie;

#$content=~s/<img.*?alt="([^"]+?)".*?>//gi;
$content=~s/<img.*?>//gi;

#$content=~s/<img src=".*?\/([^\/]+?)\.(gif|jpg)".*?>/[$1 pic]/gi;
#$content=~s/<img.*?alt="([^"]+?)".*?>/[$1 pic]/gi;

$content=~s/<(link|spacer)[^>]+?>//gi;
$content=~s/<!--.+?-->//gis;
$content=~s/<b>Full Listing<\/b>//g;
$content=~s/<\/body>/<a href="$file"><P>Graphics version of this page<\/a><br><br><\/body>/gi;
$content=~s/(<br>\s*){3,}/<br><br>/gis;
$content=~s/\[sub.*? pic\]//gi;
}


sub buttonprocess
{
$newurl=ucfirst ($_[0]);
if ($newurl eq 'Back') {$newurl='Previous';}$content=~s/<img.*?name="(.*?)".*?>/[$1 page] /gi;

return "$newurl page";
}



sub urlprocess
{
$newurl=$_[0];
if ($newurl =~ /^http/) {return "<a href=\"$newurl\">";}

if ($newurl =~ /hood\/(.+)/ ) {return "<a href=\"hood.cgi?file=$1\">";}

if ($newurl =~ /^(#.+)/ ) {return "<a href=\"hood.cgi?file=$sfile$1\">";}

if ($sfile=~/^(.+\/)/ ) {$homedir=$1;} else {$homedir='';}

$doturl="$homedir$newurl";

while ($doturl=~ /\.\.\// )

	{ $doturl =~ s/[^\/]+\/\.\.\/// ; }

return "<a href=\"hood.cgi?file=$doturl\">";

}




__END__