#!/usr/bin/perl
# Use this script to search the vera database
# send comments or questions to: heraklit@crypt.eniac.ch.eu.org

$found=0;
$path = "/usr/local/share/vera/vera";
$ac=$ARGV[0];
unless ($ac) {
  print "usage: vera.pl acronym\n";
  exit
}

$fl=substr($ac,0,1);
$fl =~ tr/A-Z/a-z/;
$ac =~ tr/a-z/A-Z/;

$p="$path.$fl";
open HF, $p or die "cannot open $p";
print "vera: searching file $p ...\n";
while ($line=<HF>) {
  chomp($line);
  @l=split /\s+/, $line;
  if ($l[0] eq "\@item") {
    if ($l[1] eq $ac) {
      $s=<HF>;
      print "Acronym: $ac\n";
      print "Text: $s\n";
      $found=1;
    }
  } 
}
unless ($found) {
  print "vera: sorry, could not find '$ac' - please try again.\n";
}
close HF;