my $connconf = $conf->{'videosite'}->{'connectors'};
unless(defined($subcmd)) {
- write_irssi('No subcommand given');
- return;
+ $subcmd = "help";
}
$subcmd = lc($subcmd);
delete($connconf->{$conn}->{'schemas'}->{$schema});
} elsif ($subcmd eq 'select') {
- my @connlist = @_;
+ my @connlist = map { lc } @_;
if (scalar(@connlist) == 0) {
write_irssi("No connectors given");