Unnamed

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9))
  return %x
}
alias urlencode {
  var %a = $regsubex($$1,/([^\w\s])/Sg,$+(%,$base($asc(\t),10,16,2)))
  return $replace(%a,$chr(32),$chr(43))
}
dialog grouphug {
  title "Grouphug.us poster"
  size -1 -1 184 155
  option dbu
  edit "The post:", 1, 11 37 162 107
  button "Submit", 2, 12 10 37 12
  button "Clear", 3, 68 10 37 12
  button "Go to grouphug.us", 4, 116 10 53 12
}
on *:dialog:grouphug:sclick:3: did -r $dname 1
on *:dialog:grouphug:sclick:4: run http://grouphug.us/
on *:dialog:grouphug:sclick:2: sockopen grouphug.us grouphug.us 80
on *:sockopen:grouphug.us:{
  var %post =&confession_text= $+ $urlencode($did(grouphug,1))
  sockwrite -nt $sockname POST / HTTP/1.1 
  sockwrite -nt $sockname Host: grouphug.us
  sockwrite -nt $sockname Content-Length: $len(%post)
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded 
  sockwrite -nt $sockname $crlf %post
}
on *:sockread:grouphug.us:{
  if ($sockerr) did -ra grouphug 1 socket error $sockerr | halt
  sockread %read
  /echo %read
  sockclose $sockname
}
alias grouphug dialog -m grouphug grouphug
alias bnc {
  /server craig.veritynet.net:55555 hallo
}