diff options
author | Cecil <knoppmyth@gmail.com> | 2012-09-23 19:31:10 (GMT) |
---|---|---|
committer | Cecil <knoppmyth@gmail.com> | 2012-09-23 19:31:10 (GMT) |
commit | cafd1e5f46d61c3175d4a3347c65ae79c476c61a (patch) | |
tree | 3b82cfb5c5e646861bb551088229f19bfadf8d3b /abs/core/LinHES-system/misc_which_recorder.pl | |
parent | 717c1c4f8bd16ddf23688e2b94e529a069f40bc9 (diff) | |
parent | 02ed2d32465e5f074eae2bca648c2b344c7a3044 (diff) | |
download | linhes_pkgbuild-cafd1e5f46d61c3175d4a3347c65ae79c476c61a.zip linhes_pkgbuild-cafd1e5f46d61c3175d4a3347c65ae79c476c61a.tar.gz linhes_pkgbuild-cafd1e5f46d61c3175d4a3347c65ae79c476c61a.tar.bz2 |
Merge branch 'testing' of git@linhes.org:linhes_pkgbuild into testing
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..6952b3f 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 =~ /(.+) "(.*)"/)) { |