#!/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
]
);
# There is only one attribute for DOCSIS Service Class Name and it is
#
# ServiceClassName
#
# Example below adds a flow to the user call S_down which should
# be configured on the CMTS.
$cops_client->envelope_add (
[
Envelope_Type => "authorize,reserve,commit",
Service_Type => 'DOCSIS Service Class Name',
Envelope_ServiceClassName => 'S_down'
]
);
$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);