package sprache;

use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
use vars qw(%deutsch %englisch %franzoesisch);
use HTML::Entities;

require 5.004;
require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(g_w);
@EXPORT_OK = qw(%deutsch %englisch %franzoesisch);

$VERSION = '0.01';

require HTML::Entities;

#################################################
# D E U T S C H
my %deutsch = (

#--[ N A V I G T I O N ]-------------------------

        home      &n
bsp;     =>    'Startseite',
        forum      &
nbsp;     =>    'Kontaktforum',
        kontakt     &nbsp
;      =>    'Kontakt',
        empfehlen     &nb
sp;  =>    'Empfehlen',
        impressum     &nb
sp;  =>    'Impressum',
        spiel      &
nbsp;     =>    'Spiel',

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

        submit      
      =>    'Absenden',
        reset            =>    'Löschen',
        
);
#################################################
# E N G L I S C H
my %englisch = (
        
);
#################################################
# F R A N Z O E S I S C H
my %franzoesisch = (
    
);

sub g_w { # g_w steht fuer get_wor(t/d)

    my ($sprache, $wort) = @_;
    if ($sprache eq "deutsch") { return encode_entities($deutsch{$wort}) }
    elsif ($sprache eq "englisch") { return encode_entities($englisch{$wort}) }
    elsif ($sprache eq "franzoesisch") { return encode_entities($franzoesisch{$wort}) }
    else {die qq(Konnte Sprachdatei nicht oeffnen: $!)}

}# g_w

1;