source: perl/modules/AIM/lib/Net/OSCAR/ServerCallbacks/2/get_away.pm @ 7a1c90d

barnowl_perlaim
Last change on this file since 7a1c90d was 7a1c90d, checked in by Geoffrey Thomas <geofft@mit.edu>, 16 years ago
Skeleton AIM module, and Net::OSCAR 1.925
  • Property mode set to 100644
File size: 505 bytes
RevLine 
[7a1c90d]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 => "incoming_profile", protodata => {
8        screenname => $data{screenname},
9        awaymsg => "Got away message at " . scalar(ctime(time())),
10        evil => 0,
11        flags => 0x20,
12        onsince => 0,
13        membersince => 0,
14        idle => 0,
15        capabilities => ""
16});
17
18};
19
Note: See TracBrowser for help on using the repository browser.