# Other global variables: ... - $ConfigError $UploadPattern $StartTime} + $ConfigError $UploadPattern $StartTime} sub DoWikiRequest { ... # $ConfigError = T('Unknown Error (no error text)'); } } } + if ($CheckTime) { + eval "use Time::HiRes qw( usleep ualarm gettimeofday tv_interval )"; + if ($@) { + $CheckTime = 0; + } else { + $StartTime = [gettimeofday()]; + } + }You can choose GetMinimumFooter for location (preferably in accordance with WikiPatches/CommonMinimumFooter as follow)
sub GetMinimumFooter { my ($html); if ($FooterNote ne '') { $html .= T($FooterNote); } + if ($CheckTime) { + $html .= '<br>' . sprintf("%.6f",&tv_interval($StartTime)) . ' '. 's'; + } $html .= $q->end_html; return $html; }In config file:
In Configuration:
$CheckTime = 0; # 1 = mesure the page-processing time (requires Time::HiRes module), 0 = do not