source: perl/modules/AIM/lib/BarnOwl/Module/AIM.pm @ 61abb18

barnowl_perlaim
Last change on this file since 61abb18 was 3dcccba, checked in by Geoffrey Thomas <geofft@mit.edu>, 13 years ago
This would probably work, except it doesn't compile.
  • Property mode set to 100644
File size: 3.4 KB
Line 
1use warnings;
2use strict;
3
4=head1 NAME
5
6BarnOwl::Module::AIM
7
8=head1 DESCRIPTION
9
10BarnOwl module implementing AIM support via Net::OSCAR
11
12=cut
13
14package BarnOwl::Module::AIM; 
15
16use Net::OSCAR;
17
18our @oscars;
19
20sub on_im_in {
21    my ($oscar, $sender, $message, $is_away) = @_;
22    my $msg = BarnOwl::Message->new(
23            type => 'AIM',
24            direction => 'in',
25            sender => $sender,
26            origbody => $message,
27            away => $is_away,
28            body => zformat($message, $is_away),
29            recipient => get_screenname($oscar),
30            replycmd =>
31                "aimwrite -a '" . get_screenname($oscar) . "' $sender",
32            replysendercmd =>
33                "aimwrite -a '" . get_screenname($oscar) . "' $sender",
34            );
35    BarnOwl::queue_message($msg);
36}
37
38sub cmd_aimlogin { 
39    my ($cmd, $user, $pass) = @_;
40    if (!defined $user) {
41        BarnOwl::start_question('Username: ', sub {
42                cmd_aimlogin($cmd, @_);
43                });
44    } elsif (!defined $pass) {
45        BarnOwl::start_password('Password: ', sub {
46                cmd_aimlogin($cmd, $user, @_);
47                });
48    } else {
49        my $oscar = Net::OSCAR->new();
50        $oscar->set_callback_im_in(\&on_im_in);
51        $oscar->set_callback_signon_done(sub ($) {
52                BarnOwl::admin_message('AIM',
53                    'Logged in to AIM as ' . shift->screenname);
54        });
55        $oscar->signon(
56                screenname => $user,
57                password => $pass
58                );
59        push @oscars, $oscar;
60    }
61}
62
63sub cmd_aimwrite {
64    my ($cmd, $recipient) = @_;
65    BarnOwl::start_edit_win(join(' ', @_), sub {
66            my ($body) = @_;
67            my $oscar = get_oscar();
68            my $sender = get_screenname($oscar);
69            $oscar->send_im($recipient, $body);
70            BarnOwl::queue_message(BarnOwl::Message->new(
71                    type => 'AIM',
72                    direction => 'in',
73                    sender => $sender,
74                    origbody => $body,
75                    away => 0,
76                    body => zformat($body, 0),
77                    recipient => $recipient,
78                    replycmd =>
79                        "aimwrite -a '" . get_screenname($oscar) . "' $sender",
80                    replysendercmd =>
81                        "aimwrite -a '" . get_screenname($oscar) . "' $sender",
82            ));
83    });
84}
85
86BarnOwl::new_command(aimlogin => \&cmd_aimlogin, {});
87BarnOwl::new_command(aimwrite => \&cmd_aimwrite, {});
88
89sub main_loop() {
90    for my $oscar (@oscars) {
91        $oscar->do_one_loop();
92    }
93}
94$BarnOwl::Hooks::mainLoop->add(\&main_loop);
95
96### helpers ###
97
98sub zformat($$) {
99    # TODO subclass HTML::Parser
100    my ($message, $is_away) = @_;
101    if ($is_away) {
102        return BarnOwl::boldify('[away]') . " $message";
103    } else {
104        return $message;
105    }
106}
107
108sub get_oscar() {
109    if (scalar @oscars == 0) {
110        die "You are not logged in to AIM."
111    } elsif (scalar @oscars == 1) {
112        return $oscars[0];
113    } else {
114        my $m = BarnOwl::getcurmsg();
115        if ($m && $m->type eq 'AIM') {
116            for my $oscar (@oscars) {
117                return $oscar if ($oscar->screenname eq $m->recipient);
118            }
119        }
120    }
121    die('You must specify an account with -a');
122}
123
124sub get_screenname($) {
125# TODO qualify realm
126    return shift->screenname;
127}
128
1291;
130
131# vim: set sw=4 et cin:
Note: See TracBrowser for help on using the repository browser.