r23759 - /scripts/KGB/server/KGB

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Aug  4 17:21:35 2008
New Revision: 23759

URL: http://svn.debian.org/wsvn/?sc=1&rev=23759
Log:
cosmetic improvement in IRC network spawning params

Modified:
    scripts/KGB/server/KGB

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=23759&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Mon Aug  4 17:21:35 2008
@@ -119,19 +119,19 @@
     PORT    => $conf->{soap}{server_port},
 );
 
-foreach(keys %{$conf->{networks}}) {
+while( my($net,$opts) = each %{$conf->{networks}}) {
     my $irc = POE::Component::IRC::State->spawn(
-        Alias       => "irc_$_",
-        Nick        => $conf->{networks}{$_}{nick},
-        Ircname     => $conf->{networks}{$_}{ircname},
-        Username    => $conf->{networks}{$_}{username},
-        Password    => $conf->{networks}{$_}{password}
+        Alias       => "irc_$net",
+        Nick        => $opts->{nick},
+        Ircname     => $opts->{ircname},
+        Username    => $opts->{username},
+        Password    => $opts->{password}
     );
     $irc->plugin_add( 'NickServID',
         POE::Component::IRC::Plugin::NickServID->new(
-            Password=>$conf->{networks}{$_}{nickserv_password},
+            Password=>$opts->{nickserv_password},
         ),
-    ) if $conf->{networks}{$_}{nickserv_password};
+    ) if $opts->{nickserv_password};
 }
 POE::Session->create(
     inline_states => {