? for my $index (0 .. @ircs - 1) {
? my $irc = $ircs[$index];
? my $network = $irc->name;
? my $config = $app->config->servers->{$network};
? my ($action, $status);
? if ($irc->is_connected) {
? $status = "connected";
? $action = "disconnect";
? } elsif ($irc->is_connecting) {
? $status = "connecting";
? $action = "disconnect";
? } elsif ($irc->reconnect_timer) {
? $status = "reconnecting";
? $action = "disconnect";
? } else {
? $status = "disconnected";
? $action = "connect";
? }
? }