#!/usr/bin/perl
#use CGI ":standard";
use LWP::Simple;
my $this = "http://your.servers.url/whatyounamedthis.cgi";
my $meth = $ENV{'REQUEST_METHOD'};
my $quer = $ENV{'QUERY_STRING'};
#my $surl = "http://www.slashdot.org";
my $surl = "";
if ($quer && $meth eq "GET") { $surl = $quer; }
if ($surl =~ /slashdot\.org/) { #these auto format comments
#combine the lines below
$surl =~ s!slashdot\.org/articles/(\d\d)/(\d\d)/(\d\d)/(\d+)\.shtml!slashdot.org/article.pl?
sid=$1/$2/$3/$4&cid=&pid=0&startat=&threshold=2&mode=thread&commentsort=3!i;
#combine the lines below again =)
$surl =~ s!slashdot\.org/interviews/(\d\d)/(\d\d)/(\d\d)/(\d+)\.shtml!slashdot.org/comments.pl
?sid=$1%2F$2%2F$3%2F$4&cid=&pid=0&startat=&threshold=2&mode=thread&commentsort=3!i;
}
my $site = get $surl;
print "Content-type: text/html\n\n";
$site =~ s/
/*pc* /i;
if ($surl =~ /slashdot\.org/i) {
if ($surl !~ /org\/askslashdot/i) {
$site =~ s//
/;
$site =~ s///g;
$site =~ s/bgcolor="#006666">/CCCCCC">/g;
$site =~ s/Results<\/B>/Results<\/font><\/B>/g;
$site =~ s/&mode=thread>(.*)<\/A>/&mode=thread>$1<\/font><\/A>/g;
$site =~ s/www\.thinkgeek\.com>ThinkGeek<\/A>/www\.thinkgeek\.com>ThinkGeek<\/font><\/A>/g;
$site =~ s/ / /g;
$site =~ s/Andover\.Net">Andover\.Net<\/A>/Andover\.Net">Andover\.Net<\/font><\/A>/g;
$site =~ s/size=3 color="#006666"/size=3 color="#00BBBB"/g;
$site =~ s/size=1 color="#006666"/size=1 color="#00BBBB"/g;
$site =~ s/size=4 color="#FFFFFF"/size=4 color="#DEFEEE"/g;
$site =~ s///g;
$site =~ s/"#006666"/"#004444"/g; #size=3||1 color=# -> 00BBBB
$site =~ s/"#FFFFFF"/"#000412"/g; #001204
$site =~ s//bgcolor="#521222">/g;
$site =~ s/bgcolor=ffffff>/bgcolor="#120212">/g;
$site =~ s/"ffffff"/"120212"/g;
$site =~ s/"#ffffff"/"#AECEFE"/g;
$site =~ s/"#CCCCCC"/"#521222"/g; #321202
$site =~ s/"#000000"/"#C0F0D0"/g; #B0D0F0 F0D0B0 D0FFEF
$site =~ s!()!$1$this?$2$3!gi;
$site =~ s!]*)>!!gi;
$site =~ s!]*)>!!gi;
# } else {
#ask/. stuff only
}
} elsif ($surl =~ /opensales\.org/i) {
$site =~ s!white!black!i;
$site =~ s!bgcolor="#FFFFFF"!bgcolor="#000412"!i;
$site =~ s!href="/([^"]*)">!href="$this?http://www.opensales.org/$1">!gi;
$site =~ s!"/images!"http://www.opensales.org/images!gi;
} else {
print <PipzColourz Index
PCndx
END_0
}
print $site;
|