do_fhem/fhem/core/contrib/99_priv_cgi.pm

################################################################################
# FHEM PRIV-CGI
# Stand: 08/2009
# Update:
# 08/2009 ROOMS -> Übersicht aller Räume mit Devices und STATE
# 08/2009 READINGS -> Übersicht aller READIMGS nach Datum -> READING -> Device
# 08/2009 Excute FHEMCommands /privcgi?Task=EXEC&cmd=FHEMCOMMAND&dev=DEVICENAME&attr=ATTRIBUTE&val=Value
################################################################################
#
# Beschreibung
# Es werden lediglich vorhanden Information aus FHEM in eigenen Ansichten/Listen dargestellt.
#
# Ansicht/List
# ALL -> Überblick über alle Devices
# FHT -> Übersicht aller FHT's incl. Programme
# FS20 -> Übersicht alle FS20-Devices
# TH -> Alle Devices (die ich habe) die eine Temperatur oder Luftfeuchte messen (FHT,KS300,HMS,S300TH...)
# ROOMS -> Übersicht aller Räume mit Devices und STATE
# READINGS -> Übersicht aller READINGS; Gruppiert nach Datum -> READING -> Device
# DUMMY -> Überischt aller DUMMY-Devices (als Beispiel für eigene Functionen)
################################################################################
# Installation
#
# Modul ins FHEM-Modul Verzeichnis kopieren
# entweder FHEM neu starten
# oder "reload 99_priv_cgi.pm"
#
################################################################################
# Aufruf:
# Bsp.: FHEMWEB => http://localhost:8083/fhem
# PRIV-CGI => http://localhost:8083/fhem/privcgi
#
# Eigene Erweiterungen implementieren:
# Aufruf: http://localhost:8083/fhem/privcgi?Type=FHT&Task=List
# A. Ergänzung LIST-Funktion
#  - Eigene Funktion schreiben z.B. sub priv_cgi_my_function($)
#  - Eigenen Key festlegen z.B. myKey
#  - Function sub priv_cgi_Initialize($) ergänzen $data{$cgi_key}{TASK_LIST}{TYPE}{myKey} = "priv_cgi_my_function";
#  - reload 99_priv_cgi.pm
#
# B. Eigene Funktion
# - z.B. MyFunc
# - eigenen Key im HASH $data{$cgi_key}{TASK} erzeugen
# - $data{$cgi_key}{TASK}{MyFunc} = "Function_Aufruf"
##############################################
package main;
use strict;
use warnings;
use Data::Dumper;
use vars qw(%data);

sub priv_cgi_Initialize($)
{
	my $cgi_key = "privcgi";
	my $fhem_url = "/" . $cgi_key ; 
	$data{FWEXT}{$fhem_url}{FUNC} = "priv_cgi_callback";
	$data{FWEXT}{$fhem_url}{LINK} = "privcgi";
	$data{FWEXT}{$fhem_url}{NAME} = "MyFHEM";
	$data{$cgi_key}{QUERY} = {};
    # Default:  in Case of /privcgi
	# Task=List&Type=FHT
	$data{$cgi_key}{default}{QUERY} = "Task=List&Type=ALL";
	# Dispatcher Functions
	# Task = List -> Call Function
	$data{$cgi_key}{TASK}{List} = "priv_cgi_list";
    # List -> Type -> Call Function
    $data{$cgi_key}{TASK_LIST}{TYPE} = {};;
    $data{$cgi_key}{TASK_LIST}{TYPE}{ALL} = "priv_cgi_print_all";
    $data{$cgi_key}{TASK_LIST}{TYPE}{FHT} = "priv_cgi_print_fht";
    $data{$cgi_key}{TASK_LIST}{TYPE}{FS20} = "priv_cgi_print_fs20";
	$data{$cgi_key}{TASK_LIST}{TYPE}{TH} = "priv_cgi_print_th";
	$data{$cgi_key}{TASK_LIST}{TYPE}{ROOMS} = "priv_cgi_print_rooms";
	$data{$cgi_key}{TASK_LIST}{TYPE}{READINGS} = "priv_cgi_print_readings";
#	$data{$cgi_key}{TASK_LIST}{TYPE}{DUMMY} = "priv_cgi_print_dummy";

	# ExcuteFhemCommands
	# /privcgi?EXEC=FHEMCOMMAD&DEVICE&VALUE-1&VALUE-2
	# /privcgi?Task=EXEC&cmd=FHEMCOMMAND&dev=DEVICENAME&attr=VALUE-1
	$data{$cgi_key}{TASK}{EXEC} = "priv_cgi_exec";
}

