Subversion Repositories camp_sysinfo_client_3

# if subroutine &postInstall exists, it is called with a reference to the %install hash

# if subroutine &postInstall exists, it is called with a reference to the %install hash

# postInstall may return, or may call some other script. it is the last thing called by

# postInstall may return, or may call some other script. it is the last thing called by

# the installer

# the installer

sub postInstall {

sub postInstall {

   my $install = shift;

   my $install = shift;

   # We need to open sysinfoconf so we can build the configuration file

   # We need to open sysinfoconf so we can build the configuration file

   # using eval, since the installer is responsible for loading YAML::Tiny, so we may not

   # using eval, since the installer is responsible for loading YAML::Tiny, so we may not

   # have it defined when we first start up.

   # have it defined when we first start up.

   eval( 'use sysinfoconf qw/&writeConfig &makeConfig &showConf/;' );

   eval( 'use sysinfoconf qw/&writeConfig &makeConfig &showConf/;' );

      # We should have a nice combined configuration, so we'll write it to a temporary file

      # We should have a nice combined configuration, so we'll write it to a temporary file

      my $filename = &writeConfig( '', &showConf( $config ) );

      my $filename = &writeConfig( '', &showConf( $config ) );

      my $confFileName = $install{'configuration'}{'configuration file'};

      my $confFileName = $install{'configuration'}{'configuration file'};

      # configure.pl is already designed to combine our temp file with our current config file and write it ou

      # configure.pl is already designed to combine our temp file with our current config file and write it ou

      # so we'll just use that instead of reinventing the wheel

      # so we'll just use that instead of reinventing the wheel

   } # if we are building/merging configuration

   } # if we are building/merging configuration

}

}