FHEM/mod-backup
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add logpath

Browse Source
This commit is contained in:
Marko Oldenburg 2019-04-17 10:26:46 +02:00
parent 2a542e78b3
commit d0d6b694c7
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
98_backup.pm
View File

@ -104,7 +104,7 @@ sub CommandBackup($$) {
$ret = readModpath( $modpath, $backupdir );
## add all logfile path to pathname array
$ret = addLogPathToPathnameArray($modpath);
$ret = addLogPathToPathnameArray();
### remove double entries from pathname array
my %all=();
@ -298,20 +298,25 @@ sub createArchiv($$$) {
return $ret;
}
sub addLogPathToPathnameArray($) {
my $modpath = shift;
sub addLogPathToPathnameArray() {
# my $modpath = shift;
my $ret;
my @logpathname;
my $extlogpath;
Log( 4, 'addLogPathToPathnameArray' );
foreach my $logFile (devspec2array('TYPE=FileLog')) {
my $logpath = InternalVal($logFile,'logfile','');
if ( $logpath =~ m#^(.+?)\/[\w]+\.log$# ) {
Log( 5, 'found logFiles: ' . $logFile );
my $logpath = InternalVal($logFile,'currentlogfile','');
Log( 4, 'found logpath: ' . $logpath );
if ( $logpath =~ m#^(.+?)\/[\_|\-|\w]+\.log$# ) {
$extlogpath = $1;
Log( 4, 'found extlogpath: ' . $extlogpath );
if ( $1 =~ /^\/[A-Za-z]/ ) {
push( @logpathname, $extlogpath ) ;
Log( 2, 'external logpath include: ' . $extlogpath );
Log( 4, 'external logpath include: ' . $extlogpath );
}
}
}