Ignore:
Timestamp:
Jul 7, 2008, 6:23:18 AM (13 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
Branches:
barnowl_perlaim
Children:
61abb18
Parents:
7d63a6c
Message:
This would probably work, except it doesn't compile.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/AIM/lib/BarnOwl/Module/AIM.pm

    r7d63a6c r3dcccba  
    3737
    3838sub cmd_aimlogin {
    39 =comment
    4039    my ($cmd, $user, $pass) = @_;
    4140    if (!defined $user) {
     
    4847                });
    4948    } else {
    50 =cut
    51     {
    5249        my $oscar = Net::OSCAR->new();
    53         my ($user, $pass) = ('...', '...');
    5450        $oscar->set_callback_im_in(\&on_im_in);
    5551        $oscar->set_callback_signon_done(sub ($) {
Note: See TracChangeset for help on using the changeset viewer.