EggSMS.tcl

EggSMS.tcl

Eggdrop TCL script that was used to send SMS via a web gateway. This script is used to learn how things were made before the decline of IRC.

Postat de Copyright Categorie Review user Vizualizari Data
ircfan ube sockopen Cod netestat 78 2026-02-28 00:50:58 

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 "D:/windrop/scripts/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"

EggSMS.tcl