DELTA 1077 0 578
SVN  ŠH›4!‘g ‚] €ƒ „Aƒ*€ ‡W€‡R v‰6€…cŠ*direction => 'in',
            sender => $sender,
            origbody => $message,
            away => $is_away,
            body => zformat($message, $is_away),
            recipient => get_screenname($oscar),
            replycmd =>
                "aimwrite -a '" . get_screenname($oscar) . "' $sender",
            replysendercmd =>
                "aimwrite -a '" . get_screenname($oscar) . "' $sender"et_callback_signon_done(sub ($) {
                BarnOwl::admin_message('AIM',
                    'Logged in to AIM as ' . shift->screenname);
        }
sub cmd_aimwrite {
    my ($cmd, $recipient) = @_;
    BarnOwl::start_edit_win(join(' ', @_), sub {
            my ($body) = @_;
            my $oscar = get_oscar();
            my $sender = get_screenname($oscar);
            $oscar->send_im($recipient, $body);
            BarnOwl::queue_message(BarnOwl::Message->new(
                    type => 'AIM',
                    direction => 'in',
                    sender => $sender,
                    origbody => $body,
                    away => 0,
                    body => zformat($body, 0),
                    recipient => $recipient,
                    replycmd =>
                        "aimwrite -a '" . get_screenname($oscar) . "' $sender",
                    replysendercmd =>
                        "aimwrite -a '" . get_screenname($oscar) . "' $sender",
            ));
    });
}

BarnOwl::new_command(aimlogin => \&cmd_aimlogin, {});
BarnOwl::new_command(aimwrite => \&cmd_aimwrite, {});

sub main_loop()### helpers ###

sub zformat($$) {
    # TODO subclass HTML::Parser
    my ($message, $is_away) = @_;
    if ($is_away) {
        return BarnOwl::boldify('[away]') . " $message";
    } else {
        return $message;
    }
}

sub get_oscar() {
    if (scalar @oscars == 0) {
        die "You are not logged in to AIM."
    } elsif (scalar @oscars == 1) {
        return $oscars[0];
    } else {
        my $m = BarnOwl::getcurmsg();
        if ($m && $m->type eq 'AIM') {
            for my $oscar (@oscars) {
                return $oscar if ($oscar->screenname eq $m->recipient);
            }
        }
    }
    die('You must specify an account with -a');
}

sub get_screenname($) {
# TODO qualify realm
    return shift->screenname;
}ENDREP
DELTA 1073 307 1688
SVN  W^0 ‡M „ ‡}‡M¬ ds AIM(cd $$i && test ! -f Makefile || make clean)ENDREP
id: i.2k.r1086/2450
type: file
pred: i.2k.r1074/147524
count: 50
text: 1086 2348 75 3806 23b826b83b2dcef2f675f92d2c91a0b1
props: 4 171313 81 0 685faf6a4230ea531a31a12e4b3cb565
cpath: /branches/barnowl_perlaim/owl/Makefile.in
copyroot: 1072 /branches/barnowl_perlaim

