| … | |
… | |
| 19 | my ($ns, $args) = @_; |
19 | my ($ns, $args) = @_; |
| 20 | |
20 | |
| 21 | # run through the cmds of setup |
21 | # run through the cmds of setup |
| 22 | # syntax is setup <cmdname1> <parameter> <cmdname2> <parameter> ... |
22 | # syntax is setup <cmdname1> <parameter> <cmdname2> <parameter> ... |
| 23 | # |
23 | # |
| 24 | # we send the status of the cmd back, or a FALSE is the cmd is the server unknown |
24 | # we send the status of the cmd back, or a FALSE is the cmd if the server unknown |
| 25 | # The client then must sort this out |
25 | # the client then must sort this out |
| 26 | |
26 | |
| 27 | my %setup = split / +/, $args; |
27 | my %setup = split / +/, $args; |
| 28 | while (my ($k, $v) = each %setup) { |
28 | while (my ($k, $v) = each %setup) { |
| 29 | if ($k eq "sound") { |
29 | if ($k eq "sound") { |
| 30 | $ns->sound ($v); |
30 | $ns->sound ($v); |
