Changeset dfb6c7d for perl/modules
- Timestamp:
- Feb 22, 2008, 10:59:41 AM (17 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:
- f8d9df1
- Parents:
- c020e73 (diff), b24029a (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - Location:
- perl/modules
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
r9c7a701 r1951db8 125 125 BarnOwl::admin_message("IRC", 126 126 BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from ' 127 . $ evt->alias) . "\n"127 . $self->alias) . "\n" 128 128 . strip_irc_formatting(join '\n', cdr $evt->args)); 129 129 } -
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
r6b580b0 r5f3168a 25 25 use Net::DNS; 26 26 use Getopt::Long; 27 28 use utf8; 27 29 28 30 our $VERSION = 0.1; … … 377 379 $vars{jlogin_havepass} = 1; 378 380 $conn->removeConnection($jidStr); 379 BarnOwl::start_password( 381 BarnOwl::start_password("Password for $jidStr: ", \&do_login ); 380 382 return ""; 381 383 } … … 486 488 } 487 489 else { 488 490 $to = shift @ARGV; 489 491 } 490 492 … … 530 532 $cmd .= " -t $jwrite_thread" if $jwrite_thread; 531 533 $cmd .= " -s $jwrite_subject" if $jwrite_subject; 532 BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite ); 534 535 BarnOwl::start_edit_win($cmd, \&process_owl_jwrite ); 533 536 } 534 537 -
perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm
r6b580b0 r5f3168a 1 1 use warnings; 2 2 use strict; 3 use utf8; 3 4 4 5 =head1 NAME -
perl/modules/Jabber/lib/Net/XMPP/Debug.pm
rc2bed55 rb7b2a76 189 189 { 190 190 $self->{HANDLE}->autoflush(1); 191 binmode $self->{HANDLE}, ":utf8"; 191 192 $Net::XMPP::Debug::HANDLES{$args{file}} = $self->{HANDLE}; 192 193 } -
perl/modules/Jabber/lib/Net/XMPP/Message.pm
rc2bed55 r8574801 135 135 $Mess->SetMessage(TO=>"bob\@jabber.org", 136 136 Subject=>"Lunch", 137 Bo Dy=>"Let's do lunch!");137 Body=>"Let's do lunch!"); 138 138 $Mess->SetMessage(to=>"bob\@jabber.org", 139 139 from=>"jabber.org", -
perl/modules/Jabber/lib/XML/Stream.pm
r5073972 ra8d5a39 1659 1659 { 1660 1660 $self->debug(3,"Send: can_write"); 1661 1661 1662 1662 $self->{SENDSTRING} = Encode::encode_utf8(join("",@_)); 1663 1663
Note: See TracChangeset
for help on using the changeset viewer.