Subversion Repositories computer_asset_manager_v1

#! /usr/bin/perl -w

#

# v0.1 20160218 RWR

# copied from sysinfo/cli_tools/doReports.pl

#

use IO::Interactive qw(is_interactive interactive busy);

use YAML::XS;

use Cwd 'abs_path';

#use Data::Dumper;

use File::Basename;

my $VERSION = '0.1';

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

my $CRON= ! is_interactive(); # determine if we are in interactive shell

# control the flow of the program. $CHECKMAIL is pretty clear.

# if $PROCESS is false and $MOVEFILES is true, the files will be moved

# but not processed (ie, they were processed some other way)

my $CHECKMAIL=1; #controls whether we will check the mail or not

my $PROCESS=1; # controls whether we will process the files

my $MOVEFILES=1; # controls whether we will move the files successfully processed

my $DATADIR; # will hold the reports directory

my $UNPROCESSED; # will hold the location for unprocessed reports

my $MAXTOPROCESS = 10000;

my %filesProcessed;

# following are used to find the configuration file

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

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

sub loadConfig {

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

   my $configuration;

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

      $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

# assumes parse_backup.php returns one of the following codes

# 0 - Processed Normally

# 1 - did not process

# 2 - not an rsbackup file

sub storeFile {

   use File::Basename;

   my $file = shift;

   my $targetDirectory = shift;

   unless ( $targetDirectory ) {

      my ($name,$path) = fileparse($file);

      my ( $date,$time,$client,$server,$serial) = split( '_', $name );

      my ( $year, $month, $day ) = split( '-', $date );

      $targetDirectory = "/$year/$month";

   }

   $targetDirectory = "$DATADIR/$targetDirectory";

   `mkdir -p '$targetDirectory'` unless -d $targetDirectory;

   `mv '$file' '$targetDirectory'`;

}

# get our configuration set up first

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

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

# just some convenience variables

$DATADIR = $$config{'datapath'};

$UNPROCESSED=$DATADIR . '/' . $$config{'unprocessed_path'};

# check that the executables exist before continuing

$getMailScript = "$MY_DIRECTORY/" . $$config{'getMailScript'};

$processMailScript = "$MY_DIRECTORY/" . $$config{'processMailScript'};

$reportScript = "$MY_DIRECTORY/" . $$config{'reportScript'};

die "Could not find the getMailScript [$getMailScript] in $MY_DIRECTORY\n" unless -e $getMailScript;

die "Could not find the processMailScript [$processMailScript] in $MY_DIRECTORY\n" unless -e $processMailScript;

die "Could not find the reportScript [$reportScript] in $MY_DIRECTORY\n" unless -e $reportScript;

# fetch all messages pending from e-mail accounts

`php $getMailScript` if $CHECKMAIL;

# get a list of all messages waiting to be processed

opendir ( my $dh, $UNPROCESSED ) or die "Could not open $UNPROCESSED for read: $!";

@files = map{ "$UNPROCESSED\/$_" } sort grep { ! /^\./ && -f "$UNPROCESSED/$_" } readdir( $dh );

closedir $dh;

my $count = 0;

foreach my $thisFile ( sort @files ) {

   if ( $PROCESS ) {

      $tempResults .=  `php $processMailScript <'$thisFile'`;

      if ( $? == -1 ) {

         $exitCode = -1;

         die "Parsing failed: $!\n";

      } else {

         $exitCode = $? >> 8;

      }

   } else {

     $results .= "$thisFile moving without processing\n";

     $exitCode = 0;

   }

   if ( $exitCode == 0 ) {

      $filesProcessed{ 'valid' }++;

      $tempResults = '';

      &storeFile( $thisFile ) if $MOVEFILES;

   } elsif ( $exitCode == 1 ) {

      $filesProcessed{ 'Invalid Format' }++;

      &storeFile( $thisFile, 'InvalidFormat' ) if $MOVEFILES;

   } else {

      $filesProcessed{ 'Unknown File Error' }++;

   }

   $results .= $tempResults;

  last if ++$count >= $MAXTOPROCESS;

  print STDERR "\r$count" unless $CRON;

}

my $emailString;

print "\n" unless $CRON; 

$count= 0;

foreach my $key ( sort keys %filesProcessed ) {

   $count += $filesProcessed{$key};

   $emailString .=  "$filesProcessed{$key}\t$key\n";

}

$emailString .=  "$count\tTotal Files Processed\n";

$emailString .=  "--------------------------------\n\n";

$emailString .=  $results;

open SEND, "|$reportScript" or die "Could not find sendReport.pl: $!\n";

print SEND $emailString;

close SEND;

1;