douche

menu * { 
  - 
  Pastebin Uploader:/dialog -md Pastebin Pastebin
  -
}
dialog Pastebin {
  title "Pastebin Uploader by DoucheBag aka Ze Smelly Swede"
  size -1 -1 360 300
  option dbu
  edit "", 1, 20 20 310 260, multi return autovs vsbar
  button "Upload", 2, 330 100 30 30
}
on *:dialog:Pastebin:sclick:2:{
  sockopen pastebin paste2.org 80
}
on *:sockopen:pastebin:{
  var %p 1
  while ($did(Pastebin,1,%p)) {
    bwrite paste -1 -1 $urlencode($did(Pastebin,1,%p)) $+ $(%0A,0)
    inc %p
  }
  bread paste 0 $file(paste).size &paste 
  echo -s $left($bvar(&paste,1-).text,-3)
  sockwrite -n $sockname POST /new-paste HTTP/1.0
  sockwrite -n $sockname Host: paste2.org
  sockwrite -n $sockname Content-Length: $calc($len(&code=&lang=text&describtion=&parent=0) + $len($left($bvar(&paste,1-).text,-3)))
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded 
  sockwrite -t $sockname $crlf &code= 
  sockwrite $sockname $left($bvar(&paste,1-).text,-3)
  sockwrite -nt $sockname &lang=text&describtion=&parent=0
  remove paste
}
on *:sockread:pastebin:{
  var %pasteread
  sockread %pasteread
  echo -s %pasteread
}