From b9ad76673b43feba10f4d968948c8e44588f8334 Mon Sep 17 00:00:00 2001
From: Shinichiro Hamaji <shinichiro.hamaji@gmail.com>
Date: Sat, 3 Jul 2010 16:06:42 +0900
Subject: [PATCH] allow colons as a man keyword character

---
 scripts/w3mman/w3mman2html.cgi.in | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 scripts/w3mman/w3mman2html.cgi.in

diff --git a/scripts/w3mman/w3mman2html.cgi.in b/scripts/w3mman/w3mman2html.cgi.in
old mode 100644
new mode 100755
index 3cb105d..0ffaf50
--- a/scripts/w3mman/w3mman2html.cgi.in
+++ b/scripts/w3mman/w3mman2html.cgi.in
@@ -32,7 +32,7 @@ Content-Type: text/html
 <h2>man -k <b>$k</b></h2>
 <ul>
 EOF
-    $keyword =~ s:([^-\w\200-\377.,])::g;
+    $keyword =~ s:([^-\w\200-\377.,\:])::g;
     open(F, "$MAN -k $keyword 2> /dev/null |");
     @line = ();
     while(<F>) {
@@ -40,7 +40,7 @@ EOF
       $_ = &html_quote($_);
       s/(\s+-.*)$//;
       $title = $1;
-      s@(\w[\w.\-]*(\s*\,\s*\w[\w.\-]*)*)\s*(\([\dn]\w*\))@&keyword_ref($1, $3)@ge;
+      s@(\w[\w.:\-]*(\s*\,\s*\w[\w.:\-]*)*)\s*(\([\dn]\w*\))@&keyword_ref($1, $3)@ge;
       print "<li>$_$title\n";
     }
     close(F);
@@ -90,8 +90,8 @@ if ($query{"local"}) {
     $man_section = "$man";
   }
 
-  $section =~ s:([^-\w\200-\377.,])::g;
-  $man =~ s:([^-\w\200-\377.,])::g;
+  $section =~ s:([^-\w\200-\377.,\:])::g;
+  $man =~ s:([^-\w\200-\377.,\:])::g;
   open(F, "$MAN $section $man 2> /dev/null |");
 }
 $ok = 0;
@@ -161,7 +161,7 @@ EOF
   s@(include(<\/?[bu]\>|\s)*\&lt;)([\w.\-/]+)@$1 . &include_ref($3)@ge;
   if ($prev && m@^\s*(\<[bu]\>)*(\w[\w.\-]*)(\</[bu]\>)*(\([\dm]\w*\))@) {
     $cmd .= "$2$4";
-    $prev =~ s@(\w[\w.\-]*-)((\</[bu]\>)*\s*)$@<a href="$CGI?$cmd">$1</a>$2@;
+    $prev =~ s@(\w[\w.:\-]*-)((\</[bu]\>)*\s*)$@<a href="$CGI?$cmd">$1</a>$2@;
     print $prev;
     $prev = '';
     s@^(\s*(\<[bu]\>)*)(\w[\w.\-]*)@@;