Changeset 427

Timestamp:

03/28/08 19:24:44 (8 months ago)

Author:

eevee

Message:

Changed Perlbui to use a hashref of channels rather than an arrayref, so I can provide settings later.

Files:

• veekun/trunk/script/perlbui.pl (modified) (2 diffs)

veekun/trunk/script/perlbui.pl

@@ -26 +26 @@
 # XXX: only one supported at a time right now
 my %Connections = (
-    'irc.veekun.com' => [ '#veekun' ],
+    'irc.veekun.com' => {
+        '#veekun' => {},
+        '#tcod'   => {},
+    },
 #    'irc.pocketmonsters.net' => [ '#bulbagarden' ],
 );
@@ -102 +105 @@
     REPLACEME("Successfully connected to " . $self->server);
 
-    for my $channel (@{$Connections{ $self->server }}) {
+    for my $channel (keys %{$Connections{ $self->server }}) {
         REPLACEME("Joining $channel");
         $self->join($channel);