From b4f9289e7788a22ed994bc3a3e9f7426af1ac5d6 Mon Sep 17 00:00:00 2001
From: Anton Schubert <anton.schubert@gmx.de>
Date: Fri, 2 Dec 2016 22:55:08 +0100
Subject: [PATCH] add missing line ends

---
 nagios/check_recording.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/nagios/check_recording.pl b/nagios/check_recording.pl
index 763ffa0..9fee816 100644
--- a/nagios/check_recording.pl
+++ b/nagios/check_recording.pl
@@ -15,7 +15,7 @@ sub test {
         my $name = $File::Find::name;
 
         return unless -f $name;
-        return unless $name =~ /\.dv/i;
+        return unless $name =~ /\.(dv|ts)/i;
 
         my $mtime = (stat($name))[9];
 
@@ -30,13 +30,14 @@ sub test {
 
 {
         no warnings;
-        find({no_chdir => 1, wanted => \&test}, $AR
+        find({no_chdir => 1, wanted => \&test}, $ARGV[0]);
 }
 
 if($okay) {
-        say "OK delta is $delta_okay (current file:
+        say "OK delta is $delta_okay (current file: $name_okay)";
         exit 0;
 } else {
-        say "CRITICAL no recordings for more than $
+        say "CRITICAL no recordings for more than $threshold seconds";
         exit 2;
 }
+