Annotation of capa/capa51/CapaTools/installcapa.pl, revision 1.1.1.1

1.1       albertel    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:   }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>