Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 21 Rev 26
Line 1... Line 1...
1 
#!/usr/bin/env perl
 1 
#!/usr/bin/env perl
2 
 
 2 
 
3 
package sysinfoconf;
 3 
package sysinfoconf;
4 
 
 4 
 
- 
 
 5 
our $VERSION = '1.0';
5 
use warnings;
 6 
use warnings;
- 
 
 7 
use strict;
- 
 
 8 
 
6 
use Exporter;
 9 
use Exporter;
7 
 
 10 
 
8 
our @ISA = qw( Exporter );
 11 
our @ISA = qw( Exporter );
9 
our @EXPORT = qw( $clientName $serialNumber $hostname @moduleDirs @scriptDirs
12 
our @EXPORT = qw( $clientName $serialNumber $hostname @moduleDirs @scriptDirs
10 
                  $transports $sysinfo3 %sendTypes $binDir $modulesDir
 13 
                  $transports $sysinfo3 %sendTypes $binDir $modulesDir
Line 134... Line 137...
134 
}
 137 
}
135 
 
 138 
 
136 
sub processParameters {
 139 
sub processParameters {
137 
   while ( my $parameter = shift ) {
 140 
   while ( my $parameter = shift ) {
138 
      if ( $parameter eq '-v' ) {
 141 
      if ( $parameter eq '-v' ) {
139 
         print "$main::VERSION\n";
 142 
         print "$VERSION\n";
140 
         exit;
 143 
         exit;
141 
      }
 144 
      }
142 
   } # while
 145 
   } # while
143 
}
 146 
}
144 
 
 147