sub
priv_cgi_callback($$)
{
  my ($htmlarg) = @_;
  my ($ret_html, $func,$qtask);
  my $cgikey = &priv_cgi_get_start($htmlarg);
  Log 0, "CGI-KEY: $cgikey";
  # Dispatch TASK... choose Function
  $qtask = $data{$cgikey}{QUERY}{Task};
  $func = $data{$cgikey}{TASK}{$qtask};
  Log 0, "Func: $func";
  no strict "refs";
  # Call Function
  $ret_html .= &$func($cgikey);
  use strict "refs";
  Log 1, "Got $htmlarg";
  return ("text/html; charset=ISO-8859-1", $ret_html);
}

sub
priv_cgi_get_start($)
{
 my $in = shift;
 print "CGI_START: " . Dumper(@_) . "\n";
 my (@tmp,$n,$v,$cgikey,$param);
 # Aufruf mit oder ohne Argumente
 # /privcgi oder /privcgi??Type=FHT&Task=List
 if($in =~ /\?/)
  {
  # Aufruf mit Argumenten: /privcgi?Type=FHT&Task=List
  @tmp = split(/\?/, $in);
  $cgikey = shift(@tmp);
  $cgikey =~ s/\///;
  $param = shift(@tmp);
  }
 else 
 {
	$cgikey = $in;
	# Aufruf OHNE Argumenten: /privcgi
	$cgikey =~ s/\///;
	# Default Werte
	$param = $data{$cgikey}{default}{QUERY};
  }	
# Param nach $data{$cgikey}{QUERY} schreiben
Log 0, "PRIV-CGI: START -> param: " . $param;
 @tmp = split(/&/, $param);
 foreach my $pair(@tmp)
	{
	($n,$v) = split(/=/, $pair);
    Log 0, "PRIV-CGI: START -> param: $n - $v";
   $data{$cgikey}{QUERY}{$n} = $v;
   }
 return $cgikey;
 }


sub 
priv_cgi_html_head($)
{
# HTML-Content for HEAD
  my $cgikey = shift;
  my $html = "<!DOCTYPE html PUBLIC \"-\/\/W3C\/\/DTD HTML 4.01\/\/EN\" \"http:\/\/www.w3.org\/TR\/html4\/strict.dtd\">\n";
  $html .= "<html>\n";
  $html .= "<head>\n";
  $html .=  "<style type=\"text/css\"><!--";
  $html .= "\#hdr {margin: 0em 0em 1em 0em;padding: 0em 1em;background-color: \#CCCCCC;}";
  $html .= "\#left {float: left; width: 15%; padding: 1em;}";
  $html .= "\#right {float: left;width: 70%;}";
  $html .= "body {font-size: 14px;padding: 0px;margin: 0px;font-family: 'Courier New', Courier, Monospace;";
  $html .= "\/\/--><\/style>";
  $html .= "<title>FHEM PRIV-CGI<\/title>\n";
  $html .= "<\/head>\n";
  $html .= "<body>\n";
  return $html;
}

sub
priv_cgi_html_body_div_hdr($)
{
# HTML-Content BODY & DIV-ID HDR
  my $cgikey = shift;
  my $html = "<div id=\"hdr\">";
  $html .= "<h3><a href=\"/fhem\">FHEM</a></h3>\n";
  $html .= "<p style=\"font-size:8pt;\">";
  $html .= $attr{global}{version} . "<br></p>\n";
  $html .= "<hr><br>\n";
  return $html;
}

