#!/usr/bin/perl
#Kyoma TAKAHASHI 1999.7.5

#      all-ezmlm-unsub mailinglist_directory

$ezmlmunsubbin = '/usr/local/bin/ezmlm/ezmlm-unsub';
$ezmlmlistbin = '/usr/local/bin/ezmlm/ezmlm-list';

$mldir = shift;

open(CURRENT,"$ezmlmlistbin $mldir|");

while(<CURRENT>) {

      chop($address = $_);
      system "$ezmlmunsubbin $mldir $address";

}

close(CURRENT);