Changeset 159aaad for lib/BarnOwl/Message/Twitter.pm
- Timestamp:
- Jul 21, 2009, 9:27:32 PM (16 years ago)
- Branches:
- master, release-1.10, release-1.7, release-1.8, release-1.9
- Children:
- 7430aa4
- Parents:
- f93b81b
- git-author:
- Kevin Riggle <kevinr@free-dissociation.com> (07/21/09 21:27:02)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (07/21/09 21:27:32)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
lib/BarnOwl/Message/Twitter.pm
ra0385ad3 r159aaad 16 16 sub subcontext {undef} 17 17 sub service { return (shift->{"service"} || "http://twitter.com"); } 18 sub account { return shift->{"account"}; } 18 19 sub long_sender { 19 20 my $self = shift; … … 28 29 return $self->replysendercmd; 29 30 } elsif(exists($self->{status_id})) { 30 return 'twitter-atreply ' . $self->sender . " " . $self->{status_id} ;31 return 'twitter-atreply ' . $self->sender . " " . $self->{status_id} . " " . $self->account; 31 32 } else { 32 return 'twitter-atreply ' . $self->sender ;33 return 'twitter-atreply ' . $self->sender . " " . $self->account; 33 34 } 34 35 } … … 36 37 sub replysendercmd { 37 38 my $self = shift; 38 return 'twitter-direct ' . $self->sender ;39 return 'twitter-direct ' . $self->sender . " " . $self->account; 39 40 } 40 41
Note: See TracChangeset
for help on using the changeset viewer.