1 files changed, 0 insertions, 94 deletions
diff --git a/FS/FS/Yori.pm b/FS/FS/Yori.pm
deleted file mode 100644
index b5bdc0c..0000000
--- a/FS/FS/Yori.pm
+++ /dev/null
@@ -1,94 +0,0 @@
-package FS::Yori;
-# a reporting program, to report information to the MCP
-
-use strict;
-use base 'Exporter';
-
-our @EXPORT_OK = qw( reports report );
-
-sub reports { #should be autogenerated i guess
-  qw( freeside_version debian_version pg_version
-      apache_version apache_mpm
-      payment_gateways
-    );
-      #ssh_vulnkey
-}
-
-sub report {
-  my $report = shift;
-  $report =~ /^(\w+)$/ or die;
-  eval "report_$report();";
-}
-
-sub report_all {
-  foreach my $report ( reports() ) {
-    print "$report: ". report($report). "\n";
-  }
-}
-
-sub report_freeside_version {
-  chomp( my $fs_version =
-    `grep '^VERSION=' /home/ivan/freeside/Makefile | cut -d= -f2`
-  );
-  $fs_version;
-}
-
-sub report_debian_version {
-  chomp( my $deb_version = `cat /etc/debian_version` );
-  $deb_version;
-}
-
-sub report_pg_version {
-  chomp( my $pg_version = `echo 'show server_version' | psql -t freeside` );
-  chomp($pg_version); #two?
-  $pg_version =~ s/^ +//;
-  $pg_version;
-}
-
-sub report_apache_version {
-  chomp( my $apache_version =
-    `/usr/sbin/apache2 -v | head -1 | cut -d: -f2 | cut -d/ -f2 | cut -d' ' -f1`
-  );
-  $apache_version;
-}
-
-sub report_apache_mpm {
-  chomp( my $apache_mpm =
-    `/usr/sbin/apache2 -V | grep '^Server MPM' | cut -d: -f2`
-  );
-  $apache_mpm =~ s/^ +//;
-  $apache_mpm;
-}
-
-sub report_payment_gateways {
-  my @gateways = split(/\n/,
-    `aptitude -F '%c %p' search 'libbusiness-onlinepayment-.*' | grep '^i ' | grep -v '^i libbusiness-onlinepayment-perl' | cut -c29- | cut -d- -f1`
-  );
-  join(', ', @gateways);
-}
-
-#sub report_ssh_vulnkey{
-#  my $ssh_vulnkey = `ssh-vulnkey -a | grep COMPROMISED`;
-#  $ssh_vulnkey;
-#}
-
-sub report_load {
-  open LOAD, "</proc/loadavg" || return;
-  my($one, $five, $fifteen) = split ' ', <LOAD>;
-  close LOAD;
-  ($one, $five, $fifteen);
-}
-
-sub report_freememory {
-  open MEM, "</proc/meminfo" || return;
-  my $free = 0;
-  my @interesting = qw( MemFree Cached SwapFree );
-  while (<MEM>) {
-    /^(\w*):\s*(\d*) kB$/ || next;
-   next unless grep { $_ eq $1 } @interesting;
-   $free += $2;
-  }
-  close MEM;
-  $free;
-}
-