Net::xAP (3pm)

\*(C`use Net::xAP;\*(C'

\s-1WARNING:\s0 This code is in alpha release. Expect the interface to change from release to release.

This base class implements the substrate common across the \s-1IMAP\s0, \s-1ACAP\s0, \s-1IMSP\s0, and \s-1ICAP\s0 protocols. It provides the interface to the network calls and implements a small amount of glue to assist in implementing interfaces to this protocol family.

The following methods are potentially useful for end-programmers.

\$1

Return what time the most recent command was sent to the server. The return value is a \*(C`time\*(C' integer. Returns the connection object being used by the object.

The following methods are probably only useful to protocol developers. Create a new instance of Net::xAP, connects to $host, and returns a reference to the object.

The $host parameter is the name of the host to contact. If $host starts with a \*(C`/\*(C' character, the parameter is assumed to contain the name of a program and the given program is spawned as a child process. This is useful for driving programs that can be operated interactively from the command-line, such as UW-imapd.

The $peerport parameter specifies the \s-1TCP\s0 port used for the network connection. The parameter should be in the syntax understood by \*(C`IO::Socket::INET->new\*(C'. This parameter is ignored if a child process is spawned.

The %options parameter specifies any options to use. The following list enumerates the options, and their default values, currently understood by \*(C`Net::xAP\*(C': Setting this option causes \*(C`Net::xAP\*(C' to issue a \*(C`response\*(C' method immediately after sending the command to the server. Currently, this option should always be left on. Non-synchronous command/response processing has not been tested. One down-side to Synchronous mode is that commands cannot be sent to the server from within a callback. Instead, the results should be saved, and the commands should be sent after the current command has completed. Setting this option causes \*(C`Net::xAP\*(C' to use non-synchronizing literals. This should only be enabled if the protocol and server this feature. Setting this option causes debug output to be written to \*(C`stderr\*(C'. See the \*(C`debug_print\*(C' method for a description of the output format. Setting this option adds support for various extensions that are still in Internet Draft. This option is only intended to be used by protocol developers. Most bug reports related to this feature will be ignored.

All options are also passed to the internal call to \*(C`IO::Socket::INET->new\*(C', unless a child \s-1IMAP\s0 process is spawned. The \*(C`command\*(C' is used to send commands to the server.

The $callback parameter should be a reference to a subroutine. It will be called when a response is received from the server.

@args is a list of $type-$value pairs. The $type indicates what type of data type to use for $value. This is used to control the encoding necessary to pass the command arguments to the server.

The following $types are understood: The data will sent raw to the server. The data will be sent to the server as an atom, a quoted string, or a literal depending on the content of $value. The data in $value will be interpreted as an array reference and be sent inside a pair of parentheses. The data will be sent to the server as either a quoted string or literal depending on the content of $value. The data will be sent to the server as a quoted string.

If the \*(C`Synchronous\*(C' option is set this method will return a response object, otherwise it will return the sequence number associated with the command just sent to the server. Splits the specified $str into fields. A list reference is returned contain the individual fields. Parenthetical clauses are represented as nested list references of arbitrary depth. Quoted strings are stripped of their surrounding quotes and escaped \*(C`\\\*(C' and \*(C`\"\*(C' characters are unescaped. Reads response lines from the server until one of the lines is a completion response. For each response, the appropriate callbacks are triggered. This is automatically called if the \*(C`Synchronous\*(C' option is on. Get one 'line' of data from the server, including any literal payloads. Closes the connection to the server, returning the results of the operation. Returns the sequence number of the last command issued to the server. Returns the sequence number that will be assigned to the next command issued. Returns a list of sequence numbers for the commands that are still awaiting a complete response from the server.

The list is sorted numerically. Returns the value of the debug option for the object.

If $boolean is specified, the debug state is set to the given value. Prints $text to \*(C`STDERR\*(C', preceded by an indication of traffic direction, the object reference, and a timestamp. The parameter $direction is used to indicate the direction of the traffic related to the debug call. Use 0 for data being sent to the server, or 1 for data coming from the server. A stub method intended to be overridden by subclasses. It provides subclasses with the ability to make alterations to $text before being output by \*(C`debug_print\*(C' method. The base class version does no alteration of $text.

A response object is the data type returned by the \*(C`response\*(C' method. A few convenience routines are provided at the Net::xAP level that are likely to be common across several protocols. Creates a new response object. Returns the tag associated with the response object. Returns the command status associated with the response object. This will be \*(C`OK\*(C', \*(C`NO\*(C', or \*(C`BAD\*(C'. Returns the human readable text assocated with the status of the response object.

This will typically be overridden by a subclass of the \*(C`xAP\*(C' class to handle things like status codes. Returns a list reference containing the response code portion of the server response.

With only a few exceptions, the methods provided in this class are intended for use by developers adding support for additional protocols. Don't muck with this level, unless you know what you're doing.

Kevin Johnson <[email protected]>

Copyright (c) 1997-1999 Kevin Johnson <[email protected]>.

All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.