#!/usr/bin/perl 

# Profil fuer verschiedene Plattformen und Rechner wird definiert,
# hier Win95-Rechner in Duderstadt

sub profil {
   $OS="WIN32";
   $ENV{KLEIO} = "c:/digardud/db";
   $ENV{DOCUMENT_ROOT} = "c:/httpd/htdocs";
   $DB_DIR="c:/digardud/db";
   $KL_START="kleio.exe > temp.tmp";
return 1;
}
1;


# unter WINDOWS sollte evtl. vorhandene Ergebnis-Datei geloescht werden,
# weil Prozess-ID meist nicht neu vegeben wird und bei Fehlern waehrend der Abfrage 
# das Ergebnis der letzten erfolgreichen Abfrage ausgegeben werden kann

sub dt{
    $edat=$ausgabe_lang;
    if (-e $edat) {
       unlink ($edat);
    }
return 1;
}
1;