VHOST PERSO

dialog vhost {
  title "Vhost"
  size -1 -1 141 182
  option dbu
  text "Pseudo :", 1, 4 8 25 8
  edit "", 2, 28 7 87 10
  text "Vhost :", 3, 4 22 25 8
  edit "", 4, 29 21 86 10
  button "Valider", 5, 3 39 37 12
  button "Voir", 6, 82 39 37 12
  edit "", 7, 2 61 136 10, read return autohs autovs
  edit "", 8, 2 79 136 10, read
  text "Pseudo :", 9, 5 53 25 8
  text "Vhost :", 10, 4 71 25 8
  text "Description : ", 11, 3 94 44 8
  edit "", 12, 2 103 133 64, autohs
  button "Valider", 13, 48 168 37 12
}
On *:dialog:vhost:sclick:5: {
  writeini -n vhost.ini $did(2) vhost $did(4)
  writeini -n vhost.ini $did(2) inscrit oui
}
On *:dialog:vhost:sclick:6: {
  did -ra vhost 7 Pseudo : $did(2) 
  did -ra vhost 8 Vhost : $readini(vhost.ini,$did(2),vhost)
}
On *:dialog:vhost:sclick:13: {
  writeini -n vhost.ini $did(2) description $did(12)
  writeini -n vhost.ini $did(2) vhost $did(4)
  writeini -n vhost.ini $did(2) inscrit oui
}

dialog inform {
  title "Information :"
  size -1 -1 141 139
  option dbu
  text "Pseudo :", 1, 3 3 25 8
  edit "", 2, 27 2 88 10
  button "Valider", 3, 43 18 37 12
  text "Pseudo :", 4, 3 44 25 8
  edit "", 5, 2 54 135 10, read return autohs autovs
  text "Vhost :", 6, 3 68 25 8
  edit "", 7, 2 77 136 10, read autohs autovs
  text "Description :", 8, 3 91 34 8
  edit "", 9, 2 101 135 31, read return autohs autovs hsbar
}
On *:dialog:inform:sclick:3: {
  did -ra inform 5  $did(2)
  did -ra inform 7  $readini(vhost.ini,$did(2),vhost)
  did -ra inform 9 $readini(vhost.ini,$did(2),description)
}
alias info {
  if ($readini(vhost.ini,$1,inscrit) == oui) {
    echo -a [[ 4Vhost PerSo ]] 
    echo -a Pseudo : $1
    echo -a Vhost : $readini(vhost.ini,$1,vhost)
    echo -a Description : $readini(vhost.ini,$1,description)
    echo -a [[ 4Vhost PerSo ]]
  }
  else { 
    echo -a [[ 4Vhost PerSo ]]
    echo -a $1 Pseudo Inconnu 
    echo -a [[ 4Vhost PerSo ]] 
  }
}