- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r5ff830a r56e72d5 65 65 sub shutdown { 66 66 for my $conn (values %ircnets) { 67 $conn-> conn->disconnect();67 $conn->disconnect(); 68 68 } 69 69 } … … 162 162 ); 163 163 164 if ($conn->connected) { 165 BarnOwl::admin_message("IRC", "Connected to $alias as $nick"); 166 $ircnets{$alias} = $conn; 167 } else { 168 die("IRC::Connection->connect failed: $!"); 169 } 170 164 $ircnets{$alias} = $conn; 171 165 return; 172 166 } … … 175 169 my $cmd = shift; 176 170 my $conn = get_connection(\@_); 177 $conn-> conn->disconnect;171 $conn->disconnect; 178 172 delete $ircnets{$conn->alias}; 179 173 } … … 197 191 # Strip whitespace. In the future -- send one message/line? 198 192 $body =~ tr/\n\r/ /; 199 $conn-> conn->privmsg($to, $body);193 $conn->privmsg($to, $body); 200 194 my $msg = BarnOwl::Message->new( 201 195 type => 'IRC', … … 220 214 $channels{$chan} ||= []; 221 215 push @{$channels{$chan}}, $conn; 222 $conn-> conn->join($chan);216 $conn->join($chan); 223 217 } 224 218 … … 228 222 my $chan = get_channel(\@_) || die("Usage: $cmd <channel>\n"); 229 223 $channels{$chan} = [grep {$_ ne $conn} @{$channels{$chan} || []}]; 230 $conn-> conn->part($chan);224 $conn->part($chan); 231 225 } 232 226 … … 235 229 my $conn = get_connection(\@_); 236 230 my $nick = shift or die("Usage: $cmd <new nick>\n"); 237 $conn-> conn->nick($nick);231 $conn->nick($nick); 238 232 } 239 233 … … 242 236 my $conn = get_connection(\@_); 243 237 my $chan = get_channel(\@_) || die("Usage: $cmd <channel>\n"); 244 $conn-> conn->names($chan);238 $conn->names($chan); 245 239 } 246 240 … … 249 243 my $conn = get_connection(\@_); 250 244 my $who = shift || die("Usage: $cmd <user>\n"); 251 $conn-> conn->whois($who);245 $conn->whois($who); 252 246 } 253 247 … … 255 249 my $cmd = shift; 256 250 my $conn = get_connection(\@_); 257 $conn-> conn->motd;251 $conn->motd; 258 252 } 259 253
Note: See TracChangeset
for help on using the changeset viewer.