[CVS] OpenPKG: openpkg-web/security/ page.pl
OpenPKG CVS Repository
http://cvs.openpkg.org/
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 05-Apr-2004 15:37:30
Branch: HEAD Handle: 2004040514373000
Modified files:
openpkg-web/securitypage.pl
Log:
avoid files being incorrectly identified as signed; put note on
invalid signatures
Summary:
RevisionChanges Path
1.37+19 -3 openpkg-web/security/page.pl
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.36 -r1.37 page.pl
--- openpkg-web/security/page.pl 8 Jan 2004 15:29:40 - 1.36
+++ openpkg-web/security/page.pl 5 Apr 2004 13:37:30 - 1.37
@@ -23,7 +23,7 @@
foreach my $sa (@SA) {
$sa =~ s|\.txt$||s;
-print "$sa\n";
+print "$sa";
my $io = new IO::File "<$sa.txt" or die;
my $txt = '';
$txt .= $_ while (<$io>);
@@ -55,8 +55,24 @@
$head =~ s|[EMAIL PROTECTED]@|$sidebar|s;
my $hint = '';
-if ($txt !~ m|^-BEGIN PGP SIGNED MESSAGE-|) {
-$hint = "*** DRAFT
***\n";
+if ( system("gpg --verify $sa.txt >/dev/null 2>&1") != 0 ) {
+if ($txt !~ m|^-BEGIN PGP SIGNED MESSAGE-|) {
+$hint .= "\n";
+$hint .= "*** DRAFT
***\n";
+$hint .= "Please review. History of this document can be found in
http://cvs.openpkg.org/rlog?f=openpkg-web/security/$sa.txt\";>CVS\n";
+$hint .= "\n";
+print " DRAFT\n";
+}
+else {
+$hint .= "\n";
+$hint .= "*** INVALID SIGNATURE
***\n";
+$hint .= "Please review! History of this document can be found in
http://cvs.openpkg.org/rlog?f=openpkg-web/security/$sa.txt\";>CVS\n";
+$hint .= "\n";
+print " INVALID SIGNATURE\n";
+}
+}
+else {
+print " ok\n";
}
my $out = $head .
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
[CVS] OpenPKG: openpkg-web/security/ page.pl
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: 08-Jan-2004 16:29:40
Branch: HEAD Handle: 2004010815294000
Modified files:
openpkg-web/securitypage.pl
Log:
always render all available SAs, but tag unreleased/unsigned ones with
DRAFT header
Summary:
RevisionChanges Path
1.36+7 -2 openpkg-web/security/page.pl
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.35 -r1.36 page.pl
--- openpkg-web/security/page.pl 17 Dec 2003 11:58:48 - 1.35
+++ openpkg-web/security/page.pl 8 Jan 2004 15:29:40 - 1.36
@@ -8,12 +8,11 @@
my @SA = glob("OpenPKG-SA-*.txt");
-my $this_year = "2003";
+my $this_year = "2004";
my $sidebar = 'Security Advisories:';
foreach my $sa (reverse sort @SA) {
my ($base, $name, $year) = ($sa =~ m|^(OpenPKG-SA-((\d+)\..+))\.txt$|);
next if ($name =~ m|^|);
-next if ($name =~ m|^2003\.05[4-9]|);
if ($this_year ne $year) {
$sidebar .= "\n";
$this_year = $year;
@@ -55,7 +54,13 @@
$head =~ s|[EMAIL PROTECTED]@|$sa|sg;
$head =~ s|[EMAIL PROTECTED]@|$sidebar|s;
+my $hint = '';
+if ($txt !~ m|^-BEGIN PGP SIGNED MESSAGE-|) {
+$hint = "*** DRAFT
***\n";
+}
+
my $out = $head .
+ $hint .
"\n" . $txt . "\n" .
$foot;
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
[CVS] OpenPKG: openpkg-web/security/ page.pl
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/securitypage.pl
Log:
support hkp URLs
Summary:
RevisionChanges 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 - 1.12
+++ openpkg-web/security/page.pl 30 Mar 2003 12:10:39 - 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/((?:http|ftp):\/\/[^\s]+[^\s\.\)\&])/$1<\/a>/sg;
+$txt =~ s/((?:http|ftp|hkp):\/\/[^\s]+[^\s\.\)\&])/$1<\/a>/sg;
$txt =~ s/([\s;]+)([EMAIL PROTECTED])\&]+?)([\s&]+)/$1mailto:$2";>$2<\/a>$3/sg;
$txt =~ s/(OpenPKG Security Advisory)/$1<\/b>/sg;
$txt =~ s/^((\s*[A-Z][a-zA-Z]+)+:)/$1<\/b>/mg;
-$txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp):\/\/)/"{$2}."\">".$1."<\/a>"/sge;
+$txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp|hkp):\/\/)/"{$2}."\">".$1."<\/a>"/sge;
my $head = '';
$io = new IO::File "
[CVS] OpenPKG: openpkg-web/security/ page.pl
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 13:34:23
Branch: HEAD Handle: 2003033012342200
Modified files:
openpkg-web/securitypage.pl
Log:
activate sendmail SA
Summary:
RevisionChanges Path
1.12+1 -1 openpkg-web/security/page.pl
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.11 -r1.12 page.pl
--- openpkg-web/security/page.pl 20 Mar 2003 20:23:28 - 1.11
+++ openpkg-web/security/page.pl 30 Mar 2003 11:34:22 - 1.12
@@ -13,7 +13,7 @@
foreach my $sa (reverse sort @SA) {
my ($base, $name, $year) = ($sa =~ m|^(OpenPKG-SA-((\d+)\..+))\.txt$|);
next if ($name =~ m|^|);
-next if ($name =~ m|^2003\.02[7-9]|);
+next if ($name =~ m|^2003\.02[8-9]|);
if ($this_year ne $year) {
$sidebar .= "\n";
$this_year = $year;
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
[CVS] OpenPKG: openpkg-web/security/ page.pl
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: 20-Mar-2003 21:23:28
Branch: HEAD Handle: 2003032020232800
Modified files:
openpkg-web/securitypage.pl
Log:
break at year boundary
Summary:
RevisionChanges Path
1.11+6 -1 openpkg-web/security/page.pl
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.10 -r1.11 page.pl
--- openpkg-web/security/page.pl 20 Mar 2003 20:17:53 - 1.10
+++ openpkg-web/security/page.pl 20 Mar 2003 20:23:28 - 1.11
@@ -8,11 +8,16 @@
my @SA = glob("OpenPKG-SA-*.txt");
+my $this_year = "2003";
my $sidebar = 'Security Advisories:';
foreach my $sa (reverse sort @SA) {
-my ($base, $name) = ($sa =~ m|^(OpenPKG-SA-(.+))\.txt$|);
+my ($base, $name, $year) = ($sa =~ m|^(OpenPKG-SA-((\d+)\..+))\.txt$|);
next if ($name =~ m|^|);
next if ($name =~ m|^2003\.02[7-9]|);
+if ($this_year ne $year) {
+$sidebar .= "\n";
+$this_year = $year;
+}
$sidebar .= "$name";
}
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
[CVS] OpenPKG: openpkg-web/security/ page.pl
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: 18-Mar-2003 11:18:05
Branch: HEAD Handle: 2003031810180400
Modified files:
openpkg-web/securitypage.pl
Log:
still do not link in unfinished SAs
Summary:
RevisionChanges Path
1.4 +1 -0 openpkg-web/security/page.pl
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.3 -r1.4 page.pl
--- openpkg-web/security/page.pl 18 Feb 2003 15:57:01 - 1.3
+++ openpkg-web/security/page.pl 18 Mar 2003 10:18:04 - 1.4
@@ -12,6 +12,7 @@
foreach my $sa (reverse sort @SA) {
my ($base, $name) = ($sa =~ m|^(OpenPKG-SA-(.+))\.txt$|);
next if ($name =~ m|^|);
+next if ($name =~ m|^2003\.02[0-3]|);
$sidebar .= "$name";
}
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
[CVS] OpenPKG: openpkg-web/security/ page.pl
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: 18-Feb-2003 16:57:02
Branch: HEAD Handle: 2003021815570100
Modified files:
openpkg-web/securitypage.pl
Log:
fix URL
Summary:
RevisionChanges Path
1.3 +1 -1 openpkg-web/security/page.pl
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.2 -r1.3 page.pl
--- openpkg-web/security/page.pl 23 Jan 2003 14:29:33 - 1.2
+++ openpkg-web/security/page.pl 18 Feb 2003 15:57:01 - 1.3
@@ -31,7 +31,7 @@
$txt =~ s//>/sg;
$txt =~ s/((?:http|ftp):\/\/[^\s]+[^\s\.\)\&])/$1<\/a>/sg;
-$txt =~ s/([a-zA-Z0-9_.-]+\@[^\s\)\&]+)/mailto:$1";>$1<\/a>/sg;
+$txt =~ s/([\s;]+)([a-zA-Z0-9_.-]+\@[^\s\)\&]+?)([\s&]+)/$1mailto:$2";>$2<\/a>$3/sg;
$txt =~ s/(OpenPKG Security Advisory)/$1<\/b>/sg;
$txt =~ s/^((\s*[A-Z][a-zA-Z]+)+:)/$1<\/b>/mg;
$txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp):\/\/)/"{$2}."\">".$1."<\/a>"/sge;
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
[CVS] OpenPKG: openpkg-web/security/ page.pl page.wml
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: 23-Jan-2003 15:29:34
Branch: HEAD Handle: 2003012314293300
Modified files:
openpkg-web/securitypage.pl page.wml
Log:
flush pending changes
Summary:
RevisionChanges Path
1.2 +3 -2 openpkg-web/security/page.pl
1.2 +1 -1 openpkg-web/security/page.wml
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.pl
$ cvs diff -u -r1.1 -r1.2 page.pl
--- openpkg-web/security/page.pl 23 Jan 2003 11:32:43 - 1.1
+++ openpkg-web/security/page.pl 23 Jan 2003 14:29:33 - 1.2
@@ -11,7 +11,7 @@
my $sidebar = 'Security Advisories:';
foreach my $sa (reverse sort @SA) {
my ($base, $name) = ($sa =~ m|^(OpenPKG-SA-(.+))\.txt$|);
-next if ($name =~ m|^SA-|);
+next if ($name =~ m|^|);
$sidebar .= "$name";
}
@@ -45,7 +45,8 @@
$foot .= $_ while (<$io>);
$io->close;
-$head =~ s|\@ID\@|$sa|sg;
+$head =~ s|\@TXT\@|$sa.txt|sg;
+$head =~ s|\@ID\@|$sa|sg;
$head =~ s|\@SIDEBAR\@|$sidebar|s;
my $out = $head .
@@ .
patch -p0 <<'@@ .'
Index: openpkg-web/security/page.wml
$ cvs diff -u -r1.1 -r1.2 page.wml
--- openpkg-web/security/page.wml 23 Jan 2003 11:32:43 - 1.1
+++ openpkg-web/security/page.wml 23 Jan 2003 14:29:33 - 1.2
@@ -7,7 +7,7 @@
<< back
OpenPKG Security Advisory
-[@ID@]
+[@ID@]
@SIDEBAR@
@@ .
__
The OpenPKG Projectwww.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
