// Copyright 2005
// Auteur: Laurent Quivogne
// Updated.

function verifyDate( inDate ){
	var out;
	var ss = inDate.split( '/' );
	if( ss.length > 3 || ss.length < 2 ){
		throw "Invalid Date";
	}
	var d = new Date();
	var a, m, j

	switch ( msg__controls_lang ) {
		case "fr" :
		case "en" :
			j = parseInt( ss[0], 10 );
			m = parseInt( ss[1], 10 );
			break;
		case "us" :
			m = parseInt( ss[0], 10 );
			j = parseInt( ss[1], 10 );
			break;
		default :
			throw "Invalid lang";
	}
	if( ss.length == 3 ){
		a = parseInt( ss[2], 10 );
	} else {
		a = d.getFullYear();
	}
	if( isNaN( j ) || isNaN( m ) || isNaN( a ) ){
		throw "Not a numeric value";
	}
	if( a < 100 ){
		a += 2000;
	}
	if( a > 9999 ){
		throw "Invalid Date";
	}
	d.setFullYear( a, (m - 1), j );
	if( d.getDate() != j || d.getMonth() != (m - 1) || d.getFullYear() != a ){
		throw "Invalid Date";
	}
	var sm, sj;
	sm = new String( m );
	sj = new String( j );
	if( sj.length == 1 ) sj = "0" + sj;
	if( sm.length == 1 ) sm = "0" + sm;
	switch ( msg__controls_lang ) {
		case "fr" :
			out = sj + "/" + sm + "/" + a
			break;
		case "en" :
			out = sm + "/" + sj + "/" + a
			break;
		default :
			throw "Invalid lang";
	}
	return out;
}

function verifyTime( inTime ){
	var out, hh, mm, h, m;
	var re = /^([0-9]{1,2}) *([:] *([0-9]{0,2}))?$/;
	if( !re.test( inTime ) ){
		throw "Invalid time";
	}
	h = parseInt( RegExp.$1, 10 );
	if( RegExp.$3 == "" ){
		m = 0;
	}else{
		m = parseInt( RegExp.$3, 10 );
	}
	if( h < 0 || h > 23 || m < 0 || m > 59 ){
		throw "Invalid time";
	}
	mm = new String( m );
	if( mm.length == 1 ) mm = "0" + mm;
	hh = new String( h );
	if( hh.length == 1 ) hh = "0" + hh;
	out = hh + ":" + mm; 
	return out;
}

function verifyInteger( integer ){
	var re = /^-?[0-9]*$/;
	if( !re.test( integer ) ){
		throw "Invalid integer";
	}
	return integer;
}


function verifyNumber( num ){
	switch ( msg__controls_lang ) {
		case "fr" :
			var re = /^-?([0-9 ]*)([,\.][0-9]+)?$/;
			if( re.test( num ) ){
				num = num.replace( ".", "," );
				num = num.replace( " ", "" );
			}else{
				throw "Invalid number";
			}
			break;
		case "en" :
		case "us" :
			var re = /^-?([0-9,]*)(\.[0-9]+)?$/;
			if( re.test( num ) ){
				num = num.replace( ",", "" );
			}else{
				throw "Invalid number";
			}
			break;
		default :
			throw "Invalid lang";
	}
	return num;
}

function parseNumber( num ){
	num = verifyNumber( num );
	num.replace( ",", "." );
	return parseFloat( num.replace( ",", "." ) );
}

function verifyEmail( email ){
	var re = /^[^@]+@[^@]+\.[^@]+$/i;
	if( !re.test( email ) ){
		throw "Invalid email";
	}
	return email;
}

