#! /usr/local/bin/perl

push(@INC, "/n/dinosaur/0/romig/Projects/backup/src");

$ctime_perl = 'ctime.pl';
$hostname_prog = '/bin/hostname';

$DEBUG_LOCK = 1;
$opt_d = $DEBUG_LOCK;

require 'lib-lock4.perl';
require 'lib-log.perl';

$long_timeout = 300;
$lock_dir = "/n/dinosaur/0/romig/tmp";
$log_file = "$lock_dir/foobar";
$lock_file = "$lock_dir/a.lock";

$| = 1;
for ($i = 0; $i < 50; $i++) {
    print "locking...";
    $result = &lock($lock_file, 30);
    if ($result != $LOCK_OK) {
	print "failed\n";
    } else {
	print "got it\n";

	print "unlock...";
	&unlock($lock_file);
	print "\n";

	sleep(1);
    }
}
