#!/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() } );
}
