# Messaging function for Teletouch pagers using e-mail delivery via
# the e-mail status function

$MSGFUNCS{'teletouch'} = \&msg_teletouch;

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

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

# Required becuase I'm included perl code
1;

