Switched to the right default chatserver.

diff --git a/xavierbot.pl b/xavierbot.pl
index a621a4e..d07ac41 100755 (executable)
--- a/xavierbot.pl
+++ b/xavierbot.pl
@@ -2,7 +2,7 @@
 # xavierbot : an OCaml interpreter IRC bot.
 # By Richard W.M. Jones <rich@annexia.org>.
 # This code is in the Public Domain.
-# $Id: xavierbot.pl,v 1.9 2007/06/29 21:43:21 rjones Exp $
+# $Id: xavierbot.pl,v 1.10 2007/06/29 21:44:02 rjones Exp $
 
 use strict;
 use POE qw(Component::IRC Wheel::Run);
@@ -12,8 +12,8 @@ use POE qw(Component::IRC Wheel::Run);
 
 my $nick = "xavierbot";
 my $ircname = "Xavierbot";             # Printable name.
-#my $server = "chat.freenode.net";
-my $server = "devserv.devel.redhat.com";
+my $server = "chat.freenode.net";
+#my $server = "devserv.devel.redhat.com";
 my $port = 6667;
 my $channel = "#ocaml";
 

diff --git a/xavierbot.pl.in b/xavierbot.pl.in
index 76258c6..8f01f0b 100755 (executable)
--- a/xavierbot.pl.in
+++ b/xavierbot.pl.in
@@ -2,7 +2,7 @@
 # xavierbot : an OCaml interpreter IRC bot.
 # By Richard W.M. Jones <rich@annexia.org>.
 # This code is in the Public Domain.
-# $Id: xavierbot.pl.in,v 1.6 2007/06/29 21:43:21 rjones Exp $
+# $Id: xavierbot.pl.in,v 1.7 2007/06/29 21:44:02 rjones Exp $
 
 use strict;
 use POE qw(Component::IRC Wheel::Run);
@@ -12,8 +12,8 @@ use POE qw(Component::IRC Wheel::Run);
 
 my $nick = "xavierbot";
 my $ircname = "Xavierbot";             # Printable name.
-#my $server = "chat.freenode.net";
-my $server = "devserv.devel.redhat.com";
+my $server = "chat.freenode.net";
+#my $server = "devserv.devel.redhat.com";
 my $port = 6667;
 my $channel = "#ocaml";