| View previous topic :: View next topic |
| Author |
Message |
Eyecu
Voice
Joined: 29 Feb 2012
Posts: 1
|
 Posted: Wed Feb 29, 2012 3:36 pm Post subject: Needs to convert this to tcl |
 |
|
As the title says i need to convert this script from mirc language to tcl, but i have no clue how to right tcl. Before anyone says just use an rss feed reader, it wont work in this case as some of the sites in the list don't use rss or atom feeds in any way  . I appreciate any help with this.
| Code: | on *:Join:*: {
if ($nick == $me) {
.timer.newsck 0 15 newsck
.timer.sf 0 20 soulfly
.timer.evo 0 22 evolution
.timer.chain 0 18 chainz
.timer.hawkee 0 15 hawkee
.timer.mirc 0 27 mircforum
.timer.rumbaar 0 32 rumbaar
.timer.giveaway 0 3660 giveaway
}
}
; Menu =====================================================================================
menu channel {
Feeder
.$iif(%Feed.chainnews. [ $+ [ $active ] ] == on,$style(1)) ChainzScripts: $iif(%Feed.chainnews. [ $+ [ $active ] ] == on,unset %Feed.chainnews. [ $+ [ $active ] ],set %Feed.chainnews. [ $+ [ $active ] ] on)
.$iif(%Feed.evonews. [ $+ [ $active ] ] == on,$style(1)) Evolution: $iif(%Feed.evonews. [ $+ [ $active ] ] == on,unset %Feed.evonews. [ $+ [ $active ] ],set %Feed.evonews. [ $+ [ $active ] ] on)
.$iif(%Feed.hknews. [ $+ [ $active ] ] == on,$style(1)) Hawkee: $iif(%Feed.hknews. [ $+ [ $active ] ] == on,unset %Feed.hknews. [ $+ [ $active ] ],set %Feed.hknews. [ $+ [ $active ] ] on)
.$iif(%Feed.mircnews. [ $+ [ $active ] ] == on,$style(1)) mIRC: $iif(%Feed.mircnews. [ $+ [ $active ] ] == on,unset %Feed.mircnews. [ $+ [ $active ] ],set %Feed.mircnews. [ $+ [ $active ] ] on)
.$iif(%Feed.rumbaarnews. [ $+ [ $active ] ] == on,$style(1)) Rumbaar: $iif(%Feed.rumbaarnews. [ $+ [ $active ] ] == on,unset %Feed.rumbaarnews. [ $+ [ $active ] ],set %Feed.rumbaarnews. [ $+ [ $active ] ] on)
.$iif(%Feed.sfnews. [ $+ [ $active ] ] == on,$style(1)) SoulFly: $iif(%Feed.sfnews. [ $+ [ $active ] ] == on,unset %Feed.sfnews. [ $+ [ $active ] ],set %Feed.sfnews. [ $+ [ $active ] ] on)
.$iif(%Feed.tgnews. [ $+ [ $active ] ] == on,$style(1)) TechGear: $iif(%Feed.tgnews. [ $+ [ $active ] ] == on,unset %Feed.tgnews. [ $+ [ $active ] ],set %Feed.tgnews. [ $+ [ $active ] ] on)
.-
.Add All $chan : {
set %Feed.chainnews. [ $+ [ $active ] ] on
set %Feed.evonews. [ $+ [ $active ] ] on
set %Feed.hknews. [ $+ [ $active ] ] on
set %Feed.mircnews. [ $+ [ $active ] ] on
set %Feed.rumbaarnews. [ $+ [ $active ] ] on
set %Feed.sfnews. [ $+ [ $active ] ] on
set %Feed.tgnews. [ $+ [ $active ] ] on
}
.Remove All $chan : unset %Feed.*. [ $+ [ $active ] ]
.-
.Clear Saved Topics: unset %Topic.*
}
; Aliases ==================================================================================
alias striphtml {
if (!$isid) || (!$1) return
var %H = $1 , %T = $regsub(%H,/(<[^>]+>)/g,,%H)
if ($chr(38) isin %H) {
set %H $replacecs(%H,&,&,"," ,<,< ,>,> ,&,& , ,$iif($prop,$chr($prop),$chr(32)) ,£,£ ,§,$chr(36) ,¨,¨ ,«,« ,»,» ,ß,ß, Ñ,Ñ ,ñ,ñ,',')
set %H $replacecs(%H,À,À ,Á,Á ,Â, ,Ã,à ,Ä,Ä ,Å,Å ,Æ,Æ ,à,à ,á,á ,â,â ,ã,ã ,ä,ä ,å,å ,æ,æ)
set %H $replacecs(%H,È,È,É,É,Ê,Ê,Ë,Ë,è,è,é,é,ê,ê,ë,ë,Ì,Ì,Í,Í,Î,Î,Ï,Ï,ì,ì,í,í,î,î)
set %H $replacecs(%H,ï,ï,Ò,Ò,Ó,Ó,Ô,Ô,Õ,Õ,Ö,Ö,Ø,Ø,ò,ò,ó,ó,ô,ô,õ,õ,ö,ö,ø,ø,Ù,Ù,Ú,Ú,Û,Û,Ü,Ü,Ý,Ý,ù,ù,ú,ú,û,û,ü,ü,ý,ý,ÿ,ÿ)
}
return %H
}
alias turl {
var %s tinyURL. $+ $ticks
sockopen %s tinyurl.com 80
sockmark %s $1 $2 $4 $5 $3
}
on *:sockopen:TinyURL.*: { sockwrite -tn $sockname $+(GET /api-create.php?url= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1,$crlf,Host: tinyurl.com,$crlf,$str($crlf,2)) }
on *:sockread:TinyURL.*:{
var %r | sockread %r
if ($left(%r,7) == HTTP://) {
var %f 1
while ($chan(%f)) {
var %g $gettok($sock($sockname).mark,2,32) $+ . $+ $chan(%f)
if (%FEED. [ $+ [ %g ] ] == on) && (($me isop $chan(%f)) || ($me ishop $chan(%f))) {
msg $chan(%f) $gettok($sock($sockname).mark,1,32) Topic Update: $striphtml($gettok($sock($sockname).mark,5-,32)) - %r $iif($gettok($sock($sockname).mark,4,32) != n/a,- by $striphtml($gettok($sock($sockname).mark,4,32)))
}
inc %f
}
}
}
; Chainscriptz ===============================================================================
alias chainz {
if ($status != connected) { halt }
sockclose chainforum | sockopen chainforum chainscriptz.net 80
}
on *:sockopen:chainforum: {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /chainposts.php HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
sockwrite -n $sockname Host: chainscriptz.net
sockwrite -n $sockname $crlf
}
on *:sockread:chainforum: {
if ($sockerr) { echo -a Error. | halt }
var %chain | sockread %chain
if (*Chainscriptz Latest Posts* iswm %chain) {
tokenize 165 %chain
if ($3 != %Topic.CHAIN) && (ERROR--CAN'T CONNECT TO SERVER !isin $2-) && ($2 != $null) {
if ($regex($3,/\#entry(.*?)$/)) { set %chainnewsid $regml(1) }
;;$turl(site,feed,title,url,by)
$turl(Chainscriptz,chainnews,$2,$3,$gettok($4,2,32))
set %Topic.CHAIN $3
unset %chainnewsid
sockclose chainforum
}
}
}
;Evolution ====================================================================================
alias evolution {
if ($status != connected) { halt }
sockclose evoforum
sockopen evoforum evolutionscriptz.com 80
if (%Topic.EVO == $null) { set %Topic.EVO on }
set %evo.check 1
}
on *:sockopen:evoforum: {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /feed.php HTTP/1.1
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
sockwrite -n $sockname Host: evolutionscriptz.com
sockwrite -n $sockname $crlf
}
on *:sockread:evoforum: {
if ($sockerr > 0) return
var %evo
sockread %evo
if (%chain == 0) || (%evo.check > 4) {
sockclose $sockname
if (%evo.linktemp != $null) && (%evo.linktemp != on) && (%evo.linktemp != %Topic.EVO) {
set %Topic.EVO %evo.linktemp
;;$turl(site,feed,title,url,by)
$turl(EvolutionScriptz,evonews,$striphtml(%evo.title),$replace(%evo.linktemp,&,&),n/a)
}
unset %evo.*
}
else {
if (%evo.check == 1) var %evor = /<entry>/ig
if (%evo.check == 2) var %evor = /<author><name><\!\[CDATA\[(.*)\]\]><\/name><\/author>/ig
if (%evo.check == 3) var %evor = /<link href="(.*)"\/>/ig
if (%evo.check == 4) var %evor = /<title type="html"><\!\[CDATA\[(.*)\]\]><\/title>/ig
if ($regex(evoforum, %evo, %evor) > 0) {
if (%evo.check == 2) { set %evo.title by $regml(evoforum,1) }
if (%evo.check == 3) { set %evo.linktemp $regml(evoforum,1) }
if (%evo.check == 4) { set %evo.title $regml(evoforum,1) %evo.title }
inc %evo.check
}
}
}
; Hawkee ======================================================================================
alias hawkee {
if ($status != connected) { halt }
sockclose hawkeeforum
sockopen hawkeeforum hawkee.com 80
if (%Topic.HAWKEE == $null) { set %Topic.HAWKEE on }
set %hawkee.check 1
}
on *:sockopen:hawkeeforum: {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /comment.rss.php HTTP/1.1
sockwrite -n $sockname Host: www.hawkee.com
sockwrite -n $sockname $crlf
}
on *:sockread:hawkeeforum: {
if ($sockerr > 0) return
var %hawkee
sockread %hawkee
if (%hawkee == 0) || (%hawkee.check > 3) {
sockclose $sockname
if (%hawkee.linktemp != $null) && (%hawkee.linktemp != on) && (%hawkee.linktemp != %Topic.HAWKEE) {
set %Topic.HAWKEE %hawkee.linktemp
$turl(Hawkee,hknews,$striphtml(%hawkee.title),$replace(%hawkee.linktemp,&,&),n/a)
}
unset %hawkee.*
}
else {
if (%hawkee.check == 1) var %hawkeer = /<item>/ig
if (%hawkee.check == 2) var %hawkeer = /<title>(.*)<\/title>/ig
if (%hawkee.check == 3) var %hawkeer = /<link>(.*)<\/link>/ig
if ($regex(hawkeeforum, %hawkee, %hawkeer) > 0) {
if (%hawkee.check == 2) set %hawkee.title $regml(hawkeeforum,1)
if (%hawkee.check == 3) set %hawkee.linktemp $regml(hawkeeforum,1)
inc %hawkee.check
}
}
}
; mIRC ========================================================================================
alias mircforum {
if ($status != connected) { halt }
sockclose mircforum
sockopen mircforum forums.mirc.com 80
if (%Topic.MIRC == $null) { set %Topic.MIRC on }
set %mirc.check 1
}
on *:sockopen:mircforum: {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /ubbthreads.php?ubb=dosearch&topic=1&fromsearch=1 HTTP/1.1
sockwrite -n $sockname Host: forums.mirc.com
sockwrite -n $sockname $crlf
}
on *:sockread:mircforum: {
if ($sockerr > 0) return
var %mirc 1
sockread %mirc
if (%mirc == 0) || (%mirc.check > 4) {
sockclose $sockname
if (%mirc.linktemp != $null) && (%mirc.linktemp != on) && (%mirc.linktemp != %Topic.MIRC) {
set %Topic.MIRC %mirc.linktemp
$turl(mIRC,mircnews,$striphtml(%mirc.title),http://forums.mirc.com $+ $striphtml(%mirc.linktemp),%mirc.by)
;surl http://forums.mirc.com $+ $striphtml(%mirc.linktemp) mirc
unset %mirc.*
}
}
else {
if (%mirc.check == 1) var %mircr = /(.*)Go to first unread post in topic(.*)/ig
if (%mirc.check == 2) var %mircr = /<a href="(.*)">/ig
if (%mirc.check == 3) var %mircr = /(.*)/ig
if (%mirc.check == 4) var %mircr = /<a href="/ubbthreads.php\?ubb=showprofile\&User=(.*)">(.*)</a> /ig
if ($regex(mircforum, %mirc, %mircr) > 0) {
if (%mirc.check == 2) { set %mirc.linktemp $regml(mircforum,1) }
if (%mirc.check == 3) { set %mirc.title $regml(mircforum,1) }
if (%mirc.check == 4) { set %mirc.by $regml(mircforum,2) }
inc %mirc.check
}
}
}
; Rumbaar ====================================================================================
alias rumbaar {
if ($status != connected) { halt }
sockclose rumbaarforum
sockopen rumbaarforum public.rumbaar.net 80
if (%Topic.RUMBAAR == $null) { set %Topic.RUMBAAR on }
set %rumbaar.check 1
}
on *:sockopen:rumbaarforum: {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /index.php?type=rss;action=.xml HTTP/1.1
sockwrite -n $sockname Host: www.public.rumbaar.neT
sockwrite -n $sockname $crlf
}
on *:sockread:rumbaarforum: {
if ($sockerr > 0) return
var %rumbaar
sockread %rumbaar
;echo -a %rumbaar
if (%rumbaar == 0) || (%rumbaar.check > 3) {
sockclose $sockname
if (%rumbaar.linktemp != $null) && (%rumbaar.linktemp != on) && (%rumbaar.linktemp != %Topic.RUMBAAR) {
set %Topic.RUMBAAR %rumbaar.linktemp
;;$turl(site,feed,title,url,by)
$turl(Rumbaar,rumbaarnews,%rumbaar.title,$replace(%rumbaar.linktemp,&,&),n/a)
}
unset %rumbaar.*
}
else {
if (%rumbaar.check == 1) var %rumbaarr = /<item>/ig
if (%rumbaar.check == 2) var %rumbaarr = /<title><!\[CDATA\[(.*)]]><\/title>/ig
if (%rumbaar.check == 3) var %rumbaarr = /<link>(.*)<\/link>/ig
if ($regex(rumbaarforum, %rumbaar, %rumbaarr) > 0) {
if (%rumbaar.check == 2) set %rumbaar.title $regml(rumbaarforum,1)
if (%rumbaar.check == 3) set %rumbaar.linktemp $regml(rumbaarforum,1)
inc %rumbaar.check
}
}
}
; SoulFly ====================================================================================
alias soulfly { if ($status != connected) { halt } | sockclose getsf | sockopen getsf www.soulfly-irc.com 80 }
on *:sockopen:getsf:{
if ($sockerr > 0) { echo -at $sockname $+ : $1- }
sockwrite -n $sockname GET /sfpost.php HTTP/1.0
sockwrite -n $sockname Host: www.soulfly-irc.com
sockwrite -n $sockname $crlf
}
on *:sockread:getsf: {
if ($sockerr) { sockclose $sockname | halt }
var %sf | sockread %sf
if (*SoulFly Latest Posts* iswm %sf) {
tokenize 165 %sf
if ($4 != %Topic.SF) && (ERROR--CAN'T CONNECT TO SERVER !isin $2-) && ($2 != $null) {
$turl(SoulFly,sfnews,$striphtml($2),$striphtml($4),$3)
set %Topic.SF $4
}
sockclose getsf
}
}
; TG007 =======================================================================================
alias newsck { if ($status != connected) { halt } | sockclose tgnews | sockopen tgnews www.tg007.net 80 }
on *:sockopen:tgnews:{
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /scriptsocket/tgposts.php HTTP/1.0
sockwrite -n $sockname Host: www.tg007.net $+ $crlf $+ $crlf
}
on *:sockread:tgnews: {
if ($sockerr) { echo -a Error. | halt }
var %newsl | sockread %newsl
if (*TG Latest Posts* iswm %newsl) {
tokenize 165 %newsl
if ($3 != %Topic.TGNEWS) && (ERROR--CAN'T CONNECT TO SERVER !isin $2-) && ($2 != $null) {
if ($regex($3,/showtopic=(.*?)&(.*?)/)) { set %tgnewsid $regml(1) }
var %c 1
while ($chan(%c)) {
if (%FEED.tgnews. [ $+ [ $chan(%c) ] ] == on) && (($me isop $chan(%c)) || ($me ishop $chan(%c))) {
msg $chan(%c) Tg007 Topic Update: $striphtml($2) $striphtml($4) - http://www.tg007.net/post/ $+ %tgnewsid
}
inc %c
}
set %Topic.TGNEWS $3
unset %tgnewsid
}
sockclose tgnews
}
}
|
|
|
| Back to top |
|
 |
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Wed Feb 29, 2012 10:34 pm Post subject: |
|
|
Your first post and you already broke the rules. mIRC script ported over to tcl + eggdrop extensions? Yeah, this isn't as straight forward as you would think. mIRC is non-standard, uses weird $+ and [ ] to adjust focus and supress spacing. It's just not like you would think... this post may simply wind up junked. who knows?!
But...
There is hope. But this will at the moment work for JUST one of your sites...
| Code: | # Puh Rum Pum Pum Pum
# This script will announce news just like an rss script
# as well as allowing users to type commands and see
# the latest news via notice as well. Fully configurable.
# Enjoy, and may the force be with you.... always....
# speechles was here :P
package require http
setudef flag nopubnews
namespace eval news {
# config - make your changes here
# trigger character
set ary(pref) "!"
# command used to reply to user
# this can be a list of space delimited commands
set ary(commands) "news"
# amount user can issue before throttle
set ary(throttle) 2
# throttle time
set ary(throttle_time) 30
# time to announce new news items
# this can be a list of space delimited time binds.
# the one you wish to use for bind_time uncommented.
# set ary(bind_time) "00* 15* 30* 45*" ; # every 15 minutes
# set ary(bind_time) "00* 30*" ; # every 30 minutes
set ary(bind_time) "*" ; # every 60 minutes at exactly the start of the hour
# url to news page
set ary(page) http://www.casafree.com/modules/news/
# parsing regex used to gather news
set ary(regex) {<entry .*?="(.*?)">.*?<title .*?>(.*?)</title>.*?<summary .*?>(.*?)<p}
# max amount of news items to announce
set ary(max_bot) 5
# max amount of news items for users
set ary(max_user) 5
# display format for news messages, variables are: %description, %title, %url
# these can be used and will be replaced with actual values, newline (\n) will
# let you span multiple lines if you wish. If something is too long it will
# be cut off, be aware of this... use colors, bold, but remember to \escape any
# special tcl characters.
set ary(display_format) "\[\002%title\002\] %url\n%description"
# script version
set ary(version) "2.2"
}
# binds
foreach bind [split $::news::ary(commands)] {
bind pub -|- "$::news::ary(pref)$bind" ::news::pub_
bind msg -|- "$::news::ary(pref)$bind" ::news::msg_
}
foreach bind [split $::news::ary(bind_time)] {
bind time - $bind ::news::magic_
}
bind time - ?0* ::news::throttleclean_
namespace eval news {
# main - time bind - magic
proc magic_ {args} {
news_ $::botnick [getchanhost $::botnick] $::botnick "all" "magic"
}
# main - msg bind - notice
proc msg_ {nick uhost hand arg} {
news_ $nick $uhost $hand $nick "notice"
}
# main - pub bind - privmsg
proc pub_ {nick uhost hand chan arg} {
if {[channel get $chan nopubnews]} { return }
news_ $nick $uhost $hand $chan "privmsg"
}
# sub - give news
proc news_ {nick uhost hand chan arg} {
if {![isbotnick $nick] && [throttle_ $uhost,$chan,news $::news::ary(throttle_time)]} {
putserv "$arg $chan :$nick, you have been Throttled! Your going too fast and making my head spin!"
}
set a "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"
set t [::http::config -useragent $a]
catch { set t [::http::geturl $::news::ary(page) -timeout 30000] } error
# error condition 1, socket error or other general error
if {![string match -nocase "::http::*" $error] && ![isbotnick $nick]} {
putserv "$arg $chan :[string totitle [string map {"\n" " | "} $error]] \( $::news::ary(page) \)"
return
}
# error condition 2, http error
if {![string equal -nocase [::http::status $t] "ok"] && ![isbotnick $nick]} {
putserv "$arg $chan :[string totitle [::http::status $t]] \( $::news::ary(page) \)"
return
}
set html [::http::data $t]
::http::cleanup $t
set casafreenews [regexp -all -inline "$::news::ary(regex)" $html]
set c 0
foreach {junk id url title description} $casafreenews {
incr c
if {[isbotnick $nick]} {
if {$c > $::news::ary(max_bot)} { break }
if {[info exists ::news::ary(last)]} { if {$id <= $::news::ary(last)} { break } }
} elseif {$c > $::news::ary(max_user)} { break }
regsub -all -- {<.*?>} $description - description
set output [string map [list "%title" "[mapit_ $title]" "%description" "[mapit_ $description]]" "%url" "$url"] $::news::ary(display_format)]
if {![string equal "magic" $arg]} {
foreach line [split $output "\n"] { puthelp "$arg $chan :$line" }
} else {
foreach ch [channels] {
if {[channel get $ch nopubnews]} { continue }
foreach line [split $output "\n"] { puthelp "privmsg $ch :$line" }
}
}
}
if {[string equal "magic" $arg]} { set ::news::ary(last) [lindex $casafreenews 1] }
}
# sub - map it
proc mapit_ {t} { return [string map [list "'" "'" """ "\""] $t] }
# Throttle Proc (slightly altered, super action missles) - Thanks to user
# see this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3
proc throttle_ {id seconds} {
if {[info exists ::news::throttle($id)]&&[lindex $::news::throttle($id) 0]>[clock seconds]} {
set ::news::throttle($id) [list [lindex $::news::throttle($id) 0] [set value [expr {[lindex $::news::throttle($id) 1] +1}]]]
if {$value > $::news::ary(throttle)} { set id 1 } { set id 0 }
} {
set ::news::throttle($id) [list [expr {[clock seconds]+$seconds}] 1]
set id 0
}
}
# sub - clean throttled users
proc throttleclean_ {args} {
set now [clock seconds]
foreach {id time} [array get ::news::throttle] {
if {[lindex $time 0]<=$now} {unset ::news::throttle($id)}
}
}
}
putlog "news and announce.tcl v$::news::ary(version) loaded." |
This is a script from an earlier post, included in full as all this would need to fulfill you goal would be the ability to handle _multiple_ feeds instead of just it's one. That addition would be quite trivial. As you mIRC script is regex parsing based, so is "puh rum" so hopefully you understand what to change and perhaps someone will give you an idea how to go about adding multiple sites to it .....  (to be continued...)
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
Trixar_za
Op
Joined: 18 Nov 2009
Posts: 143
Location: South Africa
|
|
| 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
