Subversion Repositories camp_sysinfo_client_3

sub makeConfig {

   my @configFileNames = @_;

   my %config;

   my $clientName;

   my $serialNumber;

   my $hostname;

   my @moduleDirs;

   my @scriptDirs;

   my $transports = {};

   foreach my $config ( @configFileNames ) {

      open CONF,"<$config" or die "could not open $config: $!\n";

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

      close CONF;

      # now, eval the information we just read.

      # NOTE: we must turn off strict while doing this, and we die if something breaks.

      no strict "vars"; eval( $contents ); use strict "vars"; die "Error during eval: $@\n" if $@;

   }

   $config{'clientName'} = $clientName;

   $config{'serialNumber'} = $serialNumber;

   $config{'hostname'} = $hostname;

   $config{'moduleDirs'} = [ @moduleDirs ];

   $config{'scriptDirs'} = [ @scriptDirs ];

   $config{'transports'} = $transports;

   return \%config;

}