1 |
diff -Nur -x '*.orig' -x '*.rej' smeserver-rdiff-backup-0.0.1/root/etc/e-smith/db/configuration/migrate/rdiff-backup-time mezzanine_patched_smeserver-rdiff-backup-0.0.1/root/etc/e-smith/db/configuration/migrate/rdiff-backup-time |
2 |
--- smeserver-rdiff-backup-0.0.1/root/etc/e-smith/db/configuration/migrate/rdiff-backup-time 2006-05-24 13:18:09.413346993 +1000 |
3 |
+++ mezzanine_patched_smeserver-rdiff-backup-0.0.1/root/etc/e-smith/db/configuration/migrate/rdiff-backup-time 2006-05-24 13:18:07.350705708 +1000 |
4 |
@@ -4,8 +4,11 @@ |
5 |
|
6 |
my %props = $rdiff_rec->props(); |
7 |
|
8 |
- $props{Hour} ||= int(rand(7)); # Early in the morning |
9 |
- $props{Minute} ||= int(rand(60)); |
10 |
+ my $hour = int(rand(12)); |
11 |
+ $hour += 12 if $hour > 6; |
12 |
+ |
13 |
+ exists $props{Hour} or $props{Hour} = $hour; |
14 |
+ exists $props{Minute} or $props{Minute} = int(rand(60)); |
15 |
|
16 |
$rdiff_rec->merge_props(%props); |
17 |
} |