Changeset 6e6ded7 for perl/modules
- Timestamp:
- Feb 16, 2007, 1:37:49 AM (18 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/jabber.pl
r1c2e0b3 r6e6ded7 1456 1456 sub to { shift->{to} }; 1457 1457 sub room { shift->{room} }; 1458 sub status { shift->{status} } 1459 1460 sub 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 1470 sub long_sender { 1471 my $self = shift; 1472 return $self->from; 1473 } 1474 1475 sub context { 1476 return shift->room; 1477 } 1458 1478 1459 1479 sub smartfilter {
Note: See TracChangeset
for help on using the changeset viewer.