//------------------------------
//nom fichier : PlrMain.js
//version     : 2.10d
//maintenance : Mirovinben
//mise à jour : 19/08/2004 17h30
//------------------------------

var iLrg=0;
var iHtr=0;
var iTop=0;
var iGch=0;
var iRsz=0;
var iMnu=0;
var iUti=0;
var iUrl=0;
var iEta=0;
var iNom='';
var iTyp='';
var iRea=0;
var iHzt=0;
var iPth='';

function MainSplit(Prm){
  var P=Prm.split(',');
  for (var i=0; i<P.length; ++i){
    var V= P[i].substr(0,3);
    var D= P[i].substr(4);
    switch (V.toLowerCase()){
      case 'lrg': iLrg=D; break;
      case 'htr': iHtr=D; break;
      case 'top': iTop=D; break;
      case 'gch': iGch=D; break;
      case 'rsz': iRsz=D; break;
      case 'mnu': iMnu=D; break;
      case 'uti': iUti=D; break;
      case 'url': iUrl=D; break;
      case 'eta': iEta=D; break;
      case 'nom': iNom=D; break;
      case 'typ': iTyp=D; break;
      case 'rea': iRea=D; break;
      case 'pth': iPth=D; break;
      case 'hzt': iHzt=D;
    }
  }
}

function Wopen(Htm){
  var tmp=0;
  if (iMnu!=0) {tmp=30};
  if (iUti!=0) {tmp=tmp+40};
  if (iTop<0) iTop=((screen.height-iHtr)/2)-tmp;
  if (iTop<0) iTop=0;
  if (iGch<0) iGch=(screen.width-iLrg)/2;
  var fen=window.open(Htm,iNom,'resizable='+iRsz+',scrollbars='+iRsz
    +',menubar='+iMnu+',toolbar='+iUti+',location='+iUrl+',status='+iEta
    +',top='+iTop+',left='+iGch+',width='+iLrg+',height='+iHtr);
  fen.focus();
}

//------------------------------Window

function OpenWindow(Htm,Prm){
  if(OpenWindow.arguments.length>0)
  {
    iLrg=600;
    iHtr=450;
    iTop=-1;
    iGch=-1;
    iRsz=0;
    iMnu=0;
    iUti=0;
    iUrl=0;
    iEta=0;
    iNom='';
    if (Prm!=null) MainSplit(Prm);
    if (iNom=='') iNom='W'+iLrg+iHtr+iRsz+iMnu+iUti+iUrl+iEta;
    Wopen(Htm);
  }
}

function OpenSite(Htm){  
  OpenWindow(Htm,'Lrg=720,Htr=420,Rsz=1,Mnu=1,Uti=1,Url=1,Eta=1');
}

function OpenFlash(Htm,Prm){
  if(OpenFlash.arguments.length>0)
  {
    iLrg=300;
    iHtr=300;
    iTop=-1;
    iGch=-1;
    iRsz=0;
    iMnu=0;
    iUti=0;
    iUrl=0;
    iEta=0;
    iRea=60;
    iNom='';
    if (Prm!=null) MainSplit(Prm);
    if (iNom=='') iNom='F'+iLrg+iHtr+iRsz+iRea;
    var aff=LitCookie(iNom);
    if (aff=='' || aff=='true') {
      Wopen(Htm);
      MetCookie(iNom,'false',iRea);
    }
  }
}

function OpenImage(Ima,Prm){
  if(OpenImage.arguments.length>0)
  {
    iLrg=640;
    iHtr=490;
    iTop=-1;
    iGch=-1;
    iRsz=1;
    iMnu=0;
    iUti=0;
    iUrl=0;
    iEta=0;
    iHzt=1;
    iNom='';
    if (Prm!=null) MainSplit(Prm);
    if (iHzt!=1){
      var Tmp=iLrg;
      iLrg=iHtr;
      iHtr=Tmp;
    }
    if (iNom=='') iNom='P'+iLrg+iHtr;
    Wopen(Ima);
  }
}

