; Shorten URLS with dft.ba
/*
alias dftba {
if ($1 == -e) {
var %dft.
ba.
out echo -gsa $str($chr(160
),3
) }
elseif ($1 == -p) {
var %dft.
ba.
out say $str($chr(160
),3
) }
if (!$2) { halt }
else {
var %dft.ba $getsource(http://dft.ba/api/shorten.json?DATA_IN_GET=1&TARGET_URL= $+ $2)
if ($remove($gettok(%dft.ba,23,34),:,$chr(44)) < 5) {
%dft.ba.out --> Error: approaching API limit of 100 per hour. $gettok(%dft.ba,22,34) calls left. Try again later.
%dft.ba.out --> Why not take a break from dft.ba and use bit.ly
}
elseif ($remove($gettok(%dft.ba,23,34),:,$chr(44)) >= 5) {
%dft.ba.out $2 --> http://dft.ba/ $+ $gettok(%dft.ba,12,34)
echo -s $remove($gettok(%dft.
ba,23,34
),
$chr(44
),:
) API calls left
(Limit 100 API calls per hour
).
echo -gs $gettok(%dft.
ba,16,34
) }
}
}
alias testdftba {
var %test $getsource(http://dft.ba/api//expand.json?DATA_IN_GET=1&SHORT_URL= $+ $1)
}
*/
alias dftba {
var %sckid = $right($ticks,5)
set
%way.
[ $+
[ %sckid ] ] echo 14
-ga set %
query.
[ $+
[ %sckid ] ] $1 set %custom. [ $+ [ %sckid ] ] $2
sockopen dftbashorten. [ $+ [ %sckid ] ] dft.ba 80
}
on *:SOCKOPEN:dftbashorten.*: {
sockwrite
-nt $sockname GET
/api/shorten?src= $+
%custom.
[ $+
[ $right($sockname,5
) ] ] $+
&target= $+ %
query.
[ $+
[ $right($sockname,5
) ] ] HTTP
/1.1
sockwrite -nt $sockname Host: dft.ba
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:dftbashorten.*: {
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 (*complete_url* iswm %sockreader) {
noop $regex(%sockreader,
/<span id="complete_url">
(.*?
)<\
/span>
/Si) var %tempvar $regml(1)
%way. [ $+ [ $right($sockname,5) ] ] %tempvar
unset %*. [ $+ [ $right($sockname,5) ] ]
sockclose $sockname
}
}
}
