sharee.bike/copri4/main/src/scripts/sms_gtx_SMSTransport.pl

27 lines
516 B
Perl
Raw Normal View History

2021-12-30 12:05:56 +01:00
#!/usr/bin/perl
#
#sudo su www-data -c "./src/scripts/sms_gtx_SMSTransport.pl shareeapp-operator '+491799xxxx72'"
#
use vars qw($syshost);
BEGIN {
$syshost = $ARGV[0] || die 'syshost not defined';
}
use lib "/var/www/copri4/$syshost/src";
use strict;
use warnings;
use POSIX;
use Mod::SMSTransport;
my $smstrans = new SMSTransport;
my $phone = $ARGV[1] || die 'phone not defined';
my $adrhash = {
txt07 => $phone,
txt34 => "nureinlangertestdigest",
};
my $ret_json = $smstrans->sms_ack_digest($adrhash);