| Toprak |
25 Ocak 2015 23:38 |
Link Kısalt
Fikir sahibi: @saywhat
Kod:
alias kisalt {
if ($sock(is.gd)) sockclose $v1 | sockopen is.gd www.is.gd 80 | sockmark is.gd $1
}
on *:sockopen:is.gd:{
var %s sockwrite -n $sockname
%s GET $+(/api.php?longurl=,$sock($sockname).mark) HTTP/1.1
%s Host: $sock($sockname).addr
%s $crlf
}
on *:sockread:is.gd:var %s, %e echo 4 -a Kisaltilmiş hali: | sockread -f %s | if $regex(s,%s,(http\:\/\/.+)) { %e $regml(s,1) }
Komut: /kisalt www.lookjapan.com
|
