# 2003 Marcello Barnaba <vjt@openssl.it>
#
use strict;
use Irssi;
use Irssi::Irc;

sub sig_send_text ($$$)
{
    my ($line, $server, $witem) = @_;
    my $first;

    return unless(ref $server);
    return unless($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'));

#    $first = "\002".uc(substr($line, 0, 1))."\002";
#    $line = $first.substr($line, 1);
    $line = ucfirst($line).'.';

    Irssi::signal_continue($line, $server, $witem);
}

Irssi::signal_add('send text', \&sig_send_text);