Return to installcapa.pl CVS log

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

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

1.1       albertel    1: #!/usr/local/bin/perl
                      2:  require('getopts.pl');
                      3: 
                      4: #
                      5: #  CAPA installation script version 1.0
1.2     ! albertel    6: #  Copyright (C) 1992-2000 Michigan State University
        !             7: #
        !             8: #  The CAPA system is free software; you can redistribute it and/or
        !             9: #  modify it under the terms of the GNU Library General Public License as
        !            10: #  published by the Free Software Foundation; either version 2 of the
        !            11: #  License, or (at your option) any later version.
        !            12: #
        !            13: #  The CAPA system is distributed in the hope that it will be useful,
        !            14: #  but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            15: #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
        !            16: #  Library General Public License for more details.
        !            17: #
        !            18: #  You should have received a copy of the GNU Library General Public
        !            19: #  License along with the CAPA system; see the file COPYING.  If not,
        !            20: #  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
        !            21: #  Boston, MA 02111-1307, USA.
        !            22: #
        !            23: #  As a special exception, you have permission to link this program
        !            24: #  with the TtH/TtM library and distribute executables, as long as you
        !            25: #  follow the requirements of the GNU GPL in regard to all of the
        !            26: #  software in the executable aside from TtH/TtM.
1.1       albertel   27: #  
                     28: #  Installation is a multi-phased operation and 
                     29: #   can start in any point  
                     30: #
                     31: #  -m     [menu mode (interactive mode)]
                     32: #  -c     [install a class]
                     33: #
                     34: #
                     35:  sub  S_Enterpath {
                     36:     local($set)=@_;
                     37:     local($notdone,$path);
                     38:     
                     39:     $notdone = 1;
                     40:     while ($notdone) {
                     41:       print "Please enter the CLASS absolute path:\n";
                     42:       $path = <>; chomp($path);
                     43:       if( $path =~ /\/$/ ) {
                     44:         $Rfullpath = "$path" . "records";
                     45:         $Lfullpath = "$path" . "records/log$set.db";
                     46:         $Wfullpath = "$path" . "records/weblog$set.db";
                     47:       } else {
                     48:         $Rfullpath = "$path" . "/records";
                     49:         $Lfullpath = "$path" . "/records/log$set.db";
                     50:         $Wfullpath = "$path" . "/records/weblog$set.db";
                     51:       }
                     52:       if( -d $path ) {
                     53:         if( -d $Rfullpath ) {
                     54:           if( -f $Lfullpath ) {
                     55:             $notdone = 0;
                     56:           } else {
                     57:             print "File [$Lfullpath] does not exist!\n";
                     58:           }
                     59:           if( -f $Wfullpath ) {
                     60:             $notdone = 0;
                     61:           } else {
                     62:             print "File [$Wfullpath] does not exist!\n";
                     63:           }
                     64:         } else {
                     65:           print "Directory [$Rfullpath] does not exist!\n";
                     66:         }
                     67:       } else {
                     68:         print "Directory [$path] does not exist!\n";
                     69:       }
                     70:     
                     71:     }
                     72:     return ($path);
                     73:   }