egghelp/eggheads community

Twitter status problem

2010-01-30T08:12:45-04:00

speechless, well done, I`ll look forward to this script it would be very much useful

Statistics: Posted by Football — Sat Jan 30, 2010 8:12 am

Twitter status problem

2010-01-30T03:48:49-04:00

Nice speechless so your planning on making it post text for yourchan account I found a script on google and edited it a bit I know it sucks but it may still work:

Code:

set ::setup(trigger)   "!twitterp"set ::setup(apibase)   "http://twitter.com/"set ::setup(apiupdate) "statuses/update.json"set ::setup(url)       $::setup(apibase)$::setup(apiupdate)set ::setup(user)      "user"set ::setup(pass)      "pass"set ::setup(curl)      "/usr/bin/curl"set ::setup(confirm)   "\002Success!\017 @ $::setup(apibase)$::setup(user)"# bindsbind pub - $::setup(trigger) twitcl:twitter############################################proc twitcl:twitter {nick uhost handle channel text} {  global twitcl  set text [twitcl:mapevil $text]  if {[catch {exec $::setup(curl) --basic --user "$::setup(user):$::setup(pass)" -d "status=($nick): $text" $::setup(url)} result]} {    putquick "PRIVMSG $channel : $::setup(confirm)"  } else {  putquick "PRIVMSG $channel : \002Err.. Something b0rked!\017"  }}# map 'em evil charsproc twitcl:mapevil {string} {  global twitcl  return [string map {\< < \> >} $string]}

Statistics: Posted by sdays — Sat Jan 30, 2010 3:48 am

Twitter status problem

2010-01-27T21:20:01-04:00

Took some time to actually test this myself and fixed a few bugs here and there. Also expanded the syntax for the last tweet. This will allow tweets to carry over the url's mentioned when parsing syntax. Rather than scrubbing all html elements out, this cleverly leaves them intact but neatly. This should look more professional.

This also falls in line with some of my other scripts. Meaning you can use Trf or zlib packages and make your twitter requests using Gzip saving you time and bandwidth. Falling in line also means "full support for utf-8" is a must, and also offered _if_ your bot is utf-8 patched. You can read tweets in any language. It's just fine alrighty if you do..

!twitter whitehouse
[Twitter]: Getting Status For: whitehouse...
[Twitter]: Name: The White House; Location: Washington, DC USA; Following: 87; Followers: 1,694,567; Listed: 13,925; Total Tweets: 202.
[Twitter]: Last Tweet: [about 4 hours ago] Hit him with your best shot: submit your questions for Obama, vote on others via YT. He answers Monday ( http://bit.ly/QaZPN )
[Twitter]: http://twitter.com/whitehouse

!twitter google
[Twitter]: Getting Status For: google...
[Twitter]: Name: A Googler; Location: Mountain View, CA; Following: 222; Followers: 2,119,659; Listed: 21,138; Total Tweets: 1,083.
[Twitter]: Last Tweet: [41 minutes ago] Have you heard? The growth of Unicode on the web is nearing 50%. ( http://bit.ly/ddGFd9 ) #unicode ( http://twitter.com/search?q=%23unicode )
[Twitter]: http://twitter.com/google

This is now a full featured script. Does not use cookies, or allow logins (yet *), but it does handle multiple redirects and should catch all messages (protected, suspended, and locked). Enjoy and have a fun ;P

For those who want to get it: Click here

* Note: I have special plans to add a second trigger to this script, which will allow you to set up individual accounts for each of your channels. It would work like this:
!tweet Does this even work?
The bot then logs into the twitter account assigned to that specific channel the command was issued in and posts this as a tweet. The form the tweet takes would basically be, " Does this even work?". Then later typing "!twitter " would reveal the last person to use the !tweet command in that channel as well as the url to the full twitterings. This would fully integrate the capability of twitter onto IRC for your users. This is probably more than you had envisioned, but this would be rather interesting to see. This weekend it should be realized and available. Below is an example:

** in #eggdrop which is tied to the twitter account "mychan"...

!tweet CAN YOU HEAR MY #EGGDROP http://forum.egghelp.org/viewtopic.php?p=91876
[Twitter]: [#eggdrop@mychan] Your tweet was successful!

!twitter mychan
[Twitter]: Getting Status For: mychan...
[Twitter]: Name: #eggdrop; Location: @My network; Following: 510; Followers: 48; Listed: 113; Total Tweets: 115.
[Twitter]: Last Tweet: [32 seconds ago] CAN YOU HEAR MY #EGGDROP ( http://twitter.com/search?q=%23EGGDROP ) ( http://forum.egghelp.org/viewtopic.php?p=91876 )
[Twitter]: http://twitter.com/mychan

Stay tuned...

Statistics: Posted by speechles — Wed Jan 27, 2010 9:20 pm

Twitter status problem

2010-01-27T14:02:44-04:00

This is a really great script, any chance for a link to the fixed script?

Statistics: Posted by Football — Wed Jan 27, 2010 2:02 pm

Twitter status problem

2010-01-26T11:02:24-04:00

putserv "$to :$twitter(logo) Houston, we have a problem. Oxygen level is low. Atmospheric pressure is dropping."

I get that message than the profile has been locked.

Statistics: Posted by sdays — Tue Jan 26, 2010 11:02 am

Twitter status problem

2010-01-25T07:34:24-04:00

This will trap redirects as errors and display the message. (error condition 4)...

Code:

Code:# Twitter by Warlord v1.1b# Rewrite by egghelp and tweaked by warlord..# Type in partyline: ".chanset #channel +twitter" to enable it.# -- config begins# This is the twitter logo.set twitter(logo) "\[\002\00311Twitter\002\003]:"# Set user agent.set twitter(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"# Set the url baseset twitter(url) "http://twitter.com/"# Set the output style here:# %chan == $chan, %nick == $nick# no other variables can be usedset twitter(output) "PRIVMSG %chan"# -- script begins# Chanset command.setudef flag twitter# check if http version 2.5 or greater is used# if so, we can use utf-8 features, otherwise# fall back to standard iso8859-1if {[catch {package require http 2.5} e] != 0} {  set twitter(noutf8) 1  package require http}bind pub - !twitter proc:twitterproc proc:twitter {nick uhand handle chan input} {  if {[channel get $chan twitter]} {    global twitter    # string map in replacements for output    set to [string map [list "%chan" $chan "%nick" $nick] $twitter(output)]    if {![llength [split $input]]} {      putserv "$to :$twitter(logo) Please be more specific I need a user name example: !twitter username"    } else {      # spam our header message before we attempt to get data..      putquick "$to :$twitter(logo) Getting Status For: $input..."      # proper support for utf-8; twitter uses utf-8      # *requires http 2.5+      if {[info exists twitter(noutf8)]} {        set http [::http::config -useragent $twitter(agent)]      } else {        set http [::http::config -useragent $twitter(agent) -urlencoding "utf-8"]      }      # fancy url constructor; utf-8 safe; special character safe      # *uses http packages format query      foreach word [split $input] { lappend query [http::formatQuery $word] }      # error catching, this also captures our url into the variable u      catch { set http [::http::geturl "[set u "$twitter(url)[join $query +]"]" -timeout 5000]} error      # error condition 1, socket error or other general error      if {![string match -nocase "::http::*" $error]} {        putserv "$to :$twitter(logo) [string totitle [string map {"\n" " | "} $error]] \( $u \)"        return 0      }      # error condition 2, http error      if {![string equal -nocase [::http::status $http] "ok"]} {        putserv "$to :$twitter(logo) [string totitle [::http::status $http]] \( $u \)"        return 0      }      # error condition 3, 40* error      if {[string equal -nocase "40*" [::http::ncode $http]]} {        putserv "$to :$twitter(logo) \[[::http::ncode $http]\] Sorry, that page doesn't exist! \( $u \)"        return 0      }      # error condition 4, 30* error , these redirect to special pages (suspended, etc)      if {[string equal -nocase "30*" [::http::ncode $http]]} {        putserv "$to :$twitter(logo) \[[::http::ncode $http]\] Sorry, the profile you were trying to view has been suspended due to strange activity. \( $u \)"        return 0      }      # get data.         set html [::http::data $http]      # cleanup http array      ::http::cleanup $http      regsub -all "\n" $html "" html               # scrape output         if {[regexp -- {(.+?) } $html - following]} {set following [string trim $following]}      if {[regexp -- {(.+?) } $html - followers]} {set followers [string trim $followers]}      if {[regexp -- {(.+?) } $html - listed]} {set listed [string trim $listed]}      if {[regexp -- {(.+?)} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}      if {[regexp -- {(.+?)} $html - ltweet]} {        # scrub html elements out        regsub -all -- {} [string trim $ltweet] "" ltweet        regsub -all -- {} $ltweet "" ltweet        regsub -all -- {} $ltweet "" ltweet      }      # check if a variable we scraped exists      if {[info exists following]} {        # protected tweets?        if {[regexp -- {} $html]} {          # yes          putserv "$to :$twitter(logo) Following: $following; Followers: $followers; Listed: $listed; Total Tweets: Tweets Protected."               putserv "$to :$twitter(logo) This person has protected their tweets."        } else {          # no          putserv "$to :$twitter(logo) Following: $following; Followers: $followers; Listed: $listed; Total Tweets: $totaltweets."          # a last tweet?          if {[info exists ltweet]} {            # yes            putserv "$to :$twitter(logo) Last Tweet: $ltweet"          } else {            # no            putserv "$to :$twitter(logo) I'm sorry, this user has no tweets."          }        }        # give url for clickability        putserv "$to :$twitter(logo) $u"      } else {        # if not, give a funny message, bascially the regexp's above are        # broken and need maintenance when this message appears.        putserv "$to :$twitter(logo) Houston, we have a problem. Oxygen level is low. Atmospheric pressure is dropping."      }    }  }}putlog "Twitter-1.1b - Originally by Warlord/Rewrite by egghelp and tweaked by warlord.."

Statistics: Posted by speechles — Mon Jan 25, 2010 7:34 am

Twitter status problem

2010-01-24T20:34:09-04:00

[13:52:27] <@Warlord> !twitter gov
[13:52:28] <@ps3> [Twitter]: Getting Status For: gov...
[13:52:28] <@ps3> [Twitter]: Houston, we have a problem

So I tried adding this code and nothing..

Code:

if {[regexp -- {} $html]} {   putserv "$to :$twitter(logo) Sorry, the profile you were trying to view has been suspended due to strange activity."   return 0        }

The main url is: http://twitter.com/gov but it redirects to http://twitter.com/suspended not sure if the redirect messes it up or what, any idea?

Statistics: Posted by sdays — Sun Jan 24, 2010 8:34 pm

Twitter status problem

2010-01-23T16:58:42-04:00

here it is slightly tweaked further to trap 40* codes before grabbing html (error condition 3) also cleans up the url encoder to be faster, added http::cleanup, dynamic putserv messaging.

Code:

# Twitter by Warlord v1.1b# Rewrite by egghelp and tweaked by warlord..# Type in partyline: ".chanset #channel +twitter" to enable it.# -- config begins# This is the twitter logo.set twitter(logo) "\[\002\00311Twitter\002\003]:"# Set user agent.set twitter(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"# Set the url baseset twitter(url) "http://twitter.com/"# Set the output style here:# %chan == $chan, %nick == $nick# no other variables can be usedset twitter(output) "PRIVMSG %chan"# -- script begins# Chanset command.setudef flag twitter# check if http version 2.5 or greater is used# if so, we can use utf-8 features, otherwise# fall back to standard iso8859-1if {[catch {package require http 2.5} e] != 0} {  set twitter(noutf8) 1  package require http}bind pub - !twitter proc:twitterproc proc:twitter {nick uhand handle chan input} {  if {[channel get $chan twitter]} {    global twitter    # string map in replacements for output    set to [string map [list "%chan" $chan "%nick" $nick] $twitter(output)]    if {![llength [split $input]]} {      putserv "$to :$twitter(logo) Please be more specific I need a user name example: !twitter username"    } else {      # spam our header message before we attempt to get data..      putquick "$to :$twitter(logo) Getting Status For: $input..."      # proper support for utf-8; twitter uses utf-8      # *requires http 2.5+      if {[info exists twitter(noutf8)]} {        set http [::http::config -useragent $twitter(agent)]      } else {        set http [::http::config -useragent $twitter(agent) -urlencoding "utf-8"]      }      # fancy url constructor; utf-8 safe; special character safe      # *uses http packages format query      foreach word [split $input] { lappend query [http::formatQuery $word] }      # error catching, this also captures our url into the variable u      catch { set http [::http::geturl "[set u "$twitter(url)[join $query +]"]" -timeout 5000]} error      # error condition 1, socket error or other general error      if {![string match -nocase "::http::*" $error]} {        putserv "$to :$twitter(logo) [string totitle [string map {"\n" " | "} $error]] \( $u \)"        return 0      }      # error condition 2, http error      if {![string equal -nocase [::http::status $http] "ok"]} {        putserv "$to :$twitter(logo) [string totitle [::http::status $http]] \( $u \)"        return 0      }      # error condition 3, 40* error      if {[string equal -nocase "40*" [::http::ncode $http]]} {        putserv "$to :$twitter(logo) \[[::http::ncode $http]\] Sorry, that page doesn't exist! \( $u \)"        return 0      }      # get data.         set html [::http::data $http]      # cleanup http array      ::http::cleanup $http      regsub -all "\n" $html "" html                # scrape output          if {[regexp -- {(.+?) } $html - following]} {set following [string trim $following]}      if {[regexp -- {(.+?) } $html - followers]} {set followers [string trim $followers]}      if {[regexp -- {(.+?) } $html - listed]} {set listed [string trim $listed]}      if {[regexp -- {(.+?)} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}      if {[regexp -- {(.+?)} $html - ltweet]} {        # scrub html elements out        regsub -all -- {} [string trim $ltweet] "" ltweet        regsub -all -- {} $ltweet "" ltweet        regsub -all -- {} $ltweet "" ltweet      }      # check if a variable we scraped exists      if {[info exists following]} {        # protected tweets?        if {[regexp -- {} $html]} {          # yes          putserv "$to :$twitter(logo) Following: $following; Followers: $followers; Listed: $listed; Total Tweets: Tweets Protected."                putserv "$to :$twitter(logo) This person has protected their tweets."        } else {          # no          putserv "$to :$twitter(logo) Following: $following; Followers: $followers; Listed: $listed; Total Tweets: $totaltweets."          # a last tweet?          if {[info exists ltweet]} {            # yes            putserv "$to :$twitter(logo) Last Tweet: $ltweet"          } else {            # no            putserv "$to :$twitter(logo) I'm sorry, this user has no tweets."          }        }        # give url for clickability        putserv "$to :$twitter(logo) $u"      } else {        # if not, give a funny message, bascially the regexp's above are        # broken and need maintenance when this message appears.        putserv "$to :$twitter(logo) Houston, we have a problem. Oxygen level is low. Atmospheric pressure is dropping."      }    }  }}putlog "Twitter-1.1b - Originally by Warlord/Rewrite by egghelp and tweaked by warlord.."

Statistics: Posted by speechles — Sat Jan 23, 2010 4:58 pm

Twitter status problem

2010-01-23T04:11:21-04:00

Thanks speechless I found few bugs which wouldn't let it work so I played around with it and fixed it and added user/protected tweaks check as well. Anyways Here is the script now just if anyone wants to use it or edit or something.

Edited updated.

Code:

# Twitter by Warlord v1.1a# Rewrite by egghelp and tweaked by warlord.. # Type in partyline: ".chanset #channel +twitter" to enable it.# This is the twitter logo.set twitter(logo) "\[\002\00311Twitter\002\003]:"# Set user agent.set twitter(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"# Chanset command.setudef flag twitter# check if http version 2.5 or greater is used# if so, we can use utf-8 features, otherwise# fall back to standard iso8859-1if {[catch {package require http 2.5} e] != 0} {   set twitter(noutf8) 1  package require http}bind pub - !twitter proc:twitterproc proc:twitter {nick uhand handle chan input} {  if {[channel get $chan twitter]} {    global twitter    if {![llength [split $input]]} {      putserv "PRIVMSG $chan :$twitter(logo) Please be more specific I need a user name example: !twitter username"      } else {      # spam our header message before we attempt to get data..      putquick "PRIVMSG $chan :$twitter(logo) Getting Status For: $input..."      # proper support for utf-8; twitter uses utf-8      # *requires http 2.5+      if {[info exists twitter(noutf8)]} {        set http [::http::config -useragent $twitter(agent)]        } else {        set http [::http::config -useragent $twitter(agent) -urlencoding "utf-8"]      }      # fancy url constructor; utf-8 safe; special character safe      # *uses http packages format query      foreach word [split $input] {        lappend query [lindex [split [http::formatQuery a $word] =] 1]      }      # error catching      catch { set http [::http::geturl "http://twitter.com/[join $query +]" -timeout 5000]} error        # error condition 1, socket error        if {![string match -nocase "::http::*" $error]} {          putserv "privmsg $chan :$twitter(logo) [string totitle [string map {"\n" " | "} $error]] \( $query \)"          return 0        }        # error condition 2, http error        if {![string equal -nocase [::http::status $http] "ok"]} {          putserv "privmsg $chan :$twitter(logo) [string totitle [::http::status $http]] \( $query \)"          return 0        }         # Get data.        set html [::http::data $http]        regsub -all "\n" $html "" html        #checks if the person protected their profile.        #checks to see if there is a username        if {[regexp -- {Sorry, that page doesn.t exist!
} $html]} {        putserv "privmsg $chan :$twitter(logo) There is no such username"        return 0      }                    if {[regexp -- {(.+?) } $html - following]} {set following [string trim $following]}      if {[regexp -- {(.+?) } $html - followers]} {set followers [string trim $followers]}      if {[regexp -- {(.+?) } $html - listed]} {set listed [string trim $listed]}      if {[regexp -- {(.+?)} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}      if {[regexp -- {(.+?)} $html - ltweet]} {         set ltweet [string trim $ltweet]        # scrub html elements out        regsub -all -- {} $ltweet "" ltweet        regsub -all -- {} $ltweet "" ltweet        regsub -all -- {} $ltweet "" ltweet      }      # check if a variable we scraped exists      if {[info exists following]} {        # if so, spamtastic!          if {[regexp -- {} $html]} {          putserv "PRIVMSG $chan :$twitter(logo) Following: $following; Followers: $followers; Listed: $listed; Total Tweets: Tweets Protected."          putserv "privmsg $chan :$twitter(logo) This person has protected their tweets."          } else {            putserv "PRIVMSG $chan :$twitter(logo) Following: $following; Followers: $followers; Listed: $listed; Total Tweets: $totaltweets."            if {[info exists ltweet]} {            putserv "PRIVMSG $chan :$twitter(logo) Last Tweet: $ltweet"              } else {              putserv "PRIVMSG $chan :$twitter(logo) I'm sorry, this user has no tweets."            }          }          putserv "PRIVMSG $chan :$twitter(logo) http://twitter.com/$query"        } else {        # if not, give a funny message, bascially the regexp's above are        # broken and need maintenance when this message appears.        putserv "PRIVMSG $chan :Houston, we have a problem. Oxygen level is low. Atmospheric pressure is dropping."      }    }  }}putlog "Twitter-1.1a - Originally by Warlord/Rewrite by egghelp and tweaked by warlord.."

Statistics: Posted by sdays — Sat Jan 23, 2010 4:11 am

Re: Twitter status problem

2010-01-22T17:50:51-04:00

Code:

# Twitter by sdays v1.0a# egghelp version.. YAYset twitter(logo) "Twitter"set twitter(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"# check if http version 2.5 or greater is used# if so, we can use utf-8 features, otherwise# fall back to standard iso8859-1if {[catch {package require http 2.5} e] != 0]} {  set twitter(noutf8) 1  package require http}setudef flag twitterbind pub - !twitter proc:twitterproc proc:twitter {nick uhand handle chan input} {  if {[channel get $chan twitter]} {    global twitter    if {![llength [split $input]]} {      putserv "PRIVMSG $chan :Please be more specific I need a user name example: !twitter username"    } else {      # spam our header message before we attempt to get data..      putquick "PRIVMSG $chan :\002$twitter(logo)\002: Getting Status For: $input..."      # proper support for utf-8; twitter uses utf-8      # *requires http 2.5+      if {[info exists twitter(noutf8)]} {        set http [::http::config -useragent $twitter(agent)]      } else {        set http [::http::config -useragent $twitter(agent) -urlencoding "utf-8"]      }      # fancy url constructor; utf-8 safe; special character safe      # *uses http packages format query      foreach word [split $input] {        lappend query [lindex [split [http::formatQuery a $word] =] 1]      }      # error catching      catch { set http [::http::geturl "http://twitter.com/[join $query +]" -timeout 5000 } error      # error condition 1, socket error      if {![string match -nocase "::http::*" $error]} {        putserv "privmsg $chan :\002$twitter(logo)\002: [string totitle [string map {"\n" " | "} $error]] \( $query \)"        return 0      }      # error condition 2, http error      if {![string equal -nocase [::http::status $http] "ok"]} {        putserv "privmsg $chan :\002$twitter(logo)\002: [string totitle [::http::status $http]] \( $query \)"        return 0      }      # no error, get data      set html [::http::data $http]      regsub -all "\n" $html "" html      if {[regexp -- {(.+?) } $html - following]} {set following [string trim $following]}      if {[regexp -- {(.+?) } $html - followers]} {set followers [string trim $followers]}      if {[regexp -- {(.+?) } $html - listed]} {set listed [string trim $listed]}      if {[regexp -- {(.+?)} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}      if {[regexp -- {(.+?)} $html - ltweet]} {        set ltweet [string trim $ltweet]        # scrub html elements out        regsub -all -- {} $ltweet "" ltweet        regsub -all -- {} $ltweet "" ltweet        regsub -all -- {} $ltweet "" ltweet      }      # check if a variable we scraped exists      if {[info exists following]} {        # if so, spamtastic!        putserv "PRIVMSG $chan :Following: $following; Followers: $followers; Listed: $listed; Total Tweets: $totaltweets"        putserv "PRIVMSG $chan :Last Tweet: $ltweet"        putserv "PRIVMSG $chan :$query"      } else {        # if not, give a funny message, bascially the regexp's above are        # broken and need maintenance when this message appears.        putserv "PRIVMSG $chan :Houston, we have a problem. Oxygen level is low. Atmospheric pressure is dropping."      }    }  }}

Statistics: Posted by speechles — Fri Jan 22, 2010 5:50 pm

Twitter status problem

2010-01-22T03:51:12-04:00

Well I requested twitter status few days ago and no one even bothered to reply but anyways I'm having a problem with it I got this far the code prob sucks but it half works..

Here is the problem I'm having:

[23:48:31] <@Warlord> !twitter google
[23:48:33] <@Xbox360> Twitter Getting Status For: google.
[23:48:34] <@Xbox360> Following: 219 Followers: 2,110,984 Listed: 20,284 Total Tweets: 161
[23:48:34] <@Xbox360> Last Tweet: RT @googlenexusone: In case you missed it, check out Patrick Boivin's awesome Nexus One unboxing video http://bit.ly/6bAhxZ" class="tweet-url web" rel="nofollow" target="_blank">http://bit.ly/6bAhxZ> #ninja
[23:48:36] <@Xbox360> http://twitter.com/google

It posts html code with the last tweet any idea?

Code:

package require httpsetudef flag twitterset twitterlogo "Twitter"bind pub - !twitter proc:twitterset agent "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"proc proc:twitter {nick uhand handle chan input} {  if {[lsearch -exact [channel info $chan] +twitter] != -1} {    global botnick agent twitterlogo    if {[llength $input]==0} {      putserv "PRIVMSG $chan :Please be more specific I need a user name example: !twitter username"      } else {      set query "http://twitter.com/"      for { set index 0 } { $index<[llength $input] } { incr index } {        set query "$query[lindex $input $index]"        if {$index<[llength $input]-1} then {          set query "$query+"        }      }      set http [::http::config -useragent $agent]      set http [::http::geturl $query]      set html [::http::data $http]      regsub -all "\n" $html "" html      if {[regexp -- {(.+?) } $html - following]} {set following [string trim $following]}      if {[regexp -- {(.+?) } $html - followers]} {set followers [string trim $followers]}      if {[regexp -- {(.+?) } $html - listed]} {set listed [string trim $listed]}      if {[regexp -- {(.+?)Tweets} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}      if {[regexp -- {(.+?)} $html - ltweet]} {set ltweet [string trim $ltweet]}      putquick "PRIVMSG $chan :$twitterlogo Getting Status For: $input."      putserv "PRIVMSG $chan :Following: $following Followers: $followers Listed: $listed Total Tweets: $totaltweets"      putserv "PRIVMSG $chan :Last Tweet: $ltweet"      putserv "PRIVMSG $chan :$query"    }  }}

Statistics: Posted by sdays — Fri Jan 22, 2010 3:51 am