sub
priv_cgi_html_div_left($)
{
# HTML-Content BODY & DIV-ID LEFT
 my $cgikey = shift;
  my  $html = "<\/div>";
  $html .= "<div id=\"left\">";
  $html .= "<h3>Ansichten:<h3>";
  $html .= "<form method=\"get\" action=\"\/fhem\/privcgi\" name=\"myfhem\">\n";
  $html .= "<select name=\"Type\">\n";
  
  foreach my $d (sort keys %{$data{$cgikey}{TASK_LIST}{TYPE}}) {
  $html .= "<option value=\"$d\">$d</option>\n";
  }
  $html .= "</select>\n";
  $html .= "<input name=\"Task\" value=\"List\"type=\"submit\"><br>\n";
  $html .= "</form>\n";
  $html .= "<\/div>";
  return $html ;
}

sub
priv_cgi_list($) 
{
  my $cgikey = shift;
  my $html;
  Log 0,"PRIV_CGI_LIST: START";
  # HTML-HEAD
  $html = &priv_cgi_html_head($cgikey);
  # HTML-BODY-DIV-HDR
  $html .= &priv_cgi_html_body_div_hdr($cgikey);
  # HTML-BODY-DIV-ID-LEFT
  $html .= &priv_cgi_html_div_left($cgikey);
  my $type = $data{$cgikey}{QUERY}{Type};
  Log 0,"PRIV_CGI_LIST: TYPE = " . $type;
  my $func = $data{$cgikey}{TASK_LIST}{TYPE}{$type};
  Log 0,"PRIV_CGI_LIST: TYPE = $type -> Func -> $func";
  no strict "refs";
  # Call Function
  $html .= &$func;
  use strict "refs";
  
  # HTML-BODY-FOOTER
  $html .= priv_cgi_html_footer();
  return $html;
}
sub
priv_cgi_html_footer()
{
 # HTML-BODY Footer
  my $html = "<\/body>\n";
  $html .= "<\/html>\n";
  return $html;
}

sub priv_cgi_print_fs20() 
	{
  my $str = "<table summary=\"List of FS20 devices\">\n"; 
  $str .= "<tr ALIGN=LEFT><th>Name<\/th><th>Model<\/th><th>State<\/th><th>Code<\/th><th>Button<\/th><th>Room<\/th><\/tr>\n";
  $str .= "<colgroup>\n";
  $str .= "<col width=\"130\"><col width=\"130\"><col width=\"130\"><col width=\"130\">\n";
  $str .= "</colgroup>\n";
  foreach my $d (sort keys %defs) {
    next if($defs{$d}{TYPE} ne "FS20");
    $str .= "<tr ALIGN=LEFT><td>" . $d . "<\/td><td>" . $attr{$d}{model} . "<\/td><td>". $defs{$d}{STATE} . "<\/td><td>". $defs{$d}{XMIT} . "<\/td><td>". $defs{$d}{BTN} . "<\/td><td>". $attr{$d}{room} . "<\/td><\/tr>\n";
    }
    $str .= "<\/table>\n";
    return ($str);
	}
