volscgi purgeable space

[phrostyboi]

I'm having some trouble with getting purgeable space to display using
volscgi, the code is fairly similar to the sample volscgi script, but with
a purgeablespace part added...

# Create an HTML table based on the values from the db
#
print "<table border><TD>";
print "<tr><B><th>Description</th><th>Total Space</th><th>Free
Space</th><th>Block Size</th><th>Total Dir<th/></tr>";
my $vm;
if ($] < 5.006) {
$vm = UCSExt->new("UCX:Volumemgr");
} else {
$vm = Perl2UCS->new("UCX:Volumemgr");
}
my $db = $vm->{"Volumes"}; # fails for the first time in mod_perl
my $retVal1 = $db->reset();
$retVal1 = $db->hasMoreElements();
do
{
my $retVal2 = $db->Next();
my $retVal3 = $retVal2->{"Name"};
my $tb = $retVal2->{"TotalSpace"};
my $fb = $retVal2->{"PurgeableSpace"};
print "<tr><td> ";
print $retVal3;
print "</td>";
print "<td>";
print $tb;
print "</td>";
print "<td>";
print $fb;
print "</td><td>";
my $mt = $retVal2->{"BlockSize"};
print $mt;
print "</td><td>";
$mt = $retVal2->{"TotalDir"};
print $mt;
print "</td></tr>";
$retVal1 = $db->hasMoreElements();
} while ($retVal1);
print "</table>";

I'd expect this to fill in the 'freespace' column with the purgeable space
values, but all i get is empty table spaces, there is a PurgeableSpace
variable available, but it doesnt seem to work with perl?

[kmurugan]

#-----------------------------------------------------------------------------
# Reports the free space available in the volume given as the argument
#-----------------------------------------------------------------------------
sub GetFreeSpace
{
my $volname = $_[0];
$verbose && print "Computing free space for volume $volnamen";
if ($] < 5.006) {
$volume_mgr = UCSExt->new("UCX:Volumemgr") or die "Can't get
UCX:Volumemgr";
} else {
$volume_mgr = Perl2UCS->new("UCX:Volumemgr") or die "Can't get
UCX:Volumemgr";
}
my $volumes = $volume_mgr->{"VOLUMES"};
my $volume = $volumes->Element($volname);
my $freespace = $volume->{"FreeSpace"} + $volume->{"PurgableSpace"};
return $freespace;
}

Regards
K.Murugan

Post by phrostyboi
I'm having some trouble with getting purgeable space to display using
volscgi, the code is fairly similar to the sample volscgi script, but with
a purgeablespace part added...
# Create an HTML table based on the values from the db
#
print "<table border><TD>";
print "<tr><B><th>Description</th><th>Total Space</th><th>Free
Space</th><th>Block Size</th><th>Total Dir<th/></tr>";
my $vm;
if ($] < 5.006) {
$vm = UCSExt->new("UCX:Volumemgr");
} else {
$vm = Perl2UCS->new("UCX:Volumemgr");
}
my $db = $vm->{"Volumes"}; # fails for the first time in mod_perl
my $retVal1 = $db->reset();
$retVal1 = $db->hasMoreElements();
do
{
my $retVal2 = $db->Next();
my $retVal3 = $retVal2->{"Name"};
my $tb = $retVal2->{"TotalSpace"};
my $fb = $retVal2->{"PurgeableSpace"};
print "<tr><td> ";
print $retVal3;
print "</td>";
print "<td>";
print $tb;
print "</td>";
print "<td>";
print $fb;
print "</td><td>";
my $mt = $retVal2->{"BlockSize"};
print $mt;
print "</td><td>";
$mt = $retVal2->{"TotalDir"};
print $mt;
print "</td></tr>";
$retVal1 = $db->hasMoreElements();
} while ($retVal1);
print "</table>";
I'd expect this to fill in the 'freespace' column with the purgeable space
values, but all i get is empty table spaces, there is a PurgeableSpace
variable available, but it doesnt seem to work with perl?