#!/usr/bin/perl --
# Copyright 1998,1999 Ivan E. Moore II
# See /usr/share/doc/imp/copyright.

if (-s "/etc/horde") {      
  print "\nHorde environment looks good so far...";
} else {
  print "\nFor some reason horde-core isn't installed or setup properly.";
  print "\nYou must install the horde-core package first.";
  exit(1);
}

if (-s "/usr/share/horde") { 
  print "\nLooking better...";
} else {
  print "\nFor some reason horde-core isn't installed or setup properly.";
  print "\nYou must install the horde-core package first.";
  exit(1);
}


if (-s "/etc/imp/defaults.php3") {

  system("chmod ug+rwx -R /etc/imp ");

  if (-s "/etc/imp/defaults.php3.bak") {
     system("rm -rf /etc/imp/defaults.php3.bak >> /dev/null 2>&1");
     print "\nRemoving old defaults.php3.bak file";
  }

    system("cp /etc/imp/defaults.php3 /etc/imp/defaults.php3.bak >> /dev/null 2>&1");
    print "\nMaking a backup of defaults.php3 to defaults.php3.bak just in case\n";


}