sub priv_cgi_print_fht()
  {
    my ($str,@fp);
    $str = "<table class=\"Fht\" summary=\"List of fht devices\">\n";
    $str .= "<tr ALIGN=LEFT><th>Name<\/th><th>Ventil<\/th><th>Ziel<\/th><th>Aktuell<\/th>" ;
	$str .= "<th>Nacht<\/th><th>Tag<\/th><th>Fenster<\/th><th>IODev<\/th><th>Time<\/th><th>CODE<\/th><\/tr>\n";
    # Init Tabel FHT-Program
    $fp[0] .= "<th></th>"; 
    $fp[1] .= "<td>Montag</td>"; 
    $fp[2] .= "<td></td>"; 
    $fp[3] .= "<td>Dienstag</td>";
    $fp[4] .= "<td></td>";
    $fp[5] .= "<td>Mittwoch</td>"; 
    $fp[6] .= "<td></td>"; 
    $fp[7] .= "<td>Donnerstag</td>";
    $fp[8] .= "<td></td>"; 
    $fp[9] .= "<td>Freitag</td>";
    $fp[10] .= "<td></td>";
    $fp[11] .= "<td>Samstag</td>";
    $fp[12] .= "<td></td>";
    $fp[13] .= "<td>Sonntag</td>";
    $fp[14] .= "<td></td>";

    
    # actuator desired-temp measured-temp night-temp day-temp windowopen-temp
    foreach my $d (sort keys %defs)
    {
    next if($defs{$d}{TYPE} ne "FHT");
    $str .= "<tr ALIGN=LEFT>" ;
    $str .= "<td>" . $d . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"actuator"}{VAL} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"desired-temp"}{VAL} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"measured-temp"}{VAL} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"night-temp"}{VAL} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"day-temp"}{VAL} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"windowopen-temp"}{VAL} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{IODev}{NAME} . "<\/td>" ;
    $str .= "<td>" . $defs{$d}{READINGS}{"actuator"}{TIME} . "<\/td>" ;
	$str .= "<td>" . $defs{$d}{CODE} . "<\/td>" ;
    $str .= "<\/tr>\n";
    # FHT-Programme
    no strict "subs";
    $fp[0] .= "<th>" . $d . "</th>";
    $fp[1] .= "<td>" . $defs{$d}{READINGS}{'mon-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'mon-to1'}{VAL} . "</td>";
    $fp[2] .= "<td>" . $defs{$d}{READINGS}{'mon-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'mon-to2'}{VAL} . "</td>";
    $fp[3] .= "<td>" . $defs{$d}{READINGS}{'tue-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'tue-to1'}{VAL} . "</td>";
    $fp[4] .= "<td>" . $defs{$d}{READINGS}{'tue-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'tue-to2'}{VAL} . "</td>";
    $fp[5] .= "<td>" . $defs{$d}{READINGS}{'wed-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'wed-to1'}{VAL} . "</td>";
    $fp[6] .= "<td>" . $defs{$d}{READINGS}{'wed-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'wed-to2'}{VAL} . "</td>";
    $fp[7] .= "<td>" . $defs{$d}{READINGS}{'thu-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'thu-to1'}{VAL} . "</td>";
    $fp[8] .= "<td>" . $defs{$d}{READINGS}{'thu-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'thu-to2'}{VAL} . "</td>";
    $fp[9] .= "<td>" . $defs{$d}{READINGS}{'fri-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'fri-to1'}{VAL} . "</td>";
    $fp[10] .= "<td>" . $defs{$d}{READINGS}{'fri-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'fri-to2'}{VAL} . "</td>";
    $fp[11] .= "<td>" . $defs{$d}{READINGS}{'sat-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'sat-to1'}{VAL} . "</td>";
    $fp[12] .= "<td>" . $defs{$d}{READINGS}{'sat-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'sat-to2'}{VAL} . "</td>";
    $fp[13] .= "<td>" . $defs{$d}{READINGS}{'sun-from1'}{VAL} . "-" . $defs{$d}{READINGS}{'sun-to1'}{VAL} . "</td>";
    $fp[14] .= "<td>" . $defs{$d}{READINGS}{'sun-from2'}{VAL} . "-" . $defs{$d}{READINGS}{'sun-to2'}{VAL} . "</td>";
    use strict "subs";
    }
    $str .= "<\/table>\n";
    
    $str .= "<br>\n";
    $str .= "<table>\n";
    $str .= "<colgroup>\n";
    $str .= "<col width=\"130\"><col width=\"130\"><col width=\"130\"><col width=\"130\">\n";
    $str .= "<col width=\"130\"><col width=\"130\"><col width=\"130\"><col width=\"130\">\n";
    $str .= "</colgroup>\n";

    foreach (@fp) {
      $str .= "<tr ALIGN=LEFT>" . $_ . "</tr>\n";
      }
    $str .= "<\/table>\n";
   return ($str);
  } 
sub priv_cgi_print_dummy()
{
my $str = "<table summary=\"List of Dummy devices\">\n";
    $str .= "<colgroup>\n";
    $str .= "<col width=\"130\"><col width=\"130\">\n";
    $str .= "</colgroup>\n";
    $str .= "<tr ALIGN=LEFT><th>Name<\/th><th>State<\/th><\/tr>\n";
    foreach my $d (keys %defs) {
    	next if($defs{$d}{TYPE} ne "dummy");
    $str .= "<tr ALIGN=LEFT><td>" . $d . "<\/td><td>". $defs{$d}{STATE} . "<\/td><\/tr>\n";}
    $str .= "<\/table>\n";
  return ($str);

}

sub priv_cgi_print_th() 
{
  # List All-Devices with Temp od Humidity
  my ($type,$str,$s,$t,$h,$i);
  $str = "<table summary=\"List of ALL devices\">\n";
  $str .= "<tr ALIGN=LEFT><th>Name</th><th>Temperature</th><th>Humidity</th><th>Information</th><th>Type</th><th>Room</th></tr>";
  foreach my $d (sort keys %defs) {
    $type = $defs{$d}{TYPE};
	next if(!($type =~ m/^(FHT|HMS|KS300|CUL_WS)/));
    $t = "";
    $h = "";
    $i = "";
    if ($type eq "FHT"){
                        $i = $defs{$d}{'READINGS'}{'warnings'}{'VAL'};
                        $t = $defs{$d}{'READINGS'}{'measured-temp'}{'VAL'};
                        $t =~ s/\(Celsius\)//;};
    if ($type eq "HMS" || $type eq "CUL_WS"){
                        $i = $defs{$d}{'READINGS'}{'battery'}{'VAL'};
                        $t = $defs{$d}{'READINGS'}{'temperature'}{'VAL'};
                        $t =~ s/\(Celsius\)//;
                        $h = $defs{$d}{'READINGS'}{'humidity'}{'VAL'};
                        $h =~ s/\(%\)//;};
    if ($type eq "KS300"){
                        $i = "Raining: " . $defs{$d}{'READINGS'}{'israining'}{'VAL'};
                        $i =~ s/\(yes\/no\)//;
                        $t = $defs{$d}{'READINGS'}{'temperature'}{'VAL'};
                        $t =~ s/\(Celsius\)//;
                        $h = $defs{$d}{'READINGS'}{'humidity'}{'VAL'};
                        $h =~ s/\(%\)//;};
    $str .= "<tr ALIGN=LEFT><td>" . $d . "<\/td><td>". $t . "<\/td><td>". $h . "<\/td><td>". $i . "<\/td><td>". $type . "<\/td><td>". $attr{$d}{room} . "<\/td><\/tr>\n";
    }
    $str .= "<\/table>\n";
    return ($str);
}
sub priv_cgi_print_all() 
{
  # List All-Devices
  my ($type,$str,$s,$t,$h,$i);
  $str = "<table summary=\"List of ALL devices\">\n";
  $str .= "<tr ALIGN=LEFT><th>Name</th><th>State</th><th>Type</th><th>Model</th><th>Room</th><th>IODev</th></tr>";
  foreach my $d (sort keys %defs)
	{
	$str .= "<tr ALIGN=LEFT><td>" . $d . "<\/td><td>". $defs{$d}{STATE} . "<\/td><td>". $defs{$d}{TYPE} . "<\/td><td>". $attr{$d}{model} . "<\/td><td>". $attr{$d}{room} . "<\/td><td>". $defs{$d}{IODev}{NAME} . "<\/td><\/tr>\n";
	}
  $str .= "<\/table>\n";
  return ($str);
}
sub priv_cgi_print_rooms()
{
my ($str,$r,$d,$ri);
my %rooms = ();
# Quelle 01_FHEMWEB.pm ...
foreach $d (sort keys %defs ) {
    foreach my $r (split(",", FW_getAttr($d, "room", "Unsorted"))) {
      $rooms{$r}{$d} = $defs{$d}{STATE};}
    }
# print Dumper(%rooms);
# Tabelle
# Raum | DEVICE | TYPE | MODELL | STATE
$str = "<table>";
$str .= "<tr ALIGN=LEFT><th>Raum</th><th>Device</th><th>Type</th><th>Model</th><th>State</th></tr>";
foreach $r (sort keys %rooms)
	{
	$ri = 0;
#	$str .= "<tr><td>" . $r . "</td><td></td><td></td><td></td><td></td></tr>\n";
	foreach $d (sort keys %{$rooms{$r}}){
		if($ri eq 0) {$str .= "<tr bgcolor=\"#CCCCCC\"><td>" . $r . "</td>";}
		else {$str .= "<tr><td></td>"}
#		$str .= "<tr><td></td><td>" . $d . "</td>";
		$str .= "<td>" . $d . "</td>";
		$str .= "<td>" . $defs{$d}{TYPE} . "</td>";
		$str .= "<td>" . $attr{$d}{model} . "</td>";
		$str .= "<td>" . $defs{$d}{STATE} . "</td></tr>\n";
		$ri++;
		}
	}
$str .= "</table>";
return ($str);
}
sub priv_cgi_print_readings()
{
my ($d,$r,$d1,$str,@tmp);
# Übersicht aller READINGS
# Tabelle:
# READING
#	DATUM
#		DEVICE VALUE TIME
# %reads{DATUM}{READINGS}{DEVICE}{READINGS}{VALUE} = VAL
# %reads{DATUM}{READINGS}{DEVICE}{READINGS}{TIME} = ZEIT
my (%reads,$readings,$datum,$device,$value,$zeit);
foreach $device (sort keys %defs )
{
	foreach $r (sort keys %{$defs{$device}{READINGS}})
	{
		@tmp = split(' ', $defs{$device}{READINGS}{$r}{TIME});
		$readings = $r;
		$datum = $tmp[0];
		$value = $defs{$device}{READINGS}{$r}{VAL};
		$zeit = $tmp[1];
		$reads{$datum}{$readings}{$device}{$readings}{VALUE} = $defs{$device}{READINGS}{$r}{VAL};
		$reads{$datum}{$readings}{$device}{$readings}{TIME} = $zeit;
	}
}
$str = "<table>\n";
# Counter
my ($ri,$di);
# Datum
foreach $r (sort keys %reads)
	{
	# READINGS
	$ri = 0;
	foreach $d (sort keys %{$reads{$r}})
		{
		$di = 0;
			foreach $d1 (sort keys %{$reads{$r}{$d}})
				{
				if($ri eq 0){$str .= "<tr bgcolor=\"#CCCCCC\"><td>" . $r . "</td>";}
				else{$str .= "<tr><td></td>";}
				if($di eq 0) {$str .= "<td>" . $d . "</td>";}
				else {$str .= "<td></td>"}
				$str .= "<td>" . $d1 . "</td><td>" . $reads{$r}{$d}{$d1}{$d}{VALUE} . "</td><td>" .$reads{$r}{$d}{$d1}{$d}{TIME} . "</td></tr>\n";
				$di++;
				}
		$ri++;
		}
	
	}
$str .= "</table>\n";
return ($str);
}
sub 
priv_cgi_exec($$) 
{
# /privcgi?Task=EXEC&cmd=FHEMCOMMAND&dev=DEVICENAME&attr=ATTRIBUTE&val=Value
# Task=EXEC&cmd=set&dev=WaWaZiDATA&attr=active&val=100
# Task=EXEC&cmd=attr&dev=WaWaZiDATA&attr=room&val=PRIVCGIEXEC
Log 0, "PRIVCGIEXEC: @_\n";
my $cgikey = shift;
my $ret_param = "text/plain; charset=ISO-8859-1";
my $ret_txt = undef;
my $cmd = lc($data{$cgikey}{QUERY}{cmd});
my $dev = $data{$cgikey}{QUERY}{dev};
my $attr = $data{$cgikey}{QUERY}{attr};
my $val = $data{$cgikey}{QUERY}{val};
Log 0, "PRIVCGIEXEC: FHEM-Command: $cmd $dev $attr $val\n";
if(!defined($cmds{$cmd}))
		{
		return ($ret_param, "PRIVCGIEXEC: unkown COMMAND $cmd");
		}
	if(!defined($defs{$dev}))
		{
		return ($ret_param, "PRIVCGIEXEC: unknown DEVICE $dev");
		}
$ret_txt = AnalyzeCommand(undef, "$cmd $dev $attr $val");
return ($ret_param, $ret_txt);
}
1;