+ my ($switch,$taste,$on) = @_ or die "parameters {a|b|c|d} {1|2} {0|1}";
+ my $data = {
+ a=> ($on?'1':'0'),
+ b=> ($taste==1?'0':'1'),
+ c=>0,
+ d=>0,
+ };
+ if($switch eq 'b')
+ {
+ $data->{c}=1;
+ } elsif ($switch eq 'c') {
+ $data->{d}=1;
+ } elsif ($switch eq 'd') {
+ $data->{c}=1;
+ $data->{d}=1;
+ }
+ return $data;