embedaddon/rsync/support/rsyncstats - diff

Return to rsyncstats CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync / support

version 1.1.1.1, 2012/02/17 15:09:30	version 1.1.1.2, 2021/03/17 00:32:36
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/env perl
#	#
# This script parses the default logfile format produced by rsync when running	# This script parses the default logfile format produced by rsync when running
# as a daemon with transfer logging enabled. It also parses a slightly tweaked	# as a daemon with transfer logging enabled. It also parses a slightly tweaked
Line 270 foreach $hour (sort keys %xfertbytes) {	Line 270 foreach $hour (sort keys %xfertbytes) {
exit(0);	exit(0);

sub datecompare {	sub datecompare {
$a gt $b;	$a cmp $b;
}	}

sub domnamcompare {	sub domnamcompare {

$sdiff = length($a) - length($b);	$sdiff = length($a) - length($b);
($sdiff < 0) ? -1 : ($sdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0;	($sdiff < 0) ? -1 : ($sdiff > 0) ? 1 : $a cmp $b;

}	}

sub bytecompare {	sub bytecompare {

$bdiff = $groupbytes{$b} - $groupbytes{$a};	$bdiff = $groupbytes{$b} - $groupbytes{$a};
($bdiff < 0) ? -1 : ($bdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0;	($bdiff < 0) ? -1 : ($bdiff > 0) ? 1 : $a cmp $b;

}	}

sub faccompare {	sub faccompare {

$fdiff = $fac{$b} - $fac{$a};	$fdiff = $fac{$b} - $fac{$a};
($fdiff < 0) ? -1 : ($fdiff > 0) ? 1 : ($a lt $b) ? -1 : ($a gt $b) ? 1 : 0;	($fdiff < 0) ? -1 : ($fdiff > 0) ? 1 : $a cmp $b;

}	}