misc/uninstall.pl

   1 #!/usr/bin/perl
   2
   3 sub ReadConfigFile
   4 {
   5         my $fname = shift;      # Config file to read
   6         my $retval = {};        # Return value: ref-to-hash holding the configuration
   7         open (CONF, $fname) or return undef;
   8         while (<CONF>) {
   9                 my $var;                # Variable name
  10                 my $value;              # Variable value
  11                 chomp;
  12                 s/#.*//;                # Strip comments
  13                 next if /^\s*$/;        # Ignore blank lines
  14                 next if (!/^\s*(\w+)\s*=\s*(.*?)\s*$/);
  15                 $var = $1;
  16                 $value = $2;
  17                 $retval->{$var} = $value;
  18         }
  19         close CONF;
  20         return $retval;
  21 }
  22
  23 my $config = ReadConfigFile("/etc/koha.conf");
  24 # to remove web sites:
  25 system("rm -rf ".$config->{intranetdir});
  26 system("\nrm -rf ".$config->{opacdir});
  27 # remove mySQL stuff
  28 # user
  29 print "enter mySQL root password, please\n";
  30 my $response=<STDIN>;
  31 chomp $response;
  32 # DB
  33 system("mysqladmin -f -uroot -p$response drop ".$config->{database});
  34 system("mysql -uroot -p$response -Dmysql -e\"delete from user where user='".$config->{user}.'\'"');
  35 system("mysql -uroot -p$response -Dmysql -e\"delete from db where user='".$config->{user}.'\'"');
  36 # reload mysql
  37 system("mysqladmin -uroot -p$response reload");
  38 system("rm -f /etc/koha-httpd.conf");
  39 system("rm -f /etc/koha.conf");
  40 print "EDIT httpd.conf to remove /etc/koha-httpd.conf\n";