CUFP
Juerd
<p>
My signature had a line in <pre> that was very long and messing up the PM layout for some. Good excuse to use [cpan://WWW::Mechanize] again :)
</p>
<p>
<code>
#!/usr/bin/perl -wl
use strict;
use Carp;
use WWW::Mechanize;
use HTML::TreeBuilder;
{
my $i;
sub x { shift() ? print ++$i : croak }
}
my $sig = q[
Juerd
# { site => '<a href="http://juerd.nl/" target="_blank"><font color="#800000">juerd.nl</font></a>', plp_site => '<a href="http://plp.juerd.nl/" target="_blank"><font color="#800000">plp.juerd.nl</font></a>', do_not_use => '<a href="mailto:spamcollector_perlmonks@juerd.nl" target="_blank"><font color="#800000">spamtrap</font></a>' }
];
x my $agent = WWW::Mechanize->new;
x $agent->get('http://perlmonks.org/index.pl?node=login');
x $agent->submit_form(
form_number => 2,
fields => {
user => 'Juerd',
passwd => '', # Guess =)
},
button => 'sexisgood',
);
x $agent->get('http://perlmonks.org/index.pl?node_id=6364&user=Juerd');
my $tree = HTML::TreeBuilder->new_from_content($agent->content);
for ($tree->look_down(id => 'writeups')->look_down(_tag => 'a')) {
x my $href = $_->attr('href');
x my ($node_id) = $href =~ /node_id=(\d+)/;
next if $node_id < 253475; # 253475 was the first node with the new sig
x $agent->get($href);
x $agent->form_number(2);
my $post = eval {
$agent->current_form->value('note_doctext');
} or next;
$post =~ s[<pre>(.*?)</pre>][$sig]s;
x $agent->submit_form(
form_number => 2,
fields => { note_doctext => $post },
button => 'sexisgood',
);
}
</code>
</p>
<p>
There were less than 50 nodes to be fixed, so I didn't have to fetch other pages. And this script only works for notes :)
</p>
<p><font color="#800000">
Juerd
# { site => '<a href="http://juerd.nl/" target="_blank"><font color="#800000">juerd.nl</font></a>', plp_site => '<a href="http://plp.juerd.nl/" target="_blank"><font color="#800000">plp.juerd.nl</font></a>', do_not_use => '<a href="mailto:spamcollector_perlmonks@juerd.nl" target="_blank"><font color="#800000">spamtrap</font></a>' }
</font></p>