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