#!/usr/bin/perl -w
# file KLEIDER/web/src/localization/pipe_srv_stop.pl
# Beendet den Server-Prozess für die maschinelle Übersetzung
# 2015-08-11 Herbert Schiemann <h.schiemann@herbaer.de>
# GPL Version 2 oder neuer

package main;

use utf8 ;
use Cwd qw(realpath) ;
use Herbaer::Readargs ;
use Herbaer::Translate::Pipe ;

binmode (STDOUT, "encoding(utf-8)");
binmode (STDERR, "encoding(utf-8)");

my $basedir = realpath ($0);
$basedir =~ s/\/src\/localization\/.*// ;

# Hash der Kommandozeilen-Argumente
my $args = {
   "[cnt]verbose" => 0,
   "base"         => "$basedir/pipe",  # Basisverzeichnis für Pipes
};

# gibt die Version nach STDOUT aus
sub version {
   print <<'VERSION' ;
pipe_srv_stop.pl v20150811
Beendet den Server-Prozess für die maschinelle Übersetzung
(C) 2015 Herbert Schiemann <h.schiemann@herbaer.de>
VERSION
};
$args -> {"[sr]version"} = sub { version (); exit 0; };

$args -> {"[sr]help"} = sub {
   version ();
   print_message_with_values (<<'HELP', $args);
pipe_srv.pl [Optionen]
--[no_]verbose    Umfang der Meldungen ${[cnt]verbose}
--base   BASE     Verzeichnis der Pipes ${base}
HELP
   exit 0;
};

read_args ($args);
my $translator = new Herbaer::Translate::Pipe ($args -> {"base"});
my $ok = $translator -> stop () || "";
if ($ok ne "OK") {
   print STDERR "Kann Übersetzungsprozess nicht beenden.\n" if $args -> {"[cnt]verbose"};
}
else {
   print STDERR "OK\n";
}
# end of file KLEIDER/web/src/localization/pipe_srv_stop.pl