NEWS K-OTIK.

alias k-otik { if $1 { var %!^ securite,news,virus,exploits
    if $istok(%!^,$1,44) { set %!: $1 | $iif($2 && $2 == html,set %!:: html,) }
    if !$window(@K-otik.news) { window -ae @K-otik.news } 
    sockclose k.otik |  clear @K-otik.news
    sockopen k.otik www.k-otik.com 80
  } 
  else { echo -s /k-otik: paramètres manquants et/ou erronés - /k-otik securite\virus\exploits\news (html) | sockclose k.otik | halt  }
}


on *:sockopen:k.otik:{ if $sockerr { echo -a $_sockerr($sockerr) | return }
  if %!:: { write -c K-otik.htm $+(<u><b><font color="#002980"><p style="text-align: center">Liste des News du site K-otik.com</b></u>,$chr(58)</p></font>) <br><hr>
    write K-otik.htm <title>News du site www.k-otik.com par tofu.</title>
  echo @K-otik.news Création de la page Html en cours ... veuillez patienter, elle s'ouvrira automatiquement. }
  else { echo @K-otik.news $+($u(Liste des News du site K-otik.com),$chr(58))) }
  if %!: { sockwrite -n $sockname GET $+($chr(47),$replace(%!:,securite,advisories),.xml) HTTP/1.1 }
  sockwrite -n $sockname Host: k-otik.com $+ $str($crlf,2)
}
on *:sockread:k.otik:{
  sockread %!
  if <title> isin %! {
    if  !%!:: { echo @K-otik.news - | echo @K-otik.news $str($b($chr(155)),2) $+($b($u($regstrip(%!))),$chr(58)) }
    else { write K-otik.htm <b>&#8250;&#8250;<u><font color="#002980"> $regstrip(%!) $+ </u></font></b>: <br> }
  }
  if <link> isin %! { $iif(!%!::,echo @K-otik.news $+($u(Lien),:) $regstrip(%!),write K-otik.htm <u>Lien</u>: <a href= $+ $regstrip(%!) $+ > $+ $regstrip(%!) </a> <br>) }
  if <description> isin %! { $iif(!%!::,echo @K-otik.news $+($u(Description),:) $regstrip(%!),write K-otik.htm <u>Description</u>: $regstrip(%!) <br><br>) } 
}
on *:sockclose:k.otik:{
  if %!:: { write K-otik.htm <br><hr> Fin de la liste des news du site <a href= $+ www.k-otik.com >www.k-otik.com</a> <>
    write K-otik.htm addon by <a href=mailto:eric@xdb.exagon.org>tofu</a>
  run iexplore $mircdir $+ K-otik.htm }
echo @K-otik.news - | echo @K-otik.news Fin des news . | unset %!* }


alias _sockerr {
  if $$1 == 0 { return aucune erreur }
  elseif $$1 == 1 { return impossible d'interpréter la requête à cause d'une erreur de format }
  elseif $$1 == 2 { return impossible d'exécuter à cause d'une erreur interne du serveur }
  elseif $$1 == 3 { return l'adresse soumise n'existe pas }
  elseif $$1 == 4 { return type de la requête non supporté }
  elseif $$1 == 5 { return demande refusée }
  else { return erreur non documentée }
}
alias u { return $+($chr(31),$1,$chr(31)) }
alias b { return $+($chr(2),$1,$chr(2)) }
alias regstrip { var %i,%a = $1-,%b = $regsub(%a,/<[^>]+>/g,,%i) | return $remove(%i,$chr(59),$chr(38)) }

menu menubar,channel,@K-otik.news {
  K-otik
  .$submenu($menu-k($1))
}
alias menu-k {
  if ($1 == begin || $1 == 5 || $1 == 10 || $1 == end) { return - }
  if ($1 == 1) return News:/k-otik news
  if ($1 == 2) return Exploits:/k-otik exploits
  if ($1 == 3) return Virus:/k-otik virus
  if ($1 == 4) return Sécurité:/k-otik securité
  if ($1 == 6) return News html:/k-otik news html
  if ($1 == 7) return Exploits html:/k-otik exploits html
  if ($1 == 8) return Virus html:/k-otik virus html
  if ($1 == 9) return Sécurité html:/k-otik securite html
  if ($1 == 11) return Visiter K-otik.com:url www.k-otik.com
}

07 août 2004 10:01:28 :

Correction de la détection des diff pages en racourcissant le tout par un seul if dans le sockopen.

07 août 2004 10:22:20 :

Sur les conseils de Sorn , j'update en me servant des tokken pour évaluer si l'aliase de départ est correct .

07 août 2004 12:30:55 :

add d'un sshot dans la présentation du code .