OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 30-Mar-2003 14:10:39
Branch: HEAD Handle: 2003033013103900
Modified files:
openpkg-web/security page.pl
Log:
support hkp URLs
Summary:
Revision Changes Path
1.13 +3 -3 openpkg-web/security/page.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
============================================================================
$ cvs diff -u -r1.12 -r1.13 page.pl
--- openpkg-web/security/page.pl 30 Mar 2003 11:34:22 -0000 1.12
+++ openpkg-web/security/page.pl 30 Mar 2003 12:10:39 -0000 1.13
@@ -32,15 +32,15 @@
my $L = {};
my $x = $txt;
- $x =~ s%^\s*\[(\d+)\]\s+((?:http|ftp)://\S+)%$L->{$1} = $2, ''%mge;
+ $x =~ s%^\s*\[(\d+)\]\s+((?:http|ftp|hkp)://\S+)%$L->{$1} = $2, ''%mge;
$txt =~ s/&/&/sg;
$txt =~ s/</</sg;
$txt =~ s/>/>/sg;
- $txt =~ s/((?:http|ftp):\/\/[^\s]+[^\s\.\)\&])/<a href="$1">$1<\/a>/sg;
+ $txt =~ s/((?:http|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):\/\/)/"<a
href=\"".$L->{$2}."\">".$1."<\/a>"/sge;
+ $txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp|hkp):\/\/)/"<a
href=\"".$L->{$2}."\">".$1."<\/a>"/sge;
my $head = '';
$io = new IO::File "<page.head.html" || die;
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
