From e2adb844a41ab7c82220474c391a5a40f6366721 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Fri, 27 Sep 2019 12:48:57 +0200
Subject: [PATCH] Remove viewcheck

---
 Lib.pm       |   2 -
 ViewCheck.pm | 140 -----------------------------------------------------------
 2 files changed, 142 deletions(-)
 delete mode 100644 ViewCheck.pm

diff --git a/Lib.pm b/Lib.pm
index a49bef5..c0c0436 100644
--- a/Lib.pm
+++ b/Lib.pm
@@ -458,8 +458,6 @@ sub Header
                                            priv => 1},
         { link => "?action=check",         name => 'Check',
                                            priv => 1},
-        { link => "?action=viewcheck",     name => 'ViewCheck',
-                                           priv => 1},
         @{$Conf{CgiNavBarLinks} || []},
     );
     my $host = $In{host};
diff --git a/ViewCheck.pm b/ViewCheck.pm
deleted file mode 100644
index f3f7e67..0000000
--- a/ViewCheck.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# BackupPC::CGI::Check package
-#
-# DESCRIPTION
-#
-#   This module implements the Check action for the CGI interface.
-#
-# AUTHOR
-#   Heuze Florent  <heuzef@firewall-services.com>
-#
-#========================================================================
-#
-# Released Sept 2019 - firewall-services.com
-#
-#========================================================================
-
-package BackupPC::CGI::Check;
-
-use strict;
-use lib "/usr/share/BackupPC/lib";
-use BackupPC::Lib;
-use BackupPC::CGI::Lib qw(:all);
-use BackupPC::View;
-use BackupPC::XS qw(:all);
-use Encode qw/decode_utf8/;
-use POSIX;
-use JSON;
-use Getopt::Long;
-use Statistics::Descriptive;
-use Data::Dumper;
-
-my $host = "localhost";
-
-sub action
-{
-
-  # We need to switch to backuppc UID/GID
-  my $uid = getuid();
-  my $gid = getgid();
-  my (undef,undef,$bkpuid,$bkpgid) = getpwnam('backuppc');
-  setuid($bkpuid) if ($uid ne $bkpuid);
-  setgid($bkpgid) if ($gid ne $bkpgid);
-
-  my $bpc = BackupPC::Lib->new();
-  my $mainConf = $bpc->ConfigDataRead();
-  my $json = {};
-
-  if ( $host ) {
-    my $hostConf = $bpc->ConfigDataRead($host);
-    my $conf = { %$mainConf, %$hostConf };
-    my $age = -1;
-    $json = {
-      bkp             => 0,
-      last_age        => 0,
-      errors          => 0,
-      new_size        => 0,
-      new_size_avg    => 0,
-      new_size_median => 0,
-      new_size_q1     => 0,
-      new_size_q3     => 0
-    };
-
-    my @bpc_info              = $bpc->BackupInfoRead($host);
-    my $sizes                 = new Statistics::Descriptive::Full;
-
-    if ( scalar( @bpc_info ) ){
-      foreach my $backup ( @bpc_info ) {
-        # Skip partial or active backups
-        next if ( $backup->{type} !~ m/^full|incr$/ );
-        if ( $backup->{type} eq "full" ) {
-          $last_full_num = $backup->{num};
-        }
-        # Push all the sizes in our data set to compute avg sizes
-        # Exclude backup N°0 as it'll always have much more new data than normal backups
-        $sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 );
-        $json->{bkp}++;
-      }
-
-      # Ignore the last backup if it's not full or incr (which means it's either partial or active)
-      my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2;
-
-      $json->{errors}           = $bpc_info[$i]->{xferErrs};
-      $json->{new_size}         = $bpc_info[$i]->{sizeNew};
-      $json->{new_size_avg}     = int $sizes->mean;
-      $json->{new_size_median}  = int $sizes->median;
-      $json->{new_size_q1}      = eval { int $sizes->quantile(1) } || 0;
-      $json->{new_size_q3}      = eval { int $sizes->quantile(3) } || 0;
-      $json->{age}              = time - $bpc_info[$i]->{startTime};
-      $json->{last_age}         = sprintf("%.1f", ($json->{age}) / 84600);
-    }
-  }
-
-  # Print results
-  print("\n----------------\n");
-  print("Last Backup : $json->{last_age}");
-  print("\n");
-  print("Errors : $json->{errors}");
-  print("\n");
-  print("Size Consistency : ");
-
-  # TOO BIG ?
-  my $toobig = "1";
-  if ( $json->{new_size} > ($json->{new_size_q3} + $json->{new_size_q3} - $json->{new_size_q1}) * 1.5 or $json->{new_size} > $json->{new_size_avg} * 6 ) {
-    $toobig = "1";
-    }
-  else {
-    $toobig = "0";
-  }
-
-  # TOO SMALL ?
-  my $toosmall = "1";
-  if ( $json->{new_size} < ($json->{new_size_q1} - $json->{new_size_q3} - $json->{new_size_q1}) * 1.5 or $json->{new_size} < $json->{new_size_avg} / 3 ) {
-    $toosmall = "1";
-    }
-  else {
-    $toosmall = "0";
-  }
-
-  # Print result
-  if ( $toobig or $toosmall ) {
-    print("ANOMALOUS");
-    }
-  else {
-    print("Normal");
-  }
-  print("\n");
-  print("Random file : ");
-
-  # Random file
-
-  print("Random file");
-  print("\n");
-  print("\n----------------\n");
-
-  my $content = eval ("qq{$Lang->{BackupPC_Check}}");
-  Header($Lang->{BackupPC__Server_Check}, $content);
-  Trailer();
-}
-1;