#!/usr/bin/perl use HTTP::Cookies::Netscape; use LWP::UserAgent; use LWP::Simple; my $browser = LWP::UserAgent->new( ); $cookie = HTTP::Cookies::Netscape->new( file => "$ENV{HOME}/nettby/cookie", autosave => 1 ); $browser->agent("Mozilla/4.0"); $browser->cookie_jar($cookie); my $response = $browser->post("http://www.nettby.no/sb_login.p +hp", { "email" => "user", "password" => "pass", }); my $content = $response->content; print $content; $side = $browser->get ("http://www.nettby.no/user"); $site = $side->content; print $site;
In reply to Re: login script using cookies failed
by eier
in thread login script using cookies failed
by eier
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |