#!/usr/bin/perl -w

if ($#ARGV != 3)
	{
	print "Usage $0 <message file> <Algorithm(SHA1/MD5)> <msgsizelimit> <interval>";
	exit;
	}
$msgfile = $ARGV[0];
$algo = $ARGV[1];
$msgsizelimit = $ARGV[2];
$interval = $ARGV[3];

system("rm -f result.msgsize.$algo");
#Repeat for all the message size in given range
for ($msgsize = 0; $msgsize <= $msgsizelimit; $msgsize+=$interval)
	{
	open MSGFILE, ">$msgfile" or die "Error opening $msgfile for writing";
	for ($i=0; $i<$msgsize; $i++)
		{
		print MSGFILE "a";
		}
system("java Digest $msgfile $algo >> result.msgsize.$algo");
}

system("./creategraph.pl result.msgsize.$algo $algo $msgsizelimit $interval");