<?xml version="1.0" encoding="UTF-8"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en-gb">
	<link rel="self" type="application/atom+xml" href="https://forum.eggheads.org/app.php/feed/topic/17192" />

	<title>egghelp/eggheads community</title>
	<subtitle>Discussion of eggdrop bots, shell accounts and tcl scripts.</subtitle>
	<link href="https://forum.eggheads.org/index.php" />
	<updated>2009-09-22T23:57:32-04:00</updated>

	<author><name><![CDATA[egghelp/eggheads community]]></name></author>
	<id>https://forum.eggheads.org/app.php/feed/topic/17192</id>

		<entry>
		<author><name><![CDATA[djazman85]]></name></author>
		<updated>2009-09-22T23:57:32-04:00</updated>

		<published>2009-09-22T23:57:32-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=90321#p90321</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=90321#p90321"/>
		<title type="html"><![CDATA[fix tcl for sms]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=90321#p90321"><![CDATA[
Hello masters, I need help to fix tcl sms below.<br>I really do not understand programming tcl.<br>I have tried to make it by editing tcl google. but the results do not fit with what I want.<br><div class="codebox"><p>Code: </p><pre><code>Website = http://domain.com/sms.php/phone=xxxxx&amp;msg=yyyyyyyyyyyxxxx = phone numberyyyy =  messageI want command bot :!sms phonenumber message</code></pre></div><div class="codebox"><p>Code: </p><pre><code>bind pub - !sms pub:smsset agent "Mozilla"proc pub:sms {nick uhost hand chan arg} { global agentif {[llength $arg]==0} {putserv "PRIVMSG $nick :!sms phonenumber message"} else {set query "http://domain.com/sms.php/phone="for { set index 0 } { $index&lt;[llength $arg] } { incr index } {set query "$query[lindex $arg $index]"if {$index&lt;[llength $arg]-1} then {set query "$query+"}}#putserv "PRIVMSG $channel :$query"                set token [http::config -useragent $agent]set token [http::geturl $query]                set html [http::data $token]puts stderr ""upvar #0 $token stateset max 0foreach {name value} $state(meta) {if {[regexp -nocase ^location$ $name]} {set newurl [string trim $value]putserv "PRIVMSG $channel :$newurl"   if {[string match "*SMS Sent Sucessfully*" $html]} {                puthelp "PRIVMSG $chan :SMS Sent Sucessfully"          return 0        }   if {[string match "*SMS Send Failed*" $html]} {                puthelp "PRIVMSG $chan :SMS Send Failed"          return 0        }}}}}putlog "TCL Free sms by Jasman"</code></pre></div>Now tcl only run with command !sms phonenumber&amp;msg=My Message<br>without SMS Sent Sucessfully &amp; SMS Send Failed.<br><br>Help me...<p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=10874">djazman85</a> — Tue Sep 22, 2009 11:57 pm</p><hr />
]]></content>
	</entry>
	</feed>
