WebSVN – camp_sysinfo_client_3 – Diff – /install.pl

 # 3 - Be very verbose
 my $TESTING = 1; # if test mode, simply show what would be done
 my $status; # exit status of the processes
 my $sourceDir = File::Spec->catdir($FindBin::Bin);
+my $installType;
 my %install = (  'bindir' => '/opt/camp/sysinfo-client',
                  'confdir' => '/etc/camp/sysinfo-client',
+                 'application name' => 'sysinfo client',
                  'files' => {
                            'configure.pl' => {
                                  'type' => 'file',
                                  'permission' => '700',
                                  'owner' => 'root:root',
 # attempt to locate the operating system.
 # if found, will set some defaults for it.
 sub getOS {
-   my ( $installs, $operatingSystems ) = @_;
+   my ( $install, $operatingSystems ) = @_;
    my $osString = `uname -a`;
    foreach my $osType ( keys %$operatingSystems ) {
+      print "Checking if OS is $osType in $osString\n" if $TESTING > 2;
       next unless $osString =~ m/$osType/i;
+      print "Yes, it is $osType\n" if $TESTING > 2;
       # We found the OS, set up some defaults
-      $$installs{'os'} = $osType;
+      $$install{'os'} = $osType;
+      print "Setting keys for operating system\n" if $TESTING > 2;
       for my $key ( keys $$operatingSystems{ $osType } ) {
-         $$installs{$key} = $operatingSystems{ $osType }{$key};
+         $$install{$key} = $operatingSystems{ $osType }{$key};
       } # if it is a known OS
       return 1;
+   }
    return 0;
 } # getOperatingSystem
+# get some input from the user and decide how to install/upgrade/remove/whatever
+sub getInstallActions {
+   my $install = shift;
+   if ( ! &yesno( "This looks like a $$install{'os'} machine, correct?" ) ) {
+      die "User Aborted\n" if &yesno( "If we continue, I will set this up like a $$install{'os'} system. Abort?" );
+   }
+   if ( -d $$install{'confdir'} ) {
+      $$install{'action'} = &getAnswer( "It looks like $$install{'application name'} is already installed, what do you want to do?",
+                            ( "upgrade","remove", "overwrite" )
+                          );
+   } else {
+      if ( &yesno( "This looks like a fresh install, correct?" ) ) {
+         $$install{'action'} = 'install';
+         $$install{'preseed config'} = &yesno( "Preseed the configuration file?" );
+      } else {
+         die "Can not continue at this time: Do not understand your system\n";
+      }
+   }
+   $$install{'build config'} = &yesno( "Edit config file when done?" );
+   $$install{'setup cron'} = &yesno( "Set up for automatic running via crontab?" );
+   &showWork( $install );
+   die unless &yesno( "Ready to run? Select No to abort." );
+}
+sub showWork {
+   my $install = shift;
+   print Dumper( \%install );
+}
+# This will go through and first, see if anything is a directory, in
+# which case, we'll create new entries for all files in there.
+# then, it will do keyword substitution of <bindir> and <confdir>
+# to populate the target.
+# When this is done, each file should have a source and target that is
+# a fully qualified path and filename
 sub populateSourceDir {
    my ( $install, $sourceDir ) = @_;
    my $bindir = $$install{'bindir'};
    my $confdir = $$install{'confdir'};
    } # foreach
    return 1;
 } # populateSourceDir
-# find versions of all files so we can do an upgrade vs a full installation
+# there is a file named VERSIONS. We get the values out of the install
+# directory and (if it exists) the target so we can decide what needs
+# to be updated.
 sub getVersions {
    my $install = shift;
    my $currentVersionFile = $$install{'files'}{'VERSION'}{'target'};
    my $newVersionFile = $$install{'files'}{'VERSION'}{'source'};
    if ( open FILE,"<$currentVersionFile" ) {
       close FILE;
+   }
    return 1;
 } # getVersions
+# runs a system command. Also, if in testing mode, simply shows what
+# would have been done.
 sub runCommand {
    while ( my $command = shift ) {
       if ( $TESTING ) {
          print "$command\n";
       } else {
+      }
+   }
    return 1;
 } # runCommand
+# checks if a directory exists and, if not, creates it
-my %directories; # holds list of directories already created
+my %directories; # holds list of directories already created so no need to do an I/O
 sub checkDirectoryExists {
    my ( $filename,$mod,$owner ) = @_;
    $mod = "0700" unless $mod;
    $owner = "root:root" unless $owner;
       $directories{$dirname} = 1;
+   }
    return '';
+}
+# this actually does the installation, except for the configuration
 sub doInstall {
    my $install = shift;
    my $fileList = $$install{'files'};
    &checkDirectoryExists( $$install{'bindir'} . '/' );
    foreach my $file ( keys %$fileList ) {
       next unless ( $$fileList{$file}{'type'} && $$fileList{$file}{'type'} eq 'file' );
+      next if $$install{'action'} eq 'upgrade' &&
-      next if $$fileList{$file}{'installed version'} &&
+              $$fileList{$file}{'installed version'} &&
               $$fileList{$file}{'new version'} eq $$fileList{$file}{'installed version'};
       &checkDirectoryExists( $$fileList{$file}{'target'} );
       &runCommand(
             "cp $$fileList{$file}{'source'} $$fileList{$file}{'target'}",
             "chmod $$fileList{$file}{'permission'} $$fileList{$file}{'target'}",
             );
    } # foreach file
    return 1;
+}
+# parse the flags to decide the actions:
+# install - assumes is a new install, overwrites everything
+# upgrade - Checks for new files and overwrites only them
+# uninstall - Removes everything
+# reinstall - overwrites everything with fresh copy
+################
+# check for the configuration file!!!
+################
 # figure out if we know our operating system
 $status = &getOS( \%install, \%operatingSystems );
+$installType = getInstallActions( \%install );
 # based on the defaults, flesh out the install hash
 $status = &populateSourceDir( \%install, $sourceDir );
 $status = &getVersions( \%install );
 $status = &doInstall( \%install );
 print Dumper( \%install ) if $TESTING > 2;

Subversion Repositories camp_sysinfo_client_3

(root)/install.pl @ 34 – Rev 33 → 34