[prev in list] [next in list] [prev in thread] [next in thread] 

List:       openpkg-cvs
Subject:    [CVS] OpenPKG: openpkg-web/security/ page.pl
From:       "Ralf S. Engelschall" <rse () openpkg ! org>
Date:       2003-03-30 12:10:39
[Download RAW message or body]

  OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /e/openpkg/cvs                   Email:  rse@openpkg.org
  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/&/&amp;/sg;
       $txt =~ s/</&lt;/sg;
       $txt =~ s/>/&gt;/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;]+)([a-zA-Z0-9_.-]+\@[^\s\)\&]+?)([\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                     openpkg-cvs@openpkg.org
[prev in list] [next in list] [prev in thread] [next in thread]