| $fsOperation: $operation2 |
\n";
$percent_completed = 0 if $percent_completed < 0;
$percent_completed = 1 if $percent_completed > 1;
$width = int(390*$percent_completed);
$width = 1 if $width == 0;
print "![](\"$html_url/icons/dotblue.gif\"){kind=icon} \n" if !$GLOBAL_OPTIONS{'fast_index'}; print " | \n";
print "
This is normal. DO NOT close your browser
\n"; print "Your board has one or more sets of illegally named files which will prevent your board from\n"; print "indexing properly. Discus can automatically repair these files for you and then properly\n"; print "index your board. This will change the file names of affected files and may break URLs that\n"; print "you or others have created to those specific pages. It is strongly recommended that you\n"; print "allow Discus to resolve this problem for you. If you do not, many aspects of your board\n"; print "(including tree view, administration, navigation bars, and subtopic lists) on affected pages\n"; print "may function erratically or not at all.
\n"; if ($actionurl =~ m|^(https?://[^\?]+)|i) { $actionscript = $1; } else { $actionscript = $cgiurl; } print "
\n"; exit(0); } } elsif ($FORM{'reindex'} == 0) { ($fileref, $foo, $tempt) = &incremental($FORM{'tempt'}, 2, "", ""); @TEMPT = @{$fileref}; $tempfile = $FORM{'tempfile'}; $tempfile =~ s/\D//g; $starttime = time; $was_indexing_topic = 0; $sec_due_to_factor = int($GLOBAL_OPTIONS{'reindex_factor'} / 30); open (TEMPFILE, ">>$admin_dir/msg_index/$tempfile.TMP") || &log_error("src-board-subs-11", "rebuild_tree", "Could not open temporary file for writing: $tempfile.TMP [$!]"); while (time <= ($starttime + 2 + $sec_due_to_factor)) { $file = shift(@TEMPT); last if $file eq ""; $file =~ m|(\d+)/(\d+)\.$ext|; $page = $2; $topic = $1; $topic_number = $1; if ($was_indexing_topic != 0 && $topic != $was_indexing_topic) { unshift(@TEMPT, $file); last; } $was_indexing_topic = $topic; ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src) = &get_page($topic, $page); @head = split(/\n/, $head); @sublist = split(/\n/, $sublist); $flag___ = 0; if ($head eq "") { $code = &page_fixer($topic, $page); if ($code == 1) { ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src, $description_src) = &get_page($topic, $page); @head = split(/\n/, $head); @sublist = split(/\n/, $sublist); } else { &log_error("src-board-subs-11", "rebuild_tree", "Unrecoverable page corruption: $topic/$page"); $dirs = ""; $dirs = "$message_dir/$topic" if -e "$message_dir/$topic"; $dirs = "$secdir/$topic" if -e "$secdir/$topic"; $flag___ = 1; if ($dirs ne "") { open (DIR, "$dirs/$page.$ext"); @dirfile =/(\d+)\.gif)
|g) {
print ATTACH_MGR "$ctflag $1\n" if !$atseen{"$1"};
$atseen{"$1"} = 1;
}
}
}
}
@msg = split(/\n/, $message);
}
&set_page($topic, $page, $head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, "", $description_src, $template, $addfile, 1) if !$amonly;
}
close (ATTACH_MGR);
($status, $foo, $tempfile2) = &incremental($FORM{'tempfile2'}, 3, \@TEMP2, "");
if ($status == 1) {
if ($FORM{'counter'} > 0) {
$pct = ($FORM{'done'} / $FORM{'counter'});
} else {
$pct = 0;
}
&show_gauge($header, "$caption -- $FORM{'done'} of $FORM{'counter'} finished", $pct, "$actionurl&REPAIR_LOG=$FORM{'REPAIR_LOG'}&tempfile2=$tempfile2&counter=$FORM{'counter'}&done=$FORM{'done'}&tempfile=$tempfile&amonly=$amonly&cleaner=$clean");
}
unlink "$admin_dir/msg_index/$tempfile.TMP";
&seturl($doneurl);
}
}
#---SEPARATOR---#
sub rebuild_logs {
my ($header, $actionurl, $doneurl) = @_;
undef %LOGFLAG;
&seturl($doneurl) if !-e "$admin_dir/log.txt";
if (-e "$admin_dir/backups/old-log.txt") {
$size = -s "$admin_dir/log.txt";
&seturl($doneurl) if $size == 0;
}
open (BULOG, ">$admin_dir/backups/old-log.txt");
open (NEWLOG, ">$admin_dir/msg_index/new-log.txt") || &error_message("Could not create temporary log file", "The file $admin_dir/msg_index/new-log.txt could not be created. Check that permissions are 0777 (rwxrwxrwx) on the msg_index subdirectory.");
close (NEWLOG);
unlink ("$admin_dir/msg_index/new-log.txt");
undef %seen;
open (OLDLOG, "$admin_dir/log.txt");
while (([^<]+) \(([^>]+)\) |
 $5$9 \($10\) |