2 |
######################### -*- Mode: Cperl -*- ######################### |
######################### -*- Mode: Cperl -*- ######################### |
3 |
## |
## |
4 |
## $Basename: smakewhatis $ |
## $Basename: smakewhatis $ |
5 |
## $Revision: 1.8 $ |
## $Revision: 1.11 $ |
6 |
## |
## |
7 |
## Author : Ulrich Pfeifer |
## Author : Ulrich Pfeifer |
8 |
## Created On : Mon Sep 2 12:57:12 1996 |
## Created On : Mon Sep 2 12:57:12 1996 |
9 |
## |
## |
10 |
## Last Modified By : Ulrich Pfeifer |
## Last Modified By : Ulrich Pfeifer |
11 |
## Last Modified On : Sun Nov 22 18:44:34 1998 |
## Last Modified On : Tue May 9 08:52:03 2000 |
12 |
## |
## |
13 |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
14 |
## |
## |
178 |
@DIRS = @{$WAIT::Config->{manpath}}; |
@DIRS = @{$WAIT::Config->{manpath}}; |
179 |
} |
} |
180 |
|
|
181 |
|
$tb->set(top=>1); |
182 |
my $mandir; |
my $mandir; |
183 |
for $mandir (grep -d $_, @DIRS) { |
for $mandir (grep -d $_, @DIRS) { |
184 |
opendir(DIR, $mandir) or warn "Could not open dir '$mandir': $!"; |
opendir(DIR, $mandir) or warn "Could not open dir '$mandir': $!"; |
198 |
} |
} |
199 |
} |
} |
200 |
} |
} |
201 |
|
my $now = time; |
202 |
|
warn "Starting reorg\n"; |
203 |
|
$tb->set(top=>1); |
204 |
|
warn sprintf "Finished reorg %d seconds\n", time - $now; |
205 |
|
|
206 |
# Do not forget to close the database after the extreme job you just finished. |
# Do not forget to close the database after the extreme job you just finished. |
207 |
|
|