diff options
| -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) = @_; | 
