#!/usr/bin/perl -T

use Text::BibTeX;
use CGI qw(:standard);

$bibfile = new Text::BibTeX::File "./rts-full.bib";

$searchkey = param("key");

$searchkey =~ s/ /\+/;

open(STDERR, ">/dev/null");

while ($entry = new Text::BibTeX::Entry $bibfile) {
	next unless $entry->parse_ok;

	my $key = $entry->key;
	$key = 0 if !$key;

	if ($key eq $searchkey) {
		print "Content-Type: text/plain\n\n";
		$entry->print();
	}
}