package AFS::VLDB;
#------------------------------------------------------------------------------
# RCS-Id: "@(#)$RCS-Id: src/VLDB/VLDB.pm 7a64d4d Wed May 1 22:05:49 2013 +0200 Norbert E Gruener$"
#
# © 2005-2010 Norbert E. Gruener <nog@MPA-Garching.MPG.de>
# © 2003-2004 Alf Wachsmann <alfw@slac.stanford.edu> and
# Norbert E. Gruener <nog@MPA-Garching.MPG.de>
#
# This library is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#------------------------------------------------------------------------------
use Carp;
use AFS ();
use vars qw(@ISA $VERSION);
@ISA = qw(AFS);
$VERSION = 'v2.6.4';
sub DESTROY {
my (undef, undef, undef, $subroutine) = caller(1);
if (! defined $subroutine or $subroutine !~ /eval/) { undef $_[0]; } # self->DESTROY
else { AFS::VLDB::_DESTROY($_[0]); } # undef self
}
sub delentry {
my $self = shift;
my $volume = shift;
my $noexec = shift;
$noexec = 0 unless $noexec;
if (! defined $volume) {
carp "AFS::VLDB->delentry: no VOLUME specified ...\n";
return (undef, undef);
}
if (ref($volume) eq 'ARRAY') {
$self->_delentry($volume, '', '', '', $noexec);
}
elsif (ref($volume) eq '' ) {
my @volumes;
$volumes[0] = $volume;
$self->_delentry(\@volumes, '', '', '', $noexec);
}
else {
carp "AFS::VLDB->delentry: not a valid input ...\n";
return (undef, undef);
}
}
sub delgroups {
my $self = shift;
my $prefix = shift;
my $server = shift;
my $part = shift;
my $noexec = shift;
$noexec = 0 unless $noexec;
$self->_delentry('', $prefix, $server, $part, $noexec);
}
sub listvldb {
my $self = shift;
$self->_listvldb('', @_);
}
sub listvldbentry {
my $self = shift;
$self->_listvldb($_[0]);
}
sub removeaddr {
my $self = shift;
my $ip_addr = shift;
$self->_changeaddr($ip_addr, '', 1);
}
sub syncvldb {
my $self = shift;
$self->_syncvldb(@_);
}
sub syncvldbentry {
my $self = shift;
$self->_syncvldb('', '', $_[0]);
}
1;