; 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
}
}
}
