my ($smajor,$sminor) = split(/\./,$cli_ver);
if ($minmajor > $smajor || ($minmajor == $smajor && $minminor > $sminor))
{
print "Status: 461 web script version too low\nContent-Type: text/plain\n\n";
print
"Web Script version is below minimum required\n",
my ($smajor,$sminor) = split(/\./,$cli_ver);
if ($minmajor > $smajor || ($minmajor == $smajor && $minminor > $sminor))
{
print "Status: 461 web script version too low\nContent-Type: text/plain\n\n";
print
"Web Script version is below minimum required\n",
- "Reported version: $client_conf->{web_script_version},",
- "Minumum version required: $min_web_script_version\n";
+ "Reported version: $client_conf->{web_script_version}, ",
+ "Minumum version required: $min_web_script_version\n"
+ ;