Return to installcapa.pl CVS log

Up to [LON-CAPA] / capa / capa51 / CapaTools

Initial revision

    1: #!/usr/local/bin/perl
    2:  require('getopts.pl');
    3: 
    4: #
    5: #  CAPA installation script version 1.0
    6: #  
    7: #  Installation is a multi-phased operation and 
    8: #   can start in any point  
    9: #
   10: #  -m     [menu mode (interactive mode)]
   11: #  -c     [install a class]
   12: #
   13: #
   14:  sub  S_Enterpath {
   15:     local($set)=@_;
   16:     local($notdone,$path);
   17:     
   18:     $notdone = 1;
   19:     while ($notdone) {
   20:       print "Please enter the CLASS absolute path:\n";
   21:       $path = <>; chomp($path);
   22:       if( $path =~ /\/$/ ) {
   23:         $Rfullpath = "$path" . "records";
   24:         $Lfullpath = "$path" . "records/log$set.db";
   25:         $Wfullpath = "$path" . "records/weblog$set.db";
   26:       } else {
   27:         $Rfullpath = "$path" . "/records";
   28:         $Lfullpath = "$path" . "/records/log$set.db";
   29:         $Wfullpath = "$path" . "/records/weblog$set.db";
   30:       }
   31:       if( -d $path ) {
   32:         if( -d $Rfullpath ) {
   33:           if( -f $Lfullpath ) {
   34:             $notdone = 0;
   35:           } else {
   36:             print "File [$Lfullpath] does not exist!\n";
   37:           }
   38:           if( -f $Wfullpath ) {
   39:             $notdone = 0;
   40:           } else {
   41:             print "File [$Wfullpath] does not exist!\n";
   42:           }
   43:         } else {
   44:           print "Directory [$Rfullpath] does not exist!\n";
   45:         }
   46:       } else {
   47:         print "Directory [$path] does not exist!\n";
   48:       }
   49:     
   50:     }
   51:     return ($path);
   52:   }