#!/usr/bin/perl ########################################################### # ConnectSouth - Printable Page # Author is Ricky Greer - rgreer@connectsouth.com # © 2000-2001 ConnectSouth Communications, Inc # Created on 05/03/2000 - Last Modified on 01/31/2001 ########################################################### use LWP::Simple; $browser = "$ENV{HTTP_USER_AGENT}"; # $site = "connectsouth.com"; $site = "www.connectsouth.com"; $site2 = "search.atomz.com/search/"; $site2id = "sp0a265100"; $page = "$ENV{HTTP_REFERER}"; $page =~ s/http:\/\/$ENV{'HTTP_HOST'}\///g; $page =~ s/shtml/html/g; # $printable = "$ENV{'DOCUMENT_ROOT'}/content/$page"; $printable = "http://$ENV{'HTTP_HOST'}/content/$page"; $formpage = 0; # Print out the Content-type header so browser will be happy print "Content-type: text/html\n\n"; print "\n"; print "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # print "\n"; print "ConnectSouth Printable Page\n"; if ($ENV{HTTP_REFERER} =~ /$site2/i) { print "\n"; } print "\n\n\n"; print "\n\n"; print "\n\n"; print "\n"; print "\n\n
"; print "
\n"; if ($ENV{HTTP_REFERER} =~ /$site/i || ($ENV{HTTP_REFERER} =~ /$site2/i && $ENV{HTTP_REFERER} =~ /$site2id/i)) { # Insert Content Page if ($ENV{HTTP_REFERER} =~ /$site2/i) { $searchpage = get($page); @section = split(//, $searchpage); @lines = $section[1]; } else { print "\n"; print "\n"; print "

\n"; $searchpage = get($printable); @section = split(//, $searchpage); @lines = $section[1]; } foreach $line(@lines) { # $line =~ s/img\//http:\/\/$ENV{'HTTP_HOST'}\/img\//g; $line =~ s/]*>//gi; if ($line =~ // || $line =~ //) { $line =~ s///g; $formpage = 1; } if ($line =~ //) { $line =~ s///g; $formpage = 1; } $line =~ s/ background="(.+)"//g; $line =~ s/ bgcolor=black//g; $line =~ s/black.gif/x.gif/g; $line =~ s/nav\/bottom.gif/x.gif/g; $line =~ s/ (END HTML FOOTER) }