X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=contrib%2Fcussh.pl;fp=contrib%2Fcussh.pl;h=ae758d17b14e1600188f57386572a339c6e338f0;hb=79c87aeda9172e219a842e393c6499c8bf37662a;hp=b2a44eeb160de289c557cb8f21bf8d3464615639;hpb=e6a052ab22a285b1c6e91fb8678168fd1ffdca92;p=collectd.git

diff --git a/contrib/cussh.pl b/contrib/cussh.pl
index b2a44eeb..ae758d17 100755
--- a/contrib/cussh.pl
+++ b/contrib/cussh.pl
@@ -187,7 +187,14 @@ sub putid {
 =cut
 
 sub cmd_help {
-	print <<HELP;
+	my $sock = shift;
+	my $line = shift || '';
+
+	my @line = tokenize($line);
+	my $cmd = shift (@line);
+
+	my %text = (
+		help => <<HELP,
 Available commands:
   HELP
   PUTVAL
@@ -200,6 +207,45 @@ Available commands:
 See the embedded Perldoc documentation for details. To do that, run:
   perldoc $0
 HELP
+		putval => <<HELP,
+PUTVAL <id> <value0> [<value1> ...]
+
+Submits a value to the daemon.
+HELP
+		getval => <<HELP,
+GETVAL <id>
+
+Retrieves the current value or values from the daemon.
+HELP
+		flush => <<HELP,
+FLUSH [plugin=<plugin>] [timeout=<timeout>] [identifier=<id>] [...]
+
+Sends a FLUSH command to the daemon.
+HELP
+		listval => <<HELP,
+LISTVAL
+
+Prints a list of available values.
+HELP
+		putnotif => <<HELP
+PUTNOTIF severity=<severity> [...] message=<message>
+
+Sends a notifications message to the daemon.
+HELP
+	);
+
+	if (!$cmd)
+	{
+		$cmd = 'help';
+	}
+	if (!exists ($text{$cmd}))
+	{
+		print STDOUT "Unknown command: " . uc ($cmd) . "\n\n";
+		$cmd = 'help';
+	}
+
+	print STDOUT $text{$cmd};
+
 	return 1;
 } # cmd_help
 
@@ -354,7 +400,7 @@ sub flush {
 				$args{"timeout"} = $value;
 			}
 			elsif ($option eq "identifier") {
-				my $id = getid (\$value);
+				my $id = getid ($value);
 				if (!$id)
 				{
 					print STDERR "Not a valid identifier: \"$value\"\n";