<!--
//(c) 2009 Zonum Solutions
//Last modified: April, 5 2009
//IPLocator library 

 ZInclude("/online/lib/zwindows");

 function checkIP(ip)
  { var isOK=true;
    ip=mystr_filter(ip,"0123456789.");
    var ip4=ip.split(".");
    if(ip4.length==4) {
        for(var i=0; i<4; i++) {
         if(parseInt(ip4[i])>255) {isOK=false;}
        }
    } else {isOK=false;}
   if (isOK==true) {return ip;} else {return "";}
  }

  function checkform()
  {
   var isOK=false;
   var fr=document.frIP.ip;
   var newIP=checkIP(fr.value);
   if(newIP.length>0) {
     fr.value=newIP;
     isOK=true;
   } else {alert("Type a correct IP Address\n\nFormat: ????.????.?????.????");}
    return isOK;
  }


function appAbout()
 {
   var MSG = "<br><center><b>IP-Locator</b>";
   MSG+='<br>Get Location of an IP Address<br><br>';
   MSG+='<br>Last update: April,5 2009';
   MSG+='<br>&copy; 2006-2009 Zonum Solutions</center>';
   showMyWinCenter("About",300,150,"",MSG);
 } 
  
 function appForum()
  {
   zopen_window("http://forums.zonums.com/epanet","forum","");
  } 

 function appKMLCode()
  {
   zopen_window("iplocator.php?action=getKML","result","");
  }
 
 function appMoreIP()
  {
   alert("More IP Tools");
  }
 
 function Link_Child_data(data)
  {
    var myfr =myWin.document.getElementById("frOut");
    if (myfr) {myfr.datamemo.value=data;
		  myfr.btn1.disabled=false;
		} else {alert("An Error Ocurred \n\nPlease try Again");}
  }
  
 function Link_Parent_data(a,b)
 {
  KMLCode();
 } 
  
  function get_kmlheader()
 {
  var Linea = '<?xml version="1.0" encoding="UTF-8"?>\n';
   Linea +='<kml xmlns="http://earth.google.com/kml/2.0">\n';
   Linea +='<Document><name>IP-Locator</name>\n'; 
   return Linea
 } 
  
  function addvalue(val1,val2)
  {
   mycount=mycount+1;
   var color=zif(mycount==1,'#E8F3E4','#f8f8f6');
   var cad= '<tr bgcolor="'+color+'"><td>'+val1+'</td><td>'+val2+'</td></tr>';
   
   if(mycount>1) {mycount=0;}
   return cad;
  }
  
 function KMLCode()
  {
    var info = document.myIP.ip.value;
	   info=info.split("|");	
	 	var IP=info[0];
	 	var lat=info[1];
	 	var lon=info[2];
	 	var cad=get_kmlheader();
	
	  cad+='<Placemark>\n<name>IP Address : '+IP+'</name>\n<Point>\n<coordinates>'+lon+','+lat+',0</coordinates>\n</Point>\n<description><![CDATA[';
	  var d='';
	  d+='<table>';
	  mycount=0;
    d+=addvalue('Country',info[3]);
    d+=addvalue('Region',info[4]);
    d+=addvalue('City',info[5]);
    d+=addvalue('Code',info[6]);
    d+=addvalue('Latitude',info[1]);
    d+=addvalue('Longitude',info[2]);
    d+=addvalue('UTMZone',info[7]);
    d+=addvalue('Easting',info[8]);
    d+=addvalue('Northing',info[9]);
    d+=addvalue('Elevation',info[10]);
    d+='</table>';
    d+='<hr><a href="http://www.zonums.com/iptools/iplocator.php" >IP-Locator</a>&nbsp;&nbsp;&nbsp;&copy; 2009 Zonum Solutions ';
		cad+=d+']]></description>\n</Placemark>\n</Document>\n</kml>';
		
	 	Link_Child_data(cad); 
	 	
	} 
  
-->