source: perl/lib/BarnOwl/Message/AIM.pm @ e711ca7

release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since e711ca7 was ee183be, checked in by Nelson Elhage <nelhage@mit.edu>, 15 years ago
Break perlwrap.pm into multiple files. Break perlwrap.pm out into .pm files in perl/lib. With this commit, we keep perlwrap.pm around and still load it as before. The next commit will delete perlwrap.pm and start loading perl files directly from disk at runtime.
  • Property mode set to 100644
File size: 470 bytes
Line 
1use strict;
2use warnings;
3
4package BarnOwl::Message::AIM;
5
6use base qw( BarnOwl::Message );
7
8# all non-loginout AIM messages are private for now...
9sub is_private {
10    return !(shift->is_loginout);
11}
12
13sub replycmd {
14    my $self = shift;
15    if ($self->is_incoming) {
16        return "aimwrite " . BarnOwl::quote($self->sender);
17    } else {
18        return "aimwrite " . BarnOwl::quote($self->recipient);
19    }
20}
21
22sub replysendercmd {
23    return shift->replycmd;
24}
25
26
271;
Note: See TracBrowser for help on using the repository browser.