Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-07 05:15:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

from Dawn Endico <dawn@cannibal.mi.org>:

Browse Source 
export $Path variable. Local.pm needs it as a global variable.

htmlify file names and email addresses
This commit is contained in:
jwz%netscape.com 1998-07-28 19:17:30 +00:00
parent 76541b4016
commit cf371de941
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
webtools/lxr/lib/LXR/Common.pm
View File

@ -1,12 +1,14 @@
# $Id: Common.pm,v 1.10 1998/06/23 01:01:39 jwz Exp $
# $Id: Common.pm,v 1.11 1998/07/28 19:17:30 jwz%netscape.com Exp $
package LXR::Common;
use DB_File;
use lib '../..';
use Local;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&warning &fatal &abortall &fflush &urlargs
@EXPORT = qw($Path &warning &fatal &abortall &fflush &urlargs
&fileref &idref &htmlquote &freetextmarkup &markupfile
&markspecials &htmlquote &freetextmarkup &markupstring
&init &makeheader &makefooter &expandtemplate);
@ -179,12 +181,16 @@ sub markupstring {
$string=~ s/\0>/&gt;/g;
# HTMLify email addresses and urls.
$string=~ s#((ftp|http)://\S*[^\s.])#<a href=\"$1\">$1</a>#g;
$string=~ s/(&lt;(.*@.*)&gt;)/<a href=\"mailto:$2\">$1<\/a>/g;
$string =~ s#((ftp|http|nntp|snews|news)://(\w|\w\.\w|\-|\/|\#)+(?!\.\b))#<a href=\"$1\">$1</a>#g;
# htmlify certain addresses which aren't surrounded by <>
$string =~ s/([\w\-\_]*\@netscape.com)(?!&gt;)/<a href=\"mailto:$1\">$1<\/a>/g;
$string =~ s/([\w\-\_]*\@mozilla.org)(?!&gt;)/<a href=\"mailto:$1\">$1<\/a>/g;
$string =~ s/([\w\-\_]*\@gnome.org)(?!&gt;)/<a href=\"mailto:$1\">$1<\/a>/g;
$string =~ s/([\w\-\_]*\@linux.no)(?!&gt;)/<a href=\"mailto:$1\">$1<\/a>/g;
$string =~ s/(&lt;)(.*@.*)(&gt;)/$1<a href=\"mailto:$2\">$2<\/a>$3/g;
# HTMLify file names (assume file is in the current directory).
$string =~ s#([\w-_\/]+\.(c|h|cc|cp|cpp))#
<a href=\"$Conf->{virtroot}/source$virtp$1\">$1</a>#g;
# HTMLify file names, assuming file is in the current directory.
$string =~ s#\b(([\w-_\/]+\.(c|h|cc|cp|cpp))|README)\b#<a href=\"$Conf->{virtroot}/source$virtp$1\">$1</a>#g;
return($string);
}
@ -781,5 +787,4 @@ sub makefooter {
"</html>\n");
}
1;