From f574f64df4e16405240bfc44a478241b56f92055 Mon Sep 17 00:00:00 2001 From: Stephen L Johnson Date: Thu, 21 Oct 1999 20:24:44 +0000 Subject: [PATCH] Initial import --- src/lib/Spong/Message/plugins/msg_email | 16 ++++++++++++++++ src/lib/Spong/Message/plugins/msg_teletouch | 15 +++++++++++++++ .../Spong/Message/plugins/msg_teletouch_short | 15 +++++++++++++++ 3 files changed, 46 insertions(+) create mode 100755 src/lib/Spong/Message/plugins/msg_email create mode 100755 src/lib/Spong/Message/plugins/msg_teletouch create mode 100755 src/lib/Spong/Message/plugins/msg_teletouch_short diff --git a/src/lib/Spong/Message/plugins/msg_email b/src/lib/Spong/Message/plugins/msg_email new file mode 100755 index 0000000..94620be --- /dev/null +++ b/src/lib/Spong/Message/plugins/msg_email @@ -0,0 +1,16 @@ +# Messing function for regular e-mail using the e-mail status +# function + +$MSGFUNCS{'email'} = \&msg_email; + +sub msg_email { + my ($email) = @_; + + &email_status($email); + &debug( "mail message sent to $email" ); +} + +# Required becuase I'm included perl code +1; + + diff --git a/src/lib/Spong/Message/plugins/msg_teletouch b/src/lib/Spong/Message/plugins/msg_teletouch new file mode 100755 index 0000000..0859a09 --- /dev/null +++ b/src/lib/Spong/Message/plugins/msg_teletouch @@ -0,0 +1,15 @@ +# Messaging function for Teletouch pagers using e-mail delivery via +# the e-mail status function + +$MSGFUNCS{'teletouch'} = \&msg_teletouch; + +sub msg_teletouch { + my ($pager) = @_; + + &email_status("$pager\@pageme.teletouch.com",'shortsubject'); + &debug( "teletouch page sent to $pager" ); +} + +# Required becuase I'm included perl code +1; + diff --git a/src/lib/Spong/Message/plugins/msg_teletouch_short b/src/lib/Spong/Message/plugins/msg_teletouch_short new file mode 100755 index 0000000..4b43377 --- /dev/null +++ b/src/lib/Spong/Message/plugins/msg_teletouch_short @@ -0,0 +1,15 @@ +# 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) = @_; + + &email_mini_status("$pager\@pageme.teletouch.com",'shortsubject'); + &debug( "teletouch short page sent to $pager" ); +} + +# Required becuase I'm included perl code +1; + -- 2.30.2