egghelp/eggheads community

On message[solved]

2012-07-22T12:08:29-04:00

I have done as you have said but I would still prefer to do the other way so if any one could further look into it id be grateful

thanks

Edit: following errors

[18:48] [21:48:01] Tcl error [proc:twitter:friendsauto]: invalid character "]"
[18:48] in expression "... "severewarn" $screen]]" have removed one ] no errors showing now

Edit Its not re tweeting anything at all they haven't blocked me because it let me re tweet via twitter itself
I also done +follow severewarn

Statistics: Posted by blake — Sun Jul 22, 2012 12:08 pm

On message[solved]

2012-07-22T07:17:22-04:00

Hey

Thanks for that speechless

I have been given permission to use there tweet as my own by them but copy and paste method gets a tad tedius and only works if im at my computer this way I dont have to worry about it

Statistics: Posted by blake — Sun Jul 22, 2012 7:17 am

On message[solved]

2012-07-21T21:38:02-04:00

Code:

if {![isbotnick $nick]} {if {![info exists skip]} {putserv "$to :$tt" ; set sp 0}} else {if {[string equal -nocase "friends" $type]} {if {($twitter($tuser,lastidf) < $id && ![string equal -nocase $screen $tuser]) || ($twitter($tuser,lastidf) == $id && [info exists sp] && ![string equal -nocase $screen $tuser])} {if {![info exists skip]} {# ---> code added starts here - automations should retweet# is the user that just tweeted the one we want? if {[string equal -nocase "severewarn" $screen]]} {# yes - set query with id to retweetset q [list [list id $id]]# map url with id of tweet to retweetset rt [string map [list "%id%" "$id"] $twitter(retweet)]# issue retweet - silentlyif {[catch {set rtt [proc:twitter:oauth $rt POST $chan $q]} error]} { putlog "$twitter(logo) Auto-Retweet: $error" }}# <--- code added ends here putserv "$to :$tt" ; set sp 0}if {![info exists pure]} {set twitter($tuser,lastidf) $idset pure 0}}} else {

You can do this all within birdy itself by a slight hack. This will allow it to detect when its running its friends automation, and during the initial spew of this check if it should "retweet" the message if it matches your pattern. Hopefully you can understand the code above enough to understand how to hack it in. The procedure you want to do this in is called, proc:twitter:restapi. This is more natural, a retweet of something like this, than taking the tweet and claiming it for your own. Consider this a more ethical approach to what you want to do.

Note: This requires you have issued .. +follow severewarn .. and they have not blocked you, this will then retweet every single one of their tweets into your own timeline. If you want it more refined or something, let me know. ;D

Statistics: Posted by speechles — Sat Jul 21, 2012 9:38 pm

On message[solved]

2012-07-21T18:12:12-04:00

They are both the same the tweeter eggdrop is running speechless burdy script both eggdrops are eggdrop v1.6.20

Statistics: Posted by blake — Sat Jul 21, 2012 6:12 pm

On message[solved]

2012-07-21T18:00:03-04:00

Hard to say then. I assume "Tweeter" is a different eggdrop than the one running this script.

Statistics: Posted by nml375 — Sat Jul 21, 2012 6:00 pm

On message[solved]

2012-07-21T17:17:50-04:00

That has not worked

Statistics: Posted by blake — Sat Jul 21, 2012 5:17 pm

On message[solved]

2012-07-21T16:59:23-04:00

I roughly recall channel text being stripped of any control characters prior being matched, but just in case I'm wrong; try replacing the mask in the binding with just "*"
(bind pubm - "*" user:message)

Statistics: Posted by nml375 — Sat Jul 21, 2012 4:59 pm

On message[solved]

2012-07-21T16:56:35-04:00

Hey

Sorry nml375 but that dont seem to be working either thanks for your help though

Statistics: Posted by blake — Sat Jul 21, 2012 4:56 pm

On message[solved]

2012-07-21T16:24:46-04:00

Well, if it's sent to a channel, you need the pubm binding, not the msg or msgm bindings... Which also means that the proc has to be modified to take the new set of parameters.

Code:

bind pubm - "% Severe Warnings:*" user:messageproc user:message {nick host handle channel text} {  set text [stripcodes bcruag $text]  set pattern {Severe Warnings: ([[:alnum:][:space:][:punct:]]*?) \( ?[[:digit:]]+@severewarn.* ?\)}  if {[string equal -nocase $nick "tweeter"] && [regexp -- $pattern $text match warning]} {    puthelp "PRIVMSG #Twitter :!tweet : $warning"  }}

Statistics: Posted by nml375 — Sat Jul 21, 2012 4:24 pm

On message[solved]

2012-07-21T16:19:49-04:00

That hasnt made any difference

it still isnt outputting anything to the channel when it sees

<+Tweeter> Severe Warnings: Severe Thunderstorm Warning for Johnston, Sampson, and Wayne County in NC until 4:45pm EDT. #ncwx ( 226763682313539584@severewarn - 11s ago via ReadyWarn )

this is also on the channel #twitter its not being sent via private message its a channel message

Statistics: Posted by blake — Sat Jul 21, 2012 4:19 pm

On message[solved]

2012-07-21T16:01:58-04:00

Minor typo in my last post, fixed now.
(used "Severe Warning:" instead of "Severe Warnings:" in the binding)

Statistics: Posted by nml375 — Sat Jul 21, 2012 4:01 pm

On message[solved]

2012-07-21T15:59:39-04:00

Tried this its stll not sending any out put to the channel showing no errors

Statistics: Posted by blake — Sat Jul 21, 2012 3:59 pm

On message[solved]

2012-07-21T16:00:33-04:00

Control-codes such as bold would be stripped using the stripcodes command.
I've successfully tested the regexp pattern against the string you posted.
One thing that strikes me now though, is that you are using a msg binding, not an msgm binding. You can't use wildcards with msg bindings, and the "command" part is only matched against the first word spoken. You'll need msgm instead.

Code:

bind msgm - "Severe Warnings:*" user:messageproc user:message {nick host handle text} {  set text [stripcodes bcruag $text]  set pattern {Severe Warnings: ([[:alnum:][:space:][:punct:]]*?) \( ?[[:digit:]]+@severewarn.* ?\)}  if {[string equal -nocase $nick "tweeter"] && [regexp -- $pattern $text match warning]} {    puthelp "PRIVMSG #Twitter :!tweet : $warning"  }}

Statistics: Posted by nml375 — Sat Jul 21, 2012 3:42 pm

On message[solved]

2012-07-21T15:44:09-04:00

Hey

I have tried that it is not doing anything at all could it be because this part is in bold Severe Warnings

this is the output

<+Tweeter> Severe Warnings: Severe Thunderstorm Warning for Johnston, Sampson, and Wayne County in NC until 4:45pm EDT. #ncwx ( 226763682313539584@severewarn - 11s ago via ReadyWarn )

Statistics: Posted by blake — Sat Jul 21, 2012 3:32 pm

On message[solved]

2012-07-21T14:23:14-04:00

When using the msg binding, the proc is called with four parameters (nickname, user@host, handle, and text) - your proc expects a fifth parameter (dest). You'll have to remove that fifth one (or provide a default value for it) for it to work with your binding.

As for the more advanced parts of your request, I'd probably use regular expression matching rather than glob-based matching (string match):

Code:

bind msg - "*" user:messageproc user:message {nick host handle text} {  set text [stripcodes bcruag $text]  if {[regexp -- {Severe Warnings: ([[:alnum:][:space:][:punct:]]*?) \( ?[[:digit:]]+@severewarn.* ?\)} $text match warning]} {    puthelp "PRIVMSG #Twitter :!tweet : $warning"  }}

Might have to tune the pattern depening on permitted contents of the messages.

Statistics: Posted by nml375 — Sat Jul 21, 2012 2:23 pm