Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 48 Rev 55
Line 34... Line 34...
34 
 
 34 
 
35 
sub getOperatingSystem {
 35 
sub getOperatingSystem {
36 
   return &cleanUp('', qx(uname -s));
 36 
   return &cleanUp('', qx(uname -s));
37 
}
37 
}
38 
 
 38 
 
- 
 
 39 
sub getSysctlParameter {
- 
 
 40 
   my ( $sysctl, $parameter ) = @_;
- 
 
 41 
   my $result = qx( $sysctl $parameter );
- 
 
 42 
   chomp $result;
- 
 
 43 
   $result =~ s/$parameter:\s*//;
- 
 
 44 
   return $result;
- 
 
 45 
}
- 
 
 46 
 
39 
1;
 47 
1;