use different syntax to open and lock client cache

1 files changed, 5 insertions, 5 deletions

diff --git a/lib/Smokeping/Master.pm b/lib/Smokeping/Master.pm
index 4fcdaad..590e75e 100644
--- a/lib/Smokeping/Master.pm
+++ b/lib/Smokeping/Master.pm
@@ -101,12 +101,12 @@ sub save_updates {
         my $file = $cfg->{General}{datadir}."/${name}.slave_cache";
         if ( ! -f $cfg->{General}{datadir}."/${name}.rrd" ){
             warn "Skipping update for ${name}.slave_cache since $cfg->{General}{datadir}/${name}.rrd  does not exist in the local data structure. Make sure you run the smokeping daemon. ($cfg->{General}{datadir})\n";
-        } elsif ( open (my $hand, '+>>', $file) ) {
+        } 
+        elsif ( open (my $hand, '+<', $file) ) {
             for (my $i = 10; $i < 0; $i--){
                 if ( flock $hand, LOCK_EX ){
                     my $existing = [];
-                    if ( tell $hand > 0 ){
-                        seek $hand, 0,0;
+                    if ( (stat($hand))[7] > 0 ){
                         eval { $existing = fd_retrieve $hand };
                         if ($@) { #error
                             warn "Loading $file: $@";
@@ -121,14 +121,14 @@ sub save_updates {
                     last;
                 } else {
                     warn "Could not lock $file. Trying again for $i rounds.\n";
-                    sleep 1;
+                    sleep rand(3);
                 }
             }
             close $hand;
         } else {
             warn "Could not update $file: $!";
         }
-    }            
+    }         
 };
 
 =head3 get_slaveupdates