From 9f6896445322f829654346c7bf8fafdfb8b5646e Mon Sep 17 00:00:00 2001
From: Ralf Ertzinger <ralf@skytale.net>
Date: Wed, 7 Sep 2011 18:21:02 +0200
Subject: [PATCH] videosite: print help if no connector subcommand given,
 lowercase connector names for select

---
 videosite.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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");
-- 
1.8.3.1