VOS STAT SETI SUR IRC

; ==============================================
; BarbeSetIRC 1.1
; ==============================================

alias seti {
  set %seti $1
  set %chan $chan
  sockopen seti setiathome2.ssl.berkeley.edu 80
}

on *:sockopen:seti:{
  sockwrite -n seti GET http://setiathome2.ssl.berkeley.edu/fcgi-bin/fcgi?cmd=user_xml&email= $+ %seti
}

on *:sockread:seti:{
  if ($sockerr > 0) { return }
  :nextread
  sockread %temp
  if ( <name> isin %temp) { .set %setipseudo $remove(%temp,	<name>,</name> ) }
  if ( <a isin %setipseudo ) { .set %setipseudo $remove(%setipseudo,<a href=",target="new">,</a>,") }
  if ( <numresults> isin %temp) { .describe %chan **9 %setipseudo ** $remove(%temp,	<numresults>,</numresults> ) WU }
  if ( <avecpu> isin %temp) { .describe %chan **9 %setipseudo ** $remove(%temp,	<avecpu>,</avecpu> ) /WU }
  if ( <resultsperday> isin %temp) { .describe %chan **9 %setipseudo ** $remove(%temp,	<resultsperday>,</resultsperday> ) WU/Jour }
  if ($sockbr == 0) { return }
  else { goto nextread }
  sockclose seti
}