git.annexia.org
/
xavierbot.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1404efc
)
Switched to the right default chatserver.
author
rjones
<rjones>
Fri, 29 Jun 2007 21:44:02 +0000
(21:44 +0000)
committer
rjones
<rjones>
Fri, 29 Jun 2007 21:44:02 +0000
(21:44 +0000)
xavierbot.pl
patch
|
blob
|
history
xavierbot.pl.in
patch
|
blob
|
history
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.
# 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);
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 $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";
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.
# 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);
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 $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";
my $port = 6667;
my $channel = "#ocaml";