; slqpw script created using Chessnut's Simple Socket Script Creator
; Create a free account at http://slq.pw. Replace YOUR_API_KEY in the script with the API key that is associated with your account.

alias shorten {
  var %sckid = $right($ticks,5)
  set %way. [ $+ [ %sckid ] ] echo 07 -g
  set %url. [ $+ [ %sckid ] ] $1
  $iif($2,set %custom. [ $+ [ %sckid ] ] $2)
  sockopen slqpw. [ $+ [ %sckid ] ] slq.pw 80
}
alias slq {
  var %sckid = $right($ticks,5)
  set %url. [ $+ [ %sckid ] ] $1
  $iif($2,set %custom. [ $+ [ %sckid ] ] $2)
  set %way. [ $+ [ %sckid ] ] msg $active
  sockopen slqpw. [ $+ [ %sckid ] ] slq.pw 80
}
on *:SOCKOPEN:slqpw.*: {
  sockwrite -nt $sockname GET /api?api=YOUR_API_KEY&url= $+ %url. [ $+ [ $right($sockname,5) ] ] $+ &custom= $+ %custom. [ $+ [ $right($sockname,5) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: slq.pw
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:slqpw.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*short* iswm %sockreader) {
      noop $regex(%sockreader,/:"(.*?)"\}/Si)
      var %tempvar $remove($regml(1),\)
      %way. [ $+ [ $right($sockname,5) ] ] Your URL %url. [ $+ [ $right($sockname,5) ] ] can now be accessed by: %tempvar
      unset %*. [ $+ [ $right($sockname,5) ] ]
      sockclose $sockname
    }
  }
}