Setup ViewCheck

ViewCheck.pm

@@ -30,11 +30,10 @@ use Getopt::Long;
 use Statistics::Descriptive;
 use Data::Dumper;
 
-my $host   = undef;
+my $host = "localhost";
 
-GetOptions(
+sub action
-  "host=s"   => \$host
+{
-);
 
   # We need to switch to backuppc UID/GID
   my $uid = getuid();
@@ -143,3 +142,6 @@ print("\n");
   print("\n----------------\n");
 
   exit(0);
+
+}
+1;