# file KLEIDER/web/src/localization/Ask.pm
# Übersetzung von STDIN lesen
# 2016-07-20 Herbert Schiemann <h.schiemann@herbaer.de>
# GPL Version 2 oder neuer

package Herbaer::Translate::Ask ;

use parent Herbaer::Translate::Base ;
use utf8;

sub new {
    my $class = shift;
    my $self = "Ask";
    return bless (\$self, $class);
} # new

sub translate {
   my ($self, $text, $srl, $tgl) = @_ ;
   my $trans;
   print "$srl: $text\n";
   print "Übersetzung in $tgl: ";
   $trans = <STDIN>;
   $trans =~ s/^\s*//;
   $trans =~ s/\s*$//;
   print "\n";
   $trans;
} # translate

# Name des zuletzt aktiven Uebersetzers
sub translator_name { "ask"; } # translator_name

1;
# file KLEIDER/web/src/localization/Ask.pm