diff options
| author | Christian Pointner <equinox@helsinki.at> | 2015-05-16 11:42:08 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2015-05-16 11:42:08 (GMT) |
| commit | 07c71b9ced1ec24e6848addde92ae148771a2af8 (patch) | |
| tree | 0b6b4c6de28034ce9b04af96903fc30e81a5231f /rhimport-oi | |
| parent | b3f90f24c5ada5cd602f7a9bfd37b81c234a73f3 (diff) | |
make onda info regexp more flexible
Diffstat (limited to 'rhimport-oi')
| -rwxr-xr-x | rhimport-oi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhimport-oi b/rhimport-oi index a08490d..b2d5377 100755 --- a/rhimport-oi +++ b/rhimport-oi @@ -85,7 +85,7 @@ print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@impor print "Number of next broadcast: " . $broadcast_num . "\n"; my $id = sprintf("%04d-%02d-%02d", @import_date); -my $bdfile = sprintf('.*ondainfo_%d.*\.mp3$', $broadcast_num); +my $bdfile = sprintf('.*onda.?info_%d.*\.mp3$', $broadcast_num); my $current_stat = `cat $STAT_FILE`; my ($current_id, $current_file) = $current_stat =~ m/^(.*)\n(.*)/; |