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

release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since b61ad80 was 7011c3dc, checked in by Anders Kaseorg <andersk@mit.edu>, 15 years ago
BarnOwl::Message::AIM: Use multi-argument quote. Signed-off-by: Anders Kaseorg <andersk@mit.edu>
  • Property mode set to 100644
File size: 466 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 BarnOwl::quote('aimwrite', $self->sender);
17    } else {
18        return BarnOwl::quote('aimwrite', $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.