Changeset 69c3878 for perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
- Timestamp:
- Oct 10, 2009, 9:24:27 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- dcc3f80
- Parents:
- e1e59a7 (diff), 7cfb1df (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. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r0c4a190 r69c3878 545 545 $conn = get_connection_by_alias($alias); 546 546 } 547 if( !$conn &&$use_channel) {547 if($use_channel) { 548 548 $channel = $ARGV[0]; 549 549 if(defined($channel) && $channel =~ /^#/) { 550 550 if($channels{$channel} && @{$channels{$channel}} == 1) { 551 551 shift @ARGV; 552 $conn = $channels{$channel}[0]; 553 } 552 $conn = $channels{$channel}[0] unless $conn; 553 } 554 } elsif ($m && $m->type eq 'IRC' && !$m->is_private) { 555 $channel = $m->channel; 554 556 } else { 555 if($m && $m->type eq 'IRC' && !$m->is_private) { 556 $channel = $m->channel; 557 } else { 558 undef $channel; 559 } 557 undef $channel; 560 558 } 561 559 } 560 562 561 if(!$channel && $use_channel == REQUIRE_CHANNEL) { 563 562 die("Usage: $cmd <channel>\n");
Note: See TracChangeset
for help on using the changeset viewer.