diff options
author | ivan <ivan> | 2008-08-21 23:22:04 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-08-21 23:22:04 +0000 |
commit | c1297541457bdfce910e7013cd6dc24254347852 (patch) | |
tree | 63fa7efbba22084d7a1237c47a3500177dedd419 /FS/FS/Yori.pm | |
parent | 9080a8d56896cfa2fe3f696fe087d7283d13f52c (diff) |
add the client-side reporting for MCP mode
Diffstat (limited to 'FS/FS/Yori.pm')
-rw-r--r-- | FS/FS/Yori.pm | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/FS/FS/Yori.pm b/FS/FS/Yori.pm new file mode 100644 index 000000000..01f36b1c0 --- /dev/null +++ b/FS/FS/Yori.pm @@ -0,0 +1,65 @@ +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 + ); + #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_ssh_vulnkey{ +# my $ssh_vulnkey = `ssh-vulnkey -a | grep COMPROMISED`; +# $ssh_vulnkey; +#} |