root/apps/hosted_embed/trunk/htdocs/lookup/telLookup.php @ 718

<?php
header("Content-Type: application/json;charset=utf-8");
require_once 'Net/DNS.php';

$stderr = fopen("php://stderr","w");

$domain = $_GET["domain"];

$data = array();
$data['domain'] = $domain;

function cmp($a, $b) {
    if ($a == $b) {
        return 0;
    }
    return ($a < $b) ? -1 : 1;
}

# Sorts NAPTR records using each attribute as specified, in order
function naptr_sort($a, $b) {
        $answer;
        $attributes = array('preference', 'order', 'services', 'regexp', 'flags', 'replacement');
        
        foreach ($attributes as $attribute) {
                $answer = cmp($a->$attribute, $b->$attribute);
                if ($answer == 0) {
                        # Keep on sorting if these fields are equal
                        continue;
                }
                # /else/ We have an answer, so break out early
                break;
        }
        return $answer;
}

function get_naptrs($resolver, $domain) {
        $services = $resolver->query($domain, 'NAPTR')->answer;
        $plain_services = array();
        if (count($services)) {
                usort($services, "naptr_sort");
                
                $attributes = array('preference', 'order', 'services', 'regexp', 'flags', 'replacement', 'regex');
                
                foreach ($services as $service) {
                        $plain_service = array();
                        foreach ($attributes as $attribute) {
                                $plain_service[$attribute] = $service->$attribute;
                        }
                        
                        array_push($plain_services, $plain_service);
                }
        }
        return $plain_services;
}

$types = array(
        'email:mailto'  => 'email',
        'voice:tel'     => 'phone',
        'fax:tel'       => 'fax',
        'web:http'      => 'website',
);

# Nameage
$interesting_name_keywords = array(
#       'nl'  => 'Name',
        's'   => 'salutation',
        'cn'  => 'common_name',
        'fn'  => 'first_name',
        'ln'  => 'last_name',
);

# Postalage
$interesting_address_keywords = array(
#       'pa'  => 'Address',
        'a1'  => 'address_1',
        'a2'  => 'address_2',
        'a3'  => 'address_3',
        'tc'  => 'town_city',
        'sp'  => 'state_province',
        'pc'  => 'postal_code',
        'c'   => 'country',
);

# Companyage
$interesting_company_keywords = array(
        'o' => 'company_name',
        'cn' => 'company_name',
        'bn' => 'company_name',
);

# Helper function for development, allows to hide data in HTML comments
function comment ($str) {
        if ($_GET["debug"]) {
                if (is_array($str)) {
                        echo "<!--\n";
                        print_r($str);
                        echo "-->\n";
                }
                elseif (is_object($str)) {
                        echo "<!--\n";
                        print_r($str);
                        echo "-->\n";
                }
                else {
                        echo "<!-- ".$str." -->\n";
                }
        }
}



#
#- - M A I N - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#

