#!/usr/bin/perl -w
# This little script will go to a web page and pull out all of the images
# and display them on a new page.
# It is designed for use with WebTV.
# See http://sepwww.stanford.edu/sep/jon/family/jos/webscissors/


# Note added by tearful father jon:
# pwd
#   /usr2/users/jos/web/devgrab/cgi/
# ls -l puller29.cgi
# -rwxr-xr-x   1 jos      ceejz        7204 Aug 19 13:51 puller29.cgi
#                                           ^^^^^^^^^^^^

 
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Cookies;
use URI::URL;
use URI::Escape;
use HTML::LinkExtor;
use CGI;

#$referer="$ENV{'HTTP_REFERER'}";
#if ($referer !~ /webscissors.com/i)
#{
#    print ("Location: http://www.webscissors.com\n\n");
#}

$community = 0;
$photopoint = 0;
$firstFrame = 0;
$firstQuery = new CGI;
$theirUrl = $firstQuery->param('url');
&cleanUpUrl;
@variousFrames = 0; #Make default number of pages to examine 1.

@unsortImages = ();




	To whom it may concern:


	Apologies for the paranoia here.

	The remaining 168 lines of this file were removed
	as a security measure.

	Persons interested in having the full file should request
	it in a paper letter to me, fully identifying
	their intentions and themselves.

				- jon claerbout
				  claerbout @ stanford . edu