--- deliantra/server/ext/irc.ext	2010/01/05 08:35:25	1.18
+++ deliantra/server/ext/irc.ext	2010/04/29 07:52:01	1.19
@@ -72,7 +72,7 @@
    $CON = AnyEvent::IRC::Client->new;
    $CON->set_exception_cb (sub {
       my ($exp, $ev) = @_;
-      warn "IRC: IRC EXCEPTION (event $ev): $exp\n";
+      cf::error "IRC: IRC EXCEPTION (event $ev): $exp\n";
    });
    $CON->connect ($BOTSERVER, $BOTPORT, {
       nick => $BOTNAME,
@@ -106,23 +106,23 @@
          my ($con, $error) = @_;
 
          if ($error) {
-            warn "IRC: CONNECT ERROR to IRC server: $BOTSERVER:$BOTPORT: $error\n";
+            cf::error "IRC: CONNECT ERROR to IRC server: $BOTSERVER:$BOTPORT: $error\n";
             undef $CON;
 
          } else {
-            warn "IRC: connected to IRC server: $BOTSERVER:$BOTPORT\n";
+            cf::info "IRC: connected to IRC server: $BOTSERVER:$BOTPORT\n";
          }
       },
       registered => sub {
-         warn "IRC: successfully logged into IRC server: $BOTSERVER:$BOTPORT\n";
+         cf::info "IRC: successfully logged into IRC server: $BOTSERVER:$BOTPORT\n";
       },
       error => sub {
          my ($con, $code, $message) = @_;
-         warn "IRC: IRC ERROR ($code) $message\n";
+         cf::error "IRC: IRC ERROR ($code) $message\n";
       },
       disconnect => sub {
          my ($con, $reason) = @_;
-         warn "IRC: disconnect: $reason\n";
+         cf::warn "IRC: disconnect: $reason\n";
          undef $CON;
       }
    );