: /bin/sh
# usage rmc cdrpath maxused
# removes old calls to free up disk space

#/*
#*************************************************************************
#**									*
#**	Copyright (C) 1997 Trans-Mit Pty. Ltd. Melbourne Australia	*
#**	This software may not be loaned, resold, changed or copied	*
#**	in any way without the express written permission of author	*
#**	and Trans-Mit Pty. Ltd., Australia.				*
#**									*
#*************************************************************************
#**
#**	$Header: /u/catcom/AccTraf/src/pcclu/RCS/rmc,v 1.2 2004/06/16 03:56:42 catcom Exp $
#**	$Author: catcom $
#**	$Date: 2004/06/16 03:56:42 $
#**	$Locker:  $
#**
#*************************************************************************
#*/

CDRPATH="$1"
MAXUSED=$2

getdiskused()
{
# get system date, time, disk used in cdr
date=`date +%d%m%y`
time=`date +%H%M%S`
diskused=`df -v $CDRPATH | awk '{ \
		if (NR != 1) { \
			split ($5, pno, "%"); \
			printf ("%s %d\n", filesystem, pno[1] ) \
		} \
	}'`
echo "rmc: $date $time cdr disk used %$diskused        (MAXUSED = $MAXUSED)"
}


#########################
# MAIN


getdiskused
while [ $diskused -gt $MAXUSED ]
do
	echo "cdr disk needs to be cleaned"
	awk -f /u/catcom/bin/clpsend.awk -v "cdrdir=$CDRPATH" -v "clean=1" || {
		echo "error removing old calls"
		exit 1
	}
	# re-check disk used
	getdiskused
done

exit 0

#/*
#**	$Log: rmc,v $
#**	Revision 1.2  2004/06/16 03:56:42  catcom
#**	NCR818 - pcclu for slackware 9.1 (kernel 2.4.22)
#**	       - incl. raw data logging and archiving (re: BOM)
#**
# Revision 1.1  97/05/27  14:02:52  catcom
# Initial revision
# 
#**	$Revision: 1.2 $
#**	$Source: /u/catcom/AccTraf/src/pcclu/RCS/rmc,v $
#**	$State: Exp $
#*/