FS/FS/Yori.pm

   1 package FS::Yori;
   2 # a reporting program, to report information to the MCP
   3
   4 use strict;
   5 use base 'Exporter';
   6
   7 our @EXPORT_OK = qw( reports report );
   8
   9 sub reports { #should be autogenerated i guess
  10   qw( freeside_version debian_version pg_version
  11       apache_version apache_mpm
  12       payment_gateways
  13     );
  14       #ssh_vulnkey
  15 }
  16
  17 sub report {
  18   my $report = shift;
  19   $report =~ /^(\w+)$/ or die;
  20   eval "report_$report();";
  21 }
  22
  23 sub report_all {
  24   foreach my $report ( reports() ) {
  25     print "$report: ". report($report). "\n";
  26   }
  27 }
  28
  29 sub report_freeside_version {
  30   chomp( my $fs_version =
  31     `grep '^VERSION=' /home/ivan/freeside/Makefile | cut -d= -f2`
  32   );
  33   $fs_version;
  34 }
  35
  36 sub report_debian_version {
  37   chomp( my $deb_version = `cat /etc/debian_version` );
  38   $deb_version;
  39 }
  40
  41 sub report_pg_version {
  42   chomp( my $pg_version = `echo 'show server_version' | psql -t freeside` );
  43   chomp($pg_version); #two?
  44   $pg_version =~ s/^ +//;
  45   $pg_version;
  46 }
  47
  48 sub report_apache_version {
  49   chomp( my $apache_version =
  50     `/usr/sbin/apache2 -v | head -1 | cut -d: -f2 | cut -d/ -f2 | cut -d' ' -f1`
  51   );
  52   $apache_version;
  53 }
  54
  55 sub report_apache_mpm {
  56   chomp( my $apache_mpm =
  57     `/usr/sbin/apache2 -V | grep '^Server MPM' | cut -d: -f2`
  58   );
  59   $apache_mpm =~ s/^ +//;
  60   $apache_mpm;
  61 }
  62
  63 sub report_payment_gateways {
  64   my @gateways = split(/\n/,
  65     `aptitude -F '%c %p' search 'libbusiness-onlinepayment-.*' | grep '^i ' | grep -v '^i libbusiness-onlinepayment-perl' | cut -c29- | cut -d- -f1`
  66   );
  67   join(', ', @gateways);
  68 }
  69
  70 #sub report_ssh_vulnkey{
  71 #  my $ssh_vulnkey = `ssh-vulnkey -a | grep COMPROMISED`;
  72 #  $ssh_vulnkey;
  73 #}
  74
  75 sub report_load {
  76   open LOAD, "</proc/loadavg" || return;
  77   my($one, $five, $fifteen) = split ' ', <LOAD>;
  78   close LOAD;
  79   ($one, $five, $fifteen);
  80 }
  81
  82 sub report_freememory {
  83   open MEM, "</proc/meminfo" || return;
  84   my $free = 0;
  85   my @interesting = qw( MemFree Cached SwapFree );
  86   while (<MEM>) {
  87     /^(\w*):\s*(\d*) kB$/ || next;
  88    next unless grep { $_ eq $1 } @interesting;
  89    $free += $2;
  90   }
  91   close MEM;
  92   $free;
  93 }
  94