view release on metacpan or  search on metacpan

lib/Apache/WebSNMP.pm  view on Meta::CPAN

	my $nextvalue = "";
	my $a_mac = "";
	my $split_mac = "";
	my $tempoid = "";
	my $vb = "";
	my @values = ();
	my @varlist = ();
	my @split_tag = ();

	# split the input buffer to find the snmp tags!
	my @incidents = split(/(<snmp>[a-zA-z0-9=\s\.\(\)]*<\/snmp>)/, $the_buffer);

	# process each tag.
	foreach $val (@incidents)
	{	
		if($val =~ "<snmp>")
		{
			# get rid of <snmp> tags
			$val = substr($val, 6,);
			$val = substr($val, 0, -7);
			# now parse snmp tag values
			@snmpvals = split(/\s+/, $val);
			foreach $sval (@snmpvals)
			{