Turn ansi escape sequences into html tags

tats · Sep 25, 2022 · 28b843b · 28b843b
1 parent c515ea8
commit 28b843b
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/scripts/w3mman/w3mman2html.cgi.in b/scripts/w3mman/w3mman2html.cgi.in
@@ -162,6 +162,15 @@ EOF
     next;
   }
 
+  my $printchar='[\w^ÁÉÍÓÚáéíóú /\'.:;,&()\\"~=%*\[\]\$\?|!#\`\@\{\}\<\>+_-]';
+  s@\[1m($printchar+)\[0m@<b>$1</b>@g;
+  s@\[4m($printchar+)\[24m@<u>$1</u>@g;
+  s@\[1m($printchar+)\[0m@<b>$1</b>@g;
+  s@\[1m($printchar+)\[22m@<b>$1</b>@g;
+  s@\[1m($printchar+)\[4m@<b>$1</b>@g;
+  s@\[22m($printchar+)\[0m@<u>$1</u>@g;
+  s@\[22m($printchar+)\[24m@<u>$1</u>@g;
+  s@\[4m($printchar+)\[0m@<u>$1</u>@g;
   s@(http|ftp)://[\w.\-/~]+[\w/]@<a href="$&">$&</a>@g;
   s@\b(mailto:|)(\w[\w.\-]*\@\w[\w.\-]*\.[\w.\-]*\w)@<a href="mailto:$2">$1$2</a>@g;
   s@(\W)(\~?/[\w.][\w.\-/~]*)@$1 . &file_ref($2)@ge;