    
$r = shift ;

%messages =
    (
    'de' =>
        {
        'add_item'=> 'Eintrag hinzufügen',
        'items_of'=> 'Bearbeiten der Einträge von',
        'addsel1' => 'Klicken Sie auf die Kategorie zu der Sie etwas hinzufügen möchten:',
        'addsel2' => 'oder fügen Sie eine neue Kategorie hinzu. Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen möglich ein.',
        'addsel3' => 'Falls Sie die Übersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.',
        'addsel4' => 'Kategorie hinzufügen',
        'addsel_upd' => 'Klicken Sie auf die Kategorie in der Sie etwas ändern möchten:',
        'addsel_login1' => 'Wenn Sie etwas an Ihren bisherigen Eingaben ändern möchten, müssen Sie sich zuerst',
        'addsel_login2' => 'anmelden',
        'addsel_login3' => '.',
        'add1'    => 'Hinzufügen eines neuen Eintrages zu',
        'edit1'   => 'Bearbeiten eines Eintrages von',
        'del1'    => 'Löschen eines Eintrages',
        'add2a'   => 'Bitte geben Sie die Beschreibung in so vielen Sprachen wie Ihnen möglich ein.',
        'add2b'   => 'Falls Sie die Übersetzung nicht wissen, lassen Sie das entsprechende Eingabefeld leer.',
        'add3'    => 'Hinzufügen zu',
        'update3' => 'Übernehmen',
        'delete3' => 'Löschen',
        'heading' => 'Überschrift',
        'url'     => 'URL',
        'description'  => 'Beschreibung',
	'state'   => 'Status',
        'show2'   => 'Folgender Eintrag wurde erfolgreich der Datenbank hinzugefügt/geändert',
        'del2'    => 'Der Eintrag wurde erfolgreich aus der Datenbank entfernt',
        'Search'  => 'Suchen',
        'under_construction' => 'Hinweis: Dieser Teil der Website befindet sich noch im Aufbau.',
        'more_news' => 'Weitere News...',
        'add_news' => 'News hinzufügen...',
        'display'  => 'anzeigen',
        'hide'     => 'nicht anzeigen',
        'logged_in_as'  => 'Angemeldet als',
        'already_logged_in_as'  => 'Sie sind bereits angemeldet als',
        'logoff'  => 'Hier können Sie sich wieder abmelden',
        'need_login'    => 'Sie müssen sich erst anmelden um diesen Bereich zu nutzen.',
        'login_head'      => q{Hier können Sie sich auf der Embperl-Site anmelden. Dies erlaubt Ihnen
                             Informationen bezüglich Embperl (Neugigkeiten, Sites die Embperl benutzen, 
                             Veröffentlichungen, Beispiele etc.) hinzuzufügen, zu ändern und zu löschen.},
        'loginnew'      => 'Sie erhalten Ihr Kennwort per E-Mail zugeschickt, bitte tragen Sie es unten ein um die Anmeldung zu vollenden und klicken dann auf "Anmelden".',
        'login1'        => 'Wenn Sie sich schon einmal angemeldet haben, geben Sie bitte Ihre E-Mail Adresse und Ihr Kennwort ein und klicken dann auf "Anmelden".',
        'login2'        => q{Wenn Sie sich das erste Mal anmelden, geben Sie lediglich Ihre E-Mail Adresse an 
                             und klicken auf "Neuen Benutzer-Account einrichten".
                             Sie bekommen dann ein neues Kennwort zugeschickt.},
        'login3'        => q{Haben Sie Ihr Kennwort vergessen, geben Sie Ihre E-Mail Adresse ein und klicken dann
                            auf "Neues Kennwort". Sie bekommen
                            dann ein neues Kennwort zugesandt.},
        'cookie_note' => 'HINWEIS: Zur Anmeldung ist es erforderlich das Ihr Browser Cookies akzeptiert',
        'user_email'     => 'E-Mail Adresse',
        'user_password'  => 'Kennwort',
        'login'     => 'Anmelden',
        'logout'    => 'Abmelden',
        'newuser'   => 'Neuen Benutzer-Account einrichten',
        'newpassword'  => 'Neues Kennwort',
	'error'        => 'Fehler',
	'warning'      => 'Warnung',
	'error_reason' => 'Grund',

	# Mail Handling
        'mail_greeting' => 'Hallo!',
	'mail_account_request' => 'Sie oder jemand anderes haben ein Benutzer-Konto auf der Embperl Website angefordert.',
	'mail_note1' => 'Ihr Kontoname ist Ihre E-Mail-Adresse, d.h. sie sollten auf der Embperl-Webseite',
	'mail_note2' => 'als Login-Name angeben.',
	'mail_your_pw_is' => 'Ihr Kennwort ist auf',
	'mail_note_quotes' => 'gesetzt (ohne die Hochkommata)',
	'mail_note_login' => 'Sie können sich jetzt unter folgender Adresse anmelden:',
	'mail_sig' => 'Grüße von der Embperl Webseite',
        'mail_pw' => 'Sie oder jemand anders hat ein neues Kennwort für Ihr Benutzerkonto auf der Embperl Webseite beantragt.',
	'mail_subj_newuser' => 'Ihr Benutzerkonto auf der Embperl Website',
	'mail_subj_newpw' => 'Ihr neues Kennwort auf der Embperl Website',

	# Errors
        'err_notfound'      => 'Das angeforderte Dokument konnte nicht gefunden werden.',
	'err_email_needed' => "Sie müssen eine E-Mail Adresse eingeben.",
	'err_access_denied' => 'Zugriff verweigert. Entweder die E-Mail Adresse oder das Kennwort sind falsch.',
	'err_user_exists' => 'Benutzer existiert bereits. Vielleicht möchten Sie ein neues Kennwort an diese Adresse senden?',
	'err_user_not_exists' => "Benutzer existiert nicht. Vielleicht haben Sie sich vertippt oder sich unter einer anderen E-Mail Adresse registriert?",
	'err_user_mail' => 'Mail kann nicht an den Benutzer gesendet werden.',
	'err_pw_mail' => 'Kennwort kann nicht per Mail an den Benutzer versendet werden.',
	'err_db' => 'Datenbankfehler',
	'err_update_db' => 'Datenbankfehler beim Update',
	'err_update_lang_db' => 'Datenbankehler wärend Update der Sprachversionen',
	'err_cannot_update_no_id' => 'Update fehlgeschlagen: Zugriff verweigert',
	'err_cannot_update_maybe_wrong_user' => 'Update fehlgeschlagen: Berechtigung fehlt',
	'err_cannot_delete_no_id' => 'Löschen fehlgeschlagen: Berechtigung fehlt',
	'err_cannot_delete_maybe_wrong_user_or_no_such_item' => 'Löschen fehlgeschlagen: Berechtigung fehlt',
	'err_cannot_delete_db_error' => 'Löschen fehlgeschlagen: Datenbankfehler',
	'err_item_not_found_or_access_denied' => 'Eintrag nicht gefunden oder Zugriff verweigert',

	# Warnings
	'warn_url_removed_white_space' => 'Leerzeichen wurden aus URL entfernt',
	'warn_url_added_http' => '"http://" zu URL hinzugefügt',

	# Success
	'suc_login' => 'Anmeldung erfolgreich',
	'suc_logout' => 'Abmeldung erfolgreich',
	'suc_password_sent' => 'Das Kennwort wurde erfolgreich versendet',
	'suc_item_deleted' => 'Eintrag erfolgreich gelöscht',
	'suc_item_updated' => 'Eintrag erfolgreich geändert',
	'suc_item_created' => 'Eintrag erfolgreich erstellt',
        },
     'en' =>
        {
        'add_item'=> 'Add new entry',
        'items_of'=> 'Edit items from',
        'addsel1' => 'Click on the category for wich you want to add a new item:',
        'addsel2' => 'or add new category. Please enter the description in as much languages as possible.',
        'addsel3' => 'If you don\'t know the translation leave the corresponding input field empty.',
        'addsel4' => 'Add category',
        'addsel_upd' => 'Click on the category for wich you want to edit a item:',
        'addsel_login1' => 'If you like to change your previous entries, you need to', 
        'addsel_login2' => 'login', 
        'addsel_login3' => 'first.', 
        'add1'    => 'Add a new item to',
        'edit1'   => 'Edit item of',
        'del1'    => 'Delete item',
        'add2a'   => 'Please enter the description in as much languages as possible.',
        'add2b'   => 'If you don\'t know the translation leave the corresponding input field empty.',
        'add3'    => 'Add to',
        'update3' => 'Apply',
        'delete3' => 'Delete',
        'heading' => 'Heading',
        'url'     => 'URL',
        'description' => 'Description',
	'state'   => 'State',
        'show2'   => 'The following entry has been sucessfully added/modified to the database',
        'del2'    => 'The entry has been sucessfully removed from the database',
        'Search'  => 'Search',
        'under_construction' => 'NOTE: This part of the site is still under contruction.',
        'more_news' => 'more news...',
        'add_news' => 'add news...',
        'display'  => 'display',
        'hide'     => 'hide',
        'logged_in_as'  => 'logged in as',
        'already_logged_in_as'  => 'You are already logged in as',
        'logoff'        => 'Here you can logoff from the site',
        'need_login'    => q{You must be logged in to access this area.}, 
        'login_head'    => q{Here you can logon to the Embperl-Site.
                             This allows you to enter information about Embperl like news,
                             sites using Embperl, publications, examples etc.
                             You may also edit and delete the information you have enterd before},
        'loginnew'      => 'You will receive your new password via e-mail. Please enter it in the form below and click on "Login".',
        'login1'        => q{If you have already a user account, please enter your email address and 
                             password and click on 'Login'. },
        'login2'        => q{If you have not already a user account, just enter your email and click
                             on 'Create new account'.
                            A new account will be created and the password will be imediately mailed 
                            to address you entered.},
        'login3'        => q{In case you have forgotten your password, click on 'New password', 
                             a new password will be mailed
                            to your email address.},
        'cookie_note' => 'NOTE: For login it\'s necessary that your browser accepts cookies',
        'user_email'     => 'E-Mail address',
        'user_password'  => 'Password',
        'login'     => 'Login',
        'logout'    => 'Logout',
        'newuser'   => 'Create new account',
        'newpassword'  => 'New password',
	'error'        => 'Error',
	'warning'      => 'Warning',
	'error_reason' => 'Reason',

	# Mail Handling
        'mail_greeting' => 'Hi!',
	'mail_account_request' => 'You or someone else requested a user account for the Embperl website.',
	'mail_note1' => 'Your account name is your e-mail address, that means you should enter',
	'mail_note2' => 'as login name on the Embperl website.',
	'mail_your_pw_is' => 'Your password is set to',
	'mail_note_quotes' => '(without the single quotes)',
	'mail_note_login' => 'You can now log in at the following address:',
	'mail_sig' => 'Regards, Your Embperl Website',
        'mail_pw' => 'You or possible someone else requested a new password for your account on the Embperl Website',
	'mail_subj_newuser' => 'Your Embperl Website Account',
	'mail_subj_newpw' => 'Your new Embperl Website password',

	# Errors
        'err_notfound'      => 'The document you requested wasn\'t found.',
	'err_email_needed' => "You haven't entered an email address. This is mandatory for the requested action.",
	'err_access_denied' => 'Access Denied. Either user name (e-mail address) or password were wrong.',
	'err_user_exists' => 'User already exists. Perhaps you want a new password sent to this address?',
	'err_user_not_exists' => "User doesn't exists. Maybe there's a typo in the address or you registered with a different address?",
	'err_user_mail' => 'Could not sent mail to user.',
	'err_pw_mail' => 'Could not sent mail with password to user.',
	'err_db' => 'Database error',
	'err_update_db' => 'Database error while updating',
	'err_update_lang_db' => 'Database error while updating languages',
	'err_cannot_update_no_id' => 'Update failed: Permission denied',
	'err_cannot_update_maybe_wrong_user' => 'Update failed: Permission denied',
	'err_cannot_delete_no_id' => 'Deletion failed: Permission denied',
	'err_cannot_delete_maybe_wrong_user_or_no_such_item' => 'Deletion failed: Permission denied',
	'err_cannot_delete_db_error' => 'Deletion failed: Database error',
	'err_item_not_found_or_access_denied' => 'Item not found or access denied',

	# Warnings
	'warn_url_removed_white_space' => 'Removed whitespaces from URL.',
	'warn_url_added_http' => 'Added "http://" to the incomplete URL.',

	# Success
	'suc_login' => 'Successfully logged in',
	'suc_logout' => 'Successfully logged out',
	'suc_password_sent' => 'Successfully sent password to given e-mail address',
	'suc_item_deleted' => 'Item successfully deleted',
	'suc_item_updated' => 'Item successfully updated',
	'suc_item_created' => 'Item successfully created',
        },
    ) ;


$lang = $r -> param -> language ;
push @{$r -> messages}, $messages{$lang} ;
push @{$r -> default_messages}, $messages{'en'} if ($lang ne 'en') ;
    


