in reply to
RE: Newest Nodes too big?
in thread Newest Nodes too big?
#!/usr/bin/perl -w
use strict;
use HTTP::Request::Common 'POST';
use LWP::UserAgent;
{
my $username = "";
my $password = "";
my $url = "http://perlmonks.org/index.pl";
my $www = new LWP::UserAgent;
my $req = POST $url,
[
user => $username,
passwd => $password,
op => "login",
pageloadtime => time(),
node_id => 3628,
displaytype => "display",
viewedNewNodes => "I've checked all of these"
];
print $www->request($req)->as_string();
}
[ar0n]