#######################################################
# SMS By Raistlin
# 
# For eggdrops 1.x.x.x
# NOT: Bu ilk Sürümdür.. Yakında Yeni Sürüm ve
#      Özelliklerle Sizlerle olacağız.. 
#
# Her Türlü Sorun için Mail Ata bilirsiniz:
#       
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#######################################################
# Komutlar:
#   /msg <botnicki> sms <cepno> <mesaj> 
#   /msg <botnicki> !bilgi
#       /msg <botnicki> !sms <cepno> <mesaj>
#       /msg <botnicki> !smssend
#       /msg <botnicki> !msgsms
#       /msg <botnicki> !log
#######################################################
set loglevel 3
set logfile "sms.log"
# mesaj kayıtları için gösterilen (add + between words)
set epilog "Sent+from+#sms90"
bind msg - !sms pub_sms
bind msg - !bilgi sms_help
bind msg - !smssend sms_send
bind msg - sms msg_sms
bind msg - !log sms_log
proc pub_sms {nick host handle chan args} {
 set args [lindex $args 0]
 msg_sms $nick $host $handle $args
 return 0
 }
proc sms_help { nick host handle args } {
global botnick epilog
 set temp [string length "$epilog $nick by "]
 set temp [expr "143 - $temp"]
 putserv "NOTICE $nick :- » Help Bilgisi"
 putserv "NOTICE $nick :- GSM/SMS Gönderme Programıdır.."
 putserv "NOTICE $nick :- Komut: /msg $botnick sms <handle> <mesajınız>"
 putserv "NOTICE $nick :- Sizin Mesajınız Kaydedildi: '$epilog by $nick' "
 putserv "NOTICE $nick :- Yazı Limiti $temp Karakterdir.."
 putserv "NOTICE $nick :- NOT: Sizin mesajınız '+' olacak"
}
proc sms_send {hand idx args} {
 global epilog
 set args [lindex $args 0]
 set whom [lindex $args 0]
 if {[validuser $whom] == 0 } {
 putdcc $idx "no user by that name, sorry"
 return 0
 }
 if {[getuser $whom XTRA PHONE] == "" } {
 putdcc $idx "no Telefon # for $whom Kayıt.. (make sure you have the userfile modified to hold an PHONE field"
 return 0
 }
 set phone [getuser $whom XTRA PHONE]
 set text [lrange $args 1 end]
 set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
proc msg_sms {nick host handle args} {
 global botnick epilog
 set args [lindex $args 0]
 set whom [lindex $args 0]
 if {[validuser $whom] == 0 } {
        putserv "PRIVMSG #sms :GÖNDERİLDİ: 2-5=12 $nick 2=5- Mesajınız gönderildi. 1-5dk arasında mesaj karşı tarafa ulaşacaktır."
 return 0
 }
 if {[getuser $whom XTRA PHONE] == "" } {
 putserv "NOTICE $nick :no Telefon # for $whom Kayıt.. "
 return 0
 }
 if { ([lindex $args 1] == "") } {
 putserv "NOTICE $nick :Komut: /msg $botnick sms <handle> <text>"
 return 0
 }
 set temp [string length "$epilog $nick by "]
 set temp [expr "143 - $temp"]
 set phone [getuser $whom XTRA PHONE ]
 set text [lrange $args 1 end]
 set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set lng [string length $text]
 incr lng -1
 set text "[string range $text 0 $lng]"
 if { [string length $temp] > 143 } {
   putserv "NOTICE $nick :Mesaj NOT ileti. Reason: Message to long"
  putserv "NOTICE $nick :En çok Karakter Sayısı=$temp"
 } {
  ::http::geturl "$url"
  putserv "NOTICE $nick :sms gönderimi $text to $phone"
  sms_log $phone $nick $host $text
 }
}
proc format_text { text } {
 set lng [string length $text]
 incr lng -1
 set text "[string range $text 0 $lng]"
 incr lng +1
 set tmp ""
 set i 0
 while { $i != $lng } {
  set temp [string range $text $i $i]
  if { $temp == " " } {
   set tmp "$tmp+"
  } {
   set tmp "$tmp$temp"
  }
 incr i
 }
 return $tmp
}
proc sms_log {phone nick host text} {
 global loglevel logfile
 if {$loglevel} {
  if ![catch {open $logfile a} filelog] {
   if {$loglevel == "1"} {
    puts $filelog "SMS sent SMS at[date] [time]"
    close $filelog
   }
   if {$loglevel == "2"} {
    puts $filelog "SMS: $nick!$host sent SMS at[date] [time]"
    close $filelog
   }
   if {$loglevel == "3"} {
    puts $filelog "SMS: $nick!$host sent SMS to $phone at[date] [time]"
    close $filelog
   }
   if {$loglevel == "4"} {
    puts $filelog "SMS: $nick!$host sent SMS ($text) to $phone at[date] [time]"
    close $filelog
   }
  } {
   putlog "**** SMS ERROR! Could not log to file: $logfile"
  }  
 }
}
proc join_greet {nick uhost handle channel} {
     putserv "NOTICE $nick :7 $nick #SMS kanalına hoş geldiniz.. "
   }
bind join - * join_greet
putlog "=============== TCL sms sender ==============="
putlog "=                                            ="
putlog "= Sms Sender Bot Sürüm : 1.o - eggdrop       ="
putlog "= TCL Yazar by Raistlin                      ="
putlog "=        Madde in Turkey                     ="
putlog "=============================================="