return;
}
- my $req = '<REQ CMD="sensorpropget"><HANDLE>0x1</HANDLE><SENSORLIST>';
+ my $req = '<REQ CMD="sensorpropget"><HANDLE>'.$slist->{HANDLE}.'</HANDLE><SENSORLIST>';
foreach my $s (@{$slist->{SENSORLIST}->{SENSOR}}) {
$req .= '<SENSOR KEY="'.$s->{KEY}.'"/>';
}
sub spawn_gui {
my $base = shift;
- open(APPLET,"|appletviewer /dev/stdin");
+ open(APPLET,"|appletviewer -J-Djava.security.policy=applet.policy /dev/stdin");
print APPLET '<HTML><HEAD><TITLE>RSB S2 User Interface</TITLE></HEAD>';
print APPLET '<BODY>';
print APPLET '<object width="640" height="480">';