i am trying to login to DI-704 DLink router.
i have python code that works. i want to do it in perl.
the params below come from the python code.
i get a 'Failed to login' when i run the code below.

use LWP::UserAgent;

my $ua = new LWP::UserAgent;
my $req = HTTP::Request->new(POST => 'http://192.168.0.1/cgi-bin/logi',
       HTTP::Headers->new(), [RC => '@D', ACCT => 'root', PSWD => '71:29:26'
, URL =>'admin']);
$r = $ua->request($req);
$r->is_success() ? print $r->content(),"\n" : print "Failed to login\n";

so my question is...
is there a reason the perl code might fail...
or does it seem to be an issue of saying the right sweet somethings to the 
router.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to