storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #238 from albfan/w3mman

Browse Source 
Turn ansi escape sequences into html tags
This commit is contained in:
Tatsuya Kinoshita
2023-01-05 20:01:30 +09:00
committed by GitHub
parent 7c233b6590 44af9271e0
commit c56a66a93d
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/w3mman/w3mman2html.cgi.in
View File

@@ -162,6 +162,16 @@ EOF
next; next;
} }
my $printchar='[^]';
s@\[34m\[1m($printchar+)\[0m@<u><b>$1</b></u>@g;
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@(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@\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; s@(\W)(\~?/[\w.][\w.\-/~]*)@$1 . &file_ref($2)@ge;