=pod =head1 NAME =head1 VERSION version 1.928 Net::OSCAR::MethodInfo -- Mappings from method names to (SNAC,family). Used by rate management functionality =cut package Net::OSCAR::MethodInfo; BEGIN { $Net::OSCAR::MethodInfo::VERSION = '1.928'; } $REVISION = '$Revision$'; use strict; use warnings; use vars qw(@ISA $REVISION); use Net::OSCAR::XML; sub encode($) { my %snac = protobit_to_snac($_[0]); my($family, $subtype) = ($snac{family}, $snac{subtype}); return pack("nn", $family, $subtype); } our %methods = ( set_stealth => encode("set_extended_status"), get_info => encode("get_info"), get_away => encode("get_away"), send_typing_status => encode("typing_notification"), evil => encode("outgoing_warning"), get_icon => encode("buddy_icon_download"), set_extended_status => encode("set_extended_status"), set_info => encode("set_info"), change_password => encode("change_account_info"), confirm_account => encode("confirm_account_request"), change_email => encode("change_account_info"), format_screenname => encode("change_account_info"), set_idle => encode("set_idle"), chat_join => encode("chat_navigator_room_create"), chat_accept => encode("chat_invitation_accept"), chat_decline => encode("chat_invitation_decline"), auth_response => encode("signon"), get_icq_info => encode("ICQ_meta_request"), send_message => encode("outgoing_IM"), svcreq => encode("service_request"), send_im => encode("outgoing_IM"), file_send => encode("outgoing_IM"), rendezvous_revise => encode("outgoing_IM"), rendezvous_reject => encode("outgoing_IM"), chat_send => encode("outgoing_chat_IM") ); 1;

💾 SAVE CHANGES CANCEL