napa182   -  Jan 12, 2010

@waifish-shirk
here is a rough mockup to get you started.

on $*:text:/^@gmh$/iS:#: {
  if ($sock(gmh)) sockclose gmh 
  sockopen gmh www.givesmehope.com 80 
  sockmark gmh $+(/page/,$r(1,300)) msg #
}
on *:sockopen:gmh: { 
  sockwrite -nt $sockname GET $gettok($sock(gmh).mark,1,32) HTTP/1.1 
  sockwrite -nt $sockname Host: $+($sock(gmh).addr,$str($crlf,2)) 
}
on *:sockread:gmh: {
  var %gmh | sockread %gmh
  if ($regex(%gmh,/\t{6}(.+?GMH?)/i)) { 
    $gettok($sock(gmh).mark,2-,32) $replace($remove($regml(1),<b>,</b>,<BR><BR>),&quot;,",<br /><br />,$chr(32)) 
    sockclose gmh 
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.