version 1.5, 2004/02/10 20:54:14
|
version 1.6, 2015/03/16 05:25:47
|
Line 35 http://www.lon-capa.org/
|
Line 35 http://www.lon-capa.org/
|
<file> |
<file> |
<target dist="default">/home/httpd/lonUsers</target> |
<target dist="default">/home/httpd/lonUsers</target> |
<perlscript mode="fg"> |
<perlscript mode="fg"> |
# get a list of all user directories |
|
my @dirs=`find <TARGET /> -type d `; |
my $doupdate; |
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
if (-e '/etc/loncapa-release') { |
foreach my $udir (@userdirs) { |
if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) { |
chomp($udir); |
if (<PIPE> =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) { |
unless (-e "$udir/nohist_resevaldata.db") { |
my $previous = $1; |
if (-e "$udir/resevaldata.db") { |
unless ($previous eq 'CVS_HEAD') { |
`mv $udir/resevaldata.db $udir/nohist_resevaldata.db`; |
my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./); |
} |
if (($major ne '') && ($minor ne '')) { |
if (-e "$udir/resevaldata.hist") { |
if ((($major == 2) && ($minor < 10)) || ($major < 2)) { |
unlink("$udir/resevaldata.hist"); |
$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 <TARGET /> -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"); |
} |
} |
</perlscript> |
</perlscript> |
</file> |
</file> |