//Written by Gudjon Holm Sigurdsson | gudjon@undri.com
//the function returns the content of a file in a string if successful
//the function returns an empty string if failed.
//Example:  var str=getFile('http://www.anydomain.com/textfile.txt');

function getFile(filename){
    oxmlhttp = null;

    try
      { oxmlhttp = new XMLHttpRequest();
        oxmlhttp.overrideMimeType("text/xml");
      }
    catch(e)
      { try
          { oxmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
          }
        catch(e)
          { return null;
          }
      }
    if(!oxmlhttp) return null;
    try
      { oxmlhttp.open("GET",filename,false);
        oxmlhttp.send(null);
      }
    catch(e)
      { return null;
      }
    return oxmlhttp.responseText;
}



//Searches for FindMe in InStr and returns a string where FindMe starts in InStr and all which is right of FindMe in InStr.
function findStr(FindMe, InStr)
{
	var i=InStr.indexOf(FindMe);
	if (i<0)
		return "";
	return newStr = InStr.substring(i);
}


//0 er fyrsti dįlkur, 1 er annar dįlkur o.s.fr.
function getDalkur(uiDalkur, str)
{
    var uiCount=0;
    var iPos;
    var i;
    var iLen=0;
    var delimiter='|';


   for (i=0;i<str.length;i++)//find endl
   {
	if(str.charAt(i)==String.fromCharCode(10))
	{
          iLen=i;
	  break;
	}
   }


    if(iLen>0)
	str=str.substring(0,iLen);//remove endl chars

   for (i=0;i<str.length;i++)//counting the fields
   {
	if(str.charAt(i)==delimiter)
          uiCount=uiCount+1; //(dįlkafjöldi = uiCount+1);
   }

    if (uiCount<1 || uiDalkur>uiCount)
	return "Villa ķ dįlkafjölda";
	

        iPos=str.indexOf(delimiter); //finna fyrsta marker

    for(i=0;i<uiDalkur;i++)//finna marker fyrir 
    {
        str=str.substring(iPos+1,str.length);
	iPos=str.indexOf(delimiter);
    }

 //   if (str==delimiter)
//	str="";
//    else
      if (uiDalkur==uiCount)
	str=str.substring(iPos+1,str.length-1);
      else
       	str=str.substring(0,iPos);


    return str;
}

//USAGE:
//to get current path call extractPath();
//to get parent directory call extractPath(extractPath());
function extractPath(InStr)
{
	if(!InStr || InStr.length<1)
		InStr = location.href;
	var RetStr="";
	var i=0,
		x=0,
		Len=InStr.length;
		
	for(i=Len-1; i>-1;i--){
		if (InStr.charAt(i)=='/')
		{	x=i;
			break;
		}
	}
	if (x>0)
	{	for(i=0;i<x;i++)
		RetStr+=InStr.charAt(i);
	}
	return RetStr;
}

//lętur punkt ķ tölu žar sem viš.  Dęmi 9999 veršur aš 9.999

function insertStr(i, insertMe, str)
{
	var sRet=str.substring(0,i);
	sRet+=insertMe;
	sRet+=str.substring(i,str.length);
	return sRet;
	
}

function writeCurr(number)
{
	var sNum=number.toString();	
	var iLen=sNum.length;
	var i;
	var str=sNum;
	for(i=iLen-3;i>0;i-=3)
	{
		str=insertStr(i, '.', str);
	}
	return str;		
}

function getVerd(strID)
{

  var str=getFile('http://www.undri.is/cgi-bin/v.csv');
  return getDalkur(2, findStr(strID, str));
}

//skilar verši ķ streng įkvešinnar vöru sem formöttuš er sem ISK ž.e.a.s "9999" veršur "9.999 kr"
function getVerdStr(strID)
{
  return writeCurr(getVerd(strID))+' kr';
}

//skilar lķtraverši ķ streng įkvešinnar vöru sem formöttuš er sem ISK ž.e.a.s "9999" veršur "9.999 kr"
function getLitraVerd(strID)
{
  var str=getFile('http://www.undri.is/cgi-bin/v.csv');
  var verd=getDalkur(2, findStr(strID, str));
  var litrar=getDalkur(5, findStr(strID, str));
  if (litrar>0 && verd>0)
  	return writeCurr(Math.ceil(verd/litrar))+' kr';
  else
	return "";
}
//finnur strID og skilar sjįlfsgildismagni vöru
function getUnits(strID)
{
  var str=getFile('http://www.undri.is/cgi-bin/v.csv');

  return ""+getDalkur(3, findStr(strID, str));
}