#!/usr/local/bin/perl
use
blib;
use
strict;
use
warnings;
use
AFS::VLDB;
my
(
$vldb
,
$server
,
$partition
,
$ok
);
die
"Usage: $0 [server [partition]] \n"
if
$#ARGV
> 1;
$server
=
shift
;
$partition
=
shift
;
$vldb
= AFS::VLDB->new;
$AFS::CODE
and
"AFS::CODE = $AFS::CODE\n"
;
if
(
defined
$partition
and
defined
$server
)
{
$ok
=
$vldb
->unlockvldb(
$server
,
$partition
); }
elsif
(
defined
$server
) {
$ok
=
$vldb
->unlockvldb(
$server
); }
else
{
$ok
=
$vldb
->unlockvldb; }
if
(
$AFS::CODE
) {
"AFS::CODE = $AFS::CODE\n"
; }
else
{
"OK = $ok\n"
; }