Return to reseval_fixup.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Annotation of doc/loncapafiles/reseval_fixup.piml, revision 1.1

1.1     ! albertel    1: <!-- sanitycheck.piml -->
        !             2: <!-- Scott Harrison -->
        !             3: 
        !             4: <!-- $Id: sanitycheck.piml,v 1.3 2002/07/17 17:55:07 albertel Exp $ -->
        !             5: 
        !             6: <!--
        !             7: 
        !             8: This file is part of the LearningOnline Network with CAPA (LON-CAPA).
        !             9: 
        !            10: LON-CAPA is free software; you can redistribute it and/or modify
        !            11: it under the terms of the GNU General Public License as published by
        !            12: the Free Software Foundation; either version 2 of the License, or
        !            13: (at your option) any later version.
        !            14: 
        !            15: LON-CAPA is distributed in the hope that it will be useful,
        !            16: but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            17: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            18: GNU General Public License for more details.
        !            19: 
        !            20: You should have received a copy of the GNU General Public License
        !            21: along with LON-CAPA; if not, write to the Free Software
        !            22: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
        !            23: 
        !            24: /home/httpd/html/adm/gpl.txt
        !            25: 
        !            26: http://www.lon-capa.org/
        !            27: 
        !            28: -->
        !            29: 
        !            30: <piml>
        !            31: <targetroot>/</targetroot>
        !            32: <files>
        !            33: <file>
        !            34: <target dist="default">/home/httpd/lonUsers</target>
        !            35: <perlscript mode="fg">
        !            36: # get a list of all user directories
        !            37: my @dirs=`find <TARGET /> -type d `;
        !            38: my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
        !            39: foreach my $udir (@userdirs) {
        !            40:   chomp($udir);
        !            41:   print("$udir \n");
        !            42:   if (-e "$udir/resevaldata.hist") {
        !            43:     unlink("$udir/resevaldata.hist");
        !            44:   }
        !            45:   if (-e "$udir/resevaldata.db") {
        !            46:     `mv $udir/resevaldata.db $udir/nohist_resevaldata.db`;
        !            47:   }
        !            48: }
        !            49: </perlscript>
        !            50: </file>
        !            51: </files>
        !            52: </piml>