Actions

Pastebin - View source

sub {

    ### init
    my $sth      = shift or return;
    my $default  = $sth->fetchrow_hashref;
    my $base_oid = "1.3.6.1.4.1.2863.78.3.4.";
    my @snmp_data;

    ### set user information
    while(my $row = $sth->fetchrow_hashref) {
        push @snmp_data,
        {
            type  => 'STRING',
            oid   => qq(1.1.1.) .$row->{'telport'},
            value => $row->{'regserver'},
        },
        {
            type  => 'INTEGER',
            oid   => qq(1.1.2.) .$row->{'telport'},
            value => $row->{'regport'},
        },
        {
            type  => 'STRING',
            oid   => qq(1.1.3.) .$row->{'telport'},
            value => $row->{'username'},
        },
        {
            type  => 'STRING',
            oid   => qq(1.1.4.) .$row->{'telport'},
            value => $row->{'password'},
        },
        {
            type  => 'STRING',
            oid   => qq(1.1.5.) .$row->{'telport'},
            value => $row->{'username'},
        },
        {
            type  => 'STRING',
            oid   => qq(1.1.6.) .$row->{'telport'},
            value => $row->{'proxyserver'},
        },
        {
            type  => 'STRING',
            oid   => qq(1.1.7.) .$row->{'telport'},
            value => $row->{'proxyport'},
        },
    }

    ### more info
    push @snmp_data,
        {
            type  => 'INTEGER',
            oid   => '1.1.8.1',
            value => $default->{'regtimeout'},
        },
        { type => 'INTEGER', oid => '3.1.1.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.2.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.3.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.4.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.5.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.6.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.7.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.8.1', value => 1 },
        { type => 'INTEGER', oid => '3.1.1.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.2.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.3.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.4.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.5.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.6.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.7.2', value => 1 },
        { type => 'INTEGER', oid => '3.1.8.2', value => 1 },
        {
            value => $default->{'template'},
            oid   => '2.4.0', # digitmap
            type  => 'STRING'
        },


    ### the end
    return [
        { 'name' => 'MtaConfigDelimiter', 'value' => '1'   },
        (
            map { {
                name  => 'SnmpMibObject',
                value => $_,
            } } map {
                $_->{'oid'} = $baseoid .$_->{'oid'};
            } @user_data
        ),
        { 'name' => 'MtaConfigDelimiter', 'value' => '255' },
    ];
}
flodhest network

Actions

Pastebin - View source
