mail2sms.pl

使用TAP的蜂窝型GSM手机短消息服务中心

#!/usr/bin/perl

# Mail to SMS gateway script, version 1.0
# By Andy Hawkins ([e-mail])

# Set this to be the path to your mail program

$MAILER="/usr/lib/sendmail -t";

# Set this to the maximum number of tries for a message

$retries=5;

$foundblank=0;
$number="";

headerloop: while(<>)
{
	chomp;
	if (/^From:\s(\S+)/)
	{
		$fromaddr=$1;
	}

	if (/^Subject:\s(\S+)/)
	{
		$number=$1;
	}

	if (/^$/)
	{
		$foundblank=1;
		last headerloop;
	}
}

$msg="";

messageloop: while (<>)
{
	chomp;
	last messageloop if /^quit$/ or /^end$/;

	if ($msg)
	{
		$msg=$msg." ".$_;
	}
	else
	{
		$msg=$_;
	}
}

print "Message is to $number\n";

print "Message is ($msg)\n";

$success=0;
$longmsg=0;
$badservice=0;
$badnumber=0;

if ($number)
{
	sendloop: while ($retries)
	{
		$retcode=system ("/usr/bin/sms_client $number \"$msg\"")/256;
#		$retcode=system ("exitstat.pl $number \"$msg\"")/256;
		if ($retcode==0)
		{
			$success=1;
			last sendloop;
		}
		else
		{
			print "Failed with retcode $retcode\n";
			if ($retcode==1)
			{
				$longmsg=1;
				last sendloop;
			}
	
			if ($retcode==3)
			{
				$badservice=1;
				last sendloop;
			}
	
			if ($retcode==4)
			{
				$badnumber=1;
				last sendloop;
			}
		
			sleep 5;
			$retries--;
		}
	}
}
	
open MAIL,"|$MAILER";

#print MAIL "From: $MAIL_FROM\n";
print MAIL "To: $fromaddr\n";

if ($success)
{
	print MAIL "Subject: SMS to $number sent successfully\n";
	print MAIL "\n";

	print MAIL "Your SMS to $number was sent successfully\n";
}
else
{
	print MAIL "Subject: SMS to $number failed\n";
	print MAIL "\n";

	print MAIL "Your SMS to $number failed\n";

	unless ($number)
	{
		print MAIL "No number found in subject header\n";
	}

	if ($longmsg)
	{
		print MAIL "Your message was too long\n";
	}

	if ($badservice)
	{
		print MAIL "An invalid service was specified\n";
	}

	if ($badnumber)
	{
		print MAIL "The number $number could not be expanded\n";
	}
}

close MAIL;