? my $app = shift; ? my @ircs = $app->ircs;
? 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"; ? }
{autoconnect}) {?> checked="checked" name="_autoconnect" />
" size="15"/> " size="6" style="float:left"/> {ssl}) { ?> checked="checked" /> SSL
" size="15" /> " size="15" />
" size="15" /> " size="15" />
? }
export config