# Message function for Teletouch pagers using e-mail delivery
# but using the e-mail mini status function instead. This is a

$MSGFUNCS{'teletouch_short'} = \&msg_teletouch_short;

sub msg_teletouch_short {
   my ($pager,$subject,$body) = @_;

   &email("$pager\@pageme.teletouch.com",$subject,$body);
   &debug( "teletouch short page sent to $pager" );
}

# Required becuase I'm included perl code
1;

