The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::TacacsPlus::Packet::AuthenStartBody - Tacacs+ authentication packet body

DESCRIPTION

The authentication START packet body

         1 2 3 4 5 6 7 8  1 2 3 4 5 6 7 8  1 2 3 4 5 6 7 8  1 2 3 4 5 6 7 8

        +----------------+----------------+----------------+----------------+
        |    action      |    priv_lvl    |  authen_type   |     service    |
        +----------------+----------------+----------------+----------------+
        |    user len    |    port len    |  rem_addr len  |    data len    |
        +----------------+----------------+----------------+----------------+
        |    user ...
        +----------------+----------------+----------------+----------------+
        |    port ...
        +----------------+----------------+----------------+----------------+
        |    rem_addr ...
        +----------------+----------------+----------------+----------------+
        |    data...
        +----------------+----------------+----------------+----------------+

METHODS

new( somekey => somevalue)

Construct tacacs+ authentication START packet body object

Parameters:

        action      : TAC_PLUS_AUTHEN_[^_]+$
        priv_lvl    : TAC_PLUS_PRIV_LVL_*      - default TAC_PLUS_PRIV_LVL_MIN
        authen_type : TAC_PLUS_AUTHEN_TYPE_*
        service     : TAC_PLUS_AUTHEN_SVC_*    - default TAC_PLUS_AUTHEN_SVC_LOGIN
        user        : username
        data        : data                     - default ''
        port        : port                     - default 'Virtual00'
        rem_addr    : our ip address           - default '127.0.0.1'
decode($raw_data)

Construct object from raw packet.

raw()

Return binary data of packet body.