diff options
Diffstat (limited to 'lib/RHRD/utils.pm')
| -rwxr-xr-x | lib/RHRD/utils.pm | 29 |
1 files changed, 27 insertions, 2 deletions
diff --git a/lib/RHRD/utils.pm b/lib/RHRD/utils.pm index 63e51c4..834f9fa 100755 --- a/lib/RHRD/utils.pm +++ b/lib/RHRD/utils.pm @@ -69,6 +69,7 @@ use constant { DB_PARAM_DOW_HINT => "must be between 1 and 7 (1=Monday, ..., 7=Sunday)", DB_PARAM_STARTTIME_HINT => "must be in format HHMM (without seperator) in 24 hour format", DB_PARAM_LEN_HINT => "must be a positive number below 1440", + DB_PARAM_SHOWTYPE_HINT => "only n, r and s are allowed with n -> normal, r -> re-run, s -> special", CMDLINE_WEEK_HINT => "must be one of W1, W2, W3, W4", CMDLINE_DOW_HINT => "must be one of MO, TU, WE, TH, FR, SA, SU", @@ -103,8 +104,8 @@ sub dropbox_param_type_ok { my ($type) = @_; - unless(defined($type) && ($type == 'S' || $type == 'M' || $type == 'J')) { - return (0, "unkown type '" . (defined($type) ? $type : 'undef') . "'", DB_PARAM_TYPE_HINT); + unless(defined($type) && ($type eq 'S' || $type eq 'M' || $type eq 'J')) { + return (0, "unknown type '" . (defined($type) ? $type : 'undef') . "'", DB_PARAM_TYPE_HINT); } return (1, 'OK', DB_PARAM_TYPE_HINT); } @@ -149,6 +150,30 @@ sub dropbox_param_len_ok return (1, 'OK', DB_PARAM_LEN_HINT); } +sub dropbox_param_showtype_ok +{ + my ($type) = @_; + + unless(defined($type) && ($type eq 'n' || $type eq 'r' || $type eq 's')) { + return (0, "unknown show-type '" . (defined($type) ? $type : 'undef') . "'", DB_PARAM_SHOWTYPE_HINT); + } + return (1, 'OK', DB_PARAM_SHOWTYPE_HINT); +} + +sub dropbox_param_showtype_to_string +{ + my ($type) = @_; + + if($type eq 'n') { + return "regular"; + } elsif($type eq 'r') { + return "re-run"; + } elsif($type eq 's') { + return "special"; + } + return "invalid show-type!"; +} + sub cmdline_rdweek { my ($dow) = @_; |