diff options
author | Josip Rodin <joy> | 2001-01-15 22:21:17 +0000 |
---|---|---|
committer | Josip Rodin <joy> | 2001-01-15 22:21:17 +0000 |
commit | 43f71c8c99f2c2435b925385cc16702cc2f59954 (patch) | |
tree | 7e4b143e733405d8ea5a978da962cd8b0fccb0fb /check_trans.pl | |
parent | f38e36290fad56d635884a3037c095c1035cc6cd (diff) |
undef opt_m, remove use MIME::Lite, check for opt_m in verify_send
CVS version numbers
check_trans.pl: 1.14 -> 1.15
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/check_trans.pl b/check_trans.pl index d221fa54665..0fdac0fa0a7 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -81,7 +81,7 @@ $opt_s = ''; $opt_p = undef; $opt_l = 0; $opt_g = 0; -$opt_m = ''; +$opt_m = undef; $opt_n = 5; # our $opt_v; # our $opt_q; @@ -146,7 +146,6 @@ if (-e "./$langto/international/$langto/current_status.pl" && } if ($opt_m) { - use MIME::Lite; unless ($opt_n =~ m,[123],) { die "Invalid priority. Please set -n value to 1, 2 or 3.\n". "(assuming you know what you're doing)\n"; @@ -181,6 +180,7 @@ foreach (@en) { send_mails(); sub verify_send { + return 1 unless ($opt_m); # returns true whether we have to send this part to this guy my $name=shift; my $part=shift; |