Select Code to Download

Select or download this

my $browser     = LWP::UserAgent->new();
my $source_data = $browser->get( $config{source_file} );
...
 my ( $site_name, $line_speed, $mgmt_ip, $switch_port, $ro_community, 
+$group,
      $site_code )
   = split /\|/;

Select or download this

$results_table->{$group}->{$site_name} = {
                                            line_speed   => $line_spee
+d,
...
                                            sysobjid => '',
                                          };

Select or download this


   my ($session, $error) = Net::SNMP->session(
...
      exit 1;
   }

Select or download this

   $session->get_request(

...
       -callback    => [ \&store_sysobjid, \$group, \$site_name ]
   );

Select or download this
```
}
snmp_dispatcher();
```

Select or download this

sub store_sysobjid
{
...
                                                snmp_status => "OK"};
    }
}