<?php
include_once ('./carddav.php');
//--------------------------------------------------------------
//CardDAVサーバ接続用設定
$davurl = 'https://dav.example.com/remote.php/dav/addressbooks/users/foobar/contacts/'; //CardDAVのURL
$david = 'foobar'; //CardDAVのアカウント
$davpw = 'secretpassword'; //CardDAVのパスワード
//--------------------------------------------------------------
$url = 'http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI'];

header('Content-Type: text/xml');  //共通 レスポンスヘッダ XMLコンテンツとする

if (empty ($_GET['search'])) {
        $top = new xmlMenuGen("CiscoIPPhoneMenu", "MenuItem", "Name", "URL");
        $top->addHead('電話帳','選択して下さい');
        $top->addItem('英数他', $url . '?search=an');
        $top->addItem('あ行',   $url . '?search=aa');
        $top->addItem('か行',   $url . '?search=ka');
        $top->addItem('さ行',   $url . '?search=sa');
        $top->addItem('た行',   $url . '?search=ta');
        $top->addItem('な行',   $url . '?search=na');
        $top->addItem('は行',   $url . '?search=ha');
        $top->addItem('ま行',   $url . '?search=ma');
        $top->addItem('や行',   $url . '?search=ya');
        $top->addItem('ら行',   $url . '?search=ra');
        $top->addItem('わ行',   $url . '?search=wa');
        $top->output();
        exit;
}

//CardDAVサーバ接続・認証
$carddav = new carddav_backend($davurl);
$carddav->set_auth($david, $davpw);

if (! $carddav->check_connection()){
        //DAVサーバに接続できなかったら
        echo phoneTextXML('Error','CardDAVサーバに接続できませんでした');
        exit;
}

//DAVサーバに接続できたらデータ取得
$dataRaw = $carddav->get();
$dataArr = simplexml_load_string($dataRaw);
//var_dump($dataArr); //取得したデータ確認用

//取得したデータを配列に入れる
$test = array();
$fn = array();
$ln = array();
$phm = array();
$pcl = array();
$pwk = array();
$pot = array();
$i = 0; //CardDAVレコード番号として
foreach($dataArr->element as $elem){
        foreach($elem->vcard as $vcard){
                $arvcard = explode("\n",$vcard);
                $fn[$i] = '';
                $ln[$i] = '';
                $phm[$i] = '';
                $pcl[$i] = '';
                $pwk[$i] = '';
                $pot[$i] = '';
                foreach($arvcard as $line){
                        if(preg_match('/^FN:/i', $line)){
                                $fn[$i] = preg_replace('/^FN:/i', '', $line);
                                $fn[$i] = str_replace(array("\r\n", "\r", "\n"), '', $fn[$i]);
                        }
                        if (preg_match('/^X-PHONETIC-LAST-NAME:/i', $line)){
                                $ln[$i]  = preg_replace('/^X-PHONETIC-LAST-NAME:/i', '', $line);
                        }
                        if(preg_match('/^TEL;TYPE=home/i', $line)){
                                $phm[$i] = preg_replace('/[^0-9*#]/', '', $line);
                        }
                        if(preg_match('/^TEL;TYPE=cell/i', $line)){
                                $pcl[$i] = preg_replace('/[^0-9*#]/', '', $line);
                        }
                        if(preg_match('/^TEL;TYPE=work/i', $line)){
                                $pwk[$i] = preg_replace('/[^0-9*#]/', '', $line);
                        }
                        if(preg_match('/^TEL;TYPE=other/i', $line)){
                                $pot[$i] = preg_replace('/[^0-9*#]/', '', $line);
                        }
                }
        $i++;
        }
}

//50音x行別リスト
$idx = $_GET['search'];

$kana_idx = array(
"aa" => "[ｱ-ｵあ-おア-オ]",
"ka" => "[ｶ-ｺか-こが-ごカ-コガ-ゴ]",
"sa" => "[ｻ-ｿさ-そざ-ぞサ-ソザ-ゾ]",
"ta" => "[ﾀ-ﾄた-とだ-どタ-トダ-ド]",
"na" => "[ﾅ-ﾉな-のナ-ノ]",
"ha" => "[ﾊ-ﾎは-ほば-ぼぱ-ぽハ-ホバ-ボパ-ポ]",
"ma" => "[ﾏ-ﾓま-もマ-モ]",
"ya" => "[ﾔ-ﾖや-よヤ-ヨ]",
"ra" => "[ﾗ-ﾛら-ろラ-ロ]",
"wa" => "[ﾜ-ﾝわ-んワ-ン]",
"an" => "[a-zA-Z0-9]"
);

$kana_gyo = array(
"aa" => "あ行", "ka" => "か行", "sa" => "さ行", "ta" => "た行", "na" => "な行",
"ha" => "は行", "ma" => "ま行", "ya" => "や行", "ra" => "ら行", "wa" => "わ行",
"an" => "英数他"
);

