view release on metacpan or  search on metacpan

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

        eval {
        local $SIG{"__DIE__"} = "DEFAULT";
        local $SIG{"__WARN__"} = sub { die "non-numeric\n" };
        local $^W = 1;
        $option = abs(int $option);
        };
        return $self->error("bad telnet option $argname: non-numeric")
        if $@;

        return $self->error("bad telnet option $argname: option > 255")
        unless $option <= 255;

        $option;
    } # end sub _verify_telopt_arg


    ######################## Exported Constants ##########################


    sub TELNET_IAC ()               {255};  # interpret as command:
    sub TELNET_DONT ()              {254};  # you are not to use option
    sub TELNET_DO ()                {253};  # please, you use option
    sub TELNET_WONT ()              {252};  # I won't use option
    sub TELNET_WILL ()              {251};  # I will use option
    sub TELNET_SB ()                {250};  # interpret as subnegotiation
    sub TELNET_GA ()                {249};  # you may reverse the line
    sub TELNET_EL ()                {248};  # erase the current line
    sub TELNET_EC ()                {247};  # erase the current character
    sub TELNET_AYT ()               {246};  # are you there
    sub TELNET_AO ()                {245};  # abort output--but let prog finish
    sub TELNET_IP ()                {244};  # interrupt process--permanently
    sub TELNET_BREAK ()             {243};  # break
    sub TELNET_DM ()                {242};  # data mark--for connect. cleaning
    sub TELNET_NOP ()               {241};  # nop
    sub TELNET_SE ()                {240};  # end sub negotiation
    sub TELNET_EOR ()               {239};  # end of record (transparent mode)
    sub TELNET_ABORT ()             {238};  # Abort process
    sub TELNET_SUSP ()              {237};  # Suspend process
    sub TELNET_EOF ()               {236};  # End of file
    sub TELNET_SYNCH ()             {242};  # for telfunc calls

    sub TELOPT_BINARY ()            {0};    # Binary Transmission
    sub TELOPT_ECHO ()              {1};    # Echo
    sub TELOPT_RCP ()               {2};    # Reconnection
    sub TELOPT_SGA ()               {3};    # Suppress Go Ahead
    sub TELOPT_NAMS ()              {4};    # Approx Message Size Negotiation
    sub TELOPT_STATUS ()            {5};    # Status
    sub TELOPT_TM ()                {6};    # Timing Mark
    sub TELOPT_RCTE ()              {7};    # Remote Controlled Trans and Echo
    sub TELOPT_NAOL ()              {8};    # Output Line Width
    sub TELOPT_NAOP ()              {9};    # Output Page Size
    sub TELOPT_NAOCRD ()            {10};   # Output Carriage-Return Disposition
    sub TELOPT_NAOHTS ()            {11};   # Output Horizontal Tab Stops
    sub TELOPT_NAOHTD ()            {12};   # Output Horizontal Tab Disposition
    sub TELOPT_NAOFFD ()            {13};   # Output Formfeed Disposition
    sub TELOPT_NAOVTS ()            {14};   # Output Vertical Tabstops
    sub TELOPT_NAOVTD ()            {15};   # Output Vertical Tab Disposition
    sub TELOPT_NAOLFD ()            {16};   # Output Linefeed Disposition
    sub TELOPT_XASCII ()            {17};   # Extended ASCII
    sub TELOPT_LOGOUT ()            {18};   # Logout
    sub TELOPT_BM ()                {19};   # Byte Macro
    sub TELOPT_DET ()               {20};   # Data Entry Terminal
    sub TELOPT_SUPDUP ()            {21};   # SUPDUP
    sub TELOPT_SUPDUPOUTPUT ()      {22};   # SUPDUP Output
    sub TELOPT_SNDLOC ()            {23};   # Send Location
    sub TELOPT_TTYPE ()             {24};   # Terminal Type
    sub TELOPT_EOR ()               {25};   # End of Record
    sub TELOPT_TUID ()              {26};   # TACACS User Identification
    sub TELOPT_OUTMRK ()            {27};   # Output Marking
    sub TELOPT_TTYLOC ()            {28};   # Terminal Location Number
    sub TELOPT_3270REGIME ()        {29};   # Telnet 3270 Regime
    sub TELOPT_X3PAD ()             {30};   # X.3 PAD
    sub TELOPT_NAWS ()              {31};   # Negotiate About Window Size
    sub TELOPT_TSPEED ()            {32};   # Terminal Speed
    sub TELOPT_LFLOW ()             {33};   # Remote Flow Control
    sub TELOPT_LINEMODE ()          {34};   # Linemode
    sub TELOPT_XDISPLOC ()          {35};   # X Display Location
    sub TELOPT_OLD_ENVIRON ()       {36};   # Environment Option
    sub TELOPT_AUTHENTICATION ()    {37};   # Authentication Option
    sub TELOPT_ENCRYPT ()           {38};   # Encryption Option
    sub TELOPT_NEW_ENVIRON ()       {39};   # New Environment Option
    sub TELOPT_TN3270E ()           {40};   # TN3270 Enhancements
    sub TELOPT_CHARSET ()           {42};   # CHARSET Option
    sub TELOPT_COMPORT ()           {44};   # Com Port Control Option
    sub TELOPT_KERMIT ()            {47};   # Kermit Option
    sub TELOPT_EXOPL ()             {255};  # Extended-Options-List

    # Added by Axmud
    sub TELOPT_MSDP ()              {69};   # Mud Server Data Protocol
    sub TELOPT_MSSP ()              {70};   # Mud Server Status Protocol
    sub TELOPT_MCCP1 ()             {85};   # Mud Client Compression Protocol (MCCP1)
    sub TELOPT_MCCP2 ()             {86};   # Mud Client Compression Protocol (MCCP2)
    sub TELOPT_MSP ()               {90};   # Mud Sound Protocol
    sub TELOPT_MXP ()               {91};   # Mud Xtension Protocol
    sub TELOPT_ZMP ()               {93};   # Zenith Mud Protocol
    sub TELOPT_AARD102 ()           {102};  # Aardwolf 102 channel
    sub TELOPT_ATCP ()              {200};  # Achaea Telnet Client Protocol
    sub TELOPT_GMCP ()              {201};  # Generic MUD Communication Protocol
}

# Package must return a true value
1