Subversion Repositories computer_asset_manager_v1

#!/usr/bin/env perl

use strict;

use warnings;

#

# v0.8.1 20160218 RWR

# removed print statement to STDOUT (just commented it out)

#

# v0.8.2 20160407 RWR

# Added checking for missing sysinfo reports

# if a report is not shown in current day, but has been seen in the 

# past five days, an entry is made on the report

use DBI;

use Cwd 'abs_path';

#use Data::Dumper;

use File::Basename;

use YAML::XS;

my $VERSION = '0.8.1';

my $MY_DIRECTORY = abs_path(dirname(__FILE__) );

my $query = qq/select 

   hyper.name DOM0,

   virt.name DOMU

from 

   device hyper join device virt

   join device_type on (virt.device_type_id = device_type.device_type_id)

where 

   device_type.show_as_system = "Y"

   and hyper.device_id = virt.part_of 

   and hyper.removed_date is null 

   and virt.removed_date is null

order by 

   hyper.name,

   virt.name/;

# following are used to find the configuration file

my $confFileName = "sysinfoRead.conf.yaml";

my @searchPaths = ( '/etc/camp', '/opt/camp', '/opt/camp/sysinfo', $MY_DIRECTORY );

sub loadConfig {

   my ( $confFileName, @searchPaths ) = @_;

   my $configuration;

   for ( my $i = 0; $i < @searchPaths; $i++ ) {

      my $filename = $searchPaths[$i] . '/' . $confFileName;

      if ( -e $filename ) {

         #print "Found $filename\n";

         open CONF, "<$filename" or warn "Could not read $filename: $!\n";

         $configuration = Load( join( '', <CONF> ) );

         close CONF;

         last; # exit out of the loop; we don't try to load it more than once

      } # if

   } # foreach

   return $configuration;

} # sub loadConfig

my $configuration = &loadConfig( $confFileName, @searchPaths );

die "Could not find configuration file $confFileName in " . join( ', ', @searchPaths) . "\n" unless $configuration;

my $dbh = DBI->connect('DBI:mysql:' . $$configuration{'database'}{'database'},

                       $$configuration{'database'}{'databaseUsername'}, 

                       $$configuration{'database'}{'databasePassword'} )

         || die "Could not connect to database: $DBI::errstr";

my $sth = $dbh->prepare( $query );

$sth->execute();

open REPORT, ">$$configuration{'domuOutput'}" or die "Could not open $$configuration{'domuOutput'} for DOMU Report: $!\n";

print REPORT "DOM0\tDOMU\n";

while ( my $row =  $sth->fetchrow_hashref() ) {

   print REPORT $row->{"DOM0"} . "\t" . $row->{"DOMU"} . "\n";

}

close REPORT;

`chown www-data:www-data $$configuration{"domuOutput"}`;

1;