//行別リスト全体取得
$lifn = array();
$liphm = array();
$lipcl = array();
$lipwk = array();
$lipot = array();
$k = 0; //行別レコード番号として
for ($j = 0; $j < $i; $j++) {
        foreach ($kana_idx as $kidx=>$ptn) {
                if (preg_match("/^" . $ptn . "/u", $ln[$j])) {
                        if ($idx == $kidx){
                                $lifn[$k] = $fn[$j];
                                $liphm[$k] = $phm[$j];
                                $lipcl[$k] = $pcl[$j];
                                $lipwk[$k] = $pwk[$j];
                                $lipot[$k] = $pot[$j];
                                $k++;
                        }
                }
        }
}

//ページ数
$maxPage = ceil(($k - 1) / 10);
$amrPage = $k % 10;

//かけ先番号表示
if ((! empty ($_GET['order']) and (! empty ( $_GET['search'])))) {
        $order =  $_GET['order'] -1;
        $dial =new xmlMenuGen("CiscoIPPhoneDirectory", "DirectoryEntry", "Name", "Telephone");
        $dial->addHead($lifn[$order], '選択して下さい');
        if ($liphm[$order]){
                $dial->addItem('家', $liphm[$order]);
        }
        if ($lipcl[$order]){
                $dial->addItem('携帯', $lipcl[$order]);
        }
        if ($lipwk[$order]){
                $dial->addItem('仕事', $lipwk[$order]);
        }
        if ($lipot[$order]){
                $dial->addItem('その他', $lipot[$order]);
        }
        $dial->output();
        exit;
}

//ページ表示
if ((empty ($_GET['order']) and (! empty ( $_GET['search'])))) {
        //ページ指定無し
        if (empty ( $_GET['page'])){
                if ($k == 0) {
                        echo phoneTextXML($kana_gyo[$idx], '登録がありません');
                        exit;
                } elseif ($maxPage > 1){
                    $pmenu = new xmlMenuGen("CiscoIPPhoneMenu", "MenuItem", "Name", "URL");
                    $pmenu->addHead($kana_gyo[$idx], '選択して下さい');
                        for ($p = 1; $p <= $maxPage; $p++) {
                                $purl = $url . '&page=' . "$p";
                                $pmenu->addItem("ページ $p", $purl);
                        }
                        $pmenu->output();
                        exit;
                }
        }

        //行別リスト表示
        if (empty ($_GET['page'])){
                $page = 1;
        } else {
                $page = $_GET['page'];
        }
        //1ページ10アイテム表示の計算
        $lst = $page * 10 - 10;
        if (($k - $lst) > 10){
                $len = $lst + 10;
        } else {
                $len = $lst + $amrPage;
        }
        $pmenu = new xmlMenuGen("CiscoIPPhoneMenu", "MenuItem", "Name", "URL");
        $pmenu->addHead($kana_gyo[$idx], '選択して下さい');
        for ($l = $lst; $l < $len; $l++) {
                $m = $l + 1;
                $url = preg_replace('/page=[0-9]/', '', $url);
                $ourl = $url .'&order=' . "$m";
                $pmenu->addItem($lifn[$l], $ourl);
        }
        $pmenu->output();
        exit;
}

//メッセージ用
function phoneTextXML($title, $body){
        $dom = new DomDocument('1.0', 'utf-8');
        $dom->formatOutput = true;
        $out = $dom->appendChild($dom->createElement('CiscoIPPhoneText'));
         $out->appendChild($dom->createElement('Title', $title));
         $out->appendChild($dom->createElement('Text', $body));
        return $dom->saveXML();
}

//メニュー/番号表示用クラス
class xmlMenuGen{
        public $xmlmenu;
        public $menuItem = array();

        function __construct($h1, $h2, $itmA, $itmB){
                $this->h1 = $h1;
                $this->h2 = $h2;
                $this->itmA = $itmA;
                $this->itmB = $itmB;
                $this->xmlmenu = new DOMDocument('1.0', 'UTF-8');
                $this->xmlmenu->formatOutput = true;
                $this->menuItem = $this->xmlmenu->appendChild( $this->xmlmenu->createElement($this->h1));
        }

        function addHead($title, $prompt){
                $this->menuItem->appendChild($this->xmlmenu->createElement('Title', $title));
                $this->menuItem->appendChild($this->xmlmenu->createElement('Prompt', $prompt));
        }

        function addItem($name, $url){
                $item = $this->menuItem->appendChild( $this->xmlmenu->createElement($this->h2));
                $item->appendChild($this->xmlmenu->createElement($this->itmA, $name));
                $item->appendChild($this->xmlmenu->createElement($this->itmB, $url));
        }

        function output(){
                echo $this->xmlmenu->saveXML();
        }
}
?>