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




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Ağustos 2015, 22:22   #1
Çevrimiçi
Che
Che - ait Kullanıcı Resmi (Avatar)
Sunucudaki Kayıtlı Nicklere Mail Gönderme TCL


sohbet


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set mail(trigger) "!mail" set mail(address) "[email protected][Ü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 \[email protected][Ü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 \[email protected][Ü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 \[email protected][Ü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 \[email protected][Ü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_\.-][email protected]([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 [email protected][Ü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.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set mail(trigger) "!mail" set mail(address) "[email protected][Ü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 \[email protected][Ü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 \[email protected][Ü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 \[email protected][Ü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 \[email protected][Ü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_\.-][email protected]([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 [email protected][Ü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
radyo44.com.tr
Cevapla

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

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
Kayıtlı Nicklere Oto voice mStf mIRC Scripting Sorunları 12 27 Ekim 2012 03:29
Sadece belirli nicklere otomatik mesaj gönderme RocknRolla mIRC Scripting Sorunları 22 21 Ekim 2011 07:00
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