From 2651a83afa989c9b6bfc00cd0b7a4ca89beb87bc Mon Sep 17 00:00:00 2001
From: Andreas Granig <agranig@sipwise.com>
Date: Wed, 29 Oct 2014 13:39:28 +0100
Subject: [PATCH] MT#9881 Implement panasonic phone book

---
 lib/NGCP/Panel/Controller/Pbx.pm | 92 ++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)

diff --git a/lib/NGCP/Panel/Controller/Pbx.pm b/lib/NGCP/Panel/Controller/Pbx.pm
index 1ccd26e404..a622a180f2 100644
--- a/lib/NGCP/Panel/Controller/Pbx.pm
+++ b/lib/NGCP/Panel/Controller/Pbx.pm
@@ -163,6 +163,98 @@ sub spa_directory_list :Chained('base') :PathPart('pbx/directory/spa') :Args(1)
     $c->response->body($data);
 }
 
+sub panasonic_directory_list :Chained('base') :PathPart('pbx/directory/panasonic') :Args(0) {
+    my ($self, $c) = @_;
+
+    my $id = $c->req->params->{userid};
+    my $q = $c->req->params->{name};
+
+    unless($id) {
+        $c->response->content_type('text/plain');
+        if($c->config->{features}->{debug}) {
+            $c->response->body("404 - device id not given");
+        } else {
+            $c->response->body("404 - device not found");
+        }
+        $c->response->status(404);
+        return;
+    }
+
+    $id =~ s/^([^\=]+)\=0$/$1/;
+    $id = lc $id;
+
+    my $dev = $c->model('DB')->resultset('autoprov_field_devices')->find({
+        identifier => $id
+    });
+    unless($dev) {
+        $c->response->content_type('text/plain');
+        if($c->config->{features}->{debug}) {
+            $c->response->body("404 - device id '" . $id . "' not found");
+        } else {
+            $c->response->body("404 - device not found");
+        }
+        $c->response->status(404);
+        return;
+    }
+
+    my $schema = $c->stash->{schema};
+    my $host = $c->stash->{host};
+    my $port = $c->stash->{port};
+
+    my $customer = $dev->contract;
+
+    my $rs = $customer->voip_subscribers->search({
+        'status' => 'active',
+        'provisioning_voip_subscriber.pbx_extension' => { '!=' => undef },
+        'voip_usr_preferences.value' => { '!=' => undef },
+        'attribute.attribute' => 'display_name',
+        defined $q ? ('voip_usr_preferences.value' => { like => "%$q%" }) : (),
+    },{
+        join => { provisioning_voip_subscriber => { voip_usr_preferences => 'attribute'  } },
+        '+select' => [qw/voip_usr_preferences.value/],
+        '+as' => [qw/display_name/],
+        order_by => { '-asc' => 'voip_usr_preferences.value' },
+    });
+
+    my @entries = ();
+    foreach my $sub($rs->all) {
+        my $prov_sub = $sub->provisioning_voip_subscriber;
+        next unless($prov_sub && $prov_sub->pbx_extension);
+        my $display_name = $sub->get_column('display_name');
+        push @entries, { name => $display_name, ext => $prov_sub->pbx_extension };
+    }
+
+    my $data = 
+'<?xml version="1.0" encoding="utf-8"?>
+<ppxml xmlns="http://panasonic/sip_phone" 
+       xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+       xsi:schemaLocation="http://panasonic/sip_phone sip_phone.xsd">
+    <Screen version="2.0">
+        <PhoneBook version="2.0">
+';
+        my $person_id = 1;
+        $data .= join '', map {
+            "<Personnel id=\"".($person_id++)."\">
+                 <Name>$$_{name}</Name>
+                 <PhoneNums>
+                    <PhoneNum type=\"ext\">$$_{ext}</PhoneNum>
+                 </PhoneNums>
+             </Personnel>
+        "} @entries;
+
+    $data .=
+'       </PhoneBook>
+    </Screen>
+</ppxml>';
+
+
+    $c->log->debug("providing config to $id");
+    $c->log->debug($data);
+
+    $c->response->content_type('text/xml');
+    $c->response->body($data);
+}
+
 __PACKAGE__->meta->make_immutable;
 1;
 # vim: set tabstop=4 expandtab: