From: rjones Date: Fri, 29 Jun 2007 07:55:47 +0000 (+0000) Subject: Updated. X-Git-Url: http://git.annexia.org/?p=xavierbot.git;a=commitdiff_plain;h=5e6674263be334ebb33bfda3412b5c3682968d85 Updated. --- diff --git a/init b/init index 6025b0c..afc67c4 100644 --- a/init +++ b/init @@ -1,5 +1,5 @@ (* Initialise the toplevel environment. - * $Id: init,v 1.3 2007/06/28 23:18:28 rjones Exp $ + * $Id: init,v 1.4 2007/06/29 07:55:47 rjones Exp $ * - Removes the Pervasives module and any dangerous functions. * - Loads just the modules we want to give access to, and just * the functions within those modules that we want to give. diff --git a/ocamlbotwrapper.c b/ocamlbotwrapper.c index 16178c3..c852850 100644 --- a/ocamlbotwrapper.c +++ b/ocamlbotwrapper.c @@ -1,5 +1,5 @@ /* -*- C -*- - * $Id: ocamlbotwrapper.c,v 1.3 2007/06/28 23:18:28 rjones Exp $ + * $Id: ocamlbotwrapper.c,v 1.4 2007/06/29 07:55:47 rjones Exp $ * SUID wrapper around ocaml program. */ diff --git a/xavierbot.pl b/xavierbot.pl index 8485438..bfdd9bf 100755 --- a/xavierbot.pl +++ b/xavierbot.pl @@ -2,7 +2,7 @@ # xavierbot : an OCaml interpreter IRC bot. # By Richard W.M. Jones . # This code is in the Public Domain. -# $Id: xavierbot.pl,v 1.6 2007/06/29 07:40:15 rjones Exp $ +# $Id: xavierbot.pl,v 1.7 2007/06/29 07:55:47 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";