OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 19-Feb-2006 13:10:00
Branch: HEAD Handle: 2006021912095900
Modified files:
openpkg-web/security page.pl
Log:
support HTTPS URLs
Summary:
Revision Changes Path
1.42 +3 -3 openpkg-web/security/page.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
============================================================================
$ cvs diff -u -r1.41 -r1.42 page.pl
--- openpkg-web/security/page.pl 24 Feb 2005 10:58:27 -0000 1.41
+++ openpkg-web/security/page.pl 19 Feb 2006 12:09:59 -0000 1.42
@@ -31,15 +31,15 @@
my $L = {};
my $x = $txt;
- $x =~ s%^\s*\[(\d+)\]\s+((?:http|ftp|hkp)://\S+)%$L->{$1} = $2, ''%mge;
+ $x =~ s%^\s*\[(\d+)\]\s+((?:https?|ftp|hkp)://\S+)%$L->{$1} = $2, ''%mge;
$txt =~ s/&/&/sg;
$txt =~ s/</</sg;
$txt =~ s/>/>/sg;
- $txt =~ s/((?:http|ftp|hkp):\/\/[^\s]+[^\s\.\)\&])/<a
href="$1">$1<\/a>/sg;
+ $txt =~ s/((?:https?|ftp|hkp):\/\/[^\s]+[^\s\.\)\&])/<a
href="$1">$1<\/a>/sg;
$txt =~ s/([\s;]+)([EMAIL PROTECTED])\&]+?)([\s&]+)/$1<a
href="mailto:$2";>$2<\/a>$3/sg;
$txt =~ s/(OpenPKG Security Advisory)/<b>$1<\/b>/sg;
$txt =~ s/^((\s*[A-Z][a-zA-Z]+)+:)/<b>$1<\/b>/mg;
- $txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp|hkp):\/\/)/"<a href=\"".($L->{$2}
|| print STDERR "WARNING: reference [$2] not defined\n")."\">".$1."<\/a>"/sge;
+ $txt =~ s/(\[(\d+)\])(?!\s+(?:https?|ftp|hkp):\/\/)/"<a
href=\"".($L->{$2} || print STDERR "WARNING: reference [$2] not
defined\n")."\">".$1."<\/a>"/sge;
my $head = '';
$io = new IO::File "<page.head.html" || die;
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
