#!/usr/local/bin/perl

=pod

=head1 NAME $RCSfile: plot.cgi,v $

Plot statistics

=head1 VERSION

=over

=item Author

Andrew DeFaria <Andrew@ClearSCM.com>

=item Revision

$Revision: 1.14 $

=item Created:

Mon Oct 25 11:10:47 PDT 2008

=item Modified:

$Date: 2011/01/28 21:30:45 $

=back

=head1 DESCRIPTION

Display a graph of either Loadavg or Filesystem data and provide controls for
the user to manipulate the chart.

=cut

use strict;
use warnings;

use FindBin;
use CGI qw(:standard :cgi-lib start_table end_table start_Tr end_Tr);
use GD::Graph::area;

use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";

use Clearadm;
use ClearadmWeb;
use Display;

my $VERSION  = '$Revision: 1.14 $';
  ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
  
my %opts = Vars;

my $clearadm;

sub displayGraph() {
  my $parms;

  for (keys %opts) {
    $parms .= '&' if $parms;
    $parms .= "$_=$opts{$_}"
  } # for

  display '<center>';
  
  if ($opts{type} eq 'loadavg') {
    my %system = $clearadm->GetSystem($opts{system});

    # We can use the cached version only if the opts are set to default
    if ($opts{scaling} eq 'Hour' and $opts{points} == 24) {
      my $data = $opts{tiny} ? $system{loadavgsmall} : $system{loadavg};

      display img {src => "data:image/png;base64,$data"};
    } else {
      unless ($opts{tiny}) {
        display img {src => "plotloadavg.cgi?$parms", class => 'chart'};
      } else {
        display img {src => "plotloadavg.cgi?$parms", border => 0};
      } # unless
    } # if
  } elsif ($opts{type} eq 'filesystem') {
    my %filesystem = $clearadm->GetFilesystem($opts{system}, $opts{filesystem});

    # We can use the cached version only if the opts are set to default
    if ($opts{scaling} eq 'Day' and $opts{points} == 7) {
      my $data = $opts{tiny} ? $filesystem{fssmall} : $filesystem{fslarge};

      display img {src => "data:image/png;base64,$data"};
    } else {
      unless ($opts{tiny}) {
        display img {src => "plotfs.cgi?$parms", class => 'chart'};
      } else {
        display img {src => "plotfs.cgi?$parms", border => 0};
      } # unless
    } # if
  } elsif ($opts{type} eq 'vob' or $opts{type} eq 'view') {
    my (%vob, %view);

    %vob  = $clearadm->GetVob($opts{tag}, $opts{region})  if $opts{type} eq 'vob';
    %view = $clearadm->GetView($opts{tag}, $opts{region}) if $opts{type} eq 'view';
    # We can use the cached version only if the opts are set to default
    if ($opts{scaling} eq 'Day' and $opts{points} == 7) {
      my $storageType = $opts{tiny}          ? "$opts{storage}small" : "$opts{storage}large";
      my $data        = $opts{type} eq 'vob' ? $vob{$storageType}    : $view{$storageType};

      display img {src => "data:image/png;base64,$data"};
    } else {
      unless ($opts{tiny}) {
        display img {src => "plotstorage.cgi?$parms", class => 'chart'};
      } else {
        display img {src => "plotstorage.cgi?$parms", border => 0};
      } # unless
    } # if
  } # if

  display '</center>';
  
  return;
} # displayGraph

sub displayFSInfo() {
  if ($opts{filesystem}) {
    display h3 {-align => 'center'}, 'Latest Filesystem Reading';
  } else {
    display p;
    return;
  } # if
  
  display start_table {width => '800px', cellspacing => 1};
  
  display start_Tr;
    display th {class => 'labelCentered'}, 'Filesystem';
    display th {class => 'labelCentered'}, 'Type';
    display th {class => 'labelCentered'}, 'Mount';
    display th {class => 'labelCentered'}, 'Size';
    display th {class => 'labelCentered'}, 'Used';
    display th {class => 'labelCentered'}, 'Free';
    display th {class => 'labelCentered'}, 'Used %';
    display th {class => 'labelCentered'}, 'History';
    display th {class => 'labelCentered'}, 'Threshold';
  display end_Tr;  
  
  my %filesystem = $clearadm->GetFilesystem (
    $opts{system}, 
    $opts{filesystem}
  );
  my %fs = $clearadm->GetLatestFS   (
    $opts{system},
    $opts{filesystem}
  );
  
  my $size = autoScale $fs{size};
  my $used = autoScale $fs{used};
  my $free = autoScale $fs{free};    

  display start_Tr;
    display td {class => 'data'},         $filesystem{filesystem};
    display td {class => 'dataCentered'}, $filesystem{fstype};
    display td {class => 'data'},         $filesystem{mount};
    display td {class => 'dataRight'},    $size;
    display td {class => 'dataRight'},    $used;
    display td {class => 'dataRight'},    $free;
    # TODO: Note that this percentages does not agree with df output. I'm not 
    # sure why.
    display td {class => 'dataCentered'},
      sprintf ('%.0f%%', (($fs{reserve} + $fs{used}) / $fs{size} * 100));
    display td {class => 'dataCentered'}, $filesystem{filesystemHist};
    display td {class => 'dataCentered'}, "$filesystem{threshold}%";
  display end_Tr;
  
  display end_table;
  
  return;  
} # displayInfo

