videosite: print help if no connector subcommand given, lowercase connector names...

diff --git a/videosite.pl b/videosite.pl
index a5123bc..6689929 100644 (file)
--- a/videosite.pl
+++ b/videosite.pl
@@ -432,8 +432,7 @@ sub cmd_connector {
     my $connconf = $conf->{'videosite'}->{'connectors'};
 
     unless(defined($subcmd)) {
-        write_irssi('No subcommand given');
-        return;
+        $subcmd = "help";
     }
 
     $subcmd = lc($subcmd);
@@ -562,7 +561,7 @@ sub cmd_connector {
 
         delete($connconf->{$conn}->{'schemas'}->{$schema});
     } elsif ($subcmd eq 'select') {
-        my @connlist = @_;
+        my @connlist = map { lc } @_;
 
         if (scalar(@connlist) == 0) {
             write_irssi("No connectors given");