#!/usr/bin/perl
#
# Author: Bjarni Rúnar Einarsson, http://bre.klaki.net/
# Usage:  echo "this is a message" | sendsms.pl <number> [<max-length> [Q]]
#
# This code is free software, it may be used and distributed according 
# to the same terms as Perl itself.
#
# If the third argument is a "Q", then messages will automatically be
# queued for later if sending fails.  
#
# If the fourth is nonzero the script tries to log on to TAL's system
# using info taken from: ~/.sms-pass
#
BEGIN { push @INC, "/home/bre/bin"; };
use TAL_SMS;

my $number  = $ARGV[0] || die "Need phone number!";
my $maxlen  = $ARGV[1] || 160;
my $queue   = $ARGV[2] || undef;
my $debug   = $ARGV[3] || 0;
my $usepass = $ARGV[4] || 0;
my $message = substr(join('', <STDIN>), 0, $maxlen);

$queue = undef unless ($queue =~ /^Q$/i);

if ($usepass && open(PASS, "< $ENV{HOME}/.sms-pass"))
{
    my $login = <PASS>;
	my $pass = <PASS>;
	chomp $login;
	chomp $pass;
	IS_SMS::TAL::login($login, $pass);	
    close(PASS);
}
if ($usepass && (-e "$ENV{HOME}/.sms-pass-ovs"))
{
	IS_SMS::OgVefSms::login_file("$ENV{HOME}/.sms-pass-ovs", $number);
}

IS_SMS::TAL::debug_sms($debug);
my $res = send_sms($number, $message, $queue);
unless ($res)
{
    exit(0);
}
print $res, "\n";
exit(1);