#!/usr/bin/perl -w

# Send an SMS to a Cingular number without going through the email gateway.
# Usage: sms-send 1234567890 msgfile or echo msg | sms-send 1234567890

use URI::Escape;
use LWP::Simple;

my $num = shift @ARGV;
my $msg; { local $/; $msg = <>; }
chomp($msg);
if (length($msg) > 160) { substr($msg, 157) = "..." }
my $msg_escaped = uri_escape($msg);

get("http://208.62.68.135/msgresult.shtml?min=$num\&msg=$msg_escaped");