#!usr/bin/perl

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use sprache;

# Diese Info steht normal in der Datenbank...

my $gewaehlte_sprache = "deutsch";

my %sprache;

# Richtige Sprache benutzen...

if ($gewaehlte_sprache eq "deutsch") {%sprache = sprache::deutsch()}
elsif ($gewaehlte_sprache eq "englisch") {%sprache = sprache::englisch()}
elsif ($gewaehlte_sprache eq "franzoesisch") {%sprache = sprache::franzoesisch()}
else {die qq(Konnte Sprachdatei nicht oeffnen: $!)}

# Umlaute und Sonderzeichen in HTML-Schreibweise ersetzen...

#Deutsch

foreach my $key (keys %sprache) {
    $sprache{$key} =~ s/ä/ä/g;
    $sprache{$key} =~ s/ö/ö/g;
    $sprache{$key} =~ s/ü/ü/g;
    $sprache{$key} =~ s/Ä/Ä/g;
    $sprache{$key} =~ s/Ö/Ö/g;
    $sprache{$key} =~ s/Ü/Ü/g;
    $sprache{$key} =~ s/ß/ß/g;

# Englisch ???

# Franzoesisch ???

}# foreach

_ _End_ _

#sprache.pm

#[...]

sub deutsch {
    my %sprache = (

#--[ B U T T O N S ]------------------------

        submit =>   'Absenden',
        reset   =>   'Löschen')

} #sub deutsch

#[...]