← Back to branch summary

~ubuntu-branches/ubuntu/wily/torrus/wily-proposed

« back to all changes in this revision

Viewing changes to perllib/Torrus/DevDiscover/CiscoGeneric.pm

  • Committer: Package Import Robot
  • Author(s): Marc Haber
  • Date: 2011-11-06 17:15:40 UTC
  • mto: (6.1.1 experimental) (1.3.1)
  • mto: This revision was merged to the branch mainline in revision 7.
  • Revision ID: package-import@ubuntu.com-20111106171540-myc0auwqqio8bmhl
Tags: upstream-2.01
Import upstream version 2.01

Show diffs side-by-side

added added

removed removed

Lines of Context:
perllib/Torrus/DevDiscover/CiscoGeneric.pm
14
14
#  along with this program; if not, write to the Free Software
15
15
#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
16
16
 
17
 
# $Id: CiscoGeneric.pm,v 1.10 2008/06/02 23:28:02 ssinyagin Exp $
 
17
# $Id$
18
18
# Stanislav Sinyagin <ssinyagin@yahoo.com>
19
19
 
20
20
# Common Cisco MIBs, supported by many IOS and CatOS devices
278
278
                if( $phyReferers{$phyIndex} > 1 )
279
279
                {
280
280
                    $phyDescr .= ' (' . $INDEX . ')';
 
281
                    $cpuNick .= '_' . $INDEX;
281
282
                }
282
283
                
283
284
                $data->{'ciscoCpuStats'}{$INDEX} = {
299
300
            # Although OLD-CISCO-CPU-MIB is implemented in IOS only,
300
301
            # it is easier to leave it here in Generic
301
302
 
302
 
            $session->get_request( -varbindlist =>
303
 
                                   [ $dd->oiddef('avgBusy1') ] );
304
 
            if( $session->error_status() == 0 )
 
303
            if( $dd->checkSnmpOID('avgBusy1') )
305
304
            {
306
305
                $devdetails->setCap('old-ciscoCpuStats');
307
306
                push( @{$data->{'templates'}}, 'CiscoGeneric::old-cisco-cpu' );
331
330
        my $fahrenheit =
332
331
            $devdetails->param('CiscoGeneric::use-fahrenheit') eq 'yes';
333
332
 
334
 
        my $param = {};
 
333
        my $param = {
 
334
            'node-display-name' => 'Temperature Sensors',
 
335
        };
335
336
        my $templates = [ 'CiscoGeneric::cisco-temperature-subtree' ];
336
337
        
337
338
        my $filePerSensor =
393
394
        # Create a subtree for the power supplies
394
395
        my $subtreeName = 'Power_Supplies';
395
396
 
396
 
        my $param = {'comment' => 'Power supplies status',
397
 
                     'precedence' => -600};
 
397
        my $param = {
 
398
            'node-display-name' => 'Power Supplies',
 
399
            'comment' => 'Power supplies status',
 
400
            'precedence' => -600,
 
401
        };
398
402
        my $templates = [];
399
403
                
400
404
        $param->{'data-file'} = '%system-id%_power.rrd';
431
435
        my $subtreeName = 'Memory_Usage';
432
436
 
433
437
        my $param = {
 
438
            'node-display-name' => 'Memory Usage',
434
439
            'precedence'        => '-100',
435
 
            'comment'           => 'Memory usage statistics'
 
440
            'comment'           => 'Router memory utilization'
436
441
            };
437
442
 
438
443
        my $subtreeNode =
520
525
    {
521
526
        my $subtreeName = 'CPU_Usage';
522
527
        my $param = {
 
528
            'node-display-name' => 'CPU Usage',
523
529
            'precedence'         => '-500',
524
530
            'comment'            => 'Overall CPU busy percentage'
525
531
            };
542
548
            if( $cpu->{'phy-referers'} > 1 )
543
549
            {
544
550
                $param->{'cisco-cpu-indexmap'} = $INDEX;
 
551
                $param->{'cisco-cpu-ref'} = $INDEX;
545
552
            }
546
553
            else
547
554
            {
548
555
                $param->{'entity-phy-index'} = $cpu->{'phy-index'};
 
556
                $param->{'cisco-cpu-ref'} = '%entity-phy-index%';
549
557
            }
550
558
            
551
559
            my @templates;