| View previous topic :: View next topic |
| Author |
Message |
sdays
Halfop
Joined: 21 Oct 2006
Posts: 98
|
 Posted: Fri Jan 22, 2010 3:51 am Post subject: Twitter status problem |
 |
|
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 @<a class="tweet-url username" href="/googlenexusone">googlenexusone</a>: In case you missed it, check out Patrick Boivin's awesome Nexus One unboxing video <a href="http://bit.ly/6bAhxZ" class="tweet-url web" rel="nofollow" target="_blank">http://bit.ly/6bAhxZ</a> <a href="/search?q=%23ninja" title="#ninja" class="tweet-url hashtag">#ninja</a>
[23:48:36] <@Xbox360> http://twitter.com/google
It posts html code with the last tweet any idea?
| Code: |
package require http
setudef flag twitter
set twitterlogo "Twitter"
bind pub - !twitter proc:twitter
set 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 -- {<span id="following_count" class="stats_count numeric">(.+?) </span>} $html - following]} {set following [string trim $following]}
if {[regexp -- {<span id="follower_count" class="stats_count numeric">(.+?) </span>} $html - followers]} {set followers [string trim $followers]}
if {[regexp -- {<span id="lists_count" class="stats_count numeric">(.+?) </span>} $html - listed]} {set listed [string trim $listed]}
if {[regexp -- {<span id="update_count" class="stat_count">(.+?)</span><span>Tweets</span></a></li>} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}
if {[regexp -- {<span class="entry-content">(.+?)</span>} $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"
}
}
} |
|
|
| Back to top |
|
 |
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Fri Jan 22, 2010 5:50 pm Post subject: Re: Twitter status problem |
|
|
| Code: | # Twitter by sdays v1.0a
# egghelp version.. YAY
set 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-1
if {[catch {package require http 2.5} e] != 0]} {
set twitter(noutf8) 1
package require http
}
setudef flag twitter
bind pub - !twitter proc:twitter
proc 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 -- {<span id="following_count" class="stats_count numeric">(.+?) </span>} $html - following]} {set following [string trim $following]}
if {[regexp -- {<span id="follower_count" class="stats_count numeric">(.+?) </span>} $html - followers]} {set followers [string trim $followers]}
if {[regexp -- {<span id="lists_count" class="stats_count numeric">(.+?) </span>} $html - listed]} {set listed [string trim $listed]}
if {[regexp -- {<span id="update_count" class="stat_count">(.+?)</span>} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}
if {[regexp -- {<span class="entry-content">(.+?)</span>} $html - ltweet]} {
set ltweet [string trim $ltweet]
# scrub html elements out
regsub -all -- {<a class=.*?>} $ltweet "" ltweet
regsub -all -- {<a href=.*?>} $ltweet "" ltweet
regsub -all -- {</a>} $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."
}
}
}
} |
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
sdays
Halfop
Joined: 21 Oct 2006
Posts: 98
|
| Posted: Sat Jan 23, 2010 4:11 am Post subject: |
|
|
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-1
if {[catch {package require http 2.5} e] != 0} {
set twitter(noutf8) 1
package require http
}
bind pub - !twitter proc:twitter
proc 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 -- {<h2>Sorry, that page doesn.t exist!</h2>} $html]} {
putserv "privmsg $chan :$twitter(logo) There is no such username"
return 0
}
if {[regexp -- {<span id="following_count" class="stats_count numeric">(.+?) </span>} $html - following]} {set following [string trim $following]}
if {[regexp -- {<span id="follower_count" class="stats_count numeric">(.+?) </span>} $html - followers]} {set followers [string trim $followers]}
if {[regexp -- {<span id="lists_count" class="stats_count numeric">(.+?) </span>} $html - listed]} {set listed [string trim $listed]}
if {[regexp -- {<span id="update_count" class="stat_count">(.+?)</span>} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}
if {[regexp -- {<span class="entry-content">(.+?)</span>} $html - ltweet]} {
set ltweet [string trim $ltweet]
# scrub html elements out
regsub -all -- {<a class=.*?>} $ltweet "" ltweet
regsub -all -- {<a href=.*?>} $ltweet "" ltweet
regsub -all -- {</a>} $ltweet "" ltweet
}
# check if a variable we scraped exists
if {[info exists following]} {
# if so, spamtastic!
if {[regexp -- {<div class="protected-box">} $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.." |
|
|
| Back to top |
|
|
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Sat Jan 23, 2010 4:58 pm Post subject: |
|
|
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 base
set twitter(url) "http://twitter.com/"
# Set the output style here:
# %chan == $chan, %nick == $nick
# no other variables can be used
set 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-1
if {[catch {package require http 2.5} e] != 0} {
set twitter(noutf8) 1
package require http
}
bind pub - !twitter proc:twitter
proc 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 -- {<span id="following_count" class="stats_count numeric">(.+?) </span>} $html - following]} {set following [string trim $following]}
if {[regexp -- {<span id="follower_count" class="stats_count numeric">(.+?) </span>} $html - followers]} {set followers [string trim $followers]}
if {[regexp -- {<span id="lists_count" class="stats_count numeric">(.+?) </span>} $html - listed]} {set listed [string trim $listed]}
if {[regexp -- {<span id="update_count" class="stat_count">(.+?)</span>} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}
if {[regexp -- {<span class="entry-content">(.+?)</span>} $html - ltweet]} {
# scrub html elements out
regsub -all -- {<a class=.*?>} [string trim $ltweet] "" ltweet
regsub -all -- {<a href=.*?>} $ltweet "" ltweet
regsub -all -- {</a>} $ltweet "" ltweet
}
# check if a variable we scraped exists
if {[info exists following]} {
# protected tweets?
if {[regexp -- {<div class="protected-box">} $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.." |
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
sdays
Halfop
Joined: 21 Oct 2006
Posts: 98
|
| Posted: Sun Jan 24, 2010 8:34 pm Post subject: |
|
|
[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 -- {<body class="static" id="suspended">} $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? |
|
| Back to top |
|
|
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Mon Jan 25, 2010 7:34 am Post subject: |
|
|
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 base
set twitter(url) "http://twitter.com/"
# Set the output style here:
# %chan == $chan, %nick == $nick
# no other variables can be used
set 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-1
if {[catch {package require http 2.5} e] != 0} {
set twitter(noutf8) 1
package require http
}
bind pub - !twitter proc:twitter
proc 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 -- {<span id="following_count" class="stats_count numeric">(.+?) </span>} $html - following]} {set following [string trim $following]}
if {[regexp -- {<span id="follower_count" class="stats_count numeric">(.+?) </span>} $html - followers]} {set followers [string trim $followers]}
if {[regexp -- {<span id="lists_count" class="stats_count numeric">(.+?) </span>} $html - listed]} {set listed [string trim $listed]}
if {[regexp -- {<span id="update_count" class="stat_count">(.+?)</span>} $html - totaltweets]} {set totaltweets [string trim $totaltweets]}
if {[regexp -- {<span class="entry-content">(.+?)</span>} $html - ltweet]} {
# scrub html elements out
regsub -all -- {<a class=.*?>} [string trim $ltweet] "" ltweet
regsub -all -- {<a href=.*?>} $ltweet "" ltweet
regsub -all -- {</a>} $ltweet "" ltweet
}
# check if a variable we scraped exists
if {[info exists following]} {
# protected tweets?
if {[regexp -- {<div class="protected-box">} $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.." |
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
sdays
Halfop
Joined: 21 Oct 2006
Posts: 98
|
| Posted: Tue Jan 26, 2010 11:02 am Post subject: |
|
|
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. |
|
| Back to top |
|
|
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
| Posted: Wed Jan 27, 2010 2:02 pm Post subject: |
|
|
This is a really great script, any chance for a link to the fixed script?
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
|
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Wed Jan 27, 2010 9:20 pm Post subject: |
|
|
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..
| Quote: | <speechles> !twitter whitehouse
<sp33chy> [Twitter]: Getting Status For: whitehouse...
<sp33chy> [Twitter]: Name: The White House; Location: Washington, DC USA; Following: 87; Followers: 1,694,567; Listed: 13,925; Total Tweets: 202.
<sp33chy> [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 )
<sp33chy> [Twitter]: http://twitter.com/whitehouse
<speechles> !twitter google
<sp33chy> [Twitter]: Getting Status For: google...
<sp33chy> [Twitter]: Name: A Googler; Location: Mountain View, CA; Following: 222; Followers: 2,119,659; Listed: 21,138; Total Tweets: 1,083.
<sp33chy> [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 )
<sp33chy> [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:
<Nick> !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, "<Nick> Does this even work?". Then later typing "!twitter <your channel's account name here>" 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:
Stay tuned...
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
sdays
Halfop
Joined: 21 Oct 2006
Posts: 98
|
| Posted: Sat Jan 30, 2010 3:48 am Post subject: |
|
|
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)"
# binds
bind 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 chars
proc twitcl:mapevil {string} {
global twitcl
return [string map {\< < \> >} $string]
} |
|
|
| Back to top |
|
|
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
| Posted: Sat Jan 30, 2010 8:12 am Post subject: |
|
|
speechless, well done, I`ll look forward to this script it would be very much useful 
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
