sub send_sms_message() { my ($acctid,$from,$to,$message,$internal_id,$dlr_track_id,$processing) = @_; my $icnt = 0; my %response_hash = (); my $now = strftime "%Y-%m-%d %H:%M:%S", localtime; my $exec_name = "[$now][SMS:$internal_id]"; my (@tmp,@tmp2,%sms_setup); my $msg_cnt = ceil(length($message)/160); warn $exec_name."[START] [$acctid][$to]=>$processing\n"; @tmp = split(/\;/,lc($processing)); $res = shift(@tmp); foreach $set (@tmp) { if ($set eq 'stop') { $stop_bulk_sending = 1; } @tmp2 = split(/\:/,$set,2); if (@tmp2[1]) { $sms_setup{@tmp2[0]} = @tmp2[1]; } } if (!$res) { $icnt++; $response_hash{'delete'}{$icnt} = "DELETE FROM daemon_sending WHERE id=$internal_id"; return \%response_hash; } else { $to = $sms_setup{'mapped'}; } if ($res == 1 && $sms_setup{'provider'} == 1) { ##curl here } elsif ($res == 1 && $sms_setup{'provider'} == 2) { ##curl here } ..... ..... $icnt++; $response_hash{'delete'}{$icnt} = "DELETE FROM daemon_sending WHERE id=$internal_id"; return \%response_hash; }