sub displayControls() {
  my $class = $opts{type} =~ /loadavg/i 
            ? 'controls'
            : 'filesystemControls';
  
  display start_table {
    align       => 'center',
    class       => $class,
    cellspacing => 0,
    width       => '800px',
  };
  
  my $tagsButtons;
  my ($systemLink, $systemButtons);

  if ($opts{type} =~ /(vob|view)/i) {
    $tagsButtons = makeTagsDropdown($opts{type}, $opts{tag});
  } else {
    $systemLink = span {id => 'systemLink'}, a {
      href => "systemdetails.cgi?system=$opts{system}",
    }, 'System';

    $systemButtons = makeSystemDropdown(
      $systemLink, 
      $opts{system}, 
      'updateFilesystems(this.value);updateSystemLink(this.value)'
    );
  } # if

  my $startButtons = makeTimeDropdown(
    $opts{type},
    'startTimestamp',
    $opts{system},
    $opts{filesystem},
    'Start',
    $opts{start},
    $opts{scaling},
  );

  my $endButtons = makeTimeDropdown(
    $opts{type},
    'endTimestamp',
    $opts{system},
    $opts{filesystem},
    'End',
    $opts{end},
    $opts{scaling},
  );

  my $update;

  if ($opts{type} eq 'loadavg') {
    $update = "updateSystem('$opts{system}')";
  } elsif ($opts{type} eq 'filsystem') {
    $update = "updateFilesystem('$opts{system}','$opts{filesystem}')";
  } else {
    $update = ''; # TODO do I need something here?
  } # if
             
  my $intervalButtons = makeIntervalDropdown(
    'Interval',
    $opts{scaling},
    $update
  );
  
  display start_Tr;
    display td $startButtons;
    display td $intervalButtons;
    display td $opts{type} =~ /(vob|view)/i ? $tagsButtons : $systemButtons;
  display end_Tr;

  display start_Tr;
    display td $endButtons;
    display td 'Points', 
      input {
        name      => 'points',
        value     => $opts{points},
        class     => 'inputfield',
        size      => 7,
        style     => 'text-align: right',
        maxlength => 7,
      };  

  if ($opts{type} eq 'loadavg') {
    display td input {
      type  => 'submit',
      value => 'Draw Graph',
    };
  } else {
    if ($opts{type} eq 'filesystem') {
      my $filesystemButtons = makeFilesystemDropdown (
        $opts{system}, 
        'Filesystem',
        undef,
        "updateFilesystem('$opts{system}',this.value)",
      );
  	
      display td $filesystemButtons;
    } else {
      my $storagePoolButtons = makeStoragePoolDropdown ($opts{type}, $opts{tag});

      display td $storagePoolButtons;
    } # if
    
    display end_Tr;
    display start_Tr;
    display td {align => 'center', colspan => 3}, 
      input {type => 'submit', value => 'Draw Graph'};
  } # if
  
  display end_Tr;

  display end_table;
  
  return;
} # displayControls

$clearadm = Clearadm->new;

my $title  = ucfirst($opts{type}) . ': ';

$title .= ucfirst $opts{system}           if $opts{system};
$title .= ":$opts{filesystem}"            if $opts{filesystem};
$title .= $opts{tag}                      if $opts{tag};
$title .= " Storage pool: $opts{storage}" if $opts{storage};

heading $title;

display h1 {class => 'center'}, $title;

display start_form {
  method => 'get', 
  action => 'plot.cgi',
};

# Some hidden fields to pass along
display input {type => 'hidden', name => 'type',   value => $opts{type}};
display input {type => 'hidden', name => 'region', value => $opts{region}};

displayGraph;
displayFSInfo;
displayControls;

display end_form;   

footing;

=pod

=head1 CONFIGURATION AND ENVIRONMENT

DEBUG: If set then $debug is set to this level.

VERBOSE: If set then $verbose is set to this level.

TRACE: If set then $trace is set to this level.

=head1 DEPENDENCIES

=head2 Perl Modules

L<CGI>

L<CGI::Carp|CGI::Carp>

L<FindBin>

L<Getopt::Long|Getopt::Long>

=head2 ClearSCM Perl Modules

=begin man 

 Clearadm
 ClearadmWeb
 Display

=end man

=begin html

<blockquote>
<a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
<a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
<a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
</blockquote>

=end html

=head1 BUGS AND LIMITATIONS

There are no known bugs in this script

Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.

=head1 LICENSE AND COPYRIGHT

Copyright (c) 2010, ClearSCM, Inc. All rights reserved.

=cut