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

system "/usr/local/bin/all-ezmlm-unsub ~alias/hostmanager/";

open (NUM,"/usr/local/bin/gate-ip-list stable | wc -l|");
$num = $_ while(<NUM>);
close (NUM);
chop ($num);

if ( $num > 0 ){
system "/usr/local/bin/gate-ip-show -f owner `/usr/local/bin/gate-ip-list stable` | /usr/local/bin/list-2-ezmlm-sub ~alias/hostmanager/";
system "/usr/local/bin/gate-ip-show -f root `/usr/local/bin/gate-ip-list stable` | /usr/local/bin/list-2-ezmlm-sub ~alias/hostmanager/";
}