#!/usr/bin/perl
#Kyoma TAKAHASHI 1999.7.4
#                1999.7.10
#                1999.7.12

#      list-2-ezmlm-sub mailinglist_directory

$ezmlmsubbin = '/usr/local/bin/ezmlm/ezmlm-sub';
$domain = '@ep.sci.hokudai.ac.jp';

$mldir = shift;

while(<>) {

        chop($local = $_);
        if($local ne '') {
                if(/@/) { $address = $local; }
                else { $address = $local.$domain; }
                system "$ezmlmsubbin $mldir $address";
        }

}