Since I use it so much, I thought I would add scratchpad capability.
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
-p
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.