#!/usr/bin/perl

require "dudenv.pl";
&profil;

require "dudparse.pl";
&ReadParse;

$bestand=$in{'bestand'};
$nr=$in{'nr'};
$nr=~s/^00//;
$nr=~s/^0//;
$art="equal";
if ($nr=~/\*/) {
   $nr=~s/\*//;
   $art="start";
}
if ($bestand eq "AB") {
   $sw=$bestand.$nr;
} else {
   $sw=$bestand." Nr. ".$nr;
}

if ($nr) {
   chdir ("$DB_DIR");
   $prozess = $$;
   $ausgabe = "/duderstadt/ergebnis/ergebnis" . "$prozess" . ".htm";
   $ausgabe_lang = "$ENV{'DOCUMENT_ROOT'}" . "$ausgabe";

   if ($OS=~/WIN/i) {
      &dt;
   }

   open (ASK, "|$KL_START");
   if ($bestand eq "AB") {
      print ASK ("query name=tektonik;part=/amtsbuch:bestellnr=\"$sw\" $art\n");
      print ASK ("write self=no;start=no;
               part=:package[:titel,abtitel] &+ :package[:collect[:text[:laufzeit1,date]],laufzeit] &+ :package[:form[\"Rep 10\"],bestand] &+ :package[/back[1]:reihe,reihen_ref] |+ :package[:substring[:bestellnr,3],schliessen2] |+ :package[:substring[:bestellnr,3],amtsbuchende2]\n");
   } else {
      print ASK ("query name=tektonik;part=/akte:bestellnr=\"$sw\" $art\n");
      print ASK ("write self=no;start=no;
            part=:package[:conversion[/query[]:titel,text],titel] &+ :package[:collect[:text[:laufzeit1,date]],laufzeit] &+ :package[/back[3]:rep,bestand] &+ :package[/back[3]:verzeichnis,klass_ref] &+ :package[/back[1]:conversion[:klass_nr,press],schliessen3] &+ :package[/query[]:aktennr,schliessen1] &+ :package[/back[3]:bestand,bindestrich] &+ :package[/query[]:aktennr,aktenende]\n");               
   }
   print ASK ("stop target=\"$ausgabe_lang\";package=ergebnis_sig;overwrite=yes\n");
   close ASK;
   if (-e $ausgabe_lang) {
      print "Location: $ausgabe", "\n\n";
   } else {
      print "Location: /duderstadt/fehler/fehler2s.htm", "\n\n";
   }
} else {
     print "Location: /duderstadt/fehler/fehler1s.htm", "\n\n";
}