function verifyForm( formName ){
	var i, elt;
	for( i in ctrl_array ){
		elt = ctrl_array[i];
		var field = formName.elements[elt[0]];
		var tabId = elt[4];
		if( field != null ){
			if( field.value == '' ){
				if( elt[2] == 'yes' ){
					gotoTab( tabId );
					alert( msg__controls_mandatory + "\n" + elt[3]);
					if( field.type != "hidden" ){
						field.focus();
					}
					return false;
				}		
			}else{
				switch( elt[1] ){
				case 'datecalendar':
				case 'date':
					try{						
						field.value = verifyDate( field.value );
					}catch(e){
						gotoTab( tabId );
						if( e == "Invalid lang" )
							alert( msg__controls_controls_invalidlang + msg__controls_lang );
						else
							alert( msg__controls_date + field.value );
						field.focus();
						return false;
					}
					break;
				case 'time':
					try{						
						field.value = verifyTime( field.value );
						fillTimezoneoffsetInput( formName, field );
					}catch(e){
						gotoTab( tabId );
						alert( e.message );
						alert( msg__controls_time + field.value );
						field.focus();
						return false;
					}
					break;
				case 'number':
				case 'double':
					try{						
						field.value = verifyNumber( field.value );
					}catch(e){
						gotoTab( tabId );
						if( e == "Invalid lang" )
							alert( msg__controls_invalidlang + msg__controls_lang );
						else
							alert( msg__controls_double + field.value );
						field.focus();
						return false;
					}
					break;
				case 'integer':
				case 'long':
					try{						
						field.value = verifyInteger( field.value );
					}catch(e){
						gotoTab( tabId );
						alert( msg__controls_integer + field.value );
						field.focus();
						return false;
					}
					break;
				case 'email':
					try{						
						field.value = verifyEmail( field.value );
					}catch(e){
						gotoTab( tabId );
						alert( msg__controls_email + field.value );
						field.focus();
						return false;
					}
					break;
				}
			}
		}else{
			if( elt[1] == "object" && elt[2] == 'yes' ){
				alert( msg__controls_mandatory + "\n" + elt[3]);
				return false;
			}
		}
	}
	return true;
}

function fillTimezoneoffsetInput( formName, field ){
	var tzElt = formName.elements[ field.name + ":TIMEZONEOFFSET" ];
	if( !tzElt ) return;
	tzElt.value = "0";
	
	var dfEltName = formName.elements[ field.name + ":DATEFIELD" ];
	if( !dfEltName ) return;
	var dfElt = eval( dfEltName.value );
	if( dfElt.value == '' ) return;

	var a, j, m, h, n;
	h = parseInt( field.value.substring( 0, 2 ), 10 );
	n = parseInt( field.value.substring( 3 ), 10 );
	switch ( msg__controls_lang ) {
		case "fr" :
			j = parseInt( dfElt.value.substring( 0, 2 ), 10 );
			m = parseInt( dfElt.value.substring( 3, 5 ), 10 );
			a = parseInt( dfElt.value.substring( 6 ), 10 );
			break;
		case "en" :
			m = parseInt( dfElt.value.substring( 0, 2 ), 10 );
			j = parseInt( dfElt.value.substring( 3, 5 ), 10 );
			a = parseInt( dfElt.value.substring( 6 ), 10 );
			break;
		default :
			throw "Invalid lang";
	}
	var d = new Date( a, m-1, j, h, n, 0, 0 );
	tzElt.value = (d.getTimezoneOffset() / 60);
}

function gotoTab( strTabId ){
	if( typeof( showTab ) == "function" ){
		if( strTabId && strTabId != "" ){
			showTab(strTabId);
		}
	}
}

function fao( str ){
	var res = "", i, j = 0, k = 1;
	i = str.indexOf( "%" );
	if( i == -1 ){
		res = str;
	}else{	
		do{
			res += str.substring( j, i );
			switch( str.substring( (i + 1), (i + 2) ) ){
			case '':
			case '%':
				res += "%";
				break;
			case 's':
				if( arguments.length > k ){
					res += arguments[k];
					k++;
				}else{
					res += "?";
				}
				break;
			default:
				res += "?";
			}
			i += 2;
			j = i;
			i = str.indexOf( "%", i );
		}while( i != -1 );
		res += str.substring( j, str.length );
	}
	return res;
}


