alias swrite { sockopen webpage localhost 80 }
on *:sockopen:webpage:{
var %ver1 address=world&age=24
sockwrite -n $sockname POST /koko/formsend.php HTTP/1.1
sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
sockwrite -n $sockname Content-Length: $calc($len(%ver1) +1)
sockwrite -n $sockname host: localhost
sockwrite -n $sockname
sockwrite -n $sockname %ver1
}
on *:sockread:webpage:{
var %a
sockread %a
echo -a %a $+ $chr(15)
}