home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / pt.shar / pt / Install < prev    next >
Encoding:
Text File  |  1993-05-26  |  965 b   |  47 lines
  1. ($defman, $defbin) = @ARGV;
  2.  
  3. $mdir = &finddir($defman,
  4.           '/usr/local/man/man1', '/usr/man/local/man1',
  5.       '/usr/man/man.L', '/usr/man/manl',
  6.       '/usr/man/mann', '/usr/man/u_man/man1', '/usr/man/man1'
  7.       );
  8.  
  9. print "\nWhat directory would you like your man page in?\n\t[$mdir] ";
  10.  
  11. chop($dir = <STDIN>);
  12. $dir = $mdir if $dir =~ /^\s*$/;
  13. if (-d $dir) {
  14.     ($suffix) = ($dir =~ m#man([^/]+$)#);
  15.     $mpage = "$dir/pt.$suffix";
  16. } else {
  17.     die "$dir: not a directory";
  18. } 
  19.  
  20. &run("cp pt.1 $mpage");
  21.  
  22. $bin = &finddir($defbin, '/usr/local/scripts', '/usr/local/bin', 
  23.             split(':', $ENV{'PATH'}));
  24.  
  25. print "\nWhat directory would you like your script in?\n\t[$bin] ";
  26.  
  27. chop($hisbin = <STDIN>);
  28.  
  29. $bin = $hisbin unless $hisbin eq '';
  30.  
  31. chmod (0755, 'pt');
  32. &run("cp pt $bin");
  33.  
  34. sub finddir {
  35.     for $dir (@_) {
  36.     next if $dir eq '';
  37.     return $dir if -d $dir;
  38.     } 
  39.     '';
  40. } 
  41.  
  42. sub run {
  43.     local($cmd) = shift;
  44.     print "\n$ $cmd\n";
  45.     system($cmd) && die;
  46. } 
  47.