source: perl/modules/AIM/lib/Net/OSCAR/ServerCallbacks/19/buddylist_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: 668 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
7my $blist;
8
9my $visdata = tlv_encode(tlv(
10        0xCA => 0,
11        0xCB => 0xFFFFFFFF,
12));
13$blist = "xxx";
14$blist .= pack("n5a*", 0, 0, 0xCB, 4, length($visdata), $visdata);
15$blist .= pack("na*n4", length("Buddies"), "Buddies", 1, 0, 1, 0);
16my $i = 1;
17$blist .= pack("na*n4", length($_), $_, 1, $i++, 0, 0) foreach @{$SCREENNAMES->{$screenname}->{blist}};
18
19$connection->proto_send(reqid => $reqid, protobit => "buddylist", protodata => {data => $blist});
20
21};
22
Note: See TracBrowser for help on using the repository browser.