/ /home/httpd/lonUsers my $doupdate; if (-e '/etc/loncapa-release') { if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) { if (<PIPE> =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) { my $previous = $1; unless ($previous eq 'CVS_HEAD') { my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./); if (($major ne '') && ($minor ne '')) { if ((($major == 2) && ($minor < 10)) || ($major < 2)) { $doupdate = 1; } } } } close(PIPE); } } if ($doupdate) { print("Searching user directories for resevaldata.db files to update.\n"); # get a list of all user directories my @dirs=`find -type d `; my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); foreach my $udir (@userdirs) { chomp($udir); unless (-e "$udir/nohist_resevaldata.db") { if (-e "$udir/resevaldata.db") { ` mv $udir/resevaldata.db $udir/nohist_resevaldata.db`; } if (-e "$udir/resevaldata.hist") { unlink("$udir/resevaldata.hist"); } } } } else { print("Conversion of resevaldata.db (pre 2.0) to nohist_resevaldata.db (2.0 and later) files not required.\n"); }