Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 107 Rev 114
Line 264... Line 264...
264
      }
264
      }
265
   } # if
265
   } # if
266
} # validateLibraries
266
} # validateLibraries
267
 
267
 
268
 
268
 
-
 
269
 
-
 
270
 
269
# attempt to locate the operating system.
271
# attempt to locate the operating system.
270
# if found, will set some defaults for it.
272
# if found, will set some defaults for it.
271
sub setUpOperatingSystemSpecific {
273
sub setUpOperatingSystemSpecific {
272
   my ( $install, $operatingSystems, $os ) = @_;
274
   my ( $install, $operatingSystems, $os ) = @_;
273
   print "They passed $os in as the \$os\n" if $verbose > 2;
275
   print "They passed $os in as the \$os\n" if $verbose > 2;
274
   if ( $os ) {
276
   if ( $os ) {
275
      # We found the OS, set up some defaults
277
      # We found the OS, set up some defaults
276
      $$install{'os'} = $os;
278
      $$install{'os'} = $os;
277
      print "Setting keys for operating system\n" if $verbose > 2;
279
      print "Setting keys for operating system\n" if $verbose > 2;
-
 
280
      # merge operatingSystems into install
-
 
281
      $install = deepmerge( $install, $operatingSystems->{ $os } );
278
      foreach my $key ( keys %{$$operatingSystems{ $os }} ) {
282
      #foreach my $key ( keys %{$$operatingSystems{ $os }} ) {
279
         $$install{$key} = $operatingSystems{ $os }{$key};
283
      #   $$install{$key} = $operatingSystems{ $os }{$key};
280
      } # if it is a known OS
284
      #} # if it is a known OS
281
   } # if
285
   } # if
282
   return $os;
286
   return $os;
283
} # getOperatingSystem
287
} # getOperatingSystem
284
 
288
 
285
 
289