#!/usr/bin/perl  

require "dudenv.pl";
&profil;

require "dudparse.pl";
&ReadParse;

$alles=$in{'alles'};

@nummern=();

&readvars;

$varzahl=@nummern;
if ($varzahl>0) {
   require "dudrsub.pl";

   $tpq=$in{'tp'};
   $taq=$in{'ta'};

   if ($taq==0) {
      $taq=1999;
   }

   if ($tpq==0) {
      $tpq=900;
   }

   if ($alles) {
      foreach $i (@nummern) {
         $i=~s/\s//g;
         $text="\"$i\&\"";
         @codesarray=(@codesarray,$text);
      }
      $kleiocodes=join(" or ",@codesarray);
   } else {
      $a=1;
      foreach $i (@nummern) {
         until ($i > 999999) {
            $a=$i*10;
            $i=$a;
         }
         $a=$i;
         $a="\"$a\&\"";
         @codesarray=(@codesarray,$a);
         $a=1;
      }
      $kleiocodes=join(" or ",@codesarray);
   }

   chdir ("$DB_DIR");

   $prozess = $$;
   $ausgabe = "/duderstadt/ergebnis/ergebnis" . "$prozess" . ".htm";
   $ausgabe_lang = "$ENV{'DOCUMENT_ROOT'}" ."/". "$ausgabe";
   if ($OS=~/WIN/i) {
      &dt;
   }
 $zl=1;
 while ($zl==1) {
   $zl=2;
   open (ASK, "|$KL_START");
   print ASK ("query name=tektonik;part=/catalogue[rubren,start,\'$kleiocodes\']\n");
   print ASK ("write self=no;start=no;
         part=/test[/back[amtsbuch]:laufzeit1=after \"$tpq\" and before \"$taq\"]
            :package[:conversion[:rubrum,text],rubrum] |+
            :package[:text[:summa,number],summa] &+
            :package[/back[folio]:text[:datei],seiten_ref_5] |+ :package[/back[folio]:text[:datei],schliessen5] &+
            :package[/back[amtsbuch]:conversion[:titel,text],amtsbuch] &+
            :package[/back[amtsbuch]:bestellnr,bestellnr_2]\n");
   print ASK ("stop target=\"$ausgabe_lang\";package=ergebnisdatei4;overwrite=yes\n");

   close ASK;
                                    
   if (-e $ausgabe_lang) {
      & trefferzahl
   } else {
     if ($varzahl>1) {
       $zl=1;
       shift(@codesarray);
       $kleiocodes=join(" or ",@codesarray);
       $varzahl--;
     } else {
        print "Location: /duderstadt/fehler/fehler4r.htm", "\n\n";
     }
   }
 }
} else {
    print "Location: /duderstadt/fehler/fehler1r.htm", "\n\n";
}



sub readvars {
   foreach $key (keys %in) {
   $v=$key;
   if ($v=~/^x/) {
      $v=~s/x/2/;
      @nummern=(@nummern,$v);
      }
   if ($v=~/^z/) {
      $v=~s/z/1/;
      @nummern=(@nummern,$v);
      }
   }
}