##############################################
# puts a period at the end of senders message,
# if one was not there, AND, if there is no
# question OR explanation mark.

my $length = length($message);
my $period = index($message, ".");
my $question = index($message, "?");
my $explanation = index($message, "!");
$length = $length - 1;

if (($period ne $length) && ($question ne $length) && ($explanation ne $length)) {
  $message = $message.'.';
}
##############################################