#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use HTML::TokeParser::Simple;
use Data::Dumper;

my ( $mech, %name ) = WWW::Mechanize->new();

$mech->get('http://linuxgazette.net/mailman/admindb/tag');
$mech->submit_form( form_number => 1, fields => { adminpw => 'ADMINPW' } );

my $p = HTML::TokeParser::Simple->new( \$mech->content )
	or die "No content!\n";

while ( my $t = $p -> get_token ){
	die "No pending requests.\n" if $t -> as_is =~ /no pending req/;
	if ( $t -> is_tag('radio') ){
		if ( $t -> return_attr('name') =~ /^(senderaction-[^">]*)/ ){
			print "Deleting $1\n";
			$name{$1} = 3;
		}
	}
}

$mech->submit_form( form_number => 1, fields => \%name );

open Fh, ">strip_tag.log" or die "Can't open log  $!\n";
print Fh Dumper( %{ $mech->response() } );
