#!/usr/bin/perl
# Generiert fuer jede Reihe der Abteilung Amtsbuecher automatisch
# die erforderliche Kleio-Aufgabenstellung.
# Die Liste mit saemtlichen zu bearbeitenden Reihen findet sich in
# "reihen.liste" und muss gegebenenfalls aktualisiert werden
require "run.cfg";
&profil;
open (INPUT, "reihen.liste") || die ("Fehler beim Oeffnen von \"reihen.liste\"\n");
open (PROT, ">>reihen.bat");
while ($zeile = ) {
unless ($zeile=~/#/){
@elemente = split (/\|/, $zeile);
$nr = $elemente[0];
$run3 = $elemente[3];
if ($run3) {
$titel = $elemente[1];
$titel=&txt2html($titel);
$tdir=$WEB_DIR."/ab/reihe".$nr."/html_seiten";
$dir=$tdir."/";
$qdatei="reihe".$nr.".run3";
$qdatei=~tr/A-Z/a-z/;
if ($OS=~/WIN/i) {
$dir=&winconvert($dir);
$tdir=&winconvert($tdir);
unless ($nr==5) {
print PROT ("kleio $qdatei\n");
}
} else {
print PROT ("kleio $qdatei\n");
}
unless (-e $tdir) {
mkdir ($dir, 0755) || die ("FEHLER: Verzeichnis \"$dir\" konnte nicht angelegt werden!\n");
}
open (QUERY,">$qdatei") || die ("FEHLER");
print QUERY ("item name=reihe;usage=package;overwrite=yes\n");
print QUERY ("field start=\"$dir\";\n");
print QUERY (" limit=\".html\"\n");
print QUERY ("exit name=reihe\n");
print QUERY ("item name=verpackung;usage=package;overwrite=yes\n");
print QUERY ("field start='\\n\n");
print QUERY (" \\n\n");
print QUERY (" Stadtarchiv Duderstadt: $titel\\n\n");
print QUERY (" \\n\n");
print QUERY (" \\n';\n");
print QUERY (" limit='\\n\n");
print QUERY (" \\n\n");
print QUERY ("
\\n\n");
print QUERY (" \\n\n");
print QUERY (" [$titel] [Reihenübersicht] [Tektonik] [Startseite] [Datenbankrecherche]\\n\n");
print QUERY (" \\n\n");
print QUERY ("
\\n\n");
print QUERY (" © Stadtarchiv Duderstadt\\n\n");
print QUERY (" \\n\n");
print QUERY (" \\n'\n");
print QUERY ("exit name=verpackung\n");
print QUERY ("item name=h3;usage=package;overwrite=yes\n");
print QUERY ("field start='
\\n\n");
print QUERY (" \\n\n");
print QUERY (" \n ![](\"../../../gifs/turm.gif\") | \\n\n");
print QUERY (" Stadtarchiv Duderstadt\\n\n");
print QUERY (" |
\n");
print QUERY (" Rep 10 - ';\n");
print QUERY (" limit=' |
\n
\\n\n");
print QUERY ("
\\n
\\n\n");
print QUERY ("
\\n\n");
print QUERY (" | Abteilung: | Amtsbücher |
\\n\n");
print QUERY (" | Bestand: | Rep 10 - AB |
\\n\n");
print QUERY (" | Reihe: | $nr - $titel |
\\n';\n");
print QUERY ("exit name=h3\n");
print QUERY ("item name=signatur;usage=package;overwrite=yes\n");
print QUERY ("field start='| Signatur: | Rep 10 ';\n");
print QUERY (" limit=' |
\\n'\n");
print QUERY ("exit name=signatur\n");
print QUERY ("item name=laufzeit;usage=package;overwrite=yes\n");
print QUERY ("field start='| Laufzeit: | ';\n");
print QUERY (" limit=' |
\\n'\n");
print QUERY ("exit name=laufzeit\n");
print QUERY ("item name=ab;usage=conversion;overwrite=yes\n");
print QUERY ("substitution current=\"AB\";\n");
print QUERY (" result=\"ab\"\n");
print QUERY ("exit name=ab\n");
print QUERY ("item name=vorherige;usage=package;overwrite=yes\n");
print QUERY ("field start=' zum Amtsbuch \"],\n");
print QUERY (" :form[\"
\"],\n");
print QUERY (" /brother[:query[],left,1]:package[:datei,vorherige],\n");
print QUERY (" /brother[:query[],right,1]:package[:datei,naechste],\n");
print QUERY (" :package[:query[],bild];\n");
print QUERY (" self=no;start=no\n");
print QUERY ("exit name=reihe\n");
}
}
}