// printf(format, ...);
function lqcPrintf() {
  document.write(va_sprintf(lqcPrintf.arguments));
}

// str = sprintf(format, ...);
function lqcSprintf() {
  return va_sprintf(lqcSprintf.arguments);
}

function va_sprintf(args) {
  var ch;
  var value;
  var longflag;
  var ljust;
  var len, llen;
  var zpad;
  var p;
  var output;
  var format_index, arg_index;
  var argc, argv;
  var specin;
  var format;

  output = '';
  format_index = 0;
  arg_index = 1;
  argv = args;
  argc = args.length;
  format = args[0];

  while (format_index < format.length) {
    ch = format.substr(format_index++, 1);
    if (ch != '%' || format_index == format.length) {
      output += ch;
    } else {
      // ch == '%'
      ljust = len = zpad = longflag = 0;
      llen = -1;
      p = format_index;
      specin = true;

      while (specin) {
	ch = format.substr(format_index++, 1);
	switch(ch) {
	case '-':
	  ljust = 1;
          continue;

	case '0':         // set zero padding if len not set
	  if(len == 0)
	    zpad = 1;
	  // FALLTHROUGH
	case '1': case '2': case '3':
	case '4': case '5': case '6':
	case '7': case '8': case '9':
	  len = len * 10 + parseInt(ch);
	  continue;

	case '.':
	  llen = len;
	  len = 0;
	  continue;

	case '*':
	  if (arg_index < argc)
	    len = parseInt(argv[arg_index++]);
	  else
	    len = 0;
	  if (len < 0) {
	    ljust = 1;
	    len = -len;
	  }
	  continue;

	case 'l':
	  longflag = 1;
	  continue;

	case 'u': case 'U':
	  if (arg_index < argc) {
	    if (longflag) {
	      value = parseInt(argv[arg_index++]);
	    } else {
	      value = parseInt(argv[arg_index++]);
	      value %= 4294967296;
	    }
	  } else {
	    value = 0;
	  }
	  output += _dopr_fmtnum(value, 10,0, ljust, len, zpad);
	  break;

	case 'o': case 'O':
	  if (arg_index < argc) {
	    if (longflag) {
	      value = parseInt(argv[arg_index++]);
	    } else {
	      value = parseInt(argv[arg_index++]);
	      value %= 4294967296;
	    }
	  } else {
	    value = 0;
	  }
	  output += _dopr_fmtnum(value, 8,0, ljust, len, zpad);
	  break;

	case 'd': case 'D':
	  if (arg_index < argc) {
	    if (longflag) {
	      value = parseInt(argv[arg_index++]);
	    } else {
	      value = parseInt(argv[arg_index++]);
	      value %= 4294967296;
	    }
	  } else {
	    value = 0;
	  }
	  output += _dopr_fmtnum(value, 10,1, ljust, len, zpad);
	  break;

	case 'x':
	  if (arg_index < argc) {
	    if (longflag) {
	      value = parseInt(argv[arg_index++]);
	    } else {
	      value = parseInt(argv[arg_index++]);
	      value %= 4294967296;
	    }
	  } else {
	    value = 0;
	  }
	  output += _dopr_fmtnum(value, 16,0, ljust, len, zpad);
	  break;

	case 'X':
	  if (arg_index < argc) {
	    if (longflag) {
	      value = parseInt(argv[arg_index++]);
	    } else {
	      value = parseInt(argv[arg_index++]);
	      value %= 4294967296;
	    }
	  } else {
	    value = 0;
	  }
	  output += _dopr_fmtnum(value, -16,0, ljust, len, zpad);
	  break;

	case 's':
	  if (arg_index < argc) {
	    value = argv[arg_index++];
	    if(value == null)
	      value = "(null)";
	    else
	      value = value + "";	// toString
	  } else {
	    value = '';
	  }
	  output += _dopr_fmtstr(value, ljust, len, llen);
	  break;

	case 'c':
	  if (arg_index < argc) {
	    value = parseInt(argv[arg_index++]);
	  } else {
	    value = 0;
	  }
	  output += _dopr_fromCharCode(value);
	  break;

	case '%':
	  output += '%';
	  break;

/* Not supported
	case 'f': case 'e': case 'E': case 'g': case 'G':
	  if (arg_index < argc) {
	    value = argv[arg_index++];
	  } else {
	    value = 0.0;
	  }
	  output += _dopr_fmtdouble(format.substr(p, format_index - p), value);
	  break;
*/

	default:
	  if(p + 1 == format_index) {
	    output += '%';
	    output += ch;
	  }
	  else {
	    // alert("format error: " + format);
	  }
	  break;
	}
	specin = false;
      }
    }
  }
  return output;
}

