diff options
author | Britney Fransen <brfransen@gmail.com> | 2013-11-16 18:47:29 (GMT) |
---|---|---|
committer | Britney Fransen <brfransen@gmail.com> | 2013-11-16 18:47:29 (GMT) |
commit | e3e2804c1b462102cab62f7d9b7d7cc84c185c6b (patch) | |
tree | c75017d5ae33c7047d7d2c221261a8d64bfbd671 /abs/core/LinHES-system/misc_which_recorder.pl | |
parent | a4265edac47afc88cfc2d7806fad048214e0267d (diff) | |
download | linhes_pkgbuild-e3e2804c1b462102cab62f7d9b7d7cc84c185c6b.zip linhes_pkgbuild-e3e2804c1b462102cab62f7d9b7d7cc84c185c6b.tar.gz linhes_pkgbuild-e3e2804c1b462102cab62f7d9b7d7cc84c185c6b.tar.bz2 |
LinHES-system: misc_status_info.sh: fix log parsing. closes #939. refs #933.
remove myth .24 detection
remove LinHES-run as it isn't used anymore and was replaced by LinHES-session
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, 3 insertions, 3 deletions
diff --git a/abs/core/LinHES-system/misc_which_recorder.pl b/abs/core/LinHES-system/misc_which_recorder.pl index 6952b3f..2ad91b0 100755 --- a/abs/core/LinHES-system/misc_which_recorder.pl +++ b/abs/core/LinHES-system/misc_which_recorder.pl @@ -47,20 +47,20 @@ if ($log_file =~ /\.gz$/) { # read top down # open($fh, "gunzip -c $log_file |") or die "Unable to open log file '$log_file', stopping:"; +# read bottom up open($fh, "gunzip -c $log_file |tac |") or die "Unable to open log file '$log_file', stopping:"; } else { # read top down # open($fh, "<$log_file") or die "Unable to open log file '$log_file', stopping:"; +# read bottom up open($fh, "tac $log_file |") or die "Unable to open log file '$log_file', stopping:"; } while (<$fh>) { -# Myth .24 regex to find start of recording -# if (/^(.*)(?:\d(?: I )?|I.* -) (?:Started|Tuning) recording: (.*): channel (\d+) on cardid (\d+), sourceid (\d+)/) -# Myth .25 regex to find start of recording for digital and analog MPEG +# Myth .25 & .27 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") |