#!/usr/local/bin/perl -w

use blib;

use strict;
use AFS::VLDB;

my ($vldb, $server, $partition, $ok);

die "Usage: $0 server [partition] \n" if $#ARGV < 0;

$server    = shift;
$partition = shift;

$vldb = AFS::VLDB->new;

if (defined $partition and defined $server) {
     $ok = $vldb->syncvldb($server, $partition);
     print "Error: ", $AFS::CODE, "\n" if ($AFS::CODE);
     print "VLDB synchronized with state of server $server partition $partition \n" if $ok;
}
else {
     $ok = $vldb->syncvldb($server);
     print "Error: ", $AFS::CODE, "\n" if ($AFS::CODE);
     print "VLDB synchronized with state of server $server \n" if $ok;
}
