Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

use warnings;

use strict;

my $clientName = '';

my $serialNumber = '';

my $hostname = '';

my $UUID = '';

my @moduleDirs = ();

my @scriptDirs = ();

my $transports;

my $input = shift;

open CONF,"<$input" or die "could not open $input for read: $!\n";

my $conf = join( '', <CONF> );

close CONF;

eval( $conf );

$UUID = &getUUID() unless $UUID;

$serialNumber = &getSerial unless $serialNumber;

print "\$configuration{'clientName'} = '$clientName';\n";

print "\$configuration{'serialNumber'} = '$serialNumber';\n";

print "\$configuration{'hostname'} = '$hostname';\n";

print "\$configuration{'UUID'} = '$UUID';\n";

print "\$configuration{'moduleDirs'} = ( '" . join( "','", @moduleDirs) . "' );\n";

print "\$configuration{'scriptDirs'} = ( '" . join( "','", @scriptDirs) . "' );\n";

foreach my $level ( sort keys %$transports ) {

   foreach my $key ( sort keys %{ $$transports{$level} } ) {

      print "\$configuration{'transports'}{$level}{'$key'} = '$$transports{$level}{$key}';\n";

   }

}

1;

sub getSerial {

   my $serial = `sudo dmidecode -s system-serial-number`;

   chomp $serial;

   return $serial;

}

sub getUUID {

   my $UUID = `sudo dmidecode -s system-uuid`;

   chomp $UUID;

   return $UUID;

}