#!/usr/local/bin/perl
use
blib;
use
strict;
use
warnings;
use
AFS::VLDB;
my
(
$vldb
,
$volume
,
$ok
);
die
"Usage: $0 volume\n"
if
$#ARGV
!= 0;
$volume
=
shift
;
$vldb
= AFS::VLDB->new;
$AFS::CODE
and
"AFS::CODE = $AFS::CODE\n"
;
$ok
=
$vldb
->
lock
(
$volume
);
if
(
$AFS::CODE
) {
"AFS::CODE = $AFS::CODE\n"
; }
else
{
"Locked VLDB entry for volume $volume \n"
; }