/ScriptServ

;IRcap8 92d88fad1fe2121c339422ebd6029f39
alias SETUP_mail {
  var %o = $readini(%perfil,email,op)
  %setup.mail.not = $gettok(%o,1,44)
  %setup.mail.tnot = $gettok(%o,2,44)
  %setup.mail.urnd = $gettok(%o,3,44)
  %setup.mail.asse = $gettok(%o,4,44)
  %setup.mail.lb = $gettok(%o,5,44)
  %setup.mail.ln = $gettok(%o,6,44)
  %setup.mail.lp = $gettok(%o,7,44)
  %setup.mail.tip = $gettok(%o,8,44)
  %setup.mail.sn = $gettok(%o,9,44)
  %setup.mail.snd = $remove($longfn($gettok(%o,10,44)),$mircdir)

  %setup.mail.l1 = $replace($readini(%perfil,email,lb),|,)
  %setup.mail.l2 = $replace($readini(%perfil,email,ln),|,)
  %setup.mail.l3 = $replace($readini(%perfil,email,lp),|,)

  %setup.pñ2 = 140 92 1 mailtab $s(31)  $s(32)  $s(33)

  mailtab 1
}

alias -l S return $hget(mail,$1)

alias MailTab {
  cuag @setup 128 92 444 222 gui
  pestana @setup setup.pñ2
  unset %setup.ls1 %setup.ls2 %setup.op %setup.tx %setup.cb %setup.bt %setup.ls*

  if $1 == 1 {
    %setup.ls1 = 140 112 192 12 1 0 setmail_clickONOFFICO.setmail @hash1 0,1,20
    window -c @hash1 | window -hls @hash1
    listaemails  
    cuagr @setup 280 104 284 160
    unset %setup.mail.cuen %setup.mail.pop %setup.op %setup.cb
    %setup.tx = 368 132 180 setup.mail.cuen ! $+ $s(17) |368 168 180 setup.mail.pop !POP3
    %setup.bt = 220 284 116 mailnotif $s(34) |396 236 116 setmail_lee1 $s(35) |168 284 8 setmail_- -|140 284 8 setmail_+ +|368 192 164 setmail_pas $s(36)
    guilista @setup setup.ls1
  }
  if $1 == 2 {
    cuagr @setup 136 216 256 88 $s(37)
    cuagr @setup 136 104 256 80
    %setup.op = 148 124 setup.mail.not/setmail_tim $s(38) |148 232 setup.mail.tip/mail.g $s(39) |148 256 setup.mail.sn/mail.g $s(40)
    %setup.tx = 166 156 50 setup.mail.tnot ! $+ $s(41) |152 276 196 setup.mail.snd
    %setup.bt = 356 272 4 setmail_w !
  }
  if $1 == 3 {
    cuagi @setup 136 284 424 1 gui
    %setup.ls1 = 136 124 120 9 1 0 return @hash1 | mailfiltrol @hash1 %setup.mail.l1
    %setup.ls2 = 280 124 120 9 1 0 return @hash2 | mailfiltrol @hash2 %setup.mail.l2
    %setup.ls3 = 424 124 120 9 1 0 return @hash3 | mailfiltrol @hash3 %setup.mail.l3
    %setup.op = 132 102 setup.mail.lb/mail.g $s(42) |420 102 setup.mail.lp/mail.g $s(43) |276 102 setup.mail.ln/mail.g $s(44) |140 292 setup.mail.urnd/mail.g $s(45) |292 292 setup.mail.asse/mail.g $s(46)
    %setup.bt = 176 256 8 setmail_F_1_+ +|204 256 8 setmail_F_1_- -|320 256 8 setmail_F_2_+ +|348 256 8 setmail_F_2_- -|464 256 8 setmail_F_3_+ +|492 256 8 setmail_F_3_- -
  }

  muestrasetup
}

