# redocost
		newcost = recalc_cdr_cost()
		if ( newcost != costinclgst ) {
			#print "Recosted: old=" costinclgst "  new=" newcost
			costinclgst = newcost
		}
#---------------------------------

function recalc_cdr_cost()
{
	newcost = costinclgst
	if ( internet ) {
		newcost = sprintf("%0.5f", (kbytes / 1024) * 0.005)
	}
	if ( callclass == "HOR-F" ) {
	}
	if ( callclass == "MOBCL" ) {
	}
	if ( callclass == "SMSMO" ) {
	}
	if ( callclass == "SMSMT" ) {
	}
	if ( callclass == "U-DAE" ) {
	}
	if ( callclass == "U-DAV" ) {
	}
	if ( callclass == "U-GPR" ) {
	}
	if ( callclass == "U-ROA" ) {
	}
	if ( callclass == "U-SMS" ) {
	}

	return newcost
}


#---------------------------------