Remove crazy and useless regex to exclude hosts from BackupPC

zabbix_scripts/disco_backuppc_sudo

@@ -5,19 +5,6 @@ use BackupPC::Lib;
 use BackupPC::CGI::Lib;
 use POSIX;
 use JSON;
-use Getopt::Long;
-use MIME::Base64 qw( decode_base64 );
-
-my $regex = '.*';
-my $base64 = 0;
-
-GetOptions(
-    "regex=s" => \$regex,
-    "base64"  => \$base64
-);
-
-$regex = decode_base64($regex) if ($base64);
-$regex = qr($regex);
 
 # We need to switch to backuppc UID/GID
 my $uid = getuid();
@@ -32,13 +19,14 @@ my $mainConf = $bpc->ConfigDataRead();
 
 my $json;
 @{$json->{data}} = ();
+
 foreach my $host (keys %$hosts){
-   next unless ($host =~ m!$regex!);
    my $hostConf   = $bpc->ConfigDataRead($host);
    my $conf       = { %$mainConf, %$hostConf };
    my $warning    = $conf->{EMailNotifyOldBackupDays};
    my $errors     = (defined $conf->{MaxXferError}) ? $conf->{MaxXferError}: '0';
-   my $status = ($conf->{BackupsDisable} eq '1') ? 'disabled':(($conf->{ZabbixMonitoring} eq '0') ? '0':'1');
+   my $monitoring = $conf->{ZabbixMonitoring} || 1;
+   my $status     = ($conf->{BackupsDisable} eq '1' or $monitoring eq '0') ? '0' : '1';
    push @{$json->{data}},
        {  
            "{#BPCHOST}" => $host,