#!/usr/bin/expect -f

if {[llength $argv] < 3} {
   puts "Usage: $argv0 '<device>' '<number>' '<message>'";
   puts "<number> should be in international format.";
   exit 1;
}

set device [lindex $argv 0]
set number [lindex $argv 1]
set message [lindex $argv 2]

set escape "\x1C";

set timeout 25
match_max 100000

puts "Spawning: /usr/bin/kermit -b 9600 -8 -l ${device} -C \"set exit warning off,set carrier-watch off,connect,exit\""
spawn /usr/bin/kermit -b 9600 -8 -l ${device} -C "set exit warning off,set carrier-watch off,connect,exit"

expect -- "----------------------------------------------------" { send "AT+CMGF=1\r\n" }
expect -- "OK" { send "AT+CMGS=\"${number}\"\r" }
expect -- ">" { send "${message}\032" }

expect -- "OK" {
   puts "";
   send "${escape}";
   send "c"
}