sub on_key
{
	my ($self) = @_;

	print "in handler\n";

	if($self->{typing_status} == 0)
	{
		print "key change\n";
		hook("protocol_set_typing_status", -user => $self->{buddy}, -status => 2);
		$self->{typing_status} = 2;
	}
	$self->{last_typed} = time;
}