#!/usr/bin/perl -w

use strict;
#use DBI;
use Data::Dumper;

$ENV{PATH} .= '/usr/openv/netbackup/bin:/usr/openv/netbackup/bin/admincmd';

my %pol_types = {
	0 => 'Standard
	4 => 'Oracle
	6 => 'Informix-On-BAR
	7 => 'Sybase
	10 => 'NetWare
	13 => 'MS-Windows-NT/2000
	14 => 'OS/2
	15 => MS-SQL-Server
	16 => 'MS-Exchange-Server
	19 => 'NDMP
	11 => 'DataTools-SQL-BackTrack
	17 => 'SAP
	18 => 'DB2
	20 => 'FlashBackup
	21 => 'Split-Mirror
	22 => 'AFS
};


foreach my $polname (`bppllist`) {
	while (`bppllist $polname -l`) {
		if ($_ =~ m/