diff options
author | Christian Pointner <equinox@helsinki.at> | 2014-09-20 00:46:18 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2014-09-20 00:46:18 (GMT) |
commit | d5c03ec36c38a3a7a3ffa0487a1e5d9feef3cf59 (patch) | |
tree | c8272ef954489177e146d342ff58fc469e7adf47 /lib | |
parent | be89d5f1957d159df4289494c7cab9722e8dc9a5 (diff) |
parsing showlist return values
Diffstat (limited to 'lib')
-rwxr-xr-x | lib/rddb.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/rddb.pm b/lib/rddb.pm index c834dda..b78f4d1 100755 --- a/lib/rddb.pm +++ b/lib/rddb.pm @@ -129,9 +129,10 @@ sub get_dropboxes } $entry->{'SHOWTITLE'} = $title; - if($params =~ /^([01]{4})-([0-9]{2})-([0-9]{2})([0-9]{2})-([0-9]{3})$/) { + if($params =~ /^([01]{4})-([1-7])-([0-9]{2})([0-9]{2})-([0-9]{3})$/) { $entry->{'RHYTHM'} = $1; $entry->{'DOW'} = int $2; + $entry->{'DOW'} = 0 unless $entry->{'DOW'} < 7; $entry->{'STARTTIME'} = "$3:$4"; $entry->{'LENGTH'} = int $5; } |