Weitergekommen

diff --git a/bin/backup-per-ftp.pl b/bin/backup-per-ftp.pl
index 27348a1593e14bd12a7773364a0f520d98d4b908..68e1b663eb608b68e76e5771d64d426c092ed14e 100755 (executable)
--- a/bin/backup-per-ftp.pl
+++ b/bin/backup-per-ftp.pl
@@ -14,16 +14,17 @@ use Encode qw( decode_utf8 encode_utf8 );
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
-use FrBr::Backup::App;
+#use FrBr::Backup::App;
+require FrBr::Backup::App;
 
 use version; our $VERSION = qv("0.0.1");
 
 my $opts = {
 #    'progname' => 'backup-per-ftp',
+    'ftp_auto_login' => 0,
 };
 
 my $app = FrBr::Backup::App->new_with_options(%$opts);
-$app->evaluate_common_options();
 
 #exit($app->exit_code);
 exit 0;

diff --git a/etc/log4perl.conf b/etc/log4perl.conf
new file mode 100644 (file)
index 0000000..427636c
--- /dev/null
+++ b/etc/log4perl.conf
@@ -0,0 +1,59 @@
+##############################################################################
+#
+#  Log-Konfiguration für Log::Log4perl
+#
+# Diese Konfiguration kann von einer log4perl_local.conf überschrieben werden.
+# (Kein Merging! - Siehe Log::Log4perl zu Details der Konfiguration)
+#
+# $Id$
+# $URL$
+#
+##############################################################################
+
+# Root-Logger
+log4perl.rootLogger = INFO, ScreenApp
+
+# Normaler Screen-Appender auf StdErr
+log4perl.appender.ScreenApp = Log::Log4perl::Appender::Screen
+log4perl.appender.ScreenApp.stderr = 1
+log4perl.appender.ScreenApp.utf8   = 1
+log4perl.appender.ScreenApp.layout = PatternLayout
+log4perl.appender.ScreenApp.layout.ConversionPattern = [%d] [backup] [%p] %m%n
+
+###########################
+# Alternativ mit zwei Appendern
+
+# Root-Logger
+#log4perl.rootLogger = DEBUG, ScreenApp, FileApp
+
+#layout_class   = Log::Log4perl::Layout::PatternLayout
+#layout_pattern = [%d] [backup] [%p] %m%n
+
+# Filterdefinition für den Screen-Appender
+#log4perl.filter.InfoFilter = Log::Log4perl::Filter::LevelRange
+#log4perl.filter.InfoFilter.LevelMin      = INFO
+#log4perl.filter.InfoFilter.LevelMax      = FATAL
+#log4perl.filter.InfoFilter.AcceptOnMatch = true
+
+# Normaler Screen-Appender auf StdErr
+#log4perl.appender.ScreenApp = Log::Log4perl::Appender::Screen
+#log4perl.appender.ScreenApp.stderr = 1
+#log4perl.appender.ScreenApp.utf8   = 1
+#log4perl.appender.ScreenApp.Filter = InfoFilter
+#log4perl.appender.ScreenApp.layout = ${layout_class}
+#log4perl.appender.ScreenApp.layout.ConversionPattern = ${layout_pattern}
+
+# Und der File-Appender für alles
+#log4perl.appender.FileApp = Log::Log4perl::Appender::File
+#log4perl.appender.FileApp.filename                 = /var/www/irgendwo/log/debug.log
+#log4perl.appender.FileApp.mode                     = append
+#log4perl.appender.FileApp.umask                    = 0222
+#log4perl.appender.FileApp.utf8                     = 1
+#log4perl.appender.FileApp.recreate                 = 1
+#log4perl.appender.FileApp.recreate_check_interval  = 60
+#log4perl.appender.FileApp.recreate_check_signal    = USR1
+#log4perl.appender.FileApp.layout                   = ${layout_class}
+#log4perl.appender.FileApp.layout.ConversionPattern = ${layout_pattern}
+
+
+

diff --git a/lib/FrBr/Backup/App.pm b/lib/FrBr/Backup/App.pm
index 64cf550bf4f9b85634a2d12d92e83e3b48af0672..1c0cce461d5b9b52d0af882ad2fae4fb9b95da3b 100644 (file)
--- a/lib/FrBr/Backup/App.pm
+++ b/lib/FrBr/Backup/App.pm
@@ -17,12 +17,14 @@ Basismodul fuer Backup-Anwendung mittels FTP
 
 use Moose;
 use MooseX::StrictConstructor;
-use Moose::Util::TypeConstraints;
-
 
 use utf8;
 
-with 'FrBr::Common::MooseX::FtpClient';
+
+extends 'FrBr::Common::MooseX::App';
+
+with 'FrBr::Common::MooseX::Role::Config';
+with 'FrBr::Common::MooseX::Role::FtpClient';
 
 #-----------------------------------------
 
@@ -33,7 +35,7 @@ my $Revis = <<'ENDE';
 ENDE
 $Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
 
-use version; our $VERSION = qv("0.0.3"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.0.4"); $VERSION .= " r" . $Revis;
 
 #############################################################################################