our (%h, $k, $v);
    unlink $db_file;
    tie %h, "DB_File", $db_file, O_RDWR|O_CREAT, 0666, $DB_HASH
        or die "Cannot open file '$db_file': $!\n";
    $h{'nr'} = 0;
    $h{'name'} = "name";
    $h{'titel'} = "titel";
    $h{'keywords'} = "keywords";
    $h{'desc'} = "desc";
    $h{'page-topic'} = "page-topic";
    $h{'inhalt'} = "text";

    # print the contents of the file
    while (($k, $v) = each %h)
      { print "$k -> $v\n" }
    untie %h;

sub create {
    my $return = 1; #positive annahme
    my $filename = $query->{neu_titel};
    $filename =~ tr/ÄÖÜäöüßA-Za-z\000-\377/aouaousa-za-z/d;
    if( $filename eq "" ){ $filename = rand(1); }
    $filename =~ s/\&/&/g; #&
    $filename =~ s/"/"/g;  #"
    $filename =~ s/\'/'/g; #'
    $filename =~ s/>/>/g;   #>
    $filename =~ s/</&lt;/g;   #<
    $filename =~ s/\n/<br>/g;  #\n
    my $datei = $dataDir . '/' . $filename . 'txt.igs';
# ---- seite in DB eintragen, pid hochzählen
    my @data = extractFile( $database_file );
    my $pid = (split/\t/, $data[scalar(@data)-1])[0];
    $pid++;
# -- nr \t keyword \t titel \t meta-keywords \t meta-desc \t meta-page-topic \t datei(Pfad)
    my $key = $query->{neu_titel}; #umlaute etc ersetzen!!!
    $key =~ s/\&/&/g; #&
    $key =~ s/"/"/g;  #"
    $key =~ s/\'/'/g; #'
    $key =~ s/>/&gt;/g;   #>
    $key =~ s/</&lt;/g;   #<
    $key =~ s/\n/<br>/g;  #\n
    $key =~ tr/ÄÖÜäöüßA-Za-z\000-\377/aouaousa-za-z/d;
    if( $key eq "" ){ $key = rand(1); }
    my $neu = $pid . "\t" . $key . "\t" . $query->{neu_titel} . "\t" . $query->{keywords} . "\t" . $query->{desc} . "\t" . $query->{page_topic} . "\t" . $datei . "\n";
    foreach( @data ){
        if( (split/\t/, $data[scalar(@data)-1])[1] eq "$key" ){
            $subs{error} = "<b>Fehler: Eine Seite mit diesem Namen ($key) existiert bereits! Bitte klicken Sie auf den Zur&uuml;ck-Button ihres Browsers und geben Sie einen anderen Namen ein.</b>";
            return 0;
        }
    }

# ---- file anlegen (ok!)
    open(DAT, ">$datei") || die "$!";
    print DAT main::formatText( $query->{text} );
    close(DAT);

# ---- Datenbank aktualisieren (ok!)
    push @data, $neu;
    open(DAT, ">$database_file") || die "$!";
    print DAT @data;
    close(DAT);

# ---- Navigation im Main_Template erweitern
    unless( main::aktualisiereNavs() ){ push @errors, "Fehler: Konnte die Navigation nicht aktualisieren!" }
    
    return 1;
} #create

use DB_File;
our (%h, $k, $v) ;
    unlink $db_file;
    tie %h, "DB_File", $db_file, O_RDWR|O_CREAT, 0666, $DB_HASH
        or die "Cannot open file '$db_file': $!\n";