[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