Hi!
Some thoughts, since we do this. We use a bpdir PERL wrapper to get all
of the files in a particular directory every day.
Then foreach thru to get those files. We do this daily, since we have
users that change config things and break 'em. This way we have evidence
without backing up those files....
Note the snippet below is basically what we use. You will need to tweek,
probably, and it does require a few CPAN thingies if you want the whole
thing. Basically, though, you will want to look at the GoGetFiles
function (at the bottom) to see how we loop using bpdir and then use
that output to grab the files....
Can be made to work for Winders and *nixes...
Hope it is useful...
Cheers!
--Chris
---------------------------------------------------
Example PERL wrapper to bpdir and bpgp:
## USE AT YOUR OWN RISK!!!!
#!/usr/bin/perl
$|=1;
use Date::Calc::Today()
use Socket;
my ($year,$month,$day) = Today();
## Make our right year.
my $year = $year - 2000;
if( $year < 10 ) {
$year = "0" . $year;
}
if( $month < 10 ) {
$month = "0" . $month;
}
if( $day < 10 ) {
$day = "0" . $day;
}
##
## Configurables
##
$mpath="/FILES/monitor";
$BPPath = "/usr/openv/netbackup";
$path="/FILES/monitor/$year/$month/$day";
`mkdir -p /FILES/monitor/$year/$month/$day`;
@bpclients = `$BPPath/bin/admincmd/bpclclients | tail +3 | awk \'{print
\$3}\'`;
## Check each client and get files if available.
foreach my $Client ( @bpclients )
{
if( ! $Client ){ next; }
chomp( $Client);
print "===========================================\n";
##
print "Checking Client Name: $Client\n";
## If PINGs and BPDIRs
if(! &Pings( $Client ) ) {
print "$Client: NO ping.\n";
next;
} elsif(! &BPListen( $Client )) {
print "$Client: NO LISTEN.\n";
next;
} else {
print "$Client: Getting files\n";
chomp( $Client);
&GoGetFiles( $Client );
}
print "===========================================\n";
}
sub Pings
{
my( $client ) = @_;
#print "Attempting to ping: $client.\n";
my @ping = `/usr/sbin/ping $client 2>&1`;
if( grep( /alive/, @ping ) )
{ return 1; }else{ return 0; }
}
sub BPListen
{
my( $host ) = @_;
my $address;
#print "Running with $host";
my $res = Net::DNS::Resolver->new;
my $query = $res->search("$host");
#print "Query for $host is set for DNS";
if ($query) {
foreach my $rr ($query->answer) {
next unless $rr->type eq "A";
#print $rr->address, "\n";
$address = $rr->address;
}
}
if( $host =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ ) {
$address = $host;
}
#print "$address\n";
$addr=pack 'C4',split /\./,$address;
$proto=getprotobyname 'tcp';
socket SOCK, PF_INET, SOCK_STREAM,$proto;
#print "Connect to socket";
if (connect SOCK, sockaddr_in(13782,$addr)) {
close SOCK;
return 1;
}
else {
close SOCK;
return 0;
}
}
sub BPDirs
{
my ($Client ) = @_;
my( $Client ) = @_;
my @bpdir = `$BPPath/bin/admincmd/bpdir -M $Client /`;
my @bpdirdata = grep "/", @bpdir;
if( @bpdirdata) {
return 1;
}else{
return 0;
}
}
#&MakeDirectory($path, $Client);
sub MakeDirectory
{
my($path, $Client) = @_;
if(! -d "$path/$Client" )
{
`mkdir $path/$Client` ;
`chmod 0755 $path/$Client`;
}
return;
}
##--------------------------------------------------------
## Go and get the remote client's config and dump to files.
## MUST ping to get this far...
## AND, MUST be able to BPDIR...
sub GoGetFiles
{
my( $Client ) = @_;
my @RemoteFileList ;
## Skip if the client directory already exists.
if( -d "$path/$Client" ){ print "$Client exists.\n"; next; }
## PATH to feed to BPDIR:
my $bppath = "/usr/openv/netbackup";
#if($OS =~ /windows/) {
# &MakeDirectory($path, $Client);
# `($BPPath/bin/admincmd/bpgetconfig -M $Client
1>$path/$Client/bpconfig.txt 2>\&1)`;
#`grep '^Include =' $path/$Client/bpconfig.txt
>$path/$Client/include_list`;
#`grep '^Exclude =' $path/$Client/bpconfig.txt
>$path/$Client/exclude_list`;
#print "Windows client Information gotten.";
#return;
#} else {
## BPDIR:
my @FileList = `$bppath/bin/admincmd/bpdir -M $Client $bppath`;
## GREP into an array all significant Remote Files found.
@RemoteFileList =
grep( /clude_list|bp.conf|last_successful_hostname/,
@FileList);
## hardcoded.
# @RemoteFileList =("include_list",
"exclude_list","include_list.Full-Monthly",
# "exclude_list.Full-Monthly","include_list.Incremental-Daily",
# "exclude_list.Incremental-Daily","bp.conf");
#}
## If there are config files to process...CJM
if ( @RemoteFileList ) {
## MAKEDIR the log dir.
&MakeDirectory($path, $Client);
## Cycle thru those files found to get 'em all.CJM
foreach my $RemoteFile ( @RemoteFileList ) {
## strip off extra whitespace (fr and ba)
$RemoteFile =~ s/^\s+//;
$RemoteFile =~ s/\s+$//;
## get the filename from BPDIR output.
## the filename is d
my( $a, $b, $c, $filename, $e, $f ) = split( /\s+/, $RemoteFile );
print "-Getting remote file: $filename.";
## Go get the remote file.CJM
`($BPPath/bin/bpgp from $Client $bppath/$filename
$path/$Client/$filename)\&`;
} ## End foreach
} else {
print "NO files to get.";
return;
} ## EndIf
return;
}
------------------------------ snip ---------------------------------
>* Clooney, David <david.clooney at bankofamerica.com> [2006-08-15 12:35]:
>
>
>>Hi all
>>
>>Trying to rollout an upgrade of x number of solaris clients , the
>>problem I have is the SA'a want to simply remove the package and then
>>add the new, which will detroy any exclude_lists
>>out there in the environment.
>>
>>I use bpgp quite a bit in secured environments and find very useful
>>indeed, albeit I have seen technotes in the past it cause issues I have
>>yet to have a prob in the last 4 years.
>>
>>Problem is that you have to know the specific file you are after on the
>>client, has anyone incorpated wildcards in some sort of way or fashion
>>to bring down say,
>>exclude* ??
>>
>>
>
>Ack! bpgp has no way to use wildcards. If you do try to use wildcards,
>you will likely destroy something.
>
>Always be very very careful when using bpgp.
>
>
>
|
