| … | |
… | |
| 871 | }, |
871 | }, |
| 872 | on_activate => sub { |
872 | on_activate => sub { |
| 873 | my ($input, $text) = @_; |
873 | my ($input, $text) = @_; |
| 874 | $input->set_text (''); |
874 | $input->set_text (''); |
| 875 | |
875 | |
| 876 | if ($text =~ /^\/bind\s+(.*)$/) { |
|
|
| 877 | CFClient::Binder::open_binding_dialog (sub { |
|
|
| 878 | my ($mod, $sym) = @_; |
|
|
| 879 | $::CFG->{bindings}->{$mod}->{$sym} = [$1]; |
|
|
| 880 | }); |
|
|
| 881 | } elsif ($text =~ /^\/(.*)/) { |
876 | if ($text =~ /^\/(.*)/) { |
| 882 | $::CONN->user_send ($1); |
877 | $::CONN->user_send ($1); |
| 883 | } else { |
878 | } else { |
| 884 | my $say_cmd = $::CFG->{say_command} || 'say'; |
879 | my $say_cmd = $::CFG->{say_command} || 'say'; |
| 885 | $::CONN->user_send ("$say_cmd $text"); |
880 | $::CONN->user_send ("$say_cmd $text"); |
| 886 | } |
881 | } |
