rannmann

alias test {
  sockclose test
  sockopen test rss.cnn.com 80
}

on *:SOCKOPEN:test: {
  sockwrite -n $sockname GET /rss/cnn_topstories.rss HTTP/1.1 
  sockwrite -n $sockname Host: rss.cnn.com $+ $crlf $+ $crlf
}

on *:SOCKREAD:test: { 
  if ($sockerr) {
    echo -a Error.
    halt
  }
  if (*<title>CNN.com* iswm %var) {
    halt
  }
  if (%var2 == 2) {
    sockclose test
  }
  if (*<title>* iswm %var) {
    sockread %var 
    echo -a %var
    inc %var2
  } 
}

on *:sockclose:test:{
}

alias rss {
  set %var2 0
  test
}