Changeset feabce2 for perl/modules
- Timestamp:
- May 9, 2008, 8:01:05 PM (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:
- 61abb18
- Parents:
- db0ac7e (diff), 0eaa488 (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:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
r1fd5041b r8df6cbb 39 39 my $network = $self->network; 40 40 my $channel = $self->channel; 41 my $filter = "irc-$network-channel-$channel"; 42 my $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$}; 41 my $sender = $self->sender; 42 my ($filter, $ftext); 43 if ($inst && $self->body =~ /^(\S+):/) { 44 $filter = "irc-$network-channel-$channel-$sender-$1"; 45 $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$ and ( sender ^$sender\$ or sender ^$1\$ )}; 46 } else { 47 $filter = "irc-$network-channel-$channel"; 48 $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$}; 49 } 43 50 BarnOwl::filter("$filter $ftext"); 44 51 return $filter; -
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r919535f rf094fc4 114 114 BarnOwl::new_command('irc-whois' => \&cmd_whois); 115 115 BarnOwl::new_command('irc-motd' => \&cmd_motd); 116 BarnOwl::new_command('irc-list' => \&cmd_list); 117 BarnOwl::new_command('irc-who' => \&cmd_who); 118 BarnOwl::new_command('irc-stats' => \&cmd_stats); 116 119 } 117 120 … … 146 149 $host = shift @ARGV or die("Usage: $cmd HOST\n"); 147 150 if(!$alias) { 148 if($host =~ /^(?:irc[.])?( \w+)[.]\w+$/) {151 if($host =~ /^(?:irc[.])?([\w-]+)[.]\w+$/) { 149 152 $alias = $1; 150 153 } else { … … 152 155 } 153 156 } 154 $port = shift @ARGV || 6667;155 157 $ssl ||= 0; 158 $port = shift @ARGV || ($ssl ? 6697 : 6667); 156 159 } 157 160 … … 275 278 } 276 279 280 sub cmd_list { 281 my $cmd = shift; 282 my $message = BarnOwl::Style::boldify('Current IRC networks:') . "\n"; 283 while (my ($alias, $conn) = each %ircnets) { 284 $message .= ' ' . $alias . ' => ' . $conn->nick . '@' . $conn->server . "\n"; 285 } 286 BarnOwl::popless_ztext($message); 287 } 288 289 sub cmd_who { 290 my $cmd = shift; 291 my $conn = get_connection(\@_); 292 my $who = shift || die("Usage: $cmd <user>\n"); 293 $conn->conn->who($who); 294 } 295 296 sub cmd_stats { 297 my $cmd = shift; 298 my $conn = get_connection(\@_); 299 my $type = shift || die("Usage: $cmd <chiklmouy> [server] \n"); 300 $conn->conn->stats($type, @_); 301 } 302 277 303 ################################################################################ 278 304 ########################### Utilities/Helpers ################################## -
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
rb72a352 rdb0ac7e 26 26 use Getopt::Long; 27 27 Getopt::Long::Configure(qw(no_getopt_compat prefix_pattern=-|--)); 28 29 use utf8; 28 30 29 31 our $VERSION = 0.1; … … 378 380 $vars{jlogin_havepass} = 1; 379 381 $conn->removeConnection($jidStr); 380 BarnOwl::start_password( 382 BarnOwl::start_password("Password for $jidStr: ", \&do_login ); 381 383 return ""; 382 384 } … … 487 489 } 488 490 else { 489 491 $to = shift @ARGV; 490 492 } 491 493 … … 531 533 $cmd .= " -t $jwrite_thread" if $jwrite_thread; 532 534 $cmd .= " -s $jwrite_subject" if $jwrite_subject; 533 BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite ); 535 536 BarnOwl::start_edit_win($cmd, \&process_owl_jwrite ); 534 537 } 535 538 -
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.