id: 95.2k.r1086/2717
type: file
pred: 95.2k.r1077/1424
count: 3
text: 1086 0 2324 3508 ddc8a0e9220849fff52c0b041bc4d5f8
cpath: /branches/barnowl_perlaim/owl/perl/modules/AIM/lib/BarnOwl/Module/AIM.pm
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 6
AIM.pm
V 21
file 95.2k.r1086/2717
END
ENDREP
id: 94.2k.r1086/3014
type: dir
pred: 94.2k.r1077/1719
count: 3
text: 1086 2959 42 42 c57dd40c35615f200cec5093db7d26e0
cpath: /branches/barnowl_perlaim/owl/perl/modules/AIM/lib/BarnOwl/Module
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 6
Module
V 20
dir 94.2k.r1086/3014
END
ENDREP
id: 93.2k.r1086/3301
type: dir
pred: 93.2k.r1077/2005
count: 3
text: 1086 3247 41 41 86fbc276c0f101117c1ddbd7868a9220
cpath: /branches/barnowl_perlaim/owl/perl/modules/AIM/lib/BarnOwl
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 7
BarnOwl
V 20
dir 93.2k.r1086/3301
K 3
Net
V 20
dir 96.2k.r1076/2525
END
ENDREP
id: 92.2k.r1086/3616
type: dir
pred: 92.2k.r1077/2319
count: 4
text: 1086 3527 76 76 4772e16a2813452bc74836a89420a61b
cpath: /branches/barnowl_perlaim/owl/perl/modules/AIM/lib
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 11
Makefile.PL
V 23
file 91.2k.r1074/179877
K 3
inc
V 22
dir 7m.2n.r1074/180084
K 3
lib
V 20
dir 92.2k.r1086/3616
END
ENDREP
id: 90.2k.r1086/3967
type: dir
pred: 90.2k.r1077/2670
count: 4
text: 1086 3834 120 120 9569e0bb571e57036d4c50d49f1b8338
cpath: /branches/barnowl_perlaim/owl/perl/modules/AIM
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 3
AIM
V 20
dir 90.2k.r1086/3967
K 3
IRC
V 20
dir 82.0.r1048/20050
K 6
Jabber
V 19
dir 7b.0.r1066/1711
END
ENDREP
id: 4c.2k.r1086/4304
type: dir
pred: 4c.2k.r1077/3007
count: 129
text: 1086 4183 108 108 65c88f031889215b7aab725b6ab6de00
cpath: /branches/barnowl_perlaim/owl/perl/modules
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 3
lib
V 17
dir 4b.0.r985/535
K 7
modules
V 20
dir 4c.2k.r1086/4304
END
ENDREP
id: 4a.2k.r1086/4604
type: dir
pred: 4a.2k.r1077/3307
count: 148
text: 1086 4518 73 73 c3de7a537f71b20fcbc6ee9e0be579a7
cpath: /branches/barnowl_perlaim/owl/perl
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 7
AUTHORS
V 19
file 1p.2i.r1068/40
K 4
BUGS
V 20
file 5u.0.r689/48450
K 7
COPYING
V 21
file 8z.0.r1057/26283
K 9
ChangeLog
V 18
file h.0.r1069/564
K 11
Makefile.in
V 20
file i.2k.r1086/2450
K 4
NEWS
V 16
file j.0.r5/8251
K 6
README
V 17
file 5r.0.r848/91
K 4
TODO
V 18
file 5s.0.r619/324
K 9
athstatic
V 18
file 1x.0.r533/117
K 5
cmd.c
V 20
file k.0.r1040/54931
K 11
codelist.pl
V 19
file l.0.r212/11814
K 10
commands.c
V 20
file m.2k.r1077/1157
K 11
config.h.in
V 20
file n.0.r1040/48157
K 12
configure.ac
V 21
file p.2m.r1073/11550
K 9
context.c
V 18
file q.0.r209/8754
K 6
dict.c
V 19
file r.0.r923/12768
K 3
doc
V 18
dir 1n.0.r1068/448
K 9
editwin.c
V 20
file s.0.r1040/55142
K 14
encapsulate.pl
V 20
file 3l.0.r225/44724
K 10
errqueue.c
V 20
file 3p.0.r242/19206
K 8
examples
V 17
dir 1s.0.r226/477
K 8
filter.c
V 19
file t.0.r923/13138
K 15
filterelement.c
V 19
file u.0.r1044/2464
K 8
fmtext.c
V 20
file v.0.r1040/55362
K 11
functions.c
V 21
file w.2k.r1073/10752
K 13
glib_compat.c
V 22
file 81.2l.r1073/12344
K 8
global.c
V 21
file x.2k.r1073/12084
K 6
help.c
V 21
file y.2k.r1073/13822
K 9
history.c
V 17
file z.0.r283/439
K 10
install.sh
V 19
file 21.0.r122/7916
K 12
keybinding.c
V 18
file 10.0.r640/656
K 8
keymap.c
V 21
file 11.0.r1040/53188
K 10
keypress.c
V 21
file 12.0.r1040/47723
K 6
keys.c
V 22
file 13.2k.r1073/11019
K 6
list.c
V 17
file 14.0.r635/59
K 9
logging.c
V 22
file 15.2k.r1073/13556
K 9
mainwin.c
V 20
file 16.0.r693/11667
K 9
message.c
V 22
file 17.2k.r1073/11817
K 13
messagelist.c
V 18
file 18.0.r558/539
K 13
mkinstalldirs
V 19
file 3v.0.r346/1232
K 11
muxevents.c
V 18
file 3w.0.r359/781
K 9
obarray.c
V 20
file 62.0.r923/12978
K 5
owl.c
V 22
file 19.2k.r1073/12824
K 5
owl.h
V 22
file 1a.2k.r1073/13088
K 10
owl_perl.h
V 20
file 8m.0.r1025/1110
K 6
pair.c
V 18
file 1z.0.r102/270
K 4
perl
V 20
dir 4a.2k.r1086/4604
K 12
perlconfig.c
V 21
file 3n.0.r1040/53405
K 11
perlglue.xs
V 20
file 1v.0.r1027/3750
K 11
perlwrap.pm
V 19
file 3m.0.r1067/245
K 9
popexec.c
V 19
file 3x.0.r364/1658
K 8
popwin.c
V 18
file 1b.0.r373/263
K 7
regex.c
V 19
file 1c.0.r597/1404
K 8
select.c
V 22
file 8l.2k.r1073/13351
K 10
stubgen.pl
V 17
file 1d.0.r5/8659
K 7
style.c
V 20
file 3f.0.r1026/3875
K 10
svkversion
V 19
file 6d.0.r1000/142
K 1
t
V 18
dir 7y.0.r738/6796
K 6
test.h
V 19
file 3y.0.r738/5953
K 8
tester.c
V 19
file 1e.0.r738/6378
K 6
text.c
V 21
file 1f.0.r1040/47076
K 7
timer.c
V 20
file 3e.0.r143/11961
K 6
util.c
V 22
file 1g.2k.r1073/11284
K 10
variable.c
V 22
file 1h.2k.r1073/12557
K 6
view.c
V 19
file 1i.0.r586/9731
K 9
viewwin.c
V 21
file 1j.0.r1040/53630
K 9
wcwidth.c
V 22
file 80.2f.r1040/54503
K 12
zbuddylist.c
V 18
file 3u.0.r330/561
K 8
zcrypt.c
V 21
file 1y.0.r1040/53847
K 8
zephyr.c
V 20
file 1k.0.r1055/3380
K 8
zwrite.c
V 21
file 1l.0.r1040/55579
END
ENDREP
id: g.2k.r1086/7624
type: dir
pred: g.2k.r1077/6329
count: 833
text: 1086 4808 2803 2803 b200adf1e49a01f2c802a0667cb7481e
props: 1020 9253 508 0 6a64d05ae4ccfc96bc9d7f462a4ed7a9
cpath: /branches/barnowl_perlaim/owl
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 7
CVSROOT
V 16
dir 4.0.r112/895
K 11
conf.alexmv
V 18
dir 5z.0.r790/1571
K 12
conf.asedeno
V 18
dir 3z.0.r617/2908
K 3
owl
V 19
dir g.2k.r1086/7624
END
ENDREP
id: 1.2k.r1086/8048
type: dir
pred: 1.2k.r1077/6753
count: 873
text: 1086 7881 154 154 cddf34cf5312ee5f301d514c2abaf161
props: 1041 0 267 0 af6054e568406863b9553a6a14b8c5a8
cpath: /branches/barnowl_perlaim
copyroot: 1072 /branches/barnowl_perlaim

