summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-12-02 20:54:48 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-12-02 20:54:48 (GMT)
commitcb42bb3574fab1e761c6562c60ee3b5e3c8af09d (patch)
tree34b6d4a8f0bc434a8928000004cd8cd8366e3b3d /utils
parenta89236d00fdae5826329bbacf28cd39230080b17 (diff)
make len, dow and startime checks more relax (for specials)
Diffstat (limited to 'utils')
-rwxr-xr-xutils/rhrd-show24
1 files changed, 12 insertions, 12 deletions
diff --git a/utils/rhrd-show b/utils/rhrd-show
index a9e0abc..daa3060 100755
--- a/utils/rhrd-show
+++ b/utils/rhrd-show
@@ -123,31 +123,31 @@ sub add__check_arguments
}
my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::cmdline_dow($dow);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
@@ -221,31 +221,31 @@ sub edit__check_arguments
my ($showid, $title, $rhythm, $dow, $starttime, $len, $type) = @_;
my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::cmdline_dow($dow);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
@@ -410,7 +410,7 @@ sub multi_add
my $type = shift;
my ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}
@@ -442,7 +442,7 @@ sub multi_edit
my $type = shift;
my ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type);
- unless($result) {
+ unless(defined $result) {
print STDERR $err . "\n " . $hint . "\n";
return 1;
}