Changeset 6babb75 for lib/BarnOwl
- Timestamp:
- Jan 28, 2009, 1:27:41 PM (16 years ago)
- Branches:
- master, release-1.10, release-1.7, release-1.8, release-1.9
- Children:
- c1e5316
- Parents:
- b4b5a7e
- Location:
- lib/BarnOwl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
lib/BarnOwl/Message/Twitter.pm
rb4b5a7e r6babb75 22 22 return $self->replysendercmd; 23 23 } else { 24 return 'twitter ';24 return 'twitter-atreply '.$self->sender; 25 25 } 26 26 } -
lib/BarnOwl/Module/Twitter.pm
r927c186 r6babb75 238 238 } 239 239 240 sub twitter_atreply { 241 my $to = shift; 242 my $msg = shift; 243 twitter("@".$to." ".$msg); 244 } 245 240 246 BarnOwl::new_command(twitter => \&cmd_twitter, { 241 247 summary => 'Update Twitter from BarnOwl', … … 250 256 description => 'Send a Twitter Direct Message to USER' 251 257 }); 258 259 BarnOwl::new_command( 'twitter-atreply' => sub { cmd_twitter_atreply(@_); }, 260 { 261 summary => 'Send a Twitter @ message', 262 usage => 'twitter-atreply USER', 263 description => 'Send a Twitter @reply Message to USER' 264 } 265 ); 266 252 267 253 268 sub cmd_twitter { … … 268 283 } 269 284 285 sub cmd_twitter_atreply { 286 my $cmd = shift; 287 my $user = shift; 288 BarnOwl::start_edit_win("Reply to \@" . $user, sub { twitter_atreply($user, shift) }); 289 } 290 270 291 eval { 271 292 $BarnOwl::Hooks::receiveMessage->add("BarnOwl::Module::Twitter::handle_message");
Note: See TracChangeset
for help on using the changeset viewer.