PLAIN
K 15
barnowl_perlaim
V 19
dir 1.2k.r1086/8048
K 14
barnowl_sqlite
V 20
dir 1.1u.r1030/22072
K 14
barnowl_unisql
V 17
dir 1.27.r919/325
K 7
owl-1_2
V 15
dir 1.4.r116/49
K 7
owl-2_0
V 18
dir 1.5.r306/13541
K 14
owl-2_0-branch
V 18
dir 1.1f.r317/6751
END
ENDREP
id: 2.0.r1086/8561
type: dir
pred: 2.0.r1077/7266
count: 208
text: 1086 8296 252 252 dea04610a5da243610042c285a0ca249
cpath: /branches
copyroot: 0 /

PLAIN
K 8
branches
V 18
dir 2.0.r1086/8561
K 4
tags
V 17
dir 3.0.r1070/533
K 5
trunk
V 18
dir 1.0.r1085/5682
END
ENDREP
id: 0.0.r1086/8831
type: dir
pred: 0.0.r1085/6002
count: 1086
text: 1086 8711 107 107 a3628543445c7568c98ec0f101524fa2
props: 814 5811 257 0 1bba3ff3b0bec5c44a6f38be0d2645e9
cpath: /
copyroot: 0 /

95.2k.t1085-1 modify true false /branches/barnowl_perlaim/owl/perl/modules/AIM/lib/BarnOwl/Module/AIM.pm

i.2k.t1085-1 modify true false /branches/barnowl_perlaim/owl/Makefile.in


8831 9029