Task #613 pridano cmd

* ted uz opravdu pridano ...

src/contrib/wardenWatchdog/WardenWatchdog.pm

@@ -274,8 +274,8 @@ sub run{
   while ($i < scalar(@sql_queries)) {
     my ($rc,$err) = send_query(\$dbh,\@sql_queries,\%bad_events);
     if (!$rc){
-      print "Warden watchdog - $err\n";
-      #syslog("err|Warden watchdog - $err\n");
+      #print "Warden watchdog - $err\n";
+      syslog("err|Warden watchdog - $err\n");
     }
     $i++;
   }
@@ -284,8 +284,8 @@ sub run{
     my %input = (contact => $contact, domain => $domain_name, text => $text, subject => $email_subject, email_conf => $email_server_conf);
     my ($rc,$err) = send_report(\%input);
     if (!$rc){
-      print $err;
-      #syslog("err|Warden client - networkReporter $err\n");
+      #print $err;
+      syslog("err|Warden client - networkReporter $err\n");
     }
   }
 

src/contrib/wardenWatchdog/wardenWatchdog.pl

@@ -10,6 +10,28 @@ use strict;
 use warnings;
 
 use WardenWatchdog;
+use Getopt::Long;
+
+sub help {
+  my $help ="  USAGE: ./wardenWatchdog.pl -c '/path/WardenWatchdog.conf' -i 7
+
+  OPTIONS
+  -c conf           configuration file name and path
+  -i interval       interval in days from now back to the past
+  ";
+  print $help;
+  return 1;
+}
+
+my ($help, $config, $interval);
+if (@ARGV < 3  || defined($help) || !GetOptions('help|?|h' => \$help, 'c|conf=s' => \$config, 'i|interval=i' => \$interval)){
+  help();
+}
+else{
+  my ($rc,$err) = WardenWatchdog::run($config,$interval);
+  if(!$rc){
+    print "WardenWatchdog error: $err";
+  }
+}
 
-WardenWatchdog::run('WardenWatchdog.conf',7);
 1;