Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 91" data-attributes="member: 1">[CODE]set mail(trigger)&nbsp;&nbsp; &quot;!mail&quot;set mail(address)&nbsp;&nbsp; &quot;che@SohbetTur.com&quot;set mail(subject)&nbsp;&nbsp; &quot;SohbetTur Grup Bilgilendirme&quot;set mail(signature) &quot;© 2014 SohbetTur® Grup | http://www.ForumRuzgari.Com&quot;set mail(version)&nbsp;&nbsp; &quot;1.0.0.1&quot;set mail(author)&nbsp; &nbsp; &quot;Che&quot;set mail(author-i)&nbsp; &quot;SohbetTur Grup&quot;&nbsp;bind pub - &quot;$mail(trigger)&quot; emailproc email { nickname hostname handle channel arguments } {global mail admin_chan&nbsp; if {($channel != $admin_chan)} { return }&nbsp; if {[string equal -nocase &quot;&quot; $arguments]} {&nbsp; &nbsp; putquick &quot;privmsg $channel :Lütfen: $mail(trigger) \037help\037 yazınız.&quot;&nbsp; } elseif {[string equal -nocase &quot;help&quot; $arguments]} {&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037Kullanım\037\002:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\002Tek bir adrese mail göndermek için:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\002Sunucudaki kayıtlı nicklerin hepsine mail göndermek için:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037herkes\037 \037mesajınız\037&quot;&nbsp; &nbsp;&nbsp; &nbsp; } elseif {[string equal -nocase &quot;herkes&quot; [lindex $arguments 0]]} {&nbsp; &nbsp; if {[string match -nocase &quot;&quot; [lindex [split $arguments] 2]]} {&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037\0034Hata\003\037\002:\002 Yanlış Kullanım..&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037Kullanım\037\002:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\002Sunucudaki kayıtlı nicklerin hepsine mail göndermek için:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037herkes\037 \037mesajınız\037&quot;&nbsp; &nbsp; &nbsp; return&nbsp; &nbsp;&nbsp; }&nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; deneyelim $nickname $hostname $handle $channel $arguments&nbsp; &nbsp; return&nbsp; } elseif {[string match -nocase &quot;send*&quot; $arguments]} {&nbsp; &nbsp; if {[string match -nocase &quot;&quot; [lindex [split $arguments] 2]]} {&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037\0034Hata\003\037\002:\002 Yanlış Kullanım..&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037Kullanım\037\002:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\002Tek bir adrese mail göndermek için:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037&quot;&nbsp;&nbsp; &nbsp; &nbsp; } elseif {![string match -nocase &quot;*@*&quot; [lindex [split $arguments] 1]]} {&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037\0034Hata\003\037\002:\002 Yanlış Kullanım.&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037Kullanım:\037\002:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037&quot;&nbsp; &nbsp; } else {&nbsp; &nbsp; &nbsp; &nbsp; set email [open &quot;| /usr/sbin/sendmail -f $mail(address) -t&quot; &quot;w&quot;];&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;To: [lindex [split $arguments] 1]&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;Subject: $mail(subject)&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;From: $mail(address)&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;[join [lrange [split $arguments] 2 end]]&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;----------&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;&quot;;&nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;$mail(signature)&quot;;&nbsp; &nbsp; &nbsp; &nbsp; close $email;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :Emailiniz \037[lindex [split $arguments] 1]\037 adresine başarıyla gönderilmiştir.&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037Mesajınız\037\002:\002 [join [lrange [split $arguments] 2 end]]&quot;&nbsp; &nbsp; }&nbsp; } else {&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\037Kullanım\037\002:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\002Tek bir adrese mail göndermek için:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037send\037 \037mail@adres.com\037 \037mesaj\037&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :\002Sunucudaki kayıtlı nicklerin hepsine mail göndermek için:\002&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $channel :$mail(trigger) \037herkes\037 \037mesajınız\037&quot;&nbsp;&nbsp; &nbsp; }}proc hava:temiz {html} {&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\n} $html {} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\t} $html {} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {&amp;nbsp;} $html {} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\u015E} $html {Ş} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\u015F} $html {ş} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\u011F} $html {ğ} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\u011E} $html {Ğ} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\u0131} $html {ı} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\u0130} $html {İ} html&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {Ç} $html {C} html&nbsp; &nbsp; &nbsp; &nbsp; return $html}proc deneyelim {nick uhost hand chan arg} {&nbsp; &nbsp; global mail&nbsp; &nbsp; set konu [join [lrange [split $arg] 1 end]]&nbsp; &nbsp; &nbsp; &nbsp; set x [open /home/ircblan/ircservices/lib/nick.db r]&nbsp; &nbsp; &nbsp; &nbsp; set y [read $x]&nbsp; &nbsp; &nbsp; &nbsp; hava:temiz $y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {@} $y {etisareti} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\.} $y {nononokta} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\-} $y {tiretire} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {_} $y {yerdentire} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {[^A-Z,^a-z,^0-9]} $y { } y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {\\001} $y {} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {etisareti} $y {@} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {nononokta} $y {\.} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {tiretire} $y {-} y&nbsp; &nbsp; &nbsp; &nbsp; regsub -all {yerdentire} $y {_} y&nbsp; &nbsp; putquick &quot;privmsg #Opers :\002SUNUCUDAKİ KAYITLI NİCKLERE MAİLİNİZ GÖNDERİLİYOR...&quot;&nbsp; &nbsp; set count 0&nbsp; &nbsp; &nbsp; &nbsp; foreach m $y {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {[regexp -- {[0-9a-z_\.-]+@([0-9a-z][0-9a-z-]*[0-9a-z]\.)+[a-z]{2,3}} $m]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if {[llength [split [lindex [split $m @] 1] .]] &lt; 4} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set email [open &quot;| /usr/sbin/sendmail -f $mail(address) -t&quot; &quot;w&quot;];&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; puts $email &quot;To: $m&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;Subject: $mail(subject)&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; puts $email &quot;From: $mail(address)&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;$konu&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;----------&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; puts $email &quot;$mail(signature)&quot;;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; close $email;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; incr count&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $chan :Emailiniz toplam \002$count\002 Tane Adrese Başarıyla Gönderilmiştir.&quot;&nbsp; &nbsp; &nbsp; putquick &quot;privmsg $chan :\037Mesajınız\037\002:\002 $konu&quot;}[/CODE]</blockquote>

[QUOTE="Che, post: 91, member: 1"] [CODE]set mail(trigger) "!mail" set mail(address) "che@SohbetTur.com" set mail(subject) "SohbetTur Grup Bilgilendirme" set mail(signature) "© 2014 SohbetTur® Grup | http://www.ForumRuzgari.Com" 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@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" }[/CODE] [/QUOTE]

Adı

İnsan doğrulaması