IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Ağustos 2015, 22:22   #1
Çevrimdışı
Che
~ Gevezeyiz.Net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Sunucudaki Kayıtlı Nicklere Mail Gönderme TCL




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set mail(trigger) "!mail" set mail(address) "che@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com" set mail(subject) "SohbetTur Grup Bilgilendirme" set mail(signature) "© 2014 SohbetTur® Grup |
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set mail(version) "1.0.0.1" set mail(author) "Che" set mail(author-i) "SohbetTur Grup" 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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s.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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s.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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s.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@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s.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 {&nbsp;} $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" }

• Kullanım:

• Tek bir adrese mail göndermek için: !mail send mail@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s.com mesaj
• Sunucudaki kayıtlı nicklerin hepsine mail göndermek için: !mail herkes mesajınız.






Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.






Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.










Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
char *adres = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] for(int i = 0; *(adres + i); i++) { putchar(toupper(adres[i])); }
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
gönderme, kayıtlı, mail, nicklere, sunucudaki, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sadece belirli nicklere otomatik mesaj gönderme RocknRolla mIRC Scripting Sorunları 25 04 Mart 2022 22:06
Kayıtlı Nicklere Oto voice mStf mIRC Scripting Sorunları 12 27 Ekim 2012 03:29
Bu kodun kayıtlı nicklere çalışmasın loophus mIRC Scripting Sorunları 3 04 Eylül 2009 12:45
Kayıtlı Nicklere Host VereßiLecek ßiri ? Masum Servisler 11 23 Nisan 2007 11:24
Os den Kayıtlı nicklere Memo Atmak djiNn Servisler 2 08 Mart 2006 21:17