Re: Adding multiple commands to Exec

2009-11-05T21:06:20-04:00

Code:

#put the line below at the very top of your scriptpackage require http# then change your code to look like this   if {![string match "http://*" $i]} { set i "http://$i" }   catch {set http [::http::geturl "$i" -timeout 5000]} error   if {![string match -nocase "::http::*" $error]} {     putserv "privmsg $chan :[string totitle [string map {"\n" " | "} $error]] \( $i \)"     return 0   }   if {![string equal -nocase [::http::status $http] "ok"]} {     putserv "privmsg $chan :[string totitle [::http::status $http]] \( $i \)"     return 0   }   set html [::http::data $http]   ::http::cleanup   if {![regexp -nocase -- {(.*?)<title>} $html - title]} { set title "No Title Found" }   set fd [open $urllogfile a+]   puts $fd "$i;[ctime [unixtime]];$title;$nick;$chan"   close $fd</code></pre></div><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&u=8138">speechles</a> — Thu Nov 05, 2009 9:06 pm</p><hr />

</article>
<article>
<h1>Adding multiple commands to Exec</h1>
<p>2009-11-05T10:56:34-04:00</p>

I am trying to create a url catcher for my eggdrop that not only stores the url, but also grabs the title of the page.  Now, I have been able to achieve this goal by having tcl call an external bash script of the follow:<br><br>the tcl part:<div class="codebox"><p>Code: </p><pre><code>  set fd [open $urllogfile a+]  set title [exec gettitle.sh $i]  puts $fd "$i;[ctime [unixtime]];$title;$nick;$chan"  close $fd</code></pre></div>the bash part:<div class="codebox"><p>Code: </p><pre><code>#!/bin/shTITLE=`lynx -source $1 | grep -i "<title>" | awk -F "<title>" '{print $2}' | awk -F "" '{print $1}'`if [ "$TITLE" = "" ]; then  echo No Title Foundelse  echo $TITLEfi

Now, while this is working, it is messy to call an external script like this, so, I was wondering if it was possible to translate this into TCL so its all in the same script?

Thanks in advance for any help or tips.

Statistics: Posted by cquilliam — Thu Nov 05, 2009 10:56 am

egghelp/eggheads community

Re: Adding multiple commands to Exec