#!/usr/local/bin/php
<?php
/**
* Mobilefish.com
* Author: Robert Lie
*
* Description:
* This script calls the Web service: countries
* More information, see: http://www.mobilefish.com/tutorials/web_service/web_service_quickguide_countries.html
*
* Software prerequisites:
* 1. PHP [http://www.mobilefish.com/developer/php/php_quickguide_install_apache_2.2.11.html]
* 2. PEAR::SOAP class [http://www.mobilefish.com/developer/php/php_quickguide_pear_soap.html]
*
* How to use:
* 1. Open a DOS window and go to the folder where this script is located.
* 2. Enter command: php countries_commandline_client.php us
*/
require('SOAP/Client.php');

if ($argc != 2 ) {
  // $argc[0] == countries_commandline_client.php
  // $argc[1] == iana_code
  print "Usage  : php countries_commandline_client.php iana_code\n";
  print "Example: php countries_commandline_client.php us";
} else {
  // URL path to countries web service 
  $wsdl_url = 'http://www.mobilefish.com/services/web_service/countries.php?wsdl';
  
  // Create an instance of the SOAP_WSDL class
  $wsdl = new SOAP_WSDL($wsdl_url); 
  
  // Creates a proxy to the SOAP services so that you can access the countries methods directly as if you were calling a local class function.
  $client = $wsdl->getProxy(); 
  
  $iana_code  = (string) $argv[1];

  //Invoke the getIANAInfo method
  $ianaResponse = $client->getIANAInfo();
  
  // Invoke the countryInfoByIana method  
  $countryResponse = $client->countryInfoByIana($iana_code);
  
  // Invoke the regionsInfoByIana method 
  $regionsResponse = $client->regionsInfoByIana($iana_code);  

  // Debug purpose
  // print_r($ianaResponse);
  // print_r($countryResponse);
  // print_r($regionsResponse);
  
  print "IANA codes\n";
  print "=========================\n";
  for($i=0; $i<count($ianaResponse);$i++) {
      print "IANA code = " .$ianaResponse[$i]->ianacode ."\n";
      print "Country name = " .$ianaResponse[$i]->countryname;
      print "\n\n";
  } 
  print "\n"; 
   
  print "Country (IANA code = ".$iana_code.")\n";
  print "=========================\n";
  print "IANA code = " .$countryResponse->ianacode ."\n";
  print "Country name = " .$countryResponse->countryname ."\n";
  print "Latitude = " .$countryResponse->latitude ."\n";
  print "Longitude = " .$countryResponse->longitude ."\n";

  print "\n\n\n";

  print "Region(s) (IANA code = ".$iana_code.")\n";
  print "=========================\n";
  for($i=0; $i<count($regionsResponse);$i++) {
      print "IANA code = " .$regionsResponse[$i]->ianacode ."\n";
      print "Region name = " .$regionsResponse[$i]->regionname ."\n";
      print "Latitude = " .$regionsResponse[$i]->latitude ."\n";
      print "Longitude = " .$regionsResponse[$i]->longitude;
      print "\n\n";
  } 
}

?>