Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

our $VERSION = '1.1.3';

# find our location and use it for searching for libraries

BEGIN {

   use FindBin;

   use File::Spec;

   use lib File::Spec->catdir($FindBin::Bin);

}

use sysinfoconf;

$TESTING = 1;

my $seedFile = 'sysinfo-client.seed';

my $sysinfo2 = '/etc/sysinfo/sysinfo.conf';

sub moveFiles {

   # an extremely basic installer for sysinfo-client

   # create all the directories we need, set permissions

   for my $dir ( $binDir, $confDir, @moduleDirs, @scriptDirs ) {

      next if -d $dir;

      if ( $TESTING ) {

         print "mkdir -p $dir\n";

         print "chmod 0700 $dir\n";

      } else {

         `mkdir -p $dir`;

         `chmod 0700 $dir`;

      }

   }

   # copy the modules and scripts

   # all modules start with 0600, and scripts with 0700

   # modules will be "turned on" by setting their permissions to 0700

   # in the osinstall specialty scrips

   for my $dir ( 'modules', 'scripts' ) {

      if ( $TESTING ) {

         print "cp -av $dir $binDir\n";

         print "rm -fR $binDir/$dir/.svn\n";

         print "chmod 0700 $binDir/$dir\n";

         $dir eq 'scripts' ? print "chmod -fR 0700 $binDir/$dir/*\n" : print "chmod -fR 0600 $binDir/$dir/*\n";

      } else {

         `cp -av $dir $binDir`;

         `rm -fR $binDir/$dir/.svn`;

         `chmod 0700 $binDir/$dir`;

         $dir eq 'scripts' ? `chmod -fR 0700 $binDir/$dir/*` : `chmod -fR 0600 $binDir/$dir/*`;

      }

   }

   # copy the binary files and the documentation. Default all to

   # 0600

   for my $file ( 'sysinfo-client','notes', 'sysinfo-client.conf.template','configure.pl', 'uninstall.pl', 'sysinfoconf.pm' ) {

      if ( $TESTING ) {

         print "cp $file $binDir\n";

         print "chmod 0600 $binDir/$file\n";

      } else {

         `cp $file $binDir`;

         `chmod 0600 $binDir/$file`;

      }

   }

   # Set permissions for the executable files

   for my $file ( "$binDir/sysinfo-client", "$binDir/configure.pl", "$binDir/uninstall.pl" ) {

      if ( $TESTING ) {

         print "chmod 0700 $file\n";

      } else {

         `chmod 0700 $file`;

      }

   }

   # Everything is owned by root

   foreach my $dir ( $binDir, $confDir ) {

      if ( $TESTING ) {

         print "chown -fR root:root $dir\n";

      } else {

         `chown -fR root:root $dir`;

      }

   }

}

# simply attempts to detect the operating system so we can do OS

# specific actions at the end.   

sub getOperatingSystem {

   my @OSTypes = ( 'ipfire','debian' );

   my $OS = `uname -a`;

   foreach my $osType ( @OSTypes ) {

      return $osType if $OS =~ m/$osType/i;

   }

   return '';

} # getOperatingSystem

sub convertSysinfo2 {

   my $client_name;

   my $iMailResults;

   my $mailTo;

   my $mailSubject;

   my $mailCC;

   my $mailBCC;

   my $mailServer;

   my $mailServerPort;

   my $mailFrom;

   my $SENDMAIL;

   my $clientName;

   my $serialNumber;

   my $hostname;

   my $transports = {}; # holds transportation mechanisms

   open SEED, "<$sysinfo2" or die "Could not open $sysinfo2: $!\n";

   my $temp = join( '', <SEED> );

   close SEED;

   eval( $temp );

   if ( $iMailResults ) {

      $temp = {};

      $$temp{'-name-'} = 'SendEmail';

      $$temp{'mailTo'} = $mailTo if $mailTo;

      $$temp{'$mailFrom'} = $mailFrom if $mailFrom;

      $$temp{'mailCC'} = $mailCC if $mailCC;

      $$temp{'mailServer'} = $mailServer if $mailServer;

      $$temp{'mailServer'} .= ":$mailServerPort" if $mailServerPort;

      $$transports{'1'} = $temp;

   }   

   $clientName = $client_name if ( $client_name );

   return ( $clientName,$hostname,$serialNumber,$transports );

}

# for installation, just go and see if we have anything we can grab

# to make a config. We'll do them in a particular order, with each

# subsequent stage overriding the previous one.

# first, look for any old sysinfo2 config, then, look for an existing

# sysinfo3 config, then look for a seed file

sub makeConfig {

   if ( -f $sysinfo2 && &yesno( 'Old sysinfo 2 config exists, load it for defaults' ) ) {

      print "Loading defaults from sysinfo2 config $sysinfo2\n";

      # NOTE: the return values are all placed into globals!!!!

      ( $clientName,$hostname,$serialNumber,$transports ) = &convertSysinfo2();

   }

   # if they have a current sysinfo3 config, see if we can load it

   if ( -f $sysinfo3 && &yesno( 'I found an existing sysinfo3 configuration, Load it? ' ) ) {

      print "Loading defaults from existing config $sysinfo3\n";

      my $client_name;

      open SEED, "<$sysinfo3" or die "Could not open $sysinfo3: $!\n";

      my $temp = join( '', <SEED> );

      close SEED;

      eval( $temp );

   }

   # seed files are expected to be in the correct format already

   # and expected to override everything.

   if ( -f $seedFile  && &yesno( 'Add installation seed file? ' ) ) {

      print "Loading seed file $seedFile\n";

      open SEED, "<$seedFile" or die "Could not open $seedFile: $!\n";

      my $temp = join( '', <SEED> );

      close SEED;

      eval( $temp );

   }

}

&processParameters( @ARGV );

&moveFiles();

exit ;

if ( &yesno( "Preseed the configuration file?" ) ) {

   &makeConfig();

   print "Writing Config file; run configure.pl to modify it\n";

   &writeConfig( $confDir, $confName, &showConf() );

   #print &showConf();

   #&yesno( "Press enter to continue" );

}

my $os = &getOperatingSystem();

if ( $os && &yesno( "This appears to be an $os system, may I automatically set up a few things" ) ) {

   require "$os.pm";

   &systemSpecificInstall();

}

exec( "perl $binDir/configure.pl" ) if &yesno( "Would you like to configure the package now? " );