#!/usr/bin/perl
use strict;

require "graphVM.lib";

my ($logdate) = @ARGV;

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

open (VMSTATS_FILE, "$log_in");
open (VMSTATS_FILE_OUT, ">$log_out");

my $date_month = substr($logdate,0,2);
my $date_day = substr($logdate,2,2);
my $date_year = substr($logdate,4,2);
my $date_today = $date_month.'/'.$date_day.'/'.$date_year;

my $date_new;
my $seconds_count = 0;

my ($line_record, $line_count);
$line_count = 0;

foreach $line_record (<VMSTATS_FILE>) {

#skip header
if ($line_count > 1) {

	$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;

	$seconds_count = $seconds_count+5;
}

$line_count++;

}

close (VMSTATS_FILE_OUT);
close (VMSTATS_FILE);

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

my_graph($log_out, 5, 'VM/Swapped', 'kB', "./vmstatgraphs/vm_swapped.png");
my_graph($log_out, 6, 'VM/Free', 'kB', "./vmstatgraphs/vm_free.png");
my_graph($log_out, 7, 'VM/Buffer', 'kB', "./vmstatgraphs/vm_buffer.png");
my_graph($log_out, 8, 'VM/Cache', 'kB', "./vmstatgraphs/vm_cache.png");

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

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

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

my_graph($log_out, 15, 'CPU/System', 'percent utilization', "./vmstatgraphs/cpu_system.png");
my_graph($log_out, 16, 'CPU/User', 'percent utilization', "./vmstatgraphs/cpu_user.png");
my_graph($log_out, 17, 'CPU/Idle', 'percent utilization', "./vmstatgraphs/cpu_idle.png");
my_graph($log_out, 18, 'CPU/Waiting', 'percent utilization', "./vmstatgraphs/cpu_waiting.png");

exit 0;