#!/usr/bin/perl -Tw # #NAME # SMSmsg - Send an SMS message # #SYNOPSIS # http://host.dom.ain/cgi/SMSmsg # #DESCRIPTION # This is a CGI script that implements a web page for # sending SMS messages to a list of recipients. # #OPTIONS # #EXAMPLES # #FILES # # SMSdata.txt # This is our database of SMS recipients. # #BUGS # #SEE ALSO # #AUTHOR # John Chambers $| = 1; ($P = $0) =~ s".*/""; $V = $ENV{"V_$P"} || 1; print "Content-Type: text/html\n\n"; print "\n"; print "
SMS message
\n"; print "\n"; push @INC, '.', 'cgi'; $ENV{'PATH'} .= ':.'; require "SMSfcts.pm"; $sms = new SMSfcts; print "Call form() ...\n" if $V>2; $x = $sms->form(); print "form() returned $x.\n" if $V>2; exit 0;