// Private function
function _dopr_fmtnum(value, base, dosign, ljust, len, zpad)
{
  var signvalue = '';
  var uvalue;
  var place = 0;
  var padlen;		// amount to pad
  var caps = 0;
  var convert;
  var output;

  convert = '';
  output = '';

  if(value >= 0)
    uvalue = value;
  else
    uvalue = (value % 4294967296) + 4294967296;

  if (dosign) {
    if (value < 0) {
      signvalue = '-';
      uvalue = -value;
    }
  }

  if (base < 0) {
    caps = 1;
    base = -base;
  }

  if(uvalue == 0) {
    convert = '0';
    place = 1;
  } else {
    while (uvalue) {
      if(caps)
	convert = '0123456789ABCDEF'.substr(uvalue % base, 1) + convert;
      else
	convert = '0123456789abcdef'.substr(uvalue % base, 1) + convert;
      uvalue = parseInt(uvalue / base);
      place++;
    }
  }

  padlen = len - place;
  if (padlen < 0) padlen = 0;
  if (ljust) padlen = -padlen;

  if (zpad && padlen > 0) {
    if(signvalue) {
      output += signvalue;
      --padlen;
      signvalue = 0;
    }

    while (padlen > 0) {
      output += '0';
      --padlen;
    }
  }

  while (padlen > 0) {
    output += ' ';
    --padlen;
  }
  if (signvalue) {
    output += signvalue;
  }

  output += convert;
        
  while(padlen < 0) {
    output += ' ';
    ++padlen;
  }
  return output;
}

// Private function
function _dopr_fmtstr(value, ljust, field_len, llen)
{
  var padlen;			// amount to pad
  var slen, truncstr = 0;
  var output = '';

  slen = value.length;

  if (llen != -1) {
    var rlen;

    rlen = field_len;
    if (slen > rlen) {
      truncstr = 1;
      slen = rlen;
    }
    field_len = llen;
  }
  padlen = field_len - slen;
        
  if (padlen < 0)
    padlen = 0;
  if (ljust)
    padlen = -padlen;
  while (padlen > 0) {
    output += ' ';
    --padlen;
  }
  if (truncstr) {
    output += value.substr(0, slen);
  } else {
    output += value;
  }

  while (padlen < 0) {
    output += ' ';
    ++padlen;
  }
  return output;
}

// Private function
var _dopr_fromCharCode_chars = null;
function _dopr_fromCharCode(code)
{
  if(String.fromCharCode)
    return String.fromCharCode(code);
  if(!_dopr_fromCharCode_chars)
    _dopr_fromCharCode_chars =
      "\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020" +
      "\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037 !\"#$%&" +
      "'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghi" +
      "jklmnopqrstuvwxyz{|}~\177\200\201\202\203\204\205\206\207\210\211" +
      "\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232" +
      "\233\234\235\236\237\240\241\242\243\244\245\246\247\250\251\252\253" +
      "\254\255\256\257\260\261\262\263\264\265\266\267\270\271\272\273\274" +
      "\275\276\277\300\301\302\303\304\305\306\307\310\311\312\313\314\315" +
      "\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336" +
      "\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357" +
      "\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377";
  if(code < 0)
    return "";
  if(code <= 255)
    return _dopr_fromCharCode_chars.substr(code, 1);
  return eval(sprintf("\"\\u%04x\"", code));
}