TT#6496 Add voicemail sms notification script

Change-Id: Id658a951ba29ef91276adba0cbad00bc6beb80a1

debian/rules

@@ -30,6 +30,7 @@ install: build
 	dh_installdirs usr/bin  etc/ngcp-vmnotify
 
 	install -m 755 vmnotify		debian/ngcp-vmnotify/usr/bin/vmnotify
+	install -m 755 vmsmsnotify		debian/ngcp-vmnotify/usr/bin/vmsmsnotify
 	install -m 644 vmnotify.conf	debian/ngcp-vmnotify/etc/ngcp-vmnotify/vmnotify.conf
 	install -m 644 mwi.sip		debian/ngcp-vmnotify/etc/ngcp-vmnotify/mwi.sip
 

vmsmsnotify

@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w
+use strict;
+
+use URI;
+use NGCP::API::Client;
+use TryCatch;
+use Sys::Syslog qw(:standard :macros);
+use Data::Dumper;
+
+sub DEBUG {
+    my ($msg) = @_;
+    # only log debug to syslog to not clutter console
+    syslog(LOG_DEBUG, $msg);
+}
+
+sub INFO {
+    my ($msg) = @_;
+    print $msg, "\n";
+    syslog(LOG_INFO, $msg);
+}
+
+sub ERROR {
+    my ($msg) = @_;
+    print STDERR $msg, "\n";
+    syslog(LOG_ERR, $msg);
+}
+
+my $from = $ARGV[0];
+my $dest = $ARGV[1];
+my $mailbox = $ARGV[2];
+my $caller = $ARGV[3];
+my $duration = $ARGV[4];
+my $date = $ARGV[5];
+my $body = $ARGV[6];
+
+$from =~ s/\s+//g;
+
+openlog("vmpagernotify", "ndelay,pid", LOG_LOCAL0);
+
+DEBUG("sending pager notification to $dest using sender $from");
+DEBUG("mailbox is $mailbox, caller is $caller, duration is $duration");
+DEBUG("body is '$body'");
+
+my $client = new NGCP::API::Client;
+my $res;
+
+$res = $client->request('GET', "/api/subscribers/?alias=$mailbox");
+unless($res->is_success) {
+    ERROR "Failed to fetch subscriber for alias $mailbox, aborting!";
+    exit 1;
+}
+my $subs = $res->as_hash->{_embedded}->{'ngcp:subscribers'};
+unless(ref $subs eq 'HASH') {
+    ERROR "Failed to fetch single subscriber for alias $mailbox, aborting!";
+    exit 1;
+}
+
+my $content = {
+	subscriber_id => $subs->{id},
+	caller => $from,
+	callee => $dest,
+	text => $body,
+};
+
+
+
+$res = $client->request('POST', '/api/sms/?skip_checks=true&skip_journal=false', $content);