diff -ruN smeserver-affa-3.3.1.old/root/sbin/affa smeserver-affa-3.3.1/root/sbin/affa --- smeserver-affa-3.3.1.old/root/sbin/affa 2022-07-04 16:57:09.153709672 +0100 +++ smeserver-affa-3.3.1/root/sbin/affa 2022-07-04 16:58:34.552122119 +0100 @@ -727,17 +727,16 @@ $rpt->newval( 'Report', 'Date', Date::Format::time2str( "%Y%m%d%H%M", time() ) ); $rpt->newval( 'Report', 'ExecutionTime', time() - $StartTime ); foreach my $s ( split( /[\r\n]/, $rsyncOutput ) ) { - if ( $s =~ /^(rsync|sent|total size is|File list)/ ){ - my @p = split( /:/, $s ); - ( my $key = $p[0] ) =~ s/\b(\w)/\U$1/g; # first char uppercase - $key =~ s/ //g; - ( my $val = trim( $p[1] ) ) =~ s/ .*$//; - #### ajout AG pour enlever les virgules générées par rsync3 - #### Remove commas generated by Rsync 3 - $val =~ s/,//g; - ##### fin des modifs AG - $rpt->newval( 'Report', $key, $val ); - } + next if ( $s =~ /(^rsync)|(^sent)|(^total size is)|(^File list)/ ); + my @p = split( /:/, $s ); + ( my $key = $p[0] ) =~ s/\b(\w)/\U$1/g; # first char uppercase + $key =~ s/ //g; + ( my $val = trim( $p[1] ) ) =~ s/ .*$//; + #### ajout AG pour enlever les virgules générées par rsync3 + #### Remove commas generated by Rsync 3 + $val =~ s/,//g; + ##### fin des modifs AG + $rpt->newval( 'Report', $key, $val ); } $rpt->newval( 'Report', 'RootDirFilesystemUsed', $used ); # kbytes