;########################;
;       News HTTP
;    By [SaRRiO] 2000
;   sarrio@univers.org
; 
;########################

; revisado en 02/08/2002


; debes modificar las dos variables que vienen a continuación
; creo que es fácil de entender los valores de las variables
; si hay alguna duda mandame un mail

alias noticias.variables {
  ; --------- ip donde tienes el archivo de texto ----------
  set %noticias.ipserver www.sarrio.org
  ; --------- path desde la raiz donde tienes el txt ----------  
  set %noticias.path http://www.sarrio.org/varios/asereje.txt
}
on 1:load: noticias.variables
on 1:start: noticias.variables

alias noticias { noticias.variables | sockopen noticias %noticias.ipserver 80 }
on 1:sockopen:noticias:{
  if ($sockerr > 0) { echo -se 2--|| Noticias ||--14 No se ha podido conectar con el servidor | return } 
  echo -s 0. | echo -s 2--|| Noticias ||- $+ $str(-,81)  | echo -s 0. |  sockwrite -tn $sockname GET %noticias.path 
}
on 1:sockread:noticias:{  sockread %noticias.read | echo -s 12 -14 %noticias.read | echo -s 0. | unset %noticias.read }
on 1:sockclose:noticias:{ echo -s 2--|| Noticias ||- $+ $str(-,81) | echo -s 0. }

; este "news http" es muy senzillo, podria mejorarse mucho más...
; si quereis copiar este script, por favor mandame un mail comunicandomelo,
; no pondre ninguna pega si me mencionas en los créditos y me avisas.

 Volver a la página principal