#!/usr/bin/perl

# CGI script to produce bibligraphy in 
# Endnote format.
#
# copyright (c) Hans-Michael Muller, Pasadena, California, 2002-2004
#


use strict;
use CGI;


### globals
#

my $query = new CGI;
my $databaseroot = "/var/www/html/text/tdb/";

#
### end globals;

PrintHeader($query);

### start processing
#

if ($query->param("mode") eq "sen") {
    my $key = $query->param("id");
    open (IN, "$databaseroot/end/$key");
    while (my $line = <IN>) {
	print $line;
    }
    close (IN);
} elsif ($query->param("mode") eq "sea") {
    my $key = $query->param("id");
    open (IN, "$databaseroot/eab/$key");
    while (my $line = <IN>) {
	print $line;
    }
    close (IN);
} elsif ($query->param("mode") eq "aen") {
    my $selectid = $query->param("id");
    my $filename = $databaseroot . "tmp/file" . $selectid;
    open (IN, "$filename");
    my $junk = <IN>;
    $junk = <IN>;
    while (my $line = <IN>) {
	chomp ($line);
	my @aux = split (/\,/, $line);
	my $filename2 = $databaseroot . "/end/$aux[1]";
	open (IN2, "$filename2");
	while (my $line = <IN2>) {
	    print $line;
	}
	close (IN2);
    }
    close (IN);
} elsif ($query->param("mode") eq "aea") {
    my $selectid = $query->param("id");
    my $filename = $databaseroot . "tmp/file" . $selectid;
    open (IN, "$filename");
    my $junk = <IN>;
    $junk = <IN>;
    while (my $line = <IN>) {
	chomp ($line);
	my @aux = split (/\,/, $line);
	my $filename2 = $databaseroot . "/eab/$aux[1]";
	open (IN2, "$filename2");
	while (my $line = <IN2>) {
	    print $line;
	}
	close (IN2);
    }
    close (IN);
}

sub PrintHeader { # begin PrintHeader

    my $query = shift;
    my $id = $query->param('id');
    print $query->header(-type => "application/octet-stream", -attachment => "$id.txt");

} # end PrintHeader

sub PrintBottom { # begin PrintBottom
    my $query = shift;
}   # end PrintBottom