#!/usr/bin/perl

# searchdirectory.pl -  
# Version 1 - july 2009
# 
# Program to imp[lement a simple search for numbers on a CISCO IP
# phone that supports XML
#
# just call this script as the services (or part thereof) URL
# for a CISCO IP Phone
#
# For a 796x/7940, in the SIPDefault or specific SIP config file add
# services_url: "http://<webserver>/<path>/searchdirectory.pl 
# EG :- services_url: "http://1.2.3.4/cgi-bin/rss2cisco.pl"
#
# For a 797x/7945, in the SEP config file add 
# <servicesURL>http://196.22.67.196/cgi-bin/rss2cisco.pl</servicesURL>
# EG :- <servicesURL>http://1.2.3.4/cgi-bin/rss2cisco.pl"
#  
#
# This program is licensed under the BSD license :-
#			http://creativecommons.org/licenses/BSD/
# Nic Tjirkalli <nictjir@gmail.com>
#
#
# requires the perl CGI module
# It can be obtained from http://search.cpan.org/

use strict;
use CGI;



# Hash of names and numbers 
# The key is the name
my %directory = (
'Receptionist','1000000100',
'Person A','1000000389',
'Person B','1000000390',
'Person C','1000000391',
);


####################################################################
## There should be nothing to change after here
## Unless you wanna rewrite the internals
####################################################################


my %property;

# Construct url to where script is script
$ENV{SERVER_NAME} =~ s!/+$!!;
$ENV{SCRIPT_NAME} =~ s!^/+!!;
my $pathto = "http://$ENV{SERVER_NAME}/$ENV{SCRIPT_NAME}";


# Get environment variables returned by phone web browser
getenv();


# Get variables passed in response
my $query = new CGI;

#Return HTTP header
my $header=$query->header();



# Get the mac address of the phone - well sort of MAC
my $name=$query->param('name');

# Get other Variables
my $letters=undef;
$letters=$query->param('letters');

# First time page is being displayed so it needs to asjk the user
# for what search criteria
if (!defined($letters)) {
&request_search;
}

# A search criteria was specified so it needs to do a lookup  
if (defined($letters)) {
&printitems;
}


sub getenv {

my $var;
my $val;

foreach $var (sort(keys(%ENV))) {
    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    $property{$var} = $val;
}
}



sub printitems {
    my $pth= "$pathto?opts=";
    my $hash_val = "";


    print "Content-Type: text/xml\n\n";

    print "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n";




print <<TEST;
<CiscoIPPhoneDirectory>
  <Title>IP Telephony Directory</Title>
  <Prompt>External directory</Prompt>
TEST

my $count = 0;
#
# Limit output to 30 hits
#
foreach (sort keys %directory) {
$hash_val = $_;
        if ( ($hash_val =~ m/$letters/i) && ($count < 30))
        {
         print <<TEST;
	 <DirectoryEntry>
         <Name>$hash_val</Name>
         <Telephone>$directory{$hash_val}</Telephone>
	 </DirectoryEntry>
TEST
$count++;

        }
}


print <<TEST;
</CiscoIPPhoneDirectory>
TEST
}



sub request_search()
{
print <<TEXT;
Content-Type: text/xml


<CiscoIPPhoneInput>
<Title>Directory Lookup</Title>
<Prompt>Who You Looking For?</Prompt>
<URL>$pathto</URL>
<InputItem>
<DisplayName>Name</DisplayName>
<QueryStringParam>letters</QueryStringParam>
<DefaultValue></DefaultValue>
<InputFlags>A</InputFlags>
</InputItem>

</CiscoIPPhoneInput>

TEXT
}