#!/usr/bin/perl

use CGI;

dbmopen(%Acronyms,"acronym",0444);

################################################################
#
# Wir beginnen mit der HTML-Ausgabe
#
$query = new CGI;

print $query->header;
print $query->start_html('3. Access the database');

print q{Mongolian Abbreviations and Acronyms. A Database.<HR>
	<H2><A HREF="acrobase.html">1. Introduction</A></H2>
	<H2><A HREF="acrouse.html">2. How to use the
	database</A></H2>};
	
print $query->startform.
		q{<TABLE>
		<TR><TD ALIGN=RIGHT>Abbreviation:</TD>
		    <TD ALIGN=LEFT>}.$query->textfield(-name=>'Abbreviation',
				-default=>'',
				-columns=>20).q{</TD><TD>};
print	$query->submit(-name=>'Knopf',
			-value=>'Query').
	$query->defaults('Clear Form').q{</TD></TR></TABLE>}.
	$query->endform;
#	$query->dump.

&Abfragen if ($query->param('Knopf') eq 'Query');

print $query->end_html;

sub Abfragen {
	$Abbreviation=$query->param('Abbreviation');
	$MailSubject=$Abbreviation;
	$Abbreviation=~s/"A/Ä/g;
	$Abbreviation=~s/"O/Ö/g;
	$Abbreviation=~s/"U/Ü/g;
	$Abbreviation=~s/"a/ä/g;
	$Abbreviation=~s/"o/ö/g;
	$Abbreviation=~s/"u/ü/g;
	$Abbreviation=~s/([Ss])h/\|\\$1h\|/g;

	$nummer=1;

	if ($Acronyms{$Abbreviation."($nummer)"}) {
		while ($Acronyms{$Abbreviation."($nummer)"}) {
			&Ausgabe($Abbreviation."($nummer)");
			$nummer++;
		}
	}
	elsif ($Acronyms{$Abbreviation} eq "") {
		$MailSubject=~s/"/\&quot;/g;
		print qq{Sorry, nothing found for $Abbreviation...<P>
		Please mail corrections and addenda to the 
		<A
		HREF="mailto:infomong\@zedat.fu-berlin.de?subject=acrobase
		 entry: [$MailSubject] not found.">editor</A>
		at <TT>infomong\@zedat.fu-berlin.de</TT>};
	}
	else {  
		&Ausgabe($Abbreviation);
	}
}
################################################################
sub Ausgabe {
	$Feld = shift @_;
	$Resultat=$Acronyms{$Feld};
	$Resultat=~s/{\\([Ss])h}/$1h/g;
	$Resultat=~s/Ä/\&Auml;/g;
	$Resultat=~s/Ö/\&Ouml;/g;
	$Resultat=~s/Ü/\&Uuml;/g;
	$Resultat=~s/ä/\&auml;/g;
	$Resultat=~s/ö/\&ouml;/g;
	$Resultat=~s/ü/\&uuml;/g;
	$Resultat=~s/Ï/\&Iuml;/g;
	$Resultat=~s/ï/\&iuml;/g;
	$Resultat=~s/ß/\&szlig;/g;
	($Abbrev,$Mong,$Eng,$Deu)=split(/}[^{}]*{/,$Resultat);

	$Deu =~ s/}[^}]*$//;

	print q{<HR><TABLE>};
	print "<TR><TD ALIGN=RIGHT>Acronym:</TD><TD ALIGN=LEFT>$Abbrev</TD></TR>";
	print "<TR><TD ALIGN=RIGHT>Mongolian:</TD><TD ALIGN=LEFT>$Mong</TD></TR>";
	print "<TR><TD ALIGN=RIGHT>English:</TD><TD ALIGN=LEFT>$Eng</TD></TR>";
	print "<TR><TD ALIGN=RIGHT>German:</TD><TD ALIGN=LEFT>$Deu</TD></TR>";
	print q{</TABLE>};

	if ($Mong eq "" || $Eng eq "" || $Deu eq "") {
	print qq{Please mail corrections and addenda to the 
	<A HREF="mailto:infomong\@zedat.fu-berlin.de?subject=acrobase
	 entry: [$Feld]?">editor</A>
		at <TT>infomong\@zedat.fu-berlin.de</TT>};
	}
}