13 my $ua = new LWP::UserAgent;
15 $ua->agent('Mozilla/5.0');
17 #$ua->credentials( "http://zepo.tg07.gathering.org", "/", $uname, $pass );
21 $form{'userid'} = $uname;
22 $form{'next'} = "Look me up";
24 #my $content = $ua->get("http://zepo.tg07.gathering.org/");
27 $content = $ua->post("http://zepo.tg07.gathering.org/login", \%form);
29 if (!defined($content->{'_headers'}{'location'})) {
30 die "Could not find dudes";
32 $content->{'_headers'}{'set-cookie'} =~ /SID=(\w+);/;
33 my $sessioncookie = $1;
34 $content = $ua->get("https://partyticket.net/enter?dude_id=39457&got=it", "cookie" => "SID=".$sessioncookie.";");
36 $content->{'_headers'}{'set-cookie'} =~ /SID=(\w+);/;
39 print Dumper($content);
41 $form{'password'} = $pass;
42 $form{'userid'} = 39457;
43 $form{'next'} = "Log in";
44 $content = $ua->post("https://zepo.tg07.gathering.org/enter&got=it", "cookie" => "SID=".$sessioncookie, \%form);
46 print Dumper($content);