Subversion Repositories computer_asset_manager_v1

Rev

Rev 26 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 26 Rev 27
Line 24... Line 24...
24 
my $PROCESS=1; # controls whether we will process the files
 24 
my $PROCESS=1; # controls whether we will process the files
25 
my $MOVEFILES=1; # controls whether we will move the files successfully processed
 25 
my $MOVEFILES=1; # controls whether we will move the files successfully processed
26 
 
 26 
 
27 
my $DATADIR; # will hold the reports directory
 27 
my $DATADIR; # will hold the reports directory
28 
my $UNPROCESSED; # will hold the location for unprocessed reports
 28 
my $UNPROCESSED; # will hold the location for unprocessed reports
29 
my $MAXTOPROCESS = 10000;
 - 
 
30 
my %filesProcessed;
 29 
my %filesProcessed;
31 
 
 30 
 
32 
# following are used to find the configuration file
 31 
# following are used to find the configuration file
33 
my $confFileName = 'rsbackupRead.conf.yaml';
 32 
my $confFileName = 'rsbackupRead.conf.yaml';
34 
my @searchPaths = ( '/etc/camp', '/opt/camp', '/opt/camp/sysinfo', $MY_DIRECTORY );
 33 
my @searchPaths = ( '/etc/camp', '/opt/camp', '/opt/camp/sysinfo', $MY_DIRECTORY );
Line 152... Line 151...
152 
      &storeFile( "$UNPROCESSED\/$thisFile", 'ServerNotFound' ) if $MOVEFILES;
 151 
      &storeFile( "$UNPROCESSED\/$thisFile", 'ServerNotFound' ) if $MOVEFILES;
153 
   } else {
 152 
   } else {
154 
      $filesProcessed{ 'Unknown File Error' }++;
 153 
      $filesProcessed{ 'Unknown File Error' }++;
155 
   }
 154 
   }
156 
   $results .= $tempResults;
 155 
   $results .= $tempResults;
157 
  last if ++$count >= $MAXTOPROCESS;
 156 
  last if ++$count >= $$config{'maxreports'};
158 
  print STDERR "\r$count" unless $CRON;
 157 
  print STDERR "\r$count" unless $CRON;
159 
}
 158 
}
160 
 
 159 
 
161 
my $emailString;
 160 
my $emailString;
162 
print "\n" unless $CRON;
161 
print "\n" unless $CRON;