#!/bin/sh NO_ARGS=0 OPTERROR=65 if [ $# -eq "$NO_ARGS" ] # Script invoked with no command-line args? then echo "Usage: `basename $0` File.log" exit $OPTERROR # Exit and explain usage, if no argument(s) given. fi logFile=$1 egrep 'Buffer has [0-9]* packets left' $logFile |\ awk 'BEGIN {print " date sz"} {print s++ " " $1 "::" $2 " " $10}' > data R --vanilla --no-save --slave <<RSCRIPT lst <- read.table("data") attach(lst) summary(sz) png(filename="buffer.png", width=1024) dates <- strptime(as.character(date), "%Y-%m-%d::%H:%M:%S") plot(dates, sz, type='l', main="Mauve server: Maximum buffer size per second", xlab="Time", ylab="Maximum number of packets waiting to be processed") abline(h=1.05, col="red") abline(h=mean(sz), col="blue") RSCRIPT img=`which qiv` if [ $? != 0 ] then echo "Cannot display image here" else $img buffer.png fi