SMSTools3 Help and support

You need to write an action for the received sms, and expand from there...
Here is an example in perl. This script is called by sms3 server everytime a message is received.
Receives commands, and sends replies according to content.
If command is not understood, it is send to a default email.
With a little coding you can do what you wish.
The command ip will return ip address from interface ppp0. Modify as needed
command sw will execute the linux w command and return output via sms.
You can add commands as you like.
Runs on centos 5.x, you might need to install perl additional modules
cpan is your friend.
This script has been working from me for quite some time.
I have removed some custom commands that would be difficult to explain.
(but might be a few code leftovers.)
Some perl knowledge is required, nothing special though.
Also, if the script is run by hand, it parses a text file, and sets debug to 1
so you can fix your script without actually sending sms.
The file should be obtained from sms3d server incoming files.

Enjoy

#!/usr/bin/perl -w
use Date::Format;
use File::Temp ();
use Mail::Sendmail;
use File::ReadBackwards;
use Time::Local;
use strict;

my $disposition="MANUAL";  #Indicates debugging in logfile
my $smsfile="/usr/local/bin/testsms.txt";  #used for debugging
my $recipient='me@home.gr';  #recepient for emails
my $from='elastix@home.gr';  #originator for emails
my $logfile="/var/log/smshandler.log";  # script logging file (minimal)
my $ipfile="/var/log/iphist.log"; #ip change history
my $literfile="/var/spool/boiler/boilerliters.txt";
my $debug=1;
my @ssun ;
my @sbtop ;
my @sbbot ;
my @sconv ;




# This script is called everytime sms3d service does an action
# 3 parameters are passed Reasonforcalling, filename, deliveryreport file

my $smsdata;
my $smsno;
my $reportfile;
my @line;
if (defined($ARGV[0])) {$disposition=$ARGV[0];};
if (defined($ARGV[1])) {$smsfile=$ARGV[1];$debug=0;};
if (defined($ARGV[2])) {$reportfile=$ARGV[2];};

parse_sms();
if ($debug) {$disposition="RECEIVED";};

# fills in global $smsno and @line array - $smsdata is $line[12]

open(LOG,">>$logfile") || die("Cannot Open ",$logfile."\n");
print LOG time2str("%Y%m%d%H%M%S", time)," ",$disposition," File:",$smsfile."\n";
close LOG;


if ($disposition eq "RECEIVED") {parse_smsdata()}
if ($disposition eq "SENT")     {}
if ($disposition eq "FAILED")   {}
if ($disposition eq "CALL")     {call_received()}
if ($disposition eq "REPORT")   {sms__report_rcvd()}                                                                                        -

#send_sms("695433333", "hello");


########## ---------------  Script Ends Here ---------------- #############

sub parse_smsdata {
               my $sdata =uc($smsdata);
               if (length($sdata)==2) {
                                      if ($sdata eq "IP") {externip()}
                                      if ($sdata eq "SW") {runw()}
                                      }
                else
                    {sms2email()}
                return;
               }

sub sms2email() {
                my %mail;
                %mail = (
                from => $from, to => $recipient,subject => 'SMS Received',
                text => $line[0].$line[3].$line[4].$line[11].$line[12]
                );
                $mail{'Content-type'} = 'text/plain; charset="iso-8859-7"';
                sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
                return;
                }


sub externip {
                my $localip = `ifconfig ppp0`;
                my $fh =File::ReadBackwards->new( $ipfile) or die "cant read $ipfile";
                my $bdata = $fh->readline;
                my @iptime = split (" ",$bdata);
#               print $iptime[0];

                my @lip = split (" ",$localip);
                my $msg=$lip[5]."\n".$lip[6]."\n".$lip[29]." ".$lip[30]." ".$lip[31]." ".$lip[32]."\n".
                         $lip[33]." ".$lip[34]." ".$lip[35]." ".$lip[36]."\n"."Since:".$iptime[0];
                send_sms($smsno, $msg);
                return;
                }

sub parse_sms {
# splits incoming msn to from: no and sms data. Used globally
#             my $count=0;
              open(SMSIN,"<",$smsfile) || die("Cannot Open ",$smsfile."\n");
              @line = <SMSIN>;
              $smsno =($line[0]);
              if ($smsno =~ 'From:'){
                            $smsno =~ s/From: //;
                            chomp($smsno);
                            }
              $smsdata= $line[12];
              close(SMSIN);
              if (!$debug) {unlink $smsfile;}
              return;
              }

sub send_sms {
            my $tmp = File::Temp->new( TEMPLATE => 'sms_XXXXX', UNLINK => 0, DIR => '/tmp', SUFFIX => '.txt' );
            my($smsno, $data) =@_;
            print $tmp,"\n";
            open(SMSOUT,">",$tmp) || die("Cannot Open ",$tmp."\n");
            print SMSOUT "To: ",$smsno,"\n","report: yes","\n\n";
            print SMSOUT $data,"\n";
            close SMSOUT;
            system("mv", $tmp, "/var/spool/sms/outgoing");
            return;
             }

sub call_received {
#sends email for calls received to sms modem
                my %mail = (
                from => $from,
                to => $recipient,
                subject => 'Call Received',
                text => $line[0].$line[1].$line[2].$line[3].$line[6]
                );
                $mail{'Content-type'} = 'text/plain; charset="iso-8859-7"';
                sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
                return;
                  }

sub sms_report_rcvd {
# delivery reports, doesn work yet
                    return;
                    }

sub runw {
        my $w_in = `w`;
        my@w_out=split("\n",$w_in);
        send_sms($smsno, $w_out[0]);
        return;
         }


sub convertdate2number {
                        my ($datestr,$timestr)=@_;
                        my @tdate=split('/',$datestr);
                        my @ttime=split(":",$timestr);
                        (length($tdate[0])==1) ? ($tdate[0]="0".$tdate[0]):();
                        (length($tdate[1])==1) ? ($tdate[1]="0".$tdate[1]):();
                        (length($ttime[0])==1) ? ($ttime[0]="0".$ttime[0]):();
                        (length($ttime[1])==1) ? ($ttime[1]="0".$ttime[1]):();
#                       my $ndate=$tdate[2].$tdate[1].$tdate[0].$ttime[0].$ttime[1].$ttime[2];
                        my $ndate= timelocal($ttime[2],$ttime[1],$ttime[0],$tdate[0],$tdate[1]-1,$tdate[2]);
                        (length($ndate) gt 9) ? (die) :();
#                        print $ndate."\n";
#                        sleep (10);
                        return($ndate);

                        }

sub epochtime {
             my ($now)= @_;

my $sec=time2str("%S", $now);
my $min=time2str("%M", $now);
my $hour=time2str("%H", $now);
my $mday=time2str("%d", $now);
my $mon=time2str("%m", $now);
my $year=time2str("%Y", $now);
my $retval=timelocal($sec,$min,$hour,$mday,$mon-1,$year)."\n";
if ($debug) {print $retval."\n";}
return($retval);
              }

[ Select ]

[ Expand ]

« Last edit by stom on Thu Dec 29, 2011 12:58, 161 months ago. »

Bidirectional Email Gateway