Fix header() parsing
authorJamie Cameron <jcameron@webmin.com>
Fri, 5 Jun 2009 20:31:09 +0000 (20:31 +0000)
committerJamie Cameron <jcameron@webmin.com>
Fri, 5 Jun 2009 20:31:09 +0000 (20:31 +0000)
webmin_search.cgi

index 43c50fe..177c3b0 100644 (file)
@@ -317,7 +317,14 @@ sub cgi_page_title
 local ($m, $cgi) = @_;
 local $data = &read_file_contents(&module_root_directory($m)."/".$cgi);
 local $rv;
-if ($data =~ /(header|ui_print_header|ui_print_unbuffered_header)\([^,]+,[^,]*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
+if ($data =~ /(ui_print_header|ui_print_unbuffered_header)\([^,]+,[^,]*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
+       # New header function, with arg before title
+       local $msg = $3 || $4 || $5 || $6;
+       local %mtext = &load_language($m);
+       $rv = $mtext{$msg};
+       }
+elsif ($data =~ /(^|\s)header\(\s*(\$text{'([^']+)'|\$text{"([^"]+)"|\&text\('([^']+)'|\&text\("([^"]+)")/) {
+       # Old header function
        local $msg = $3 || $4 || $5 || $6;
        local %mtext = &load_language($m);
        $rv = $mtext{$msg};