From 4faf1e5fcb46955cea9eaa04e4370c8bff767a84 Mon Sep 17 00:00:00 2001
From: Ralf Ertzinger <sun@ryoko-darknet.camperquake.de>
Date: Sun, 7 Dec 2008 23:34:02 +0100
Subject: [PATCH] - Add autocompletion for parameter names and values

---
 videosite.pl      | 20 ++++++++++++++++++++
 videosite/Base.pm | 24 ++++++++++++++++++++++++
 2 files changed, 44 insertions(+)

diff --git a/videosite.pl b/videosite.pl
index 54a1280..bf14b95 100644
--- a/videosite.pl
+++ b/videosite.pl
@@ -455,8 +455,28 @@ sub sig_complete {
         foreach (@grabbers, @getters) {
             push(@matches, $_->{'NAME'}) if $_->{'NAME'} =~ m|^$word|;
         };
+    } elsif ($linestart =~ m|^/videosite set (\w+)$|) {
+        my $module = $1;
+
+        foreach my $p (@getters, @grabbers) {
+            if ($p->{'NAME'} eq $module) {
+                @matches = $p->getparamlist($word);
+                last;
+            }
+        }
+    } elsif ($linestart =~ m|/videosite set (\w+) (\w+)$|) {
+        my $module = $1;
+        my $param = $2;
+
+        foreach my $p (@getters, @grabbers) {
+            if ($p->{'NAME'} eq $module) {
+                @matches = $p->getparamvalues($param, $word);
+                last;
+            }
+        }
     }
 
+
     push(@{$complist}, sort @matches);
     ${$want_space} = 0;
 
diff --git a/videosite/Base.pm b/videosite/Base.pm
index 697bcfb..f0fa439 100644
--- a/videosite/Base.pm
+++ b/videosite/Base.pm
@@ -111,6 +111,30 @@ sub getconfstr {
     return $s;
 }
 
+# Return a list of the parameters supported by the module
+# Does not return the 'enabled' parameter
+sub getparamlist {
+    my $self = shift;
+    my $word = shift;
+
+    return grep {$_ ne 'enabled' && /^$word/} keys %{$self->{'_PARAMS'}};
+}
+
+# Return a list of valid parameter values, if the parameter has
+# such a list.
+sub getparamvalues {
+    my $self = shift;
+    my $param = shift;
+    my $word = shift;
+
+    unless(exists($self->{'_PARAMS'}->{$param}->[2])) {
+        return ();
+    } else {
+        return grep {/^$word/} keys %{$self->{'_PARAMS'}->{$param}->[2]};
+    }
+}
+
+
 sub gethelpstr {
     my $self = shift;
     my $s = 'Help for ' . $self->{'NAME'} . ":\n";
-- 
1.8.3.1