#!/usr/bin/perl

use SVN::Client;
use File::Temp qw/tempfile/;
$svnhandle = new SVN::Client();
open($filehandle, ">>DSAlist.txt." . $$);
$svnhandle->cat(\*$filehandle, "svn://svn.debian.org/svn/secure-testing/data/DSA/list", "HEAD");
close($filehandle);
open($filehandle, "<DSAlist.txt." . $$);
while (<$filehandle>) {
	DSA: {
		if ($_ =~ /\[(.*)\] (DSA-[0-9-]+) (.*)/) {
			print "date = " . $1 . "\n";
			print "DSA = " . $2 . "\n";
			print "bug = " . $3 . "\n";
			while (<$filehandle>) {
				if ($_ =~ /(\[.*\]) (DSA-[0-9-]+) (.*)/) {
					goto DSA;
				}
				if ($_ =~ /\{(.*)\}/) {
					print "references = " . $1 . "\n";
				}
				if ($_ =~ /\[(.*)\] - (.*)/) {
					print "release = " . $1 . "\n";
					print "fixed = " . $2 . "\n";
				}
			}
		}
	}
}
close($filehandle);
unlink("DSAlist.txt." . $$);