#!/usr/bin/perl -w
# file KLEIDER/web/src/localization/ftp.pl
# 2016-03-22 Herbert Schiemann <h.schiemann@herbaer.de>
# Datei-Upload
# GPL Version 2 oder neuer

# 2020-04-17 quit, Meldungen [cnt]verbose > 1, msec

package main;

use utf8 ;
use Cwd qw(realpath) ;
use Herbaer::Readargs ;
use Herbaer::Upload ;

binmode (STDIN,  ":utf8") ;
binmode (STDOUT, ":utf8") ;

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

# Hash der Kommandozeilen-Argumente
my $args = {
   "[cnt]verbose" => 1,
   "secrets"      => "$basedir/secrets",
   "putbase"      => "$basedir/docroot",
   "msec"         => 300,
};

# gibt die Version nach STDOUT aus
sub version {
   print <<'VERSION' ;
KLEIDER/web/src/localization/ftp.pl
FTP für die Website http://kleider.herbaer.de
2016 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);
ftp.pl [Optionen]
--[no_]verbose     Umfang der Meldungen ${[cnt]verbose}
--secrets SECRETS  Datei mit Zugangsdaten
                   ${secrets}
--putbase PUTBASE  Lokales Basisverzeichnis für den Upload
                   ${putbase}
--msec    MSEC     Wartezeit zwischen FTP-Befehlen in ms
HELP
   exit 0;
};

read_args ($args);

my $ftp = Herbaer::Upload -> new
  ($args -> {"secrets"}, $args -> {"[cnt]verbose"}, $args -> {"msec"});
exit 1 unless $ftp;
$ftp -> putbase ($args -> {"putbase"});

my $line;
my $verb = $args -> {"[cnt]verbose"};
while ( defined ($line = <STDIN>) ) {
   print STDERR "ftp.pl cmd $line" if $verb > 1;
   $line =~ s/^\s+// ;
   $line =~ s/\s+$// ;
   next unless $line;
   next if ($line =~ /^#/);
   last if $line eq "quit";
   $ftp -> cmd ($line);
   print STDERR "ftp.pl cmd done\n" if $verb > 1;
}
print STDERR "ftp.pl exit\n" if $verb > 1;

# end of file KLEIDER/web/src/localization/ftp.pl