#!/usr/bin/perl -w
#
# Copyright (C) 2004 - Brian Caswell <bmc@shmoo.com>
#
#
# $Id: mailman-toast-em.pl,v 1.3 2004/05/03 19:32:41 bmc Exp $
#

# try : lists.sourceforge.net/lists/admin/ snort-users password_here

use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;

my $host = $ARGV[0] || die "No host specified";
my $list = $ARGV[1] || die "No list specified";
my $pass = $ARGV[2] || die "No pass specified";
my $url = "http://$host/$list";

# my $url = "http://$host/mailman/admindb/$list";

my $m = WWW::Mechanize->new();
$m->agent_alias("Windows IE 6");
$m->get($url);

$m->form_number(1);
$m->set_visible($pass);
$m->submit();

$m->form_number(1);
my $form = $m->current_form();

foreach my $input ($form->inputs()){ 
    if ($input->type() eq 'radio') {
        $m->field($input->name(),3);
    }
}
$m->submit();