X-Git-Url: https://git.treefish.org/fex.git/blobdiff_plain/7fa382617fbaccc0ce522b2b3adbbee9db5ad227..3aae246cf7f4af7ae49da09e5ed0c180f31f0c12:/bin/fexwall diff --git a/bin/fexwall b/bin/fexwall index 7004a53..09dec2e 100755 --- a/bin/fexwall +++ b/bin/fexwall @@ -42,7 +42,7 @@ our ($FEXHOME,$hostname,$sendmail,$spooldir,$admin,$bcc); # 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; @@ -83,7 +83,7 @@ foreach $group (glob "*/\@GROUP/*") { close $group; } } - + foreach $subuser (glob "*/\@SUBUSER") { if (open $subuser,$subuser) { while (<$subuser>) { @@ -94,7 +94,7 @@ foreach $subuser (glob "*/\@SUBUSER") { close $subuser; } } - + # @users = qw'framstag@fex'; die "$0: no users found\n" unless @users or grep /@/,@users; push @users,$bcc; @@ -120,5 +120,5 @@ sub uniq { sub usage { print "usage: $0 \"SUBJECT\" < mail.text\n"; - exit shift; + exit shift||0; }