# Set up full target name encoded as BER OID.
my @out  = unpack( "C*", "$short_origin-to-$short_target" );
my $name = join( ".",    @out );
my $num  = $#out + 1;
my $fulltargetname = "$num\.$name\.$num\.$name";
### Default Values
# All of the OIDs for the Results
my $pingResultsMinRtt      = '.1.3.6.1.2.1.80.1.3.1.4';
my $pingResultsMaxRtt      = '.1.3.6.1.2.1.80.1.3.1.5';
my $pingResultsAveRtt      = '.1.3.6.1.2.1.80.1.3.1.6';
my $pingProbeHistoryStatus = '.1.3.6.1.2.1.80.1.4.1.3';
#
### Default Values
# Max Concurrent requests allowed for Juniper (suggest: 30)
my $maxconn = '30';
# Target Address Type (suggest: 16)
my $pingCtlTargetAddressType_val = '16';
# Number of polls per cycle (suggest: 5)
my $pingCtlProbeCount_val = '5';
# Size of ICMP request in Octets (suggest: 128)
my $pingCtlDataSize_val = '128';
# Polling frequency in seconds (suggest: 60)
my $pingCtlFrequency_val = '60';
# Max number of historical rows kept in pingProbeHistoryTable (suggest: 5 - needs to be >= to pingCtlProbeCount for this script)
my $pingCtlMaxRows_val = '5';
# All of the required OIDs for the pingCtlTable
my $pingCtlRowStatus          = ".1.3.6.1.2.1.80.1.2.1.23\.$fulltargetname";
my $pingCtlTargetAddress      = ".1.3.6.1.2.1.80.1.2.1.4\.$fulltargetname";
my $pingCtlTargetAddressType  = ".1.3.6.1.2.1.80.1.2.1.3\.$fulltargetname";
my $pingCtlProbeCount         = ".1.3.6.1.2.1.80.1.2.1.7\.$fulltargetname";
my $pingCtlDataSize           = ".1.3.6.1.2.1.80.1.2.1.5\.$fulltargetname";
my $pingCtlFrequency          = ".1.3.6.1.2.1.80.1.2.1.10\.$fulltargetname";
my $pingCtlMaxRows            = ".1.3.6.1.2.1.80.1.2.1.11\.$fulltargetname";
my $pingCtlAdminStatus        = ".1.3.6.1.2.1.80.1.2.1.8\.$fulltargetname";
my $pingMaxConcurrentRequests = ".1.3.6.1.2.1.80.1.1.0";
# The set OID array
my @set_oids                  = ();
@set_oids = (
			  $pingCtlRowStatus, INTEGER, 4,
			  $pingCtlTargetAddressType, INTEGER, $pingCtlTargetAddressType_val,
			  $pingCtlTargetAddress, OCTET_STRING, $target_ip,
			  $pingCtlProbeCount, UNSIGNED32, $pingCtlProbeCount_val,
			  $pingCtlDataSize, UNSIGNED32, $pingCtlDataSize_val,
			  $pingCtlFrequency, UNSIGNED32, $pingCtlFrequency_val,			  
			  $pingCtlMaxRows, UNSIGNED32, $pingCtlMaxRows_val,
			  $pingCtlAdminStatus, INTEGER, 1,
);
# The OID array to retrieve data
my @get_oids                  = ();
@get_oids = (
			  "$pingResultsAveRtt\.$fulltargetname",
			  "$pingResultsMinRtt\.$fulltargetname",
			  "$pingResultsMaxRtt\.$fulltargetname",
);