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-Feb-2003 09:34:27
Branch: HEAD Handle: 2003022008342600
Added files:
openpkg-web security.rdf.mk
Modified files:
openpkg-web .cvsignore Makefile
Log:
provide security advisories also in RDF/RSS format
Summary:
Revision Changes Path
1.3 +1 -0 openpkg-web/.cvsignore
1.14 +3 -0 openpkg-web/Makefile
1.1 +60 -0 openpkg-web/security.rdf.mk
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-web/.cvsignore
============================================================================
$ cvs diff -u -r1.2 -r1.3 .cvsignore
--- openpkg-web/.cvsignore 17 Oct 2001 12:25:45 -0000 1.2
+++ openpkg-web/.cvsignore 20 Feb 2003 08:34:26 -0000 1.3
@@ -3,3 +3,4 @@
dep
*.html
news.rdf
+security.rdf
@@ .
patch -p0 <<'@@ .'
Index: openpkg-web/Makefile
============================================================================
$ cvs diff -u -r1.13 -r1.14 Makefile
--- openpkg-web/Makefile 23 Jan 2003 10:37:13 -0000 1.13
+++ openpkg-web/Makefile 20 Feb 2003 08:34:26 -0000 1.14
@@ -15,6 +15,7 @@
bugdb.html \
support.html \
security.html \
+security.rdf \
petidomo.head.html \
petidomo.foot.html \
tutorial.html \
@@ -48,6 +49,8 @@
wmk -f support.wml
security.html: security.wml security.txt
wmk -f security.wml
+security.rdf: security.txt
+ ./security.rdf.mk
bugdb.html: bugdb.wml
wmk -f bugdb.wml
tutorial.html: tutorial.wml
@@ .
patch -p0 <<'@@ .'
Index: openpkg-web/security.rdf.mk
============================================================================
$ cvs diff -u -r0 -r1.1 security.rdf.mk
--- /dev/null 2003-02-20 09:34:27.000000000 +0100
+++ security.rdf.mk 2003-02-20 09:34:27.000000000 +0100
@@ -0,0 +1,60 @@
+#!/e/openpkg/sw/bin/perl
+##
+## security.rdf.mk -- Generate news.rdf in XML/RDF/RSS 1.0 format
+## See http://www.purl.org/rss/ for details about RSS 1.0.
+##
+
+my $txt = '';
+open(FP, "<security.txt");
+$txt .= $_ while (<FP>);
+$txt =~ s|^(([^\n]+\n){15}).*$|$1|s;
+close(FP);
+
+my $rdf = '';
+$rdf .= "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" .
+ "<rdf:RDF\n" .
+ " xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"\n"; .
+ " xmlns=\"http://purl.org/rss/1.0/\"\n"; .
+ ">\n";
+
+$rdf .= "<channel rdf:about=\"http://www.openpkg.org/security.rdf\";>\n" .
+ " <title>OpenPKG Security Advisories</title>\n" .
+ " <link>http://www.openpkg.org/</link>\n" .
+ " <description>OpenPKG Security Advisories</description>\n" .
+ "</channel>\n";
+
+my $refs = '';
+my $items = '';
+
+$txt =~ s|^(.+):\s+(.+)$|&do1($1, $2), ''|mge;
+sub do1 {
+ my ($date, $entry) = @_;
+ my ($link, $text);
+
+ $text = $entry;
+ $link = "http://www.openpkg.org/";;
+ if ($text =~ s|S<([^>]+)>|$1|s) {
+ $link = "http://www.openpkg.org/security/$1.html";;
+ }
+ $text =~ s|S<([^>]+)>|$1|sg;
+ $refs .= " <rdf:li resource=\"$link\" />\n";
+ $items .= "<item rdf:about=\"$link\">\n" .
+ " <title>$text</title>\n" .
+ " <link>$link</link>\n" .
+ "</item>\n";
+}
+
+$rdf .= "<items>\n" .
+ " <rdf:Seq>\n" .
+ $refs .
+ " </rdf:Seq>\n" .
+ "</items>\n";
+
+$rdf .= $items;
+
+$rdf .= "</rdf:RDF>\n";
+
+open(FP, ">security.rdf");
+print FP $rdf;
+close(FP);
+
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
