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