#!/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;
$zahl=1;
while ($zahl<6) {
$nr=5;
$titel = "Annalen";
$titel=&txt2html($titel);
$tdir=$WEB_DIR."/ab/reihe".$nr."/html_seiten";
$dir=$tdir."/";
$qdatei="reihe".$nr.".run3".$zahl;
if ($OS=~/WIN/i) {
$dir=&winconvert($dir);
$tdir=&winconvert($tdir);
}
unless (-e $tdir) {
mkdir ($dir, 0755) || die ("FEHLER: Verzeichnis \"$dir\" konnte nicht angelegt werden!\n");
}
$qdatei=~tr/A-Z/a-z/;
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");
print QUERY ("exit name=reihet\n");
$zahl++;
}