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

Turn ansi escape sequences into html tags

Browse Source
This commit is contained in:
Alberto Fanjul
2022-06-06 07:32:45 +02:00
parent c515ea8a47
commit 44af9271e0
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;