#!/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 -s lines --title "01 disk read request merges" -x "Time (secs.)" -y "Read Requests Merged/sec"  plot-files/sda.rrqm.plot plot-files/sda1.rrqm.plot plot-files/sda2.rrqm.plot plot-files/sdb.rrqm.plot plot-files/sdc.rrqm.plot plot-files/sdd.rrqm.plot plot-files/sde.rrqm.plot plot-files/sdf.rrqm.plot plot-files/sdg.rrqm.plot plot-files/sdh.rrqm.plot plot-files/sdi.rrqm.plot
$SCRIPT -s lines --title "03 disk write request merges" -x "Time (secs.)" -y "Write Requests Merged/sec"  plot-files/sda.wrqm.plot plot-files/sda1.wrqm.plot plot-files/sda2.wrqm.plot plot-files/sdb.wrqm.plot plot-files/sdc.wrqm.plot plot-files/sdd.wrqm.plot plot-files/sde.wrqm.plot plot-files/sdf.wrqm.plot plot-files/sdg.wrqm.plot plot-files/sdh.wrqm.plot plot-files/sdi.wrqm.plot
$SCRIPT -s lines --title "05 disk read throughput" -x "Time (secs.)" -y "Read KBytes/sec"  plot-files/sda.rkb.plot plot-files/sda1.rkb.plot plot-files/sda2.rkb.plot plot-files/sdb.rkb.plot plot-files/sdc.rkb.plot plot-files/sdd.rkb.plot plot-files/sde.rkb.plot plot-files/sdf.rkb.plot plot-files/sdg.rkb.plot plot-files/sdh.rkb.plot plot-files/sdi.rkb.plot
$SCRIPT -s lines --title "07 disk write throughput" -x "Time (secs.)" -y "Write KBytes/sec"  plot-files/sda.wkb.plot plot-files/sda1.wkb.plot plot-files/sda2.wkb.plot plot-files/sdb.wkb.plot plot-files/sdc.wkb.plot plot-files/sdd.wkb.plot plot-files/sde.wkb.plot plot-files/sdf.wkb.plot plot-files/sdg.wkb.plot plot-files/sdh.wkb.plot plot-files/sdi.wkb.plot
$SCRIPT -s lines --title "09 disk request size averages" -x "Time (secs.)" -y "Average Request Size"  plot-files/sda.avgrq-sz.plot plot-files/sda1.avgrq-sz.plot plot-files/sda2.avgrq-sz.plot plot-files/sdb.avgrq-sz.plot plot-files/sdc.avgrq-sz.plot plot-files/sdd.avgrq-sz.plot plot-files/sde.avgrq-sz.plot plot-files/sdf.avgrq-sz.plot plot-files/sdg.avgrq-sz.plot plot-files/sdh.avgrq-sz.plot plot-files/sdi.avgrq-sz.plot
$SCRIPT -s lines --title "10 disk queue size averages" -x "Time (secs.)" -y "Average Queue Size"  plot-files/sda.avgqu-sz.plot plot-files/sda1.avgqu-sz.plot plot-files/sda2.avgqu-sz.plot plot-files/sdb.avgqu-sz.plot plot-files/sdc.avgqu-sz.plot plot-files/sdd.avgqu-sz.plot plot-files/sde.avgqu-sz.plot plot-files/sdf.avgqu-sz.plot plot-files/sdg.avgqu-sz.plot plot-files/sdh.avgqu-sz.plot plot-files/sdi.avgqu-sz.plot
$SCRIPT -s lines --title "12 disk wait time" -x "Time (secs.)" -y "Average Wait Time"  plot-files/sda.await.plot plot-files/sda1.await.plot plot-files/sda2.await.plot plot-files/sdb.await.plot plot-files/sdc.await.plot plot-files/sdd.await.plot plot-files/sde.await.plot plot-files/sdf.await.plot plot-files/sdg.await.plot plot-files/sdh.await.plot plot-files/sdi.await.plot
$SCRIPT -s lines --title "14 disk service time" -x "Time (secs.)" -y "Service Time"  plot-files/sda.svctm.plot plot-files/sda1.svctm.plot plot-files/sda2.svctm.plot plot-files/sdb.svctm.plot plot-files/sdc.svctm.plot plot-files/sdd.svctm.plot plot-files/sde.svctm.plot plot-files/sdf.svctm.plot plot-files/sdg.svctm.plot plot-files/sdh.svctm.plot plot-files/sdi.svctm.plot
$SCRIPT --y-range=0:105 -s lines --title "16 disk utilization" -x "Time (secs.)" -y "Utilization"  plot-files/sda.util.plot plot-files/sda1.util.plot plot-files/sda2.util.plot plot-files/sdb.util.plot plot-files/sdc.util.plot plot-files/sdd.util.plot plot-files/sde.util.plot plot-files/sdf.util.plot plot-files/sdg.util.plot plot-files/sdh.util.plot plot-files/sdi.util.plot
$SCRIPT -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 plot-files/dm-2.rrqm.plot
$SCRIPT -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 plot-files/dm-2.wrqm.plot
$SCRIPT -s lines --title "06 dm read throughput" -x "Time (secs.)" -y "Read KBytes/sec"  plot-files/dm-0.rkb.plot plot-files/dm-1.rkb.plot plot-files/dm-2.rkb.plot
$SCRIPT -s lines --title "08 dm write throughput" -x "Time (secs.)" -y "Write KBytes/sec"  plot-files/dm-0.wkb.plot plot-files/dm-1.wkb.plot plot-files/dm-2.wkb.plot
$SCRIPT -s lines --title "09 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 plot-files/dm-2.avgrq-sz.plot
$SCRIPT -s lines --title "11 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 plot-files/dm-2.avgqu-sz.plot
$SCRIPT -s lines --title "13 dm wait time" -x "Time (secs.)" -y "Average Wait Time"  plot-files/dm-0.await.plot plot-files/dm-1.await.plot plot-files/dm-2.await.plot
$SCRIPT -s lines --title "15 dm service time" -x "Time (secs.)" -y "Service Time"  plot-files/dm-0.svctm.plot plot-files/dm-1.svctm.plot plot-files/dm-2.svctm.plot
$SCRIPT --y-range=0:105 -s lines --title "17 dm utilization" -x "Time (secs.)" -y "Utilization"  plot-files/dm-0.util.plot plot-files/dm-1.util.plot plot-files/dm-2.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 "<img src='$i'></a><br/><br/>" >> chart.html
done

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