がとらぼ

<?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();
        }
}
?>