diff options
| author | Britney Fransen <brfransen@gmail.com> | 2012-09-10 16:00:39 (GMT) |
|---|---|---|
| committer | Britney Fransen <brfransen@gmail.com> | 2012-09-10 16:00:39 (GMT) |
| commit | e20ff8d0fd0fb85a3c74c856931d2396df0b9d5c (patch) | |
| tree | 2f7579e5bbb0f3750b6cf2b55f7ada50873df98b /abs/core/LinHES-system/misc_which_recorder.pl | |
| parent | 4f938e227ac669190de7632fb064d01a892ac3ad (diff) | |
| download | linhes_pkgbuild-e20ff8d0fd0fb85a3c74c856931d2396df0b9d5c.zip linhes_pkgbuild-e20ff8d0fd0fb85a3c74c856931d2396df0b9d5c.tar.gz linhes_pkgbuild-e20ff8d0fd0fb85a3c74c856931d2396df0b9d5c.tar.bz2 | |
LinHES-system: misc_which_recorder.pl: add search for analog mpeg recordings
Diffstat (limited to 'abs/core/LinHES-system/misc_which_recorder.pl')
| -rwxr-xr-x | abs/core/LinHES-system/misc_which_recorder.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/abs/core/LinHES-system/misc_which_recorder.pl b/abs/core/LinHES-system/misc_which_recorder.pl index f8a1022..56d076c 100755 --- a/abs/core/LinHES-system/misc_which_recorder.pl +++ b/abs/core/LinHES-system/misc_which_recorder.pl @@ -60,7 +60,8 @@ while (<$fh>) { # Myth .24 regex to find start of recording # if (/^(.*)(?:\d(?: I )?|I.* -) (?:Started|Tuning) recording: (.*): channel (\d+) on cardid (\d+), sourceid (\d+)/) - if (/^(\d+-\d+-\d+T\d+\:\d+\:\d+)(?:.*) (?:Started|Tuning) recording: (.*): channel (\d+) on cardid (\d+), sourceid (\d+)/) +# Myth .25 regex to find start of recording for digital and analog MPEG + if (/^(\d+-\d+-\d+T\d+\:\d+\:\d+)(?:.*) (?:Started|Tuning) recording: (.*): channel (\d+) on cardid (\d+), sourceid (\d+)/ || /^(\d+-\d+-\d+T\d+\:\d+\:\d+)(?:.*) \(UpdateRecStatus\) Updating status for (.*)() on cardid (\d+) \(Will Record => Recording\)()/) { if ($mode eq "--noheader") { @@ -75,7 +76,8 @@ while (<$fh>) $index++; ($time, $title, $chanid, $cardid, $sourceid) = ($1, $2, $3, $4, $5); - $time = `date -d $time +%a' '%m/%d' '%H:%M' '%p`; + $time =~ s/T/ /; + $time = `date -d $time +%a' '%m/%d' '%l:%M' '%p`; chomp ($time); if (($title =~ /"?(.+)"?:"?(.*)"?/) || ($title =~ /(.+) "(.*)"/)) { |