2 # a reporting program, to report information to the MCP
7 our @EXPORT_OK = qw( reports report );
9 sub reports { #should be autogenerated i guess
10 qw( freeside_version debian_version pg_version
11 apache_version apache_mpm
18 $report =~ /^(\w+)$/ or die;
19 eval "report_$report();";
23 foreach my $report ( reports() ) {
24 print "$report: ". report($report). "\n";
28 sub report_freeside_version {
29 chomp( my $fs_version =
30 `grep '^VERSION=' /home/ivan/freeside/Makefile | cut -d= -f2`
35 sub report_debian_version {
36 chomp( my $deb_version = `cat /etc/debian_version` );
40 sub report_pg_version {
41 chomp( my $pg_version = `echo 'show server_version' | psql -t freeside` );
42 chomp($pg_version); #two?
43 $pg_version =~ s/^ +//;
47 sub report_apache_version {
48 chomp( my $apache_version =
49 `/usr/sbin/apache2 -v | head -1 | cut -d: -f2 | cut -d/ -f2 | cut -d' ' -f1`
54 sub report_apache_mpm {
55 chomp( my $apache_mpm =
56 `/usr/sbin/apache2 -V | grep '^Server MPM' | cut -d: -f2`
58 $apache_mpm =~ s/^ +//;
62 #sub report_ssh_vulnkey{
63 # my $ssh_vulnkey = `ssh-vulnkey -a | grep COMPROMISED`;