— |
$VERSION = '1.01' ;
$REVISION = '$Revision: 1.58.6.7 $' ;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS $VERSION) ; @ISA = qw(Exporter) ;
%EXPORT_TAGS = (
standard => [ qw(
ADMIN_TYPE_PASSWORD_CHANGE
ADMIN_TYPE_EMAIL_CHANGE
ADMIN_TYPE_SCREENNAME_FORMAT
ADMIN_TYPE_ACCOUNT_CONFIRM
ADMIN_ERROR_UNKNOWN
ADMIN_ERROR_BADPASS
ADMIN_ERROR_BADINPUT
ADMIN_ERROR_BADLENGTH
ADMIN_ERROR_TRYLATER
ADMIN_ERROR_REQPENDING
ADMIN_ERROR_CONNREF
VISMODE_PERMITALL
VISMODE_DENYALL
VISMODE_PERMITSOME
VISMODE_DENYSOME
VISMODE_PERMITBUDS
TYPINGSTATUS_STARTED
TYPINGSTATUS_TYPING
TYPINGSTATUS_FINISHED
RATE_CLEAR
RATE_ALERT
RATE_LIMIT
RATE_DISCONNECT
GROUPPERM_OSCAR
GROUPPERM_AOL
OSCAR_SVC_AIM
OSCAR_SVC_ICQ
OSCAR_DIRECT_IM
OSCAR_DIRECT_FILESHARE
OSCAR_DIRECT_FILEXFER
) ],
loglevels => [ qw(
OSCAR_DBG_NONE
OSCAR_DBG_WARN
OSCAR_DBG_INFO
OSCAR_DBG_SIGNON
OSCAR_DBG_NOTICE
OSCAR_DBG_DEBUG
OSCAR_DBG_PACKETS
) ]
);
$EXPORT_TAGS {all} = [@{ $EXPORT_TAGS {standard}}, @{ $EXPORT_TAGS {loglevels}}];
@EXPORT_OK = @{ $EXPORT_TAGS {all}};
use constant TYPINGSTATUS_STARTED => dualvar(2, "typing started" ); use constant TYPINGSTATUS_TYPING => dualvar(1, "typing in progress" ); use constant TYPINGSTATUS_FINISHED => dualvar(0, "typing completed" ); use constant ADMIN_TYPE_PASSWORD_CHANGE => dualvar(1, "password change" ); use constant ADMIN_TYPE_EMAIL_CHANGE => dualvar(2, "email change" ); use constant ADMIN_TYPE_SCREENNAME_FORMAT => dualvar(3, "screenname format" ); use constant ADMIN_TYPE_ACCOUNT_CONFIRM => dualvar(4, "account confirm" ); use constant ADMIN_ERROR_UNKNOWN => dualvar(0, "unknown error" ); use constant ADMIN_ERROR_BADPASS => dualvar(1, "incorrect password" ); use constant ADMIN_ERROR_BADINPUT => dualvar(2, "invalid input" ); use constant ADMIN_ERROR_BADLENGTH => dualvar(3, "screenname/email/password is too long or too short" ); use constant ADMIN_ERROR_TRYLATER => dualvar(4, "request could not be processed; wait a few minutes and try again" ); use constant ADMIN_ERROR_REQPENDING => dualvar(5, "request pending" ); use constant ADMIN_ERROR_CONNREF => dualvar(6, "couldn't connect to the admin server" ); use constant OSCAR_DIRECT_IM => dualvar(1, "direct IM" ); use constant OSCAR_DIRECT_FILESHARE => dualvar(2, "file sharing" ); use constant OSCAR_DIRECT_FILEXFER => dualvar(3, "file transfer" ); use constant VISMODE_PERMITALL => dualvar(0x1, "permit all" ); use constant VISMODE_DENYALL => dualvar(0x2, "deny all" ); use constant VISMODE_PERMITSOME => dualvar(0x3, "permit some" ); use constant VISMODE_DENYSOME => dualvar(0x4, "deny some" ); use constant VISMODE_PERMITBUDS => dualvar(0x5, "permit buddies" ); use constant RATE_CLEAR => dualvar(1, "clear" ); use constant RATE_ALERT => dualvar(2, "alert" ); use constant RATE_LIMIT => dualvar(3, "limit" ); use constant RATE_DISCONNECT => dualvar(4, "disconnect" ); use constant GROUPPERM_OSCAR => dualvar(0x18, "AOL Instant Messenger users" ); use constant GROUPPERM_AOL => dualvar(0x04, "AOL subscribers" ); host => 'login.oscar.aol.com' ,
port => 5190,
supermajor => 0x0109,
major => 5,
minor => 2,
subminor => 0,
build => 3292,
subbuild => 0xEE,
clistr => "AOL Instant Messenger, version 5.2.3292/WIN32" ,
hashlogin => 0,
betainfo => "" ,
);
host => 'login.icq.com' ,
port => 5190,
supermajor => 0x010A,
major => 5,
minor => 0x2D,
subminor => 0,
build => 0xEC1,
subbuild => 0x55,
clistr => "ICQ Inc. - Product of ICQ (TM).2003a.5.45.1.3777.85" ,
hashlogin => 1,
);
1;
|