Subversion Repositories camp_sysinfo_client_3

   if ( open CONF,"<$filename" ) {

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

      close CONF;

      # now, look to see what kind of file this is.

      if ( $contents =~ m/^---(\s*#.*)?$/m ) {

         print "Reading $filename as YAML\n";

         #print "Contents are:\n\n=====================$contents\n=====================\n";

         # this is a yaml file

         # try to load the contents into $config, and warn if there is a problem.

         eval( $config = Load( $contents ) ); warn $@ if $@;

      } elsif ( $contents =~ m/\$clientName/ ) {

         # this is old style

         print "Reading $filename as old school file\n";

         my $clientName = '';

         my $serialNumber = '';

         my $hostname = '';

         my @moduleDirs;

         my @scriptDirs;

         my $UUID = '';

         my $transports;

         # 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 if $clientName;

         $config->{'serialNumber'} = $serialNumber if $serialNumber;

         $config->{'UUID'} = $UUID unless $config->{'UUID'};

         $config->{'hostname'} = $hostname if $hostname;

         $config->{'moduleDirs'} = [ @moduleDirs ] if @moduleDirs;

         $config->{'scriptDirs'} = [ @scriptDirs ] if @scriptDirs;

         $config->{'transports'} = $transports if $transports;

         foreach my $trans ( keys %{$config->{'transports'}} ) {

            if ( exists ( $config->{'transports'}->{$trans}->{'-name-'} ) ) {

               $config->{'transports'}->{$trans}->{'name'} = $config->{'transports'}->{$trans}->{'-name-'};

               delete( $config->{'transports'}->{$trans}->{'-name-'} );

            }

         }

      }

   } else {

         warn "Could not read config file $filename, skipped: $!\n";

   }