--- trunk/data/convert.pl	2005/05/26 00:16:48	16
+++ trunk/data/convert.pl	2005/05/26 13:57:32	17
@@ -9,7 +9,7 @@
 
 
 my $header = 1;
-my $title = '';
+my ($title, $year) = ('',undef);
 my $in = 0;
 my $trivia = '';
 my @qv;
@@ -29,7 +29,7 @@
 my $i = 0;
 
 while(<$t>) {
-	if (/^=====+/) {
+	if ($header && /^=====+/) {
 		$header = 0;
 		next;
 	}
@@ -37,8 +37,15 @@
 
 	if (/^#\s+(.*)\s*$/) {
 		$title = $1;
-		print "# title=$title\n";
+		if ($title =~ m#\s*\((\d+)\)\s*$#) {
+			$year = $1;
+		} else {
+			$year = undef;
+		}
+
+		print "# $title ", ( $year ? "[$year]" : "" ), "\n";
 		next;
+
 	} elsif (/^-\s(.*)\s*$/) {
 		$in = 1;
 		$trivia = "$1\n";
@@ -49,13 +56,16 @@
 	} elsif (/^$/ && $in) {
 		$i++;
 		print "$i ";
+		my $out = '@title=' . $title . "\n" .
+			'@size=' . length($trivia) . "\n";
+		$out .= "year=$year\n" if ($year);
+		$out .=	'quote=' . join(",", @qv) . "\n" if (@qv);
+		$out .=	"\n$trivia\n" .
+			("\t$title\n" x $title_rank) .
+			"\t" . join("\n\t", @qv) . "\n";
+
 		open(my $t, "> trivia/$i.est") || die "can't open $i.est: $!";
-		print $t '@title=', $title, "\n",
-			'@size=', length($trivia), "\n";
-		print $t 'qv='.join(",", @qv),"\n" if (@qv);
-		print $t "\n$trivia\n",
-			("\t$title\n" x $title_rank),
-			"\t", join("\n\t", @qv), "\n";
+		print $t $out;
 		close($t);
 		$trivia = '';
 		@qv = ();