#!/usr/local/bin/perl

use strict;
use COPS::Client;

my $cops_client = new COPS::Client (
                        [
                        VendorID => 'COPS Client',
                        ServerIP => '192.168.1.1',
                        ServerPort => '3918',
                        Timeout => 2,
			DataHandler => \&display_data
                        ]
                        );

if ( $cops_client->connect() )
	{
	$cops_client->set_command("set");
	$cops_client->subscriber_set("ipv4","172.26.65.19");

	$cops_client->gate_specification_add(
			[
			Direction	=> 'Downstream',
			DSCPToSMark	=> 0,
			Priority	=> 0,
			PreEmption	=> 0,

			Gate_Flags	=> 0,
	                Gate_TOSField	=> 0,
			Gate_TOSMask	=> 0,
			Gate_Class	=> 0,
			Gate_T1		=> 0,
			Gate_T2		=> 0,
			Gate_T3		=> 0,
			Gate_T4		=> 0
			]
			);


	$cops_client->classifier_add(
			[
			Classifier_Type		=> 'Classifier',
			Classifier_Priority => 64,
			Classifier_SourceIP => "172.26.65.19",
			Classifier_DestinationIP => "172.26.65.1",
			Classifier_ClassifierID => 100,
			Classifier_State => 1
			]
			);

	# The envelope_add parameters are broken into 3 groups
	#
	# authorize
	# reserve
	# commit
	#
	# and should be provided as follows
	#
	# 'Envelope_<type>_<parameter>' => <value>
	#
	# example would be
	#
	# 'Envelope_authorize_Traffic Priority'   => 0,
	#
	# Attributes for Downstream profile type are
	#
	# 'Traffic Priority'
	# 'Maximum Sustained Traffic Rate'
	# 'Maximum Traffic Burst'
	# 'Minimum Reserved Traffic Rate'
	# 'Assumed Minimum Reserved Traffic Rate Packet Size'
	# 'Maximum Downstream Latency'
	#
	# This example shows authorize, reserve and commit all having the same values.

	$cops_client->envelope_add (
			[
			Envelope_Type		=> "authorize,reserve,commit",
			Service_Type		=> 'Downstream',

			'Envelope_authorize_Traffic Priority'	=> 0,
			'Envelope_authorize_Maximum Sustained Traffic Rate' => 12345678,
			'Envelope_authorize_Maximum Traffic Burst' => 3044,
			'Envelope_authorize_Minimum Reserved Traffic Rate' => 0,
			'Envelope_authorize_Assumed Minimum Reserved Traffic Rate Packet Size' => 64,
			'Envelope_authorize_Maximum Downstream Latency' => 0,

			'Envelope_reserve_Traffic Priority' => 0,
			'Envelope_reserve_Maximum Sustained Traffic Rate' => 12345678,
			'Envelope_reserve_Maximum Traffic Burst' => 3044,
			'Envelope_reserve_Minimum Reserved Traffic Rate' => 0,
			'Envelope_reserve_Assumed Minimum Reserved Traffic Rate Packet Size' => 64,
			'Envelope_reserve_Maximum Downstream Latency' => 0,

			'Envelope_commit_Traffic Priority' => 0,
			'Envelope_commit_Maximum Sustained Traffic Rate' => 12345678,
			'Envelope_commit_Maximum Traffic Burst' => 3044,
			'Envelope_commit_Minimum Reserved Traffic Rate' => 0,
			'Envelope_commit_Assumed Minimum Reserved Traffic Rate Packet Size' => 64,
			'Envelope_commit_Maximum Downstream Latency' => 0,
			]
			);

	$cops_client->check_data_available();

	}
	else
	{
	print "Error was '".$cops_client->get_error()."'\n";
	}

$cops_client->disconnect();

sub display_data
{
my ( $self ) = shift;
my ( $data ) = shift;

print "Report Information Received.\n\n";

foreach my $name ( sort { $a cmp $b } keys %{$data} )
        {
        print "Name  is '$name' value is '${$data}{$name}'\n";
        }

}

exit(0);