source: perl/modules/AIM/lib/Net/OSCAR/ServerCallbacks/1/personal_info_request.pm @ 3dcccba

barnowl_perlaim
Last change on this file since 3dcccba was 7a1c90d, checked in by Geoffrey Thomas <geofft@mit.edu>, 14 years ago
Skeleton AIM module, and Net::OSCAR 1.925
  • Property mode set to 100644
File size: 439 bytes
Line 
1package Net::OSCAR::ServerCallbacks;
2use strict;
3use warnings;
4use vars qw($SESSIONS $SCREENNAMES %COOKIES $screenname $connection $snac $conntype $family $subtype $data $reqid $reqdata $session $protobit %data);
5sub {
6
7$connection->proto_send(reqid => $reqid, protobit => "self_information", protodata => {
8        screenname => $screenname,
9                        evil => 0,
10        flags => 0x20,
11        onsince => time(),
12        idle => 0,
13        session_length => 0,
14        ip => 0
15});
16
17};
18
Note: See TracBrowser for help on using the repository browser.