Changeset 6e6ded7 for perl/modules


Ignore:
Timestamp:
Feb 16, 2007, 1:37:49 AM (17 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
0449730
Parents:
b6c067a
git-author:
Nelson Elhage <nelhage@mit.edu> (02/16/07 01:37:35)
git-committer:
Nelson Elhage <nelhage@mit.edu> (02/16/07 01:37:49)
Message:
Making the default style generic, by adding some methods to
BarnOwl::Message to get display values in a generic way.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r1c2e0b3 r6e6ded7  
    14561456sub to { shift->{to} };
    14571457sub room { shift->{room} };
     1458sub status { shift->{status} }
     1459
     1460sub login_extra {
     1461    my $self = shift;
     1462    my $show = $self->{show};
     1463    my $status = $self->status;
     1464    my $s = "";
     1465    $s .= $show if $show;
     1466    $s .= ", $status" if $status;
     1467    return $s;
     1468}
     1469
     1470sub long_sender {
     1471    my $self = shift;
     1472    return $self->from;
     1473}
     1474
     1475sub context {
     1476    return shift->room;
     1477}
    14581478
    14591479sub smartfilter {
Note: See TracChangeset for help on using the changeset viewer.