yamanlar halı yıkama şemikler halı yıkama nergiz halı yıkama mavişehir halı yıkama karşıyaka halı yıkama gümüşpala halı yıkama bornova halı yıkama alaybey halı yıkama izmir halı yıkama maltepe escort kadıköy escort pendik escort ataşehir escort ümraniye escort üsküdar escort kartal escort mersin escort izmir escort başakşehir dershane
sohbet sitesi reklam sohbet sitesi reklam sohbet sitesi reklam sohbet sitesi reklam

Sunucudaki Kayıtlı Nicklere Mail Gönderme TCL

No_FeaR

New Member
• Kullanım:

• Tek bir adrese mail göndermek için: !mail send mail@adres.com mesaj
• Sunucudaki kayıtlı nicklerin hepsine mail göndermek için: !mail herkes mesajınız.


Kod:
bind pub - "$mail(trigger)" email

proc email { nickname hostname handle channel arguments } {
global mail admin_chan
  if {($channel != $admin_chan)} { return }
  if {[string equal -nocase "" $arguments]} {
    putquick "privmsg $channel :Lütfen: $mail(trigger) \037help\037 yazınız."
  } elseif {[string equal -nocase "help" $arguments]} {
      putquick "privmsg $channel :\037Kullanım\037\002:\002"
      putquick "privmsg $channel :\002Tek bir adrese mail göndermek için:\002"
      putquick "privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037"
      putquick "privmsg $channel :\002Sunucudaki kayıtlı nicklerin hepsine mail göndermek için:\002"
      putquick "privmsg $channel :$mail(trigger) \037herkes\037 \037mesajınız\037"     
  } elseif {[string equal -nocase "herkes" [lindex $arguments 0]]} {
    if {[string match -nocase "" [lindex [split $arguments] 2]]} {
      putquick "privmsg $channel :\037\0034Hata\003\037\002:\002 Yanlış Kullanım.."
      putquick "privmsg $channel :\037Kullanım\037\002:\002"
      putquick "privmsg $channel :\002Sunucudaki kayıtlı nicklerin hepsine mail göndermek için:\002"
      putquick "privmsg $channel :$mail(trigger) \037herkes\037 \037mesajınız\037"
      return
     }       
    deneyelim $nickname $hostname $handle $channel $arguments
    return
  } elseif {[string match -nocase "send*" $arguments]} {
    if {[string match -nocase "" [lindex [split $arguments] 2]]} {
      putquick "privmsg $channel :\037\0034Hata\003\037\002:\002 Yanlış Kullanım.."
      putquick "privmsg $channel :\037Kullanım\037\002:\002"
      putquick "privmsg $channel :\002Tek bir adrese mail göndermek için:\002"
      putquick "privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037"    
    } elseif {![string match -nocase "*@*" [lindex [split $arguments] 1]]} {
      putquick "privmsg $channel :\037\0034Hata\003\037\002:\002 Yanlış Kullanım."
      putquick "privmsg $channel :\037Kullanım:\037\002:\002"
      putquick "privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037"
    } else {
        set email [open "| /usr/sbin/sendmail -f $mail(address) -t" "w"];
        puts $email "To: [lindex [split $arguments] 1]";
        puts $email "Subject: $mail(subject)";
        puts $email "From: $mail(address)";
        puts $email "[join [lrange [split $arguments] 2 end]]";
        puts $email "";
        puts $email "----------";
        puts $email "";
        puts $email "$mail(signature)";
        close $email;
      putquick "privmsg $channel :Emailiniz \037[lindex [split $arguments] 1]\037 adresine başarıyla gönderilmiştir."
      putquick "privmsg $channel :\037Mesajınız\037\002:\002 [join [lrange [split $arguments] 2 end]]"
    }
  } else {
      putquick "privmsg $channel :\037Kullanım\037\002:\002"
      putquick "privmsg $channel :\002Tek bir adrese mail göndermek için:\002"
      putquick "privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037"
      putquick "privmsg $channel :\002Sunucudaki kayıtlı nicklerin hepsine mail göndermek için:\002"
      putquick "privmsg $channel :$mail(trigger) \037herkes\037 \037mesajınız\037"   
  }
}

proc hava:temiz {html} {
        regsub -all {\n} $html {} html
        regsub -all {\t} $html {} html
        regsub -all { } $html {} html
        regsub -all {\u015E} $html {Ş} html
        regsub -all {\u015F} $html {ş} html
        regsub -all {\u011F} $html {ğ} html
        regsub -all {\u011E} $html {Ğ} html
        regsub -all {\u0131} $html {ı} html
        regsub -all {\u0130} $html {İ} html
        regsub -all {Ç} $html {C} html
        return $html
}

proc deneyelim {nick uhost hand chan arg} {
    global mail
    set konu [join [lrange [split $arg] 1 end]]
        set x [open /home/ircblan/ircservices/lib/nick.db r]
        set y [read $x]
        hava:temiz $y
        regsub -all {@} $y {etisareti} y
        regsub -all {\.} $y {nononokta} y
        regsub -all {\-} $y {tiretire} y
        regsub -all {_} $y {yerdentire} y
        regsub -all {[^A-Z,^a-z,^0-9]} $y { } y
        regsub -all {\\001} $y {} y
        regsub -all {etisareti} $y {@} y
        regsub -all {nononokta} $y {\.} y
        regsub -all {tiretire} $y {-} y
        regsub -all {yerdentire} $y {_} y
    putquick "privmsg #Opers :\002SUNUCUDAKİ KAYITLI NİCKLERE MAİLİNİZ GÖNDERİLİYOR..."
    set count 0
        foreach m $y {
                if {[regexp -- {[0-9a-z_\.-]+@([0-9a-z][0-9a-z-]*[0-9a-z]\.)+[a-z]{2,3}} $m]} {
            if {[llength [split [lindex [split $m @] 1] .]] < 4} {
                                set email [open "| /usr/sbin/sendmail -f $mail(address) -t" "w"];
                         puts $email "To: $m";
                    puts $email "Subject: $mail(subject)";
                       puts $email "From: $mail(address)";
                    puts $email "$konu";
                    puts $email "";
                    puts $email "----------";
                    puts $email "";
                    puts $email "$mail(signature)";
                    close $email;
                incr count
                        }
            }
    
    }
      putquick "privmsg $chan :Emailiniz toplam \002$count\002 Tane Adrese Başarıyla Gönderilmiştir."
      putquick "privmsg $chan :\037Mesajınız\037\002:\002 $konu"
}
Alıntıdır...
 

irc forumları 1xbet giriş