-#!/usr/bin/perl
+#!/usr/local/bin/perl
=pod
sub DisplayTable ($) {
my ($view) = @_;
- # Data fields
- my $tag = setField $view->tag;
- my $server = setField $view->shost;
- my $region = setField $view->region;
- my $properties = setField $view->properties;
- my $text_mode = setField $view->text_mode;
my $permissions = setField $view->owner_mode
. setField $view->group_mode
. setField $view->other_mode;
- my $owner = setField $view->owner;
my $active = ($view->active) ? 'YES' : 'NO';
- my $created_by = setField $view->created_by;
- my $created_date = setField $view->created_date;
- my $cs_updated_by = setField $view->cs_updated_by;
- my $cs_updated_date = setField $view->cs_updated_date;
- my $gpath = setField $view->gpath;
- my $access_path = setField $view->access_path;
- my $uuid = setField $view->uuid;
+ my $gpath = $view->gpath;
$gpath = font {-class => 'unknown'}, '<no-gpath>'
if $gpath eq '<no-gpath>';
display start_Tr;
display th {class => 'label'}, 'Tag:';
- display td {class => 'data', colspan => 3}, $tag;
+ display td {class => 'data', colspan => 3}, setField $view->tag;
display th {class => 'label'}, 'Server:';
display td {class => 'data'}, a {
- href => "serverdetails.cgi?server=$server"
- }, $server;
+ href => 'systemdetails.cgi?system=' . $view->shost
+ }, $view->shost;
display th {class => 'label'}, 'Region:';
- display td {class => 'data'}, $region;
+ display td {class => 'data'}, $view->region;
display end_Tr;
display start_Tr;
display th {class => 'label'}, 'Properties:';
- display td {class => 'data', colspan => 3}, $properties;
+ display td {class => 'data', colspan => 3}, $view->properties;
display th {class => 'label'}, 'Text Mode:';
- display td {class => 'data'}, $text_mode;
+ display td {class => 'data'}, $view->text_mode;
display th {class => 'label'}, 'Permission:';
display td {class => 'data'}, $permissions;
display end_Tr;
display start_Tr;
display th {class => 'label'}, 'Owner:';
- display td {class => 'data', colspan => 3}, $owner;
+ display td {class => 'data', colspan => 3}, $view->owner;
display th {class => 'label'}, 'Active:';
display td {class => 'data', colspan => 3}, $active;
display end_Tr;
display start_Tr;
display th {class => 'label'}, 'Created by:';
- display td {class => 'data', colspan => 3}, $created_by;
+ display td {class => 'data', colspan => 3}, $view->created_by;
display th {class => 'label'}, 'on:';
- display td {class => 'data', colspan => 3}, $created_date;
+ display td {class => 'data', colspan => 3}, $view->created_date;
display end_Tr;
display start_Tr;
display th {class => 'label'}, 'CS Updated by:';
- display td {class => 'data', colspan => 3}, $cs_updated_by;
+ display td {class => 'data', colspan => 3}, $view->cs_updated_by;
display th {class => 'label'}, 'on:';
- display td {class => 'data', colspan => 3}, $cs_updated_date;
+ display td {class => 'data', colspan => 3}, $view->cs_updated_date;
display end_Tr;
display start_Tr;
display start_Tr;
display th {class => 'label'}, 'Access Path:';
- display td {class => 'data', colspan => 7}, $access_path;
+ display td {class => 'data', colspan => 7}, $view->access_path;
display end_Tr;
display start_Tr;
display th {class => 'label'}, 'UUID:';
- display td {class => 'data', colspan => 7}, $uuid;
+ display td {class => 'data', colspan => 7}, $view->uuid;
+ display end_Tr;
+
+ display start_Tr;
+ display th {class => 'labelCentered', colspan => 10}, 'View Storage Pools';
+ display end_Tr;
+
+ display start_Tr;
+ display th {class => 'label'}, 'Database:';
+ display td {class => 'data', colspan => 3, align => 'center'}, a {href =>
+ "plot.cgi?type=view&storage=private&tag=" . $view->tag
+ }, img {
+ src => "plotstorage.cgi?type=view&storage=private&tiny=1&tag=" . $view->tag,
+ border => 0,
+ };
+ display th {class => 'label'}, 'Private:';
+ display td {class => 'data', colspan => 5, align => 'center'}, a {href =>
+ "plot.cgi?type=view&storage=db&tag=" . $view->tag
+ }, img {
+ src => "plotstorage.cgi?type=view&storage=db&tiny=1&tag=" . $view->tag,
+ border => 0,
+ };
+ display end_Tr;
+
+ display start_Tr;
+ display th {class => 'label'}, 'Admin:';
+ display td {class => 'data', colspan => 3, align => 'center'}, a {href =>
+ "plot.cgi?type=view&storage=admin&tag=" . $view->tag
+ }, img {
+ src => "plotstorage.cgi?type=view&storage=admin&tiny=1&tag=" . $view->tag,
+ border => 0,
+ };
+ display th {class => 'label'}, 'Total Space:';
+ display td {class => 'data', colspan => 5, align => 'center'}, a {href =>
+ "plot.cgi?type=view&storage=total&tag=" . $view->tag
+ }, img {
+ src => "plotstorage.cgi?type=view&storage=total&tiny=1&tag=" . $view->tag,
+ border => 0,
+ };
display end_Tr;
display end_table;
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
-=cut
\ No newline at end of file
+=cut