#!/usr/bin/perl -w
# file KLEIDER/web/src/pinw/get_data.pl
# Daten-Eintrag aus Geheimnis-Datei
# 2020-09-20 Herbert Schiemann <h.schiemann@herbaer.de>

use utf8;                # Dieser Quelltext ist utf-8-kodiert
use Encode qw(decode);
use Herbaer::Readargs;   # read_args ()

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

my $args = {
   "key" => "website.login",
};

# gibt die Version nach STDOUT aus
sub version {
   print << 'VERSION';
KLEIDER/web/src/pinw/get_data.pl
Daten-Eintrag aus Geheimnis-Datei lesen
2020-09-20 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);
usage
value=\$($0 [option] ... < secret_file)

$0 --help     zeigt diese Hilfe an
$0 --version  zeigt die Programm-Version an

$0 [option]...
--key      KEY       Schlüssel des Dateneintrags \${key}
HELP
   exit 0;
}; # help

read_args ($args);
my $key = quotemeta (decode ("utf-8", $args -> {"key"}));
my $re = qr/^$key=(\S+)/o;
my $line;
while (defined ($line = <STDIN>)) {
   next if $line =~ /^#/;
   if ($line =~ $re) {
      print $1;
      last;
   }
}
# end of file KLEIDER/web/src/pinw/get_data.pl