Web'den resim çek

alias resimindir {
  if * $+ / $+ * !iswm $1 || $2 {
    echo -a * Hata! Lütfen düzgün parametreler kullanın. ÖRN: www.mircdb.com/images/logo
  }
  if $sock(resin) || $sock(resin2) {
    echo -a * Başka bir indirme işlemi devam etmekte
  }
  else {
    .unset %resin.*
    .set %resin.govde $remove($1,http://)
    .set %resin.uzanti $gettok(%resin.govde,2-,47)
    .set %resin.ana $gettok(%resin.govde,1,47)
    .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47)
    sockopen resin %resin.ana 80
    echo 3 -a  * Web sitesine bağlantı kuruluyor; %resin.ana
    echo 1 -a -
  }
}
on *:sockopen:resin: {
  if $sockerr { echo 3 -a * Web sitesine bağlanırken hata oluştu, lütfen bağlantınızı ve web sitesini kontrol ediniz }
  else {
    echo 3 -a * Web sitesine bağlantı kuruldu; %resin.ana
    echo 1 -a -
    sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0
    sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf
    echo 3 -a * Veri kontrol edildi; %resin.ismi
    echo 1 -a -
  }
}
on *:sockread:resin: {
  var %ğ
  sockread %ğ
  if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) {
    echo 4 -a * HATA! Verdiğiniz URL adresinde böyle bir resim bulunmamaktadır!
    echo 1 -a -
    sockclose resin
    sockclose resin2
    .unset %resin.*
    .halt
  }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) {
    echo 4 -a * HATA! Verdiğiniz URL adresinden resim çekmek yasak!
    echo 1 -a -
    sockclose resin
    sockclose resin2
    .unset %resin.*
    .halt
  }
  if (* !iswm %ğ) { 
    .sockclose resin2
    sockrename resin resin2
    write -c $qt(%resin.ismi)
    echo 3 -a * Veri oluşturuldu , datalar çekiliyor; %resin.ismi
    echo 1 -a -
  }
}
on *:sockread:resin2: {
  sockread &pdata
  bwrite $shortfn(%resin.ismi) -1 -1 &pdata
}
on *:sockclose:resin2: {
  if $isfile(%resin.ismi) {
    echo 3 -a * Datalar çekildi veri kaydedildi; $mircdir $+ 4 $+ %resin.ismi
    .unset %resin.*
  }
}