# ---- subs
sub zeigeSeite{
    my $key = $_[0];  #Schlüsselwort für Aufzurufende Seite in /txt/index.txt
    my $pfad = 0;
    my @index = extractFile( $index_file );
# print;
    foreach (@index){
        chomp $_;
        if($_ =~ m/$key\.igs/ig){
            $pfad = (split /\t/,$_)[2];
            last;
        }
    }
    if($pfad eq 0){ print errorSeite( $query->{action}, "zeigeSeite: $!" ); exit( 1 ); } # -> Fehlerseite?
    my @inhalt = extractFile( $pfad );
    foreach (@inhalt){
        chomp $_;
    }
# ---------------------------------------------------
# DYN. INHALT

    $subs{titel}        = (split/\|/, $inhalt[0])[2];
    $subs{keywords}     = (split/\|/, $inhalt[1])[2];
    $subs{desc}         = (split/\|/, $inhalt[2])[2];
    $subs{page_topic}   = (split/\|/, $inhalt[3])[2];
    my $page            = (split/\|/, $inhalt[4])[2];

    $subs{inhalt} = join"", substitute( extractFile( $page ) );                 # CONTENT auselesen & serialisieren
    $subs{inhalt} =~ s/\n//g; #dachte, es könnte an den Zeilenümbrüchen liegen...
    $subs{inhalt} =~ s/\r//g;

    print substitute( extractFile( $index ) );                                  # SUBSTITUTION IN INDEX.HTML
    
# print;

} #ZeigeSeite