1 files changed, 42 insertions, 0 deletions
diff --git a/www/rawsecurity.wml b/www/rawsecurity.wml
new file mode 100644
index 0000000000..837c24be04
--- /dev/null
+++ b/www/rawsecurity.wml
@@ -0,0 +1,42 @@
+#use wml::std::tags
+
+<perl>
+sub read_advisories {
+
+my $directory = './security-entries';
+
+opendir (DIR, $directory) or die $!;
+
+print "<table class=\"news\" width=\"90%\">\n";
+print "<tr><th>Tag</th><th>Other identifiers</th><th>Description</th><th>Information</th>\n";
+
+my %advisories = ();
+
+while (my $file = readdir(DIR)) {
+	next if ($file =~ m/^\./);
+	next if ($file =~ m/~/);
+	next if (-d "$directory/$file");
+	#$file =~ m/(.*).xml$/;
+
+	my $contents = `cat $directory/$file`;
+	$advisories{$file} = $contents;
+
+}
+closedir DIR;
+
+my $key;
+foreach $key (sort {$b cmp $a} keys %advisories) {
+	print "<tr>\n<td><div class=\"emph-box\" id=\"$key\">$key</div></td>\n$advisories{$key}\n</tr>\n";
+}
+
+print "</table>\n";
+return;
+}
+
+</perl>
+
+<center>
+
+  <:= &read_advisories() :>
+
+</table>