diff options
Diffstat (limited to 'vimput.pl')
| -rw-r--r-- | vimput.pl | 18 |
1 files changed, 16 insertions, 2 deletions
@@ -142,12 +142,12 @@ sub pipe_input { my $input = <$read_handle>; - if (index($input, ERROR_PREFIX) == 0) { + if (is_error_message($input)) { $input = substr($input, length(ERROR_PREFIX)); Irssi::print($input, MSGLEVEL_CLIENTERROR); } - elsif (index($input, OK_PREFIX) == 0) { + elsif (is_ok_message($input)) { $input = substr($input, length(OK_PREFIX)); chomp $input; @@ -168,6 +168,20 @@ sub is_child_fork { } +sub is_error_message { + my ($string) = @_; + + return index($string, ERROR_PREFIX) == 0; +} + + +sub is_ok_message { + my ($string) = @_; + + return index($string, OK_PREFIX) == 0; +} + + # TODO: Find out if it's possible to do this is a command Irssi::signal_add_last 'gui key pressed' => sub { my ($key) = @_; |
