added options [ -c | --contentsofpad ] and [ -m | --makepublic ]

#!/usr/bin/perl
use strict;
use HTTP::Request::Common 'POST';
use HTTP::Cookies;
use LWP::UserAgent;
use HTML::TokeParser;
use Getopt::Long;
use constant TINYNODE => 16046;
use constant PM => 'http://www.perlmonks.org/index.pl';

$| = 1;

{

    my ($ua, $req);
    my ($homenode, $username, $password, $file);
    my ($realname, $email, $image, $location);
    my ($verbose, $significant);
# added for scratchpad
    my ($setpublic,$scratchfile,$scratchpad);

    GetOptions(
        "username=s"    => \$username,
        "password=s"    => \$password,

        "name=s"        => \$realname,
        "email=s"       => \$email,
        "image=s"       => \$image,
        "location=s"    => \$location,

        "homenode=s"    => \$file,

# added for scratchpad
        "contentofpad=s"=> \$scratchfile,
        "makepublic"    => \$setpublic,

        "significant"   => \$significant,
        "verbose"       => \$verbose
    );

    die usage() unless $username && $password;
    die "Can't find $file\n" if defined $file and not -f $file;

# added for scratchpad
    die "Can't find $scratchfile\n" if defined $scratchfile and not -f
+ $scratchfile;

# added for scratchpad
    $scratchpad = join "", do { local @ARGV = $scratchfile; <> } if de
+fined $scratchfile;

    $homenode = join "", do { local @ARGV = $file; <> } if defined $fi
+le;

    die "Can't find image $image\n" if defined $image and not -f $imag
+e;

    $ua = new LWP::UserAgent("Homenode Updater");
    $ua->cookie_jar( HTTP::Cookies->new() );

    print "Logging in...\n" if $verbose;
    
    $req = POST PM, [
        node_id => TINYNODE,
        op      => 'login',

        user    => $username,
        passwd  => $password
    ];
    
    die "Couldn't log in. Is your username/password right? $!\n"
        unless $ua->request($req)->as_string() =~ /userpass/;

    print "done.\n" if $verbose;

    $req = POST PM, [ displaytype => "edit", node => $username ];
    
    my $html = $ua->request($req)->content();
    
    print "Parsing... " if $verbose;

    my %default = parse($html);

    print "done.\n" if $verbose;

    print "Updating... " if $verbose;

    $req = POST PM,
        Content_Type => 'form-data',
        Content => [
            displaytype            => "edit",
            node                   => $username,

            imgsrc_file            => $image ? [$image] : "",

            user_realname          => $realname || $default{user_realn
+ame},
            user_passwd1           => $password,
            user_passwd2           => $password,
            user_email             => $email || $default{user_email},
            user_doctext           => defined $homenode ? $homenode : 
+$default{user_doctext},

# added for scratchpad
            user_scratchpad           => defined $scratchpad ? $scratc
+hpad : $default{user_scratchpad},
            setscratchpublic       => $setpublic ? "on" : "",

            setsetting_location    => $location || $default{setsetting
+_location},
            significantupdate      => $significant ? "on" : "",

            sexisgood              => "stumbit"
        ];

    $ua->request($req);

    print "done.\n" if $verbose;

}

sub usage
{
    return <<"EOT";
Usage: $0 -u username -p password [ options ]
  Options:
    -i <file> Home node picture
    -h <file> File containing home node contents
    -c <file> File containing scratchpad contents
    -m         Set Scratchpad public
    -n <string> Your real name
    -e <string> Your email address
    -l <string> Location
    
    -s          Significant update
    -v          Be a little verbose
EOT
}

sub parse
{
    my $html = shift;

    my %default;
    my @params = qw( user_realname user_email user_passwd1 user_passwd
+2 setsetting_location );

    my $p = new HTML::TokeParser ( \$html );

    if ( my $token = $p->get_tag("textarea") ) {
        $default{user_doctext} = $p->get_text if $token->[1]{name} eq 
+"user_doctext";
# added for scratchpad
        $default{user_scratchpad} = $p->get_text if $token->[1]{name} 
+eq "user_scratchpad";
    }

    while ( my $token = $p->get_tag("input") ) {
        next unless exists $token->[1]{name};
        $default{ $token->[1]{name} } = $token->[1]{value} if grep { $
+_ eq $token->[1]{name} } @params;
    }

    return %default;
}

=head1 NAME

hup

=head1 DESCRIPTION

hup is a simple tool to update your home node. It's basically
a command-line interface to the "Edit your user information"
link on one's homenode. hup allows you to change anything on
that page, except the password. You can use the following
switches (of which -u and -p are mandatory):

=over 4

=item C<-u> or C<--username>

Your Perl Monks username

=item C<-p> or C<--password>

Your Perl Monks password

=item C<-i> or C<--image>

The location of your home node picture

=item C<-h> or C<--homenode>

The location of the file containing home node contents

=item C<-n> or C<--name>

Your real name

=item C<-e> or C<--email>

Your email address

=item C<-c> or C<--contentofpad>

The location of the file containing scratch pad contents

=item C<-m> or C<--makepublic>

Make scratchpad public

=item  C<-l> or C<--location>

Your Location

=item C<-s> or C<--significant>

Use this switch to flag it as a significant update

=item C<-v> or C<--verbose>

Be a little verbose

=back

=head1 EXAMPLES

Update your home node picture:

    hup -u mynick -p mypassword -i /path/to/image.jpg

Update your homenode contents and location and flag it as a significan
+t update, and be verbose:

    hup -u mynick -p mypassword -h /etc/passwd -l "Foo Bar" -s -v

=cut
[download]