function OpenSelect(Mnu){
  if(OpenSelect.arguments.length>0)
  {
    var Tmp = Mnu.options[Mnu.selectedIndex].value;
    if (Tmp != '#') OpenSite(Tmp);
  }
}

function LoadPage(Htm,Typ) {
  if (LoadPage.arguments.length>0) 
  {
    if (Typ==null) Typ="self";
    switch (Typ.toLowerCase()){
      case 'self':
        window.location=Htm;
        break;
      case 'back':
        if (window.opener){
          window.opener.location=Htm;
          self.close();
        }
        else window.location=Htm;
        break;
      case 'new':
        window.open(Htm);
        break;
      default: ;
    }
  }
}

//------------------------------Acces restreint

function CalcKey(Txt) {
  if (Txt!=""){
    var K="0123456789_AZERTYUIOPQSDFGHJKLMWXCVBN";
    var P=Txt.toUpperCase();
    var L=Txt.length;
    var S=1;
    for (var i=0;i<L;i++) {
      var X=K.indexOf(P.substring(i,i+1));
      S=S+(X*L*(i+1))*(X*(i+1)*(i+1));
    }
    S=S+"0000";
    return S.substr(0,4);
  }
  else return 0;
}

function OpenPrivate(Log,Key,Prm) {
  if (Log!='' && Key!='') {
    if (CalcKey(Log)==Key.substr(0,4)) {
      if (Prm!=null) MainSplit(Prm);
      if (iTyp=='') iTyp='self';
      Htm=Log+Key.substr(1,2)+".htm"
      switch (iTyp.toLowerCase()){
        case 'self':
          window.location=iPth+Htm;
          break;
        case 'back':
          window.opener.location=iPth+Htm;
          self.close();
          break;
        case 'new':
          OpenWindow(iPth+Htm,Prm)
          self.close();
          break;
        default: 
          self.close();
      }
    }
    else {
      alert("Mot de passe incorrect");
      self.close();
    }
  }
}

//------------------------------divers

function RazForm(Frm,Rng){
  if (RazForm.arguments.length>0)
  { 
    if(Rng==null) Rng=0;
    Frm.reset();
    if (Frm.elements.length > Rng) Frm.elements[Rng].focus();  
  }
}

function ParamTranslate(Txt,Lst){
  var Tmp='';
  if (ParamTranslate.arguments.length>0){
    var P = Lst.split(',');
    for (var i=0; i<P.length; ++i){
      var X=P[i].split('=');
      if (X[0]==Txt) {
        Tmp=X[1];
        break;
      }
    };
  }
  return Tmp;
}

function ParamExist(Txt,Lst){
  var Tmp=0;
  if (ParamExist.arguments.length>0){
    var P = Lst.split(',');
    for (var i=0; i<P.length; ++i){
      var X=P[i].split('=');
      if(X[0]==Txt) Tmp=1;
      if(X[1]==Txt) Tmp=Tmp+2;
      if (Tmp>0) break;
    }
  }
  return Tmp;
}

function MetCookie(nom, valeur, duree, chemin, domaine, securise) {
  if (duree==null) duree=1;
  var D=new Date();
  D.setTime(D.getTime() + (duree * 60 * 1000));
  document.cookie= nom + "=" + escape (valeur) + "; expires=" + D.toGMTString() +
  ((chemin) ? "; path=" + chemin : "") +
  ((domaine) ? "; domain=" + domaine : "") +
  ((securise) ? "; secure=" + securise : "");
}
      
function LitCookie(nom) {
  var L = document.cookie.length;
  var N = nom + "=";
  var Z = N.length;
  var F = "";
  var R = "";
  if (document.cookie.indexOf(N) > -1) {
    F = document.cookie.substring(document.cookie.indexOf(N) + Z);
    R = F.substring (0, ((F.indexOf (";") > -1) ? F.indexOf (";") : L));
    return unescape(R);
  }
  else {return ("")}
}