home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1997 / CT_SW_97.ISO / pc / software / entwickl / win95 / plsei306.exe / bin / perlscript-uninstall.bat < prev    next >
DOS Batch File  |  1997-04-09  |  1KB  |  42 lines
  1. @rem = '--*-Perl-*--';
  2. @rem = '
  3. @echo off
  4. if not exist perl.exe goto perlnotthere
  5. if not exist Perl300.dll goto perlnotthere
  6. if not exist PerlSE.dll goto perlscriptnotthere
  7. perl.exe PerlScript-uninstall.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  8. pause
  9. goto endofperl
  10. @rem ';
  11.  
  12. @INC = qw( ..\Lib ..\Ext );
  13.  
  14. print <<'--end--';
  15. PerlScript-uninstall.bat:
  16.   This script will remove the registry entries created by the 
  17.   PerlScript-install.bat script.  The script does not delete files.
  18.   You can re-install by running PerlScript-install.bat again. 
  19. Continue?(Y/N):
  20. --end--
  21.  
  22. $in = <STDIN>;
  23. until ( $in eq "\n" || $in =~ /^y/i ) {
  24.     exit if ( $in =~ /^no?\n$/i );
  25.     print "Do you wish to proceed? [Y/n]";
  26.     $in = <STDIN>;
  27. }
  28.  
  29. Win32::UnregisterServer('PerlSE.dll') ?
  30.     print "\nPerlScript uninstalled successfully\n" :
  31.     warn "\nError unregistering PerlSE.dll\n";
  32.  
  33. __END__
  34. :perlnotthere
  35. echo Could not find Perl interpreter!!
  36. echo *gasp* *wheez* *choke*
  37. goto endofperl
  38. :perlscriptnotthere
  39. echo Did you install PerlScript into the same directory as Perl?
  40. :endofperl
  41.  
  42.