#!/usr/bin/perl
use strict;

=comment

usage: perl vm_x_min_plot.pl <date> <number of previous obs>
usage: perl vm_x_min_plot.pl 033005 240

=cut

require "graphVM.lib";

my ($logdate,$num_obs) = @ARGV;

my $log_in = 'vmstatlog.'.$logdate;
my $log_out = 'vmstatlog_out.'.$logdate;

open (VMSTATS_FILE_OUT, ">$log_out");

my $content = `tail -n $num_obs $log_in`;
my @content_array = split(/\n/,$content);

my $time_back = $num_obs*5;
my $date_today = `date --date='$time_back seconds ago' +"%D %T"`;
chomp($date_today);

my $date_new;
my $seconds_count = 0;

my $line_record;

foreach $line_record (@content_array) {

$date_new = `date --date='$date_today $seconds_count seconds' +"%D %T"`;
chomp($date_new);

print VMSTATS_FILE_OUT $date_new.' ';
print VMSTATS_FILE_OUT $line_record."\n";

$seconds_count = $seconds_count+5;

}

close (VMSTATS_FILE_OUT);

my_graph($log_out, 3, 'Processes/Waiting', 'number processes', "./vmstatgraphs/procs_waiting_x_time.png");
my_graph($log_out, 4, 'Processes/Sleeping', 'number processes', "./vmstatgraphs/procs_sleeping_x_time.png");

my_graph($log_out, 5, 'VM/Swapped', 'kB', "./vmstatgraphs/vm_swapped_x_time.png");
my_graph($log_out, 6, 'VM/Free', 'kB', "./vmstatgraphs/vm_free_x_time.png");
my_graph($log_out, 7, 'VM/Buffer', 'kB', "./vmstatgraphs/vm_buffer_x_time.png");
my_graph($log_out, 8, 'VM/Cache', 'kB', "./vmstatgraphs/vm_cache_x_time.png");

my_graph($log_out, 9, 'Swapped In', 'kB/s', "./vmstatgraphs/swapped_in_x_time.png");
my_graph($log_out, 10, 'Swapped Out', 'kB/s', "./vmstatgraphs/swapped_out_x_time.png");

my_graph($log_out, 11, 'IO blocks in', 'blocks/s', "./vmstatgraphs/io_in_x_time.png");
my_graph($log_out, 12, 'IO blocks out', 'blocks/s', "./vmstatgraphs/io_out_x_time.png");

my_graph($log_out, 13, 'Interrupts', 'interrupts/s', "./vmstatgraphs/sys_interrupts_x_time.png");
my_graph($log_out, 14, 'Context Switches', 'context switches/s', "./vmstatgraphs/context_switches_x_time.png");

my_graph($log_out, 15, 'CPU/System', 'percent utilization', "./vmstatgraphs/cpu_system_x_time.png");
my_graph($log_out, 16, 'CPU/User', 'percent utilization', "./vmstatgraphs/cpu_user_x_time.png");
my_graph($log_out, 17, 'CPU/Idle', 'percent utilization', "./vmstatgraphs/cpu_idle_x_time.png");
my_graph($log_out, 18, 'CPU/Waiting', 'percent utilization', "./vmstatgraphs/cpu_waiting_x_time.png");

exit 0;