# Show migrate warning for backward compatibility
if ($versionnum < 5000 && ! $MigrateStats && ! $BadFormatWarning{$year.$month}) {
$BadFormatWarning{$year.$month}=1;
- my $message="Warning: Data file '$filetoread' has an old history file format (version $versionnum).\nYou should upgrade it from the command line: $PROG.$Extension -migrate=\"$filetoread\"";
- if ($ENV{"GATEWAY_INTERFACE"} && $AllowToUpdateStatsFromBrowser) { $message.="\nor from your browser launch URL: http://".$ENV{"SERVER_NAME"}.$ENV{"SCRIPT_NAME"}."?migrate=$filetoread"; }
+ my $message="Warning: Data file '$filetoread' has an old history file format (version $versionnum). You should upgrade it...\nFrom command line: $PROG.$Extension -migrate=\"$filetoread\"";
+ if ($ENV{"GATEWAY_INTERFACE"} && $AllowToUpdateStatsFromBrowser) { $message.="\nFrom your browser with URL: <a href=\"http://".$ENV{"SERVER_NAME"}.$ENV{"SCRIPT_NAME"}."?migrate=$filetoread\">http://".$ENV{"SERVER_NAME"}.$ENV{"SCRIPT_NAME"}."?migrate=$filetoread</a>"; }
warning("$message");
}
if (! ($versionnum < 5000) && $MigrateStats && ! $BadFormatWarning{$year.$month}) {