[set name=its send=1 int]
[embed]
undef $::Scratch->{reconfigured};
return join "\n", 1 .. ($Global::HouseKeeping + 5);
[/embed]
[/set]
Reconfiguring catalog, please wait..
[loop arg="[scratch its]"]
[label name=junk send=1]
[embed]
my $now = time();
my $mod = ( stat("$Global::ConfDir/status." . $::Values->{RECONFIGURE_CAT}))[9];
if( ($now - $mod) < $Global::HouseKeeping ) {
$::Scratch->{possible_timeout} = 0;
$::Scratch->{reconfigured} = 1;
return '[goto check]';
}
else {
sleep 1;
$::Scratch->{possible_timeout} = 1;
return 'Reconfiguring catalog, please wait...
';
}
[/embed]
[/loop]
[label check]
[if scratch possible_timeout]
WARNING: Reconfiguration may have timed out.
[embed]
return $Global::ConfDir . '/status.' . $::Values->{RECONFIGURE_CAT};
[/embed]
Last config:
[file name="[embed]
return $Global::ConfDir . '/status.' . $::Values->{RECONFIGURE_CAT};
[/embed]"]
[else]
Reconfigured: [file name="[embed]
return $Global::ConfDir . '/status.' . $::Values->{RECONFIGURE_CAT};
[/embed]"]
[/else]
[/if]
[set possible_timeout][/set]
Return to menu