AUTH / INVITATION PAR IRIX

dialog nirix {
  title "Auth IriX"
  size -1 -1 132 100
  option dbu
  box "Ajout d'un Salon :", 1, 68 0 64 32
  edit "", 2, 71 8 58 10
  button "Add", 3, 72 20 20 10, flat
  box "IDNick :", 4, 68 32 64 33
  edit "", 5, 71 40 58 10
  button "Set", 6, 72 52 20 10, flat
  box "Liste des Salons :", 7, 0 0 66 99
  list 8, 3 7 60 89, size
  button "Auth", 9, 68 70 20 10, flat
  button "Inv.", 10, 89 70 20 10, flat
  button "Del", 11, 110 70 20 10, flat
  button "Add.H", 13, 68 87 30 12, flat
  button "Valider", 12, 101 87 30 12, flat ok
}

on *:dialog:nirix:*:*:{
  if ($devent = init) { 
    did -a nirix 5 %idnick
    loadbuf -o nirix 8 files/salons.txt
  }
  if ($devent = sclick) {
    if ($did = 3) {
      write files/salons.txt $did(2)
      did -a nirix 8 $did(2)
    }
    if ($did = 6) set %idnick $did(5)
    if ($did = 11) {
      write -dl $+ $did(8).sel files/salons.txt
      did -d nirix 8 $did(8).sel
    }
    if ($did = 9) iauth
    if ($did = 10) iinvit
    if ($did = 13) .msg IriX addthishost $did(8).seltext %idnick $$?*="Pass IriX :"
  }
}

dialog auth {
  title "Auth IriX - Pass"
  size -1 -1 63 37
  option dbu
  text "Pass IriX :", 1, 1 3 25 8
  edit "", 2, 1 13 60 10, pass
  button "Auth", 3, 21 25 20 10, flat ok
}

Alias iauth dia auth
on *:dialog:auth:*:*:{
  if ($devent = sclick) {
    if ($did = 3) .msg IriX auth $did(nirix,8).seltext %idnick $did(2)
  }
}
Alias iinvit .msg IriX invite $did(8).seltext
on *:load:{
  mkdir files
  write files\salons.txt
}

22 septembre 2004 21:27:22 :

* Ajout du boutton pour "addthishost" * Correction des bugs du dialog

07 octobre 2004 09:34:39 :

Mise a jour de la source pour l'oublie de création des fichiers (mea culpa).