Changeset 525 for LATMOS-Accounts/lib/LATMOS

Timestamp:

10/27/09 13:55:48 (15 years ago)

Author:

nanardon

Message:

• use a write method for status which preserv ownership and permissions

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

@@ -304 +304 @@
     $self->run_post_synchro;
 
-    $self->RewriteConfig
-        if($self->GetFileName && !($self->{options}{nocreate} || $self->{options}{test}));
+    if(!($self->{options}{nocreate} ||
+            $self->{options}{test})) {
+        $self->write_status;
+    }
     
     $self->leave_synch_mode(%state);
 
     1;
+}
+
+sub write_status {
+    my ($self) = @_;
+    if (my $file = $self->GetFileName) {
+        open(my $handle, '>', $file) or return;
+        my $oldfh = select($handle);
+        $self->OutputConfig();
+        select($oldfh);
+        close($handle); 
+        return 1;
+    }
+    return 0;
 }