#!/bin/bash

DIR=`dirname $0`

if [ $# != 2 ]; then
  echo "You must specify the path to the chart.pl script and the Chart Directory libraries."
  exit 1
fi

SCRIPT=$1
LIBRARIES=$2

export PERL5LIB=$LIBRARIES

pushd $DIR > /dev/null

$SCRIPT --table html -s lines --title "01 disk read request merges" -x "Time (secs.)" -y "Read Requests Merged/sec"  plot-files/sda.rrqm.plot plot-files/sdb.rrqm.plot
$SCRIPT --table html -s lines --title "03 disk write request merges" -x "Time (secs.)" -y "Write Requests Merged/sec"  plot-files/sda.wrqm.plot plot-files/sdb.wrqm.plot
$SCRIPT --table html -s lines --title "05 disk read iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/sda.riops.plot plot-files/sdb.riops.plot
$SCRIPT --table html -s stackedlines --title "07 disk cumulative read iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/sda.riops.plot plot-files/sdb.riops.plot
$SCRIPT --table html -s lines --title "09 disk write iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/sda.wiops.plot plot-files/sdb.wiops.plot
$SCRIPT --table html -s stackedlines --title "11 disk cumulative write iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/sda.wiops.plot plot-files/sdb.wiops.plot
$SCRIPT --table html -s lines --title "13 disk read throughput" -x "Time (secs.)" -y "Read KBytes/sec"  plot-files/sda.rkb.plot plot-files/sdb.rkb.plot
$SCRIPT --table html -s lines --title "15 disk write throughput" -x "Time (secs.)" -y "Write KBytes/sec"  plot-files/sda.wkb.plot plot-files/sdb.wkb.plot
$SCRIPT --table html -s lines --title "17 disk request size averages" -x "Time (secs.)" -y "Average Request Size"  plot-files/sda.avgrq-sz.plot plot-files/sdb.avgrq-sz.plot
$SCRIPT --table html -s lines --title "19 disk queue size averages" -x "Time (secs.)" -y "Average Queue Size"  plot-files/sda.avgqu-sz.plot plot-files/sdb.avgqu-sz.plot
$SCRIPT --table html -s lines --title "21 disk wait time" -x "Time (secs.)" -y "Average Wait Time"  plot-files/sda.await.plot plot-files/sdb.await.plot
$SCRIPT --table html -s lines --title "23 disk read wait time" -x "Time (secs.)" -y "Average Read Wait Time"  plot-files/sda.awaitr.plot plot-files/sdb.awaitr.plot
$SCRIPT --table html -s lines --title "25 disk write wait time" -x "Time (secs.)" -y "Average Write Wait Time"  plot-files/sda.awaitw.plot plot-files/sdb.awaitw.plot
$SCRIPT --table html -s lines --title "27 disk service time" -x "Time (secs.)" -y "Service Time"  plot-files/sda.svctm.plot plot-files/sdb.svctm.plot
$SCRIPT --table html -s lines --title "29 disk utilization" -x "Time (secs.)" -y "Utilization" --y-range=0:100  plot-files/sda.util.plot plot-files/sdb.util.plot
$SCRIPT --table html -s lines --title "02 dm read request merges" -x "Time (secs.)" -y "Read Requests Merged/sec"  plot-files/dm-0.rrqm.plot plot-files/dm-1.rrqm.plot
$SCRIPT --table html -s lines --title "04 dm write request merges" -x "Time (secs.)" -y "Write Requests Merged/sec"  plot-files/dm-0.wrqm.plot plot-files/dm-1.wrqm.plot
$SCRIPT --table html -s lines --title "06 dm read iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/dm-0.riops.plot plot-files/dm-1.riops.plot
$SCRIPT --table html -s stackedlines --title "08 dm cumulative read iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/dm-0.riops.plot plot-files/dm-1.riops.plot
$SCRIPT --table html -s lines --title "10 dm write iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/dm-0.wiops.plot plot-files/dm-1.wiops.plot
$SCRIPT --table html -s stackedlines --title "12 dm cumulative write iops" -x "Time (secs.)" -y "IO Ops/Second"  plot-files/dm-0.wiops.plot plot-files/dm-1.wiops.plot
$SCRIPT --table html -s lines --title "14 dm read throughput" -x "Time (secs.)" -y "Read KBytes/sec"  plot-files/dm-0.rkb.plot plot-files/dm-1.rkb.plot
$SCRIPT --table html -s lines --title "16 dm write throughput" -x "Time (secs.)" -y "Write KBytes/sec"  plot-files/dm-0.wkb.plot plot-files/dm-1.wkb.plot
$SCRIPT --table html -s lines --title "18 dm request size averages" -x "Time (secs.)" -y "Average Request Size"  plot-files/dm-0.avgrq-sz.plot plot-files/dm-1.avgrq-sz.plot
$SCRIPT --table html -s lines --title "20 dm queue size averages" -x "Time (secs.)" -y "Average Queue Size"  plot-files/dm-0.avgqu-sz.plot plot-files/dm-1.avgqu-sz.plot
$SCRIPT --table html -s lines --title "22 dm wait time" -x "Time (secs.)" -y "Average Wait Time"  plot-files/dm-0.await.plot plot-files/dm-1.await.plot
$SCRIPT --table html -s lines --title "24 dm read wait time" -x "Time (secs.)" -y "Average Read Wait Time"  plot-files/dm-0.awaitr.plot plot-files/dm-1.awaitr.plot
$SCRIPT --table html -s lines --title "26 dm write wait time" -x "Time (secs.)" -y "Average Write Wait Time"  plot-files/dm-0.awaitw.plot plot-files/dm-1.awaitw.plot
$SCRIPT --table html -s lines --title "28 dm service time" -x "Time (secs.)" -y "Service Time"  plot-files/dm-0.svctm.plot plot-files/dm-1.svctm.plot
$SCRIPT --table html -s lines --title "30 dm utilization" -x "Time (secs.)" -y "Utilization" --y-range=0:100  plot-files/dm-0.util.plot plot-files/dm-1.util.plot
echo -e "<html>\n<head>\n<title>IOstat Charts</title>\n</head>\n<body>\n" > chart.html
for i in `ls -1 *.png`; do
  echo -e "<table>\n<tr valign='top'>\n" >> chart.html
  echo -e "<td><img src='$i'></td>\n" >> chart.html
  html_file=`echo $i | sed -e "s/png/html/"`
  if [ -e $html_file ]; then
    echo -e "<td>\n" >> chart.html
    cat $html_file >> chart.html
    echo -e "</td>\n" >> chart.html
  fi
  echo -e "</tr>\n</table>\n" >> chart.html
done

echo -e "</body>\n</html>\n" >> chart.html