login.pl

 
This is how you can log into sites!!!

 1  #!/usr/bin/perl -w
 2  use LWP::UserAgent;
 3  use HTTP::Cookies;
 4  $browser = LWP::UserAgent->new;
 5  $browser->proxy('http', 'http://proxy:8080/');
 6  $cookie_jar=HTTP::Cookies->new(file => "cookie_file",autosave => 1, ignore_discard=>1 );
 7  $browser->cookie_jar($cookie_jar);
 8  my @ns_headers = (
 9     'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
10     'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',
11     'Accept-Charset' => 'iso-8859-1,*,utf-8',
12     'Accept-Language' => 'en-US',
13    );
14
15  $res=$browser->post(
16                  "http://LOGIN",
17                  [
18                  usr=>'username',
19                  pwd=>'password'
20                  ],
21                  @ns_headers
22                  );
23  print $res->content;
24  exit;
25
26
27
28  $res=$browser->get(
29  "URL OF THE COOKIE HUNGRY RESOURCE",
30  @ns_headers
31  );
32
33  print $res->content;