Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

our $VERSION = '1.1.1';

our @moduleDirs;

# some debian specific things. NOT a stand alone; loaded by install.pl

sub systemSpecificInstall {

   if ( &yesno( 'Add link to cron.daily' ) ) {

      `rm /etc/cron.daily/sysinfo` if -e '/etc/cron.daily/sysinfo';

      `ln -s /opt/camp/sysinfo-client/sysinfo-client /etc/cron.daily/sysinfo`;

   }

   if ( `dpkg --get-selections | grep  sysinfo-client | grep install` 

      && &yesno ('It looks like sysinfo version 2 is installed via apt, should I remove it' ) ) {

      if ( &yesno( 'Back up old configuration? ') ) {

         `tar -czvf /root/sysinfo.2.config.tgz /etc/sysinfo`;

         print "Old configuration copied to /root/sysinfo.2.config.tgz\n";

      }

      system 'apt-get -y --purge remove sysinfo-client';

      print "There may be some unused packages now. You can remove them with\napt-get autoremove\n\n";

   }

   if ( &yesno( 'Would you like a link to /usr/local/bin/sysinfo-client' ) ) {

      `rm /usr/local/bin/sysinfo-client` if -e '/usr/local/bin/sysinfo-client';

      `ln -s  /opt/camp/sysinfo/sysinfo-client /usr/local/bin/sysinfo-client`;

   }

   # set all modules with debian or unix in the name to run

   foreach my $directory ( @moduleDirs ) {

      my $dh;

      opendir ( $dh, $directory ) or die "Could not open directory [$directory]\n";

      my @modules = grep { /^((dpkg)|(unix))/ } readdir $dh;

      closedir $dh;

      foreach my $module (@modules) {

         `chmod 0700 $directory/$module`;

         `chown root:root $directory/$module`;

      }

   }

   print "All debian specific modules have been enabled\n";

}

1;