on *:sockopen:pastecontrol.pastebincom:{
  if ($sockerr) { return }
  makepoststring $+(parent_pid=&remember=0&paste=Send&format=text&poster=,$me,&code2=)
  sockwrite -n $sockname POST /pastebin.php HTTP/1.1
  sockwrite -n $sockname Host: pastebin.com
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -n $sockname Content-Length: $bvar(&poststring,0)
  sockwrite -n $sockname
  sockwrite $sockname &poststring
}
on *:sockread:pastecontrol.pastebincom:{
  var %data
  sockread %data
  if (Location: * iswm %data) { 
    if ($sock($sockname).mark != $null) { $v1 $gettok(%data,2-,32) }
  }
}