source: perl/modules/AIM/lib/Net/OSCAR/Callbacks/19/end_buddylist_modifications.pm @ a1c2f06

barnowl_perlaim
Last change on this file since a1c2f06 was 7a1c90d, checked in by Geoffrey Thomas <geofft@mit.edu>, 17 years ago
Skeleton AIM module, and Net::OSCAR 1.925
  • Property mode set to 100644
File size: 396 bytes
Line 
1package Net::OSCAR::Callbacks;
2use strict;
3use warnings;
4use vars qw($connection $snac $conntype $family $subtype $data $reqid $reqdata $session $protobit %data);
5sub {
6
7$session->{__BLI_locked} = 0;
8$session->callback_buddylist_changed(Net::OSCAR::_BLInternal::BLI_to_NO($session));
9
10if($session->{__BLI_commit_later}) {
11        $session->{__BLI_commit_later} = 0;
12        $session->commit_buddylist();
13}
14
15};
Note: See TracBrowser for help on using the repository browser.