version 1.3, 2003/12/04 13:40:29
|
version 1.4, 2004/01/13 18:13:34
|
Line 89 while (my $resDBname = shift()) {
|
Line 89 while (my $resDBname = shift()) {
|
# |
# |
untie %accessDB; |
untie %accessDB; |
untie %resevalDB; |
untie %resevalDB; |
|
system("chown www:www $accessDBname"); |
# remove the keys we saved. |
# remove the keys we saved. |
next if (! scalar(@Keys)); # skip it if we did not get anything... |
next if (! scalar(@Keys)); # skip it if we did not get anything... |
my $dbptr; |
my $dbptr; |
Line 102 while (my $resDBname = shift()) {
|
Line 103 while (my $resDBname = shift()) {
|
$dbptr->reorganize(); |
$dbptr->reorganize(); |
$dbptr = undef; |
$dbptr = undef; |
untie(%resevalDB); |
untie(%resevalDB); |
|
system("chown www:www $resDBname"); |
} |
} |
exit; |
exit; |
|
|