Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 203 Rev 251
Line 21... Line 21...
21 
# find our location and use it for searching for libraries
 21 
# find our location and use it for searching for libraries
22 
BEGIN {
 22 
BEGIN {
23 
   use FindBin;
 23 
   use FindBin;
24 
   use File::Spec;
 24 
   use File::Spec;
25 
   use lib File::Spec->catdir($FindBin::Bin);
 25 
   use lib File::Spec->catdir($FindBin::Bin);
26 
   use library;
 26 
   eval( 'use library;' );
- 
 
 27 
   die "Could not find library.pm in the code directory\n" if $@;
- 
 
 28 
   eval( 'use Data::Dumper;' );
27 
}
 29 
}
28 
 
 30 
 
- 
 
 31 
# check for valid OS
- 
 
 32 
exit 2 unless &checkOS( { 'linux' => undef, 'freebsd' => undef } );
- 
 
 33 
 
29 
exit 0 unless checkDate( 'm' ); # run this only on first of month
 34 
exit 0 unless checkDate( 'm' ); # run this only on first of month
30 
 
 35 
 
31 
my %driveDefinitions; # this will be a global that everything will put info into
 36 
my %driveDefinitions; # this will be a global that everything will put info into
32 
 
 37 
 
33 
my %ignoreDriveTypes = ( # a list of drive "types" used by virtuals that we just ignore.
 38 
my %ignoreDriveTypes = ( # a list of drive "types" used by virtuals that we just ignore.