… | |
… | |
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); |