#!/usr/bin/perl # uebersetzen # Copyright (c) 2010, 2011 Andreas K. Foerster # # Needed: Dictionary data from Ding # ATTENTION: contains site-specific code # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU Affero General Public License as # published by the Free Software Foundation; either version 3 of the # License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU Affero General Public License for more details. # # You should have received a copy of the GNU Affero General Public License # along with this program; if not, see . use warnings; use strict; use CGI qw(:cgi :html2); use CGI::Carp qw(fatalsToBrowser); my $dictionary = "$ENV{DOCUMENT_ROOT}/cgi-data/trans/de-en"; my %dictionary = (de=>'Wörterbuch', en=>'Dictionary'); my %term = (de=>'Ausdruck', en=>'Term'); my %not_found = (de=>'Nicht gefunden', en=>'Not found'); my %uses_dict = (de=>'benutzt das Wörterbuch von', en=>'uses the dictionary of'); my %look_up = (de=>'nachschlagen', en=>'look up'); my %clear = (de=>'löschen', en=>'clear'); my $script_name = script_name(); my $term = param('term'); # check, if first accepted language is German my $lang = (http('Accept-Language') =~ /^de/i) ? 'de' : 'en'; &check_path_info; print "Content-Type: text/html; charset=ISO-8859-1\n\n"; print "\n\n"; print "\n\n\n"; print "Deutsch - English $dictionary{$lang}\n"; # site-specific: print "\n"; print "\n"; print "\n"; print "\n\n\n"; # site-specific: print "\n\n"; print "
\n"; print "\n" ."zurück
\n\n"; print "
\n

$dictionary{$lang}

\n"; print "
Deutsch ⇔ English
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n\n"; if ($term) { my $found = 0; print "

$term{$lang}: '" . escapeHTML($term) . "'

\n\n"; # avoid code injection $term = quotemeta $term; open D, $dictionary or die $!; while () { next if /^#/; if (/\b$term\b/i) { chomp; s/\|/
/g; my ($deutsch, $english) = split /\s::\s/; unless ($found) { print "\n"; print "\n"; $found = 1; } print "\n"; } } close D; if ($found) { print "
DeutschEnglish
$deutsch$english
\n\n" } else { print "

$not_found{$lang}

\n" } } print "
\n"; print "$uses_dict{$lang} Ding\n"; print "
\nDownload "; print "Program,\n"; print "$dictionary{$lang},\n"; print "
\n\n"; print "
\n"; print "\n"; exit; sub check_path_info { my $path_info = path_info(); if ($path_info) { &send_prg if $path_info eq '/uebersetzen'; &send_dict if $path_info eq '/de-en'; } } sub send_prg { print "Content-Disposition: attachment; filename=uebersetzen\n"; print "Content-Type: text/x-perl\n\n"; open F, $0; while () { print } close F; exit; } sub send_dict { print "Content-Disposition: attachment; filename=de-en\n"; print "Content-Type: text/plain\n\n"; open F, $dictionary; while () { print } close F; exit; }