package require http
####
# EggSMS by ube (ube@rajraj.nu)
# 
# For eggdrops 1.3.x
# NOTE: THIS TCL REQUIRES =< TCL8.0
# 
# please mail bugs to ube@rajraj.nu
# 
####
# Syntax:
#	  /msg <botnick> sms <userhandle> <text> 
#	  /msg <botnick> smshelp 
####
# Changelog:
# 	     99/06/04: First beta release
#	     99/06/04: First release
#		        - Logging included
# 	     99/07/20: Version 2.0 by xiv :
# 			a) Added the possibility to send an SMS by specifying a user's handle.
#    			   To change a user's phone number : .chphone <user> <phone #>
#			   You have to overwrite your userinfo1.0.tcl with the one included with this file
# 			b) Removed the unneeded text in the SMS message "EggSMS by ube" to gain some more space
#			   (hope ube doesn't mind) :-)
# 			c) Replaced the $botnick in the SMS message by the a customizable message (found it more interesting)
# 			d) Only registered ops can use this feature (to avoid abuse)
#			e) added public !sms command
#
# 	     Thanks to ube for providing the original script, and to ^DaRk^ from whom I ripped some code from "ICQdrop.tcl"
# 	     to apply it here :-)
#
####
# Log options
# 0 - Don't log
# 1 - Timestamp (ex. EggSMS sent SMS at 04 Jun 1999 11:45)
# 2 - Timestamp, user (ex. EggSMS: ube!ube@rajraj.nu sent SMS at 04 Jun 1999 11:45)
# 3 - Timestamp, user, number (ex. EggSMS: ube!ube@rajraj.nu sent SMS to 46709123456 at 04 Jun 1999 11:45)
# 4 - Timestamp, user, number, text (ex. EggSMS: ube!ube@rajraj.nu sent SMS (Hi Kids! Do you like violence) to 46709123456 at 04 Jun 1999 11:45)
#
# Loglevel 3 is a wise choise.. You don't log _what_ the user sends, but you know to whom and when... 
#  (if you ever get in trouble for SMS flooding)
####

set loglevel 3
set logfile "/home/xiv/eggdrop/EggSMS.log"

# is a basic message that will be added after the SMS message (add + between words)
set epilog "Sent+from+#abc99"

bind pub o|o "!sms" pub_sms
bind msg o|o "smshelp" sms_help
bind dcc o|o "sms *" sms_send
bind msg o|o "sms" msg_sms

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 :EggSMS By ube (ube@rajraj.nu) updated by xiv (lokiniade@hotmail.com)"
	putserv "NOTICE $nick :Sends GSM/SMS messages to GSM celluar phone"
	putserv "NOTICE $nick :- Syntax /msg $botnick sms <handle> <text>"
	putserv "NOTICE $nick :- EX: /msg $botnick sms ube Hi kids! Do you like violence?"
	putserv "NOTICE $nick :- This text will be added to your message: '$epilog by $nick' "
	putserv "NOTICE $nick :-  This will limit your text length to $temp chars"
	putserv "NOTICE $nick :- NOTE: You can't send '+' in your message"
}

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 PHONE # for $whom registered.. (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 "www.mtnsms.com/sms.asp?msgTo=$phone&msgText=[format_text $text]"
	::http::geturl "$url"
}

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 "NOTICE $nick :no user by that name, sorry"
	putserv "NOTICE $nick :syntax /msg $botnick sms <handle> <text>"
	return 0
	}
	if {[getuser $whom XTRA PHONE] == "" } {
	putserv "NOTICE $nick :no PHONE # for $whom registered.. "
	return 0
	}
	if { ([lindex $args 1] == "") } {
	putserv "NOTICE $nick :syntax /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 "www.mtnsms.com/sms.asp?msgTo=$phone&msgText=[format_text $text]+$epilog+by+$nick"
	set lng [string length $text]
	incr lng -1
	set text "[string range $text 0 $lng]"
	if { [string length $temp] > 143 } {
 		putserv "NOTICE $nick :Message NOT sent. Reason: Message to long"
		putserv "NOTICE $nick :Maximum number of chars=$temp"
	} {
		::http::geturl "$url"
		putserv "NOTICE $nick :EggSMS sent $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 "EggSMS sent SMS at[date] [time]"
				close $filelog
			}
			if {$loglevel == "2"} {
				puts $filelog "EggSMS: $nick!$host sent SMS at[date] [time]"
				close $filelog
			}
			if {$loglevel == "3"} {
				puts $filelog "EggSMS: $nick!$host sent SMS to $phone at[date] [time]"
				close $filelog
			}
			if {$loglevel == "4"} {
				puts $filelog "EggSMS: $nick!$host sent SMS ($text) to $phone at[date] [time]"
				close $filelog
			}
		} {
			putlog "**** EggSMS ERROR! Could not log to file: $logfile"
		}		
	}
}

putlog "**** EggSMS by ube (ube@rajraj.nu) updated by xiv (lokiniade@hotmail.com)"
putlog "**** Loglevel: $loglevel"
putlog "**** Logging to: $logfile"