]> git.etc.gen.nz Git - spong.git/commitdiff
Initial revision
authorStephen L Johnson <sjohnson@monsters.org>
Thu, 21 Oct 1999 21:16:07 +0000 (21:16 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Thu, 21 Oct 1999 21:16:07 +0000 (21:16 +0000)
src/lib/Spong/Message/plugins/msg_alltelsms [new file with mode: 0755]
src/lib/Spong/Message/plugins/msg_skytel [new file with mode: 0755]

diff --git a/src/lib/Spong/Message/plugins/msg_alltelsms b/src/lib/Spong/Message/plugins/msg_alltelsms
new file mode 100755 (executable)
index 0000000..ea89f04
--- /dev/null
@@ -0,0 +1,15 @@
+# Messasing function for Alltel SMS service using e-mail delivery via
+# the e-mail mini status, because SMS messages are limited
+
+$MSGFUNCS{'alltelsms'} = \&msg_alltelsms;
+
+sub msg_alltelsms {
+   my ($phone) = @_;
+
+   &email_mini_status("$phone\@message.alltel.com",'shortsubject');
+   &debug( "alltel sms page sent to $phone" );
+}
+
+# Required becuase I'm included perl code
+1;
+
diff --git a/src/lib/Spong/Message/plugins/msg_skytel b/src/lib/Spong/Message/plugins/msg_skytel
new file mode 100755 (executable)
index 0000000..047ff36
--- /dev/null
@@ -0,0 +1,15 @@
+# Messaging function skytel pagers using e-mail delivery via
+# the e-mail status function
+
+$MSGFUNCS{'skytel'} = \&msg_skytel;
+
+sub msg_skytel {
+   my($skytel) = @_;
+
+   &email_status("$skytel\@skytel.net");
+   &debug( "skytel page sent to $skytel" );
+}
+
+# Required becuase I'm included perl code
+1;
+