alias -l listaemails {
  clear @hash1 | var %n = 1 | :L1
  var %a = $readini %perfil email %n | if (%a) { 
    aline @hash1 $gettok(%a,2,32) $+ $chr(8) $+ $replace($gettok(%a,4,32),on,#/#on,off,#/#off) $+ $chr(8) $+ $gettok(%a,2,32) | inc %n | goto L1
  }
}

alias mailg {
  var %i = 1 | :L1 | var %a = $readini(%perfil,email,%i)
  if (%a) {
    if ($gettok(%a,2,32) == $2) { 
      if ($1 == B) { return %a }
      if ($1 == A) return
      if ($1 == M) { writeini %perfil email %i $3- | return }
      if ($1 == D) {
        :L2 | var %b = $readini(%perfil,email,$calc(%i + 1))
        if (%b) { writeini %perfil email %i %b | inc %i | goto L2 }
        else { remini %perfil email %i }
        return
      }
    }
    inc %i | goto L1
  }
  if ($1 == A) { writeini %perfil email %i $3- }
}

alias setmail {
  goto $1
  :+ | var %a = $?=" $s(47) " | if (%a) mailg A %a - %a - off | goto L
  :- | var %a = $sline(@hash1,1) | if (%a) mailg D $gettok(%a,1,8) | goto L
  :click | var %a = $mailg(B,$gettok($sline(@hash1,1),1,8)) | %setup.mail.cuen = $gettok(%a,2,32) | %setup.mail.pop = $gettok(%a,1,32) | muestrasetup | return
  :pas | var %a = $mailg(B,%setup.mail.cuen) | if (%a) { var %c = $$?*=" $mg(ppass) " | if (%c) { mailg M %setup.mail.cuen $puttok(%a,$encode(%c,m),3,32) } } | return
  :lee1 | var %a = $mailg(B,%setup.mail.cuen) | if (%a) { %tmp.mail.lee1 = $gettok(%a,1-3,32) | mailnotif } | return 
  :l
  unset %setup.mail.cuen %setup.mail.pop | listaemails | guilista @setup setup.ls1 | muestrasetup | drawline @setup | return
  :w | var %s = $dir=" $s(48) " [ c:\*.wav ] | %setup.mail.snd = $remove(%s,$mircdir) | mail.g | guidib @setup | if (%s) slocal %s | return
  :tim | if (%setup.mail.not == on) { .timerMAIL -oi 1 $calc(%setup.mail.tnot * 60) mailnotif -n } | else { .timerMAIL off } |  mail.g | return
  :F
  var %l = % [ $+ [ setup.mail.l $+ [ $2 ] ] ]
  if ($3 == +) { if ($len(%l) > 900) { fallo | return } | var %a = $$?=" $s(49) " | %l = $addtok(%l,%a,22) }
  if ($3 == -) { var %a = $sline(@hash $+ $2,1) | if (%a) { %l = $remtok(%l,%a,1,22) } }
  mailfiltrol @hash $+ $2 %l | drawline @setup
  % [ $+ [ setup.mail.l $+ [ $2 ] ] ] = %l
  mail.g
}

alias mailfiltrol window -c $1 | window -hls $1 | var %n = 1 | :L1 | var %a = $gettok($2-,%n,22) | if (%a) { aline $1 %a | inc %n | goto L1 } | guilista @setup setup.ls $+ $remove($1,@hash)

on 1:signal:setupedit: {
  if (.cuen isin $1-) || (.pop isin $1-) {
    var %c = $gettok($sline(@hash1,1),1,8) | %c2 = $mailg(B,%c) | if (!%c2) return
    if (!%setup.mail.cuen) { %setup.mail.cuen = - } | if (!%setup.mail.pop) { %setup.mail.pop = - }
    var %a = %setup.mail.pop %setup.mail.cuen $gettok(%c2,3-4,32)
    mailg M %c %a
    listaemails
    var %l = $fline(@hash1,%setup.mail.cuen $+ $chr(8) $+ *,1,0)
    sline @hash1 %l | guilista @setup setup.ls1 | muestrasetup
  }
  if (%setup.mail.tnot < 15) { %setup.mail.tnot = 15 | guidib @setup }
  if ($1 == setup.mail.tnot) || ($1 == setup.mail.snd) mail.g
  if ($1 == setup.mail.tnot) setmail tim
}

alias onoffico.setmail if (!%tmp.1click) { set -u1 %tmp.1click on | .timer1CLICK -mo 1 20 onoff $sline(@hash1,1) }
alias -l onoff {
  var %a = $1- , %b = $gettok(%a,2,8) | if %b == #/#on { var %o = off  } | else { var %o = on } | var %a = $puttok(%a,#/# $+ %o,2,8) | rline @hash1 $sline(@hash1,1).ln %a
  guilista @setup setup.ls1 | drawline @setup
  var %c = $mailg(B,$gettok(%a,1,8)) | mailg M $gettok(%a,1,8) $gettok(%c,1-3,32) %o
  unset %setup.mail.cuen %setup.mail.pop | muestrasetup
}

alias mail.g {
  var %o = %setup.mail.not $+ , $+ %setup.mail.tnot $+ , $+ %setup.mail.urnd $+ , $+ %setup.mail.asse $+ , $+ %setup.mail.lb $+ , $+ %setup.mail.ln $+ , $+ %setup.mail.lp $+ , $+ %setup.mail.tip $+ , $+ %setup.mail.sn $+ , $+ $shortfn(%setup.mail.snd)
  writeini %perfil email op %o
  wrini %perfil email lb $replace(%setup.mail.l1,,|)
  wrini %perfil email ln $replace(%setup.mail.l2,,|)
  wrini %perfil email lp $replace(%setup.mail.l3,,|)
}
;EOF-dt