#!/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];
$run1 = $elemente[2];
if ($run1) {
$titel = $elemente[1];
$titel=&txt2html($titel);
$verweis=$elemente[5];
$dir=$WEB_DIR."/ab";
$target=$dir."/reihe".$nr.".htm";
$qdatei="reihe".$nr.".run1";
if ($OS=~/WIN/i) {
$dir=&winconvert($dir);
$target=&winconvert($target);
}
unless (-e $dir) {
mkdir ($dir, 0755) || die ("FEHLER: Verzeichnis \"$dir\" konnte nicht angelegt werden!\n");
}
print PROT ("kleio $qdatei\n");
open (QUERY,">$qdatei") || die ("FEHLER");
print QUERY ("item name=packedatei;usage=package;overwrite=yes\n");
print QUERY ("field start='\\n\n");
print QUERY (" \\n\n");
print QUERY (" Stadtarchiv Duderstadt: Übersicht über die Reihe $titel\\n\n");
print QUERY (" \\n\n");
print QUERY (" \\n\n");
if ($verweis) {
print QUERY (" \\n\n");
}
print QUERY ("
\n \\n\n");
print QUERY (" \n ![](\"../gifs/turm.gif\") | \\n\n");
print QUERY (" Stadtarchiv Duderstadt: | \n
\\n\n");
print QUERY (" Übersicht über die Reihe »$titel« (Reihe $nr) |
\n
\\n\n");
print QUERY ("
\n
\n | Signatur | \\n\n");
print QUERY (" Titel | Laufzeit | gescannt |
\\n';\n");
print QUERY (" limit='
\\n\n");
if ($verweis) {
print QUERY (" \n
\n Zurück zum Seitenanfang\n \\n\n");
}
print QUERY ("
\\n\n");
print QUERY (" \\n\n");
print QUERY (" [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");
print QUERY ("exit name=packedatei\n\n");
print QUERY ("item name=signatur;usage=package;overwrite=yes\n");
print QUERY ("field start='
| ';\n");
print QUERY (" limit=' | x | \"],\n");
print QUERY (" :form[\"
\"];\n");
print QUERY (" self=no;start=no\n");
print QUERY ("stop target=\"$target\";package=packedatei;overwrite=yes\n");
}
}
}