#!/usr/local/bin/perl -w

use English;

# Args <tape> <MB written> <ovwr>
$vsn = shift;
$size = shift;
$ovwr = shift;

$maxsize = 500;
$tapepath = "/tmp";
$tapefile = "$tapepath/$vsn";
$tapesize = 0;

if ($ovwr eq "-o") {
    if ($tapesize + $size > $maxsize) {
	print "EOT\n";
	`echo $maxsize > $tapefile`;
	exit 3;
    }
    else {
        `echo $size > $tapefile`;
	exit 0;
    }
}
if ( -e "$tapefile") {
    $tapesize = `cat $tapefile`;
    chomp $tapesize;
}
if ($tapesize + $size > $maxsize) {
    print "EOT\n";
    `echo $maxsize > $tapefile`;
    exit 3;
}
else {
    $size += $tapesize;
    `echo $size > $tapefile`;
}

exit 0;