[cobalt-developers] File Locking

[mail@xxxxxxxxxxxx]

I am using the routine below as part of a perl script  to create a file lock
on a RQ2 however it gives a server error. I have used the same routine
before extensively on Linux with Apache without any problems. If anyone has
any ideas much appreciated.

open(LOCK, "../db/vacs.lck");
 unless (flock(LOCK, 2)) {
   die "Unable to lock file for write!\n";
   }
dbmopen(%db, "../db/vacs", 0666);

&subroutines;

dbmclose(%db);
 flock(LOCK, 8);
 close(LOCK);
I 

*******

Regards

Peter Stubbs
AgencyCo.com Ltd

Email: mail@xxxxxxxxxxxx

Tel:020 7503 8260
Fax: 0870 056 9199