#!/usr/bin/perl use LWP::Simple; &listsites; &printpage; exit; sub printpage { $output = qq~ Purely Backgrounds

Purely Backgrounds Member Sites

$ringcode ~; print "Content-type: text/html\n\n"; print $output; } sub listsites { $start = "no"; $webringpage = qq~http://f.webring.com/hub?ring=pureback~; $webring = get($webringpage); @webring = split(/\n/, $webring); $webringlist = ""; foreach $line (@webring) { if ($line =~ /line3/) { $start = "yes"; } if ($line =~ /hubnavbar.html/) { $start = "no"; } if ($start eq "yes") { $line =~ s/href\=\"\/hub/href\=\"http\:\/\/f\.webring\.com\/hub/g; $webringlist .= "$line\n"; } # /hub?ring=pureback&id=8&go } $start = "no"; $ringsurfpage = qq~http://www.ringsurf.com/netring?ring=pureback;action=list~; $ringsurf = get($ringsurfpage); @ringsurf = split(/\n/, $ringsurf); $ringsurflist = ""; foreach $line (@ringsurf) { if ($line =~ /1\)/) { $start = "yes" } if ($line =~ /\<\/ul\>/) { $start = "no" } if ($start eq "yes") { $line =~ s/\/\/g; $ringsurflist .= "$line\n"; } } $start = "no"; $netringpage = qq~http://www.mollyworld.com/cgi-bin/netring/list.pl?ringid=pureback~; $netring = get($netringpage); @netring = split(/\n/, $netring); $netringlist = ""; foreach $line (@netring) { $thisline = $line; if ($line =~ /\/) { $thisline =~ s/\/\/g; $useline = "yes"; } if ($line =~ /\<\/dt\>/) { $thisline =~ s/\<\/dt\>//g; $useline = "yes"; } if ($line =~ /\/) { $thisline =~ s/\/\\/g; $useline = "yes"; } if ($line =~ /\<\/dd\>/) { $thisline =~ s/\<\/dd\>/\<\/font\>/g; $useline = "yes"; } if ($line =~ /\<\/td\>/) { $useline = "no"; } if ($useline eq "yes") { $netringlist .= "$thisline\n"; } } $webringlist =~ s/\//g; $webringlist =~ s/\//g; $webringlist =~ s/\//g; $webringlist =~ s/\//g; $webringlist =~ s/\<\/table\>//g; $webringlist =~ s/\<\/tr\>//g; $webringlist =~ s/\<\/td\>//g; $ringsurflist =~ s/\<\/font\>\/\/g; $ringsurflist =~ s/\<\P\>/<\/font\>\<\P\>/g; $ringsurflist =~ s/\//g; $ringsurflist =~ s/\//g; $ringsurflist =~ s/\//g; $ringsurflist =~ s/\<\/table\>//g; $ringsurflist =~ s/\<\/tr\>//g; $ringsurflist =~ s/\<\/td\>//g; $ringcode = qq~

WebRing Sites	Ringsurf Sites	MW NetRing Sites
$webringlist More \@ WebRing	$ringsurflist More \@ Ringsurf	$netringlist More \@ MW NetRing

~; }