SPUG: RE: HTTP::Cookies question

[S Bullo]

Ok, I changed it to the following:

my $url =
"http://$row[0]$row[1]$row[2]$row[3]$row[4]$row[5]$row[6]&subject=$row[7]&me
ssage=$row[8]";
$row[6] =~ s|'s|s|g;
$row[7] =~ s|#| |g;
$row[8] =~ s|#| |g;
my $sec_file_path = "members/data/$row[9]";
my $data = "members/data/$row[9]/$row[10].html";
if (! -d "$sec_file_path") { system "mkdir -p $sec_file_path" }
my $req = HTTP::Request->new(GET=>$url);
my $domain = $cookie_jar->add_cookie_header($req);
my $resp = $ua->request($req, $data);
my $domain2 = $cookie_jar->extract_cookies($resp);
my $outfile = "index.html";
my $filename = "$sec_file_path/$outfile";
open (FILE,">>$filename") or die "Error opening $filename: $!";
{ print FILE "<a href='$row[10].html'>Report on $date for
'$row[10]'</a><br>"; }
close (FILE);
}

Doesn't give me an error but it doesn't seem to be passing any cookies
through - I am still getting incorrect, correct?


Susanne Bullo


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
     Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org