# load common code, local config : $HOME/lib/fex.ph
require "$FEXLIB/fex.pp" or die "$0: cannot load $FEXLIB/fex.pp - $!\n";
-die "$0: \$admin not configured in $FEXLIB/fex.ph\n"
+die "$0: \$admin not configured in $FEXLIB/fex.ph\n"
if not $admin or $admin =~ /example.org/;
$opt_h = 0;
close $group;
}
}
-
+
foreach $subuser (glob "*/\@SUBUSER") {
if (open $subuser,$subuser) {
while (<$subuser>) {
close $subuser;
}
}
-
+
# @users = qw'framstag@fex';
die "$0: no users found\n" unless @users or grep /@/,@users;
push @users,$bcc;
sub usage {
print "usage: $0 \"SUBJECT\" < mail.text\n";
- exit shift;
+ exit shift||0;
}