os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

The protocol part of an url is case insensitive.

Browse source 
Link FTP URLs too, not only HTTP.
The characters "\)\>,; are not part of an URL.
This commit is contained in:
Wolfram Schneider 1998-06-05 17:06:20 +00:00
parent 5b84f8e2b9
commit a537fa0672
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2895
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
en/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.9 1998-06-05 16:58:07 wosch Exp $
# $Id: query-pr.cgi,v 1.10 1998-06-05 17:06:20 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -175,7 +175,7 @@ sub fixline {
$line =~ s/&/&/g;
$line =~ s/</&lt;/g;
$line =~ s/>/&gt;/g;
$line =~ s|(http://\S+)|<A HREF="$1">$1</A>|g;
$line =~ s%((http|ftp)://[^\s"\)\>,;]+)%<A HREF="$1">$1</A>%gi;
$line =~ s%(\WPR[:s# \t]+)([a-z386]+\/)?([0-9]+)%$1<A HREF="query-pr.cgi?pr=$3">$2$3</A>%ig;
$line;