From: <buc...@us...> - 2013-01-02 15:55:38
|
Revision: 240 http://devmon.svn.sourceforge.net/devmon/?rev=240&view=rev Author: buchanmilne Date: 2013-01-02 15:55:32 +0000 (Wed, 02 Jan 2013) Log Message: ----------- Revert unintended changes to trans_index in r238 (thanks to Wim Nelis for spotting them) Revision Links: -------------- http://devmon.svn.sourceforge.net/devmon/?rev=238&view=rev Modified Paths: -------------- trunk/modules/dm_tests.pm Modified: trunk/modules/dm_tests.pm =================================================================== --- trunk/modules/dm_tests.pm 2012-12-27 18:01:12 UTC (rev 239) +++ trunk/modules/dm_tests.pm 2013-01-02 15:55:32 UTC (rev 240) @@ -1621,9 +1621,6 @@ my $oid_h = \%{$oids->{$oid}}; # Extract our parent oids from the expression, first my ($src_oid) = $oid_h->{'trans_data'} =~ /\{(.+?)\}/g; - my ($oidregex) = $oid_h->{'trans_data'} =~ s/\{(.+?)\}//g; - $oidregex =~ s/^\s*//; - $oidregex =~ s/\s*$//; validate_deps($device, $oids, $oid, [$src_oid], '.+') ; # Validate our dependencies, have to do them seperately @@ -1648,24 +1645,6 @@ # Skip if our source oid is freaky-deaky next if $oid_h->{'error'}{$leaf}; - # If we had a regex, skip this index if the value doesnt match - if ( $oidregex ne '' ) { - my $res; - my $val = $src_h->{'val'}{$leaf}; - do_log("Testing value $val from against $oidregex",0) if $g{'debug'}; - my $result = eval "\$res = \$val =~ m$oidregex"; - if($@) { - do_log("Failed eval for REGSUB transform on leaf $leaf of " . - "$oid on $device ($@)", 0); - $oid_h->{'val'}{$leaf} = 'Failed eval'; - $oid_h->{'time'}{$leaf} = time; - $oid_h->{'color'}{$leaf} = 'yellow'; - $oid_h->{'error'}{$leaf} = 1; - next; - } - next if $res; - } - # Our oid sub leaf # my $oid_idx = $src_h->{'val'}{$leaf}; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |