summaryrefslogtreecommitdiffstats
path: root/abs/core/LinHES-system/misc_which_recorder.pl
diff options
context:
space:
mode:
authorBritney Fransen <brfransen@gmail.com>2013-11-16 18:47:29 (GMT)
committerBritney Fransen <brfransen@gmail.com>2013-11-16 18:47:29 (GMT)
commite3e2804c1b462102cab62f7d9b7d7cc84c185c6b (patch)
treec75017d5ae33c7047d7d2c221261a8d64bfbd671 /abs/core/LinHES-system/misc_which_recorder.pl
parenta4265edac47afc88cfc2d7806fad048214e0267d (diff)
downloadlinhes_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-xabs/core/LinHES-system/misc_which_recorder.pl6
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")