if ($domain) {
        
        $data['message'] = "";
        
        $resolver = new Net_DNS_Resolver();
        if (array_key_exists('nameserver', $_GET)) {
                $resolver->nameservers = array($_GET['nameserver']);
        }
        
        # Need to use TCP to query Telnic domains
        $resolver->usevc = 1;
        $response = $resolver->query($domain);
        
        if ($response) {
        
                $txt_response = $resolver->query($domain, 'TXT');
        
                # These are arrays of arrays
                $system_records  = array();
                $keyword_records = array();
        
                # This is an array of strings
                $txt_records = array();
        
                if (count($txt_response) && $txt_response->answer) {
                        {
                                foreach ($txt_response->answer as $txt_response_entry) {
                                        $txt_record = $txt_response_entry->text;
                                
                                        if ($txt_record[0] == '.tkw') {
                                                array_shift($txt_record);
                                                array_shift($txt_record);
                                                array_push($keyword_records, $txt_record);
                                        }
                                        else if ($txt_record[0] == '.tsm') {
                                                // Ignore system records?
                                                array_shift($txt_record);
                                                array_shift($txt_record);
                                                array_push($system_records, $txt_record);
                                        }
                                        else if ($txt_record[0] == '.tlb') {
                                                // do nothing, it's a label
                                        }
                                        else {
                                                // Ignore plain TXT records?
#                                               array_push($txt_records, $txt_record[0]);
#                                               comment($txt_record[0]);
                                        }
                                }
                        }
                }
#               $data['txt_records'    ] = $txt_records;
#               $data['system_records' ] = $system_records;
                $data['keyword_records'] = $keyword_records;
        
                foreach ($system_records as $system_record) {
                        #comment("Checking system record: " . $system_record[0] . " = " . $system_record[1]);
                        if (strcmp($system_record[0], "dds") == 0) {
                                #comment("Got DDS");
                                $data['dds'] = $system_record[1];
                                break;
                        }
                }
        
                if (!isset($data['dds'])) {
                        #comment("DDS not set");
                        $data['dds'] = $domain;
                }
        
                //echo "Getting NAPTRS\n";
                $services = get_naptrs($resolver, $domain);
                $data['naptr_records'] = $services;
        
                foreach ($services as $service) {
#                       print_r($service);
#                       echo "Flags = ".$service['flags']."\n";
                        if ($service['flags'] == 'u') {
#                               echo "Regular NAPTR\n";
                                $details = array();
                                $service_hash = split('\+', $service['services']);
#                               echo "Services are:\n";
#                               print_r($service_hash);
                        
#                               print_r($service_hash);
                                if ($service_hash[0] == 'E2U') {
                                        foreach ($service_hash as $service_part) {
#                                               echo "Checking $service_part\n";
                                                if ($types[ $service_part ]) {
#                                                       fprintf($stderr, "Is a ".$types[$service_part]);
                                                        $details['type'] = $types[$service_part];
#                                                       print_r($details);
                                                        break;
                                                }
                                        }
                                }
                        
                                fprintf($stderr, "Type is ".$details['type']."\n");
                                comment("Type is ".$details['type']);
                                if ($details['type']) {
                                        # Apply the regex to 'services'
                                        preg_match("/^(.)/", $service['regex'], $regex_delims);
                                        preg_match("/^".$regex_delims[1]."(.+?)".$regex_delims[1]."(.+?)".$regex_delims[1]."$/", $service['regex'], $regex_parts);
                                
                                        # We're tring to get '!^.*!foo!' to just 'foo'
                                        $uri = preg_replace($regex_delims[1].$regex_parts[1].$regex_delims[1], $regex_parts[2], $service['services']);
                                        $uri = htmlspecialchars($uri);
                        
                                        $details['value'] = preg_replace("!^.+\:(//)?!", "", $uri);

                                        if (is_array($data['form'][ $details['type'] ]) == false) {
                                                $data['form'][ $details['type'] ] = array();
                                        }
                                        array_push($data['form'][ $details['type'] ], $details['value']);
                                }
                        }
                }
                
                foreach ($keyword_records as $keyword) {
                        $keys   = array();
                        $values = array();
                        $remade = array();
                
                        for ($i = 0; $i < count($keyword); $i+=2) {
                                array_push($keys, $keyword[$i]);
                                array_push($values, $keyword[$i+1]);
                                $remade[ $keyword[$i] ] = $keyword[$i+1];
                        }
                        
                        comment($remade);
                
                        if ($keys[0] == 'pa') {
                                fprintf($stderr, "Postal Address found\n");
                        
                                if (count($data['form']['address']) == 0) {
                                        $data['form']['address'] = array();
                                }
                        
                                $address_hash;
                        
                                foreach ($keys as $address) {
                                        if (array_key_exists($address, $interesting_address_keywords)) {
                                                $address_hash[ $interesting_address_keywords[$address] ] = $remade[ $address ];
                                        }
                                }
                        
                                if (count($address_hash)) {
                                        array_push($data['form']['address'], $address_hash);
                                }
                        }
                        else if ($keys[0] == 'bpa') {
                                fprintf($stderr, "Business Postal Address found\n");
                        
                                if (count($data['form']['business_address']) == 0) {
                                        $data['form']['business_address'] = array();
                                }
                        
                                $address_hash;
                        
                                foreach ($keys as $address) {
                                        if (array_key_exists($address, $interesting_address_keywords)) {
                                                $address_hash[ $interesting_address_keywords[$address] ] = $remade[ $address ];
                                        }
                                }
                        
                                if (count($address_hash)) {
                                        array_push($data['form']['business_address'], $address_hash);
                                }
                        }
                        else if ($keys[0] == 'nl') {
                                fprintf($stderr, "Name found\n");
                        
                                if (count($data['form']['name']) == 0) {
                                        $data['form']['name'] = array();
                                }
                        
                                $name_hash;
                        
                                foreach ($keys as $name) {
                                        if (array_key_exists($name, $interesting_name_keywords)) {
                                                $name_hash[ $interesting_name_keywords[$name] ] = $remade[ $name ];
                                        }
                                }
                                
                                if ($name_hash['first_name'] && $name_hash['last_name']) {
                                        $name_hash['name'] = preg_replace("/\ +/", " ", preg_replace("/\(.+?\)/", "", $name_hash['first_name'].' '.$name_hash['last_name']));
                                }
                        
                                if (count($name_hash)) {
                                        array_push($data['form']['name'], $name_hash);
                                }
                        }
                        else if ($keys[0] == 'di') {
                                fprintf($stderr, "Directory information found\n");
                                
                                if (count($data['form']['directory_information']) == 0) {
                                        $data['form']['directory_information'] = array();
                                }
                                
                                $di_hash;
                                
                                foreach ($keys as $key) {
                                        if (array_key_exists($key, $interesting_company_keywords)) {#
                                                $di_hash[ $interesting_company_keywords[$key] ] = $remade[ $key ];
                                        }
                                }
                                
                                if (count($di_hash)) {
                                        array_push($data['form']['directory_information'], $di_hash);
                                }
                        }
                        else if ($keys[0] == 'bi') {
                                fprintf($stderr, "Business information found\n");
                                
                                if (count($data['form']['business_information']) == 0) {
                                        $data['form']['business_information'] = array();
                                }
                                
                                $bi_hash;
                                
                                foreach ($keys as $key) {
                                        if (array_key_exists($key, $interesting_company_keywords)) {#
                                                $bi_hash[ $interesting_company_keywords[$key] ] = $remade[ $key ];
                                        }
                                }
                                
                                if (count($bi_hash)) {
                                        array_push($data['form']['business_information'], $bi_hash);
                                }
                        }
                }
                $data['status'] = 'pass';
        }
        else {
                $data['message'] = "Domain not found";
                $data['status'] = 'fail';
        }
}
else {
        $data['message'] = "No domain";
        $data['status'] = 'fail';
}

unset( $data['naptr_records'  ] );
unset( $data['keyword_records'] );

if (is_array($data['form']) && count($data['form'])) {
        foreach (array_keys($data['form']) as $form_entry) {
                if (count( $data['form'][ $form_entry ] ) == 0) {
                        unset( $data['form'][ $form_entry ] );
                }
        }
}

print json_encode($data);

fprintf($stderr, "Done\n\n");
?>