#!/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); $tdir=$WEB_DIR."/ab/reihe".$nr; $dir=$tdir."/"; $qdatei="reihe".$nr.".run2"; 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/; print PROT ("kleio $qdatei\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=\".htm\"\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 \\n\n"); print QUERY (" \n"); print QUERY (" \n

 Stadtarchiv Duderstadt

\\n\n"); print QUERY ("

 Rep 10 - ';\n"); print QUERY (" limit='

\\n\n"); print QUERY ("

 \\n

\\n\n"); print QUERY (" \\n\n"); print QUERY (" \\n\n"); print QUERY (" \\n\n"); print QUERY (" \\n';\n"); print QUERY ("exit name=h3\n"); print QUERY ("item name=titel_r2;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=titel_r2\n"); print QUERY ("item name=signatur;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=signatur\n"); print QUERY ("item name=laufzeit;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=laufzeit\n"); print QUERY ("item name=form;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=form\n"); print QUERY ("item name=zustand;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=zustand\n"); print QUERY ("item name=schreiber;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=schreiber\n"); print QUERY ("item name=umfang;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=umfang\n"); print QUERY ("item name=format;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=format\n"); print QUERY ("item name=bemerkung;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=bemerkung\n"); print QUERY ("item name=scans;usage=package;overwrite=yes\n"); print QUERY ("field start='\\n'\n"); print QUERY ("exit name=scans\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=seiten_ref_r2;usage=package;overwrite=yes\n"); print QUERY ("field start='\"],\n"); print QUERY (" :form['

'];\n"); print QUERY (" self=no;start=no\n"); print QUERY ("exit name=reihe\n"); } } }

Abteilung:Amtsbücher
Bestand:Rep 10 - AB
Reihe:$nr - $titel
Titel:';\n"); print QUERY (" limit='
Signatur:Rep 10 ';\n"); print QUERY (" limit='
Laufzeit:';\n"); print QUERY (" limit='
Form:';\n"); print QUERY (" limit='
Zustand:';\n"); print QUERY (" limit='
Schreiber:';\n"); print QUERY (" limit='
Umfang:';\n"); print QUERY (" limit='
Format:';\n"); print QUERY (" limit='
Bemerkung:';\n"); print QUERY (" limit='
Digitalisierte Seiten:';\n"); print QUERY (" limit='
Einzelseiten:'],\n"); print QUERY (" /collect[=clean]/query[]/folio:package[:datei,seiten_ref_r2],\n"); print QUERY (" :dump[datei],\n"); print QUERY (" /test[:datei=not null]:form[\"
 
'],\n"); print QUERY (" /brother[/query[],left,1]:package[:conversion[:bestellnr,ab],vorherige],\n"); print QUERY (" /brother[/query[],right,1]:package[:conversion[:bestellnr,ab],naechste],\n"); print QUERY (" :form['