print misctemplate(gettext("Error"),
"<p>".gettext("Error").": $message</p>");
}
- log_message(debug => $message) if $config{syslog};
+ log_message('err' => $message) if $config{syslog};
if (defined $cleaner) {
$cleaner->();
}
}
eval {
Sys::Syslog::syslog($type, "%s", join(" ", @_));
- }
+ };
}
elsif (! $config{cgi}) {
print "@_\n";
$content =~ s{(\\?)$config{wiki_link_regexp}}{
defined $2
- ? ( $1 ? "[[$2|$3]]" : htmllink($lpage, $page, linkpage($3), anchor => $4, linktext => pagetitle($2)))
- : ( $1 ? "[[$3]]" : htmllink($lpage, $page, linkpage($3), anchor => $4))
+ ? ( $1
+ ? "[[$2|$3".($4 ? "#$4" : "")."]]"
+ : htmllink($lpage, $page, linkpage($3),
+ anchor => $4, linktext => pagetitle($2)))
+ : ( $1
+ ? "[[$3".($4 ? "#$4" : "")."]]"
+ : htmllink($lpage, $page, linkpage($3),
+ anchor => $4))
}eg;
return $content;