diff options
Diffstat (limited to 'rh-bin/listdropboxes.cgi')
| -rwxr-xr-x | rh-bin/listdropboxes.cgi | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/rh-bin/listdropboxes.cgi b/rh-bin/listdropboxes.cgi index f00e28e..a451dc7 100755 --- a/rh-bin/listdropboxes.cgi +++ b/rh-bin/listdropboxes.cgi @@ -77,12 +77,16 @@ if($responsecode != 200) { print " <parameters>" . xml_quote($href->{'PARAM'}) . "</parameters>\n"; print " <type>" . xml_quote($href->{'TYPE'}) . "</type>\n"; if($href->{'TYPE'} eq "show") { + my $dow = $href->{'SHOWDOW'}; + $dow = 0 unless $dow < 7; + my $starttime = $href->{'SHOWSTARTTIME'}; + substr($starttime, 2, 0) = ':'; print " <show-id>" . xml_quote($href->{'SHOWID'}) . "</show-id>\n"; print " <show-title>" . xml_quote($href->{'SHOWTITLE'}) . "</show-title>\n"; print " <show-log>" . xml_quote($href->{'SHOWLOG'}) . "</show-log>\n"; print " <show-rhythm>" . xml_quote($href->{'SHOWRHYTHM'}) . "</show-rhythm>\n"; - print " <show-dayofweek>" . xml_quote($href->{'SHOWDOW'}) . "</show-dayofweek>\n"; - print " <show-starttime>" . xml_quote($href->{'SHOWSTARTTIME'}) . "</show-starttime>\n"; + print " <show-dayofweek>" . xml_quote($dow) . "</show-dayofweek>\n"; + print " <show-starttime>" . xml_quote($starttime) . "</show-starttime>\n"; print " <show-length>" . xml_quote($href->{'SHOWLEN'}) . "</show-length>\n"; } elsif($href->{'TYPE'} eq "jingle") { print " <jingle-title>" . xml_quote($href->{'JINGLETITLE'}) . "</jingle-title>\n"; |