#!/usr/bin/perl use warnings; use strict; use WWW::Mechanize; my $password = ''; # Set to non-zero to generate a troubleshooting log my $debug = 0; my ( $mech, %name ) = WWW::Mechanize -> new(); $mech -> get( 'http://linuxgazette.net/mailman/admindb/tag' ); $mech -> submit_form( form_number => 1, fields => { adminpw => $password } ); die "\u$&.\n" if $mech -> content =~ /no pending requests/; for ( grep /^senderaction-/, split /[ \n"']/, $mech -> content() ){ print "Deleting $_\n"; # 'uniq' action happens because hashes possess the Buddha nature $name{ $_ } = 3; } $mech -> submit_form( form_number => 1, fields => \%name ); if ( $debug ){ use Data::Dumper; open Fh, ">admreqrm.log" or die "Can't open log $!\n"; print Fh Dumper( %{ $mech->response() } ); }