#! /usr/local/bin/perl

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

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

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

$long_timeout = 300;
$lock_dir = "/n/dinosaur/0/romig/tmp/locks";
$log_file = "/n/dinosaur/0/romig/tmp/locks/log";

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

    print "unlock...";
    &unlock("a.lock");
    print "\n";
}