Content is HTTP/1.0 302 (Found) Object moved Cache-Control: private Date: Fri, 01 Mar 2002 15:37:36 GMT Via: 1.1 Dyn-EH-NetCache (NetCache NetApp/5.1R2) Location: /index.asp Server: Greyware Web Server Content-Length: 131 Content-Type: text/html Client-Date: Fri, 01 Mar 2002 15:40:21 GMT Client-Peer: 208.14.208.55:80 Set-Cookie: ASPSESSIONIDGGQQGGAJ=KOMOONBBOOGGPDKDEEPCAAOI; path=/ Title: Object moved Object moved

Object Moved

This object may be found here. ##

##

req->authorization_basic('jonathanmark', 'nottherealpassword');

##

##

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use HTTP::Cookies;

use strict;

my $ua = LWP::UserAgent->new;

  $ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",
				     autosave => 1));



for (my $i = 3543; $i < 4140; $i++) { 


# log in to authentication page.
my $req = HTTP::Request->new(GET => 'http://www.sff.net/member/guestbookconfigurator.asp?jonathanmark');
  
$req->authorization_basic('jonathanmark', 'nottherealpassword');

my $content = $ua->request($req)->as_string;
print "Login to configurator $i\n"; 


my $req = HTTP::Request->new(GET => 'http://www.sff.net/member/guestbook.asp?jonathanmark');
$req->referer("http://www.sff.net/guestbookconfigurator.asp?jonathanmark"); 

$req->authorization_basic('jonathanmark', 'nottherealpassword');

my $content = $ua->request($req)->as_string;
print "retrieved guestbook $i\n"; 



#delete an entry
my $req = POST 'http://www.sff.net/guestbook.asp',
               Content => [
                           GuestbookName=>'jonathanmark',
                           RecordID=>"$i",
                           Button=>'Delete this Entry'
                          ];

$req->referer("http://www.sff.net/guestbook.asp?jonathanmark"); 

$req->authorization_basic('jonathanmark', 'nottherealpassword');




my $content = $ua->request($req)->as_string;
print "deleted $i\n"; 
}