<form action="/" method="post">
  <table cellpadding="10" width="1%">
    <tr>
    <td colspan="2">
    <span class="label">codepad is an online compiler/interpreter,
    and a simple collaboration tool.<br/>  Paste your code below, and
    codepad will run it and give you a short URL you can use to share
    it in chat or email.
    </span>
    </td>
    </tr>

  <tr>
    <td style="vertical-align: top"><span style="vertical-align:middle" class="label">Language:</span>
   <br/>

    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="C" checked="checked"/><span style="vertical-align:middle" class="label">C</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="C++"/><span style="vertical-align:middle" class="label">C++</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="D"/><span style="vertical-align:middle" class="label">D</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Haskell"/><span style="vertical-align:middle" class="label">Haskell</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Lua"/><span style="vertical-align:middle" class="label">Lua</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="OCaml"/><span style="vertical-align:middle" class="label">OCaml</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="PHP"/><span style="vertical-align:middle" class="label">PHP</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Perl"/><span style="vertical-align:middle" class="label">Perl</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Plain Text"/><span style="vertical-align:middle" class="label">Plain Text</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Python"/><span style="vertical-align:middle" class="label">Python</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Ruby"/><span style="vertical-align:middle" class="label">Ruby</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Scheme"/><span style="vertical-align:middle" class="label">Scheme</span></label></nobr><br/>
    <nobr><label><input style="vertical-align:middle" type="radio" name="lang" value="Tcl"/><span style="vertical-align:middle" class="label">Tcl</span></label></nobr><br/>
    </td>
    <td style="vertical-align: middle"><textarea id="textarea" name="code" cols="80" rows="15" wrap="off"></textarea></td>
  </tr>
  <tr>
    <td colspan="2" style="vertical-align: middle; text-align: right">
      <table cellspacing="0" cellpadding="0" width="100%"><tr>
      <td style="text-align: right;">
      <div style="float: right">
      <table><tr>
      <td>
      <label style="margin-right:1em">
        <input style="vertical-align:middle"
          type="checkbox" name="private" value="True"
        /><span style="vertical-align:middle" class="label">Private</span>
              <span class="label" style="font-size:75%;">[<a href="/help/private-pastes" onClick="window.open(this.href, 'new_window', 'height=300, width=400'); return false;">?</a>]</span>
      </label>
      </td>
      <td>
      <label style="margin-right:1em">
        <input style="vertical-align:middle"
          type="checkbox" name="run" value="True"
            checked="True"
        /><span style="vertical-align:middle" class="label">Run code</span>
      </label>
      </td>
      <td style="text-align: right">
      <input type="submit" name="submit" value="Submit"/>
      </td>
      </tr></table>
      </div>
      </td></tr></table>
    </td>
  </tr>
  </table>
  </form>


alias codepad {
  clear @cp
  sockopen codepad codepad.org 80
}

on *:SOCKOPEN:codepad:{
  var %data lang=PHP&code=Test&private=True&run=True&submit
  sockwrite -nt $sockname POST / HTTP/1.1
  sockwrite -nt $sockname Host: codepad.org
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -nt $sockname Content-Length: $len(%data)
  sockwrite -nt $sockname $crlf %data
}

on *:SOCKREAD:codepad:{
  var %a
  sockread %a
  echo @cp A: %a
}