mathieu: server/perl-kolab/lib/Kolab/LDAP/Backend syncrepl.pm, 1.5, 1.6
cvs at kolab.org
cvs at kolab.org
Wed Nov 26 23:26:46 CET 2008
Author: mathieu
Update of /kolabrepository/server/perl-kolab/lib/Kolab/LDAP/Backend
In directory doto:/tmp/cvs-serv15645/perl-kolab/lib/Kolab/LDAP/Backend
Modified Files:
syncrepl.pm
Log Message:
- defaults syncrepl_cookie_file to '/tmp/kolab_syncrepl_cookie_file'
- create if it doesn't exists
Index: syncrepl.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP/Backend/syncrepl.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- syncrepl.pm 19 Oct 2008 10:25:05 -0000 1.5
+++ syncrepl.pm 26 Nov 2008 22:26:44 -0000 1.6
@@ -60,10 +60,11 @@
# giving an argument means: set
sub cookie {
my($cookie) = @_;
+ my $syncrepl_cookie_file = $Kolab::config{'syncrepl_cookie_file'} || '/tmp/kolab_syncrepl_cookie_file';
if(defined($cookie)) {
- if(!open(COOKIE_FILE, '>', $Kolab::config{'syncrepl_cookie_file'})) {
- Kolab::log("SYNCREPL', 'Cannot open file `".$Kolab::config{'syncrepl_cookie_file'}.
- "' for writing", KOLAB_DEBUG);
+ if(!open(COOKIE_FILE, '>', $syncrepl_cookie_file)) {
+ Kolab::log("SYNCREPL', 'Cannot open file `".$syncrepl_cookie_file.
+ "' for writing: $!", KOLAB_DEBUG);
&abort;
}
Kolab::log("SYNCREPL', 'Writing cookie to file: ".$cookie, KOLAB_DEBUG);
@@ -71,9 +72,14 @@
close(COOKIE_FILE);
return $cookie;
} else {
- if(!open(COOKIE_FILE, '+<', $Kolab::config{'syncrepl_cookie_file'})) {
- Kolab::log("SYNCREPL', 'Cannot open file `".$Kolab::config{'syncrepl_cookie_file'}.
- "' for reading", KOLAB_DEBUG);
+ #create if it doesn't exists
+ if(! -f $syncrepl_cookie_file) {
+ open COOKIE_FILE, '>', $syncrepl_cookie_file;
+ close COOKIE_FILE;
+ }
+ if(!open(COOKIE_FILE, '+<', $syncrepl_cookie_file)) {
+ Kolab::log("SYNCREPL', 'Cannot open file `".$syncrepl_cookie_file.
+ "' for reading: $!", KOLAB_DEBUG);
&abort;
}
read COOKIE_FILE, $cookie, 1024, 0;
More information about the commits
mailing list