http://www.perlmonks.org?node_id=35376


in reply to Newest Nodes too big?

It's of course always possible to write a small LWP::simple script that gets the page and pushes the button for you ;-)

This is Perlmonks after all...

Jouke Visser, Perl 'Adept'

Replies are listed 'Best First'.
(ar0n: code) RE (2): Newest Nodes too big?
by ar0n (Priest) on Oct 05, 2000 at 16:10 UTC 
    #!/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();
}

    [download]

    [ar0n]

[reply]
[d/l]
      "viewedNewNodes" -- That's what I needed. Thank You.

      All is well. One more minor difficulty solved easily and with aplomb by a gracious Monk. Thanks, ar0n.

      Russ
      Brainbench 'Most Valuable Professional' for Perl

[reply]
RE:(2) Newest Nodes too big?
by Russ (Deacon) on Oct 05, 2000 at 17:10 UTC
    Yeah. All I really needed was the name(s) of the form elements. In specific, "viewedNewNodes." Coulda slurped and parsed it myself, I s'pose...

    ;-)

    Russ
    Brainbench 'Most Valuable Professional' for Perl

[reply]

In Section Perl Monks Discussion