From: Ralf Ertzinger <ralf@skytale.net>
Date: Wed, 7 Sep 2011 16:21:02 +0000 (+0200)
Subject: videosite: print help if no connector subcommand given, lowercase connector names... 
X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=commitdiff_plain;h=9f6896445322f829654346c7bf8fafdfb8b5646e

videosite: print help if no connector subcommand given, lowercase connector names for select
---

diff --git a/videosite.pl b/videosite.pl
index a5123bc..6689929 100644
--- 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");