Statistics: Posted by sky6419 — Fri Oct 27, 2023 3:32 pm
Statistics: Posted by aut — Fri Oct 27, 2023 11:16 am
Statistics: Posted by aut — Fri Oct 27, 2023 11:12 am
Statistics: Posted by simo — Fri Oct 27, 2023 10:30 am
Statistics: Posted by CrazyCat — Fri Oct 27, 2023 6:57 am
Statistics: Posted by aut — Fri Oct 27, 2023 5:50 am
Statistics: Posted by sky6419 — Thu Oct 26, 2023 2:11 pm
Statistics: Posted by CrazyCat — Thu Oct 26, 2023 9:56 am
Code:
################################################################################################ ## rssreader.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ################################################################################################## .rss in the party line for commands and syntax. Example Feed Add Below: ####.rss add #Hawkee hawkee Hawkee http://www.hawkee.com/comment.rss.php?tool_type=snippet_id ################################################################################################## ____ __ ########################################### #### / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### #### / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### #### /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### #### /___/ /___/ /_/ ########################################### #### ########################################### ################################################################################################## ## Start Setup. ## ################################################################################################namespace eval rssreader {## Edit textf to change the color/state of the text shown ## ## variable textf "\017\00304"## Edit linkf to change the color/state of the links ## ## variable linkf "\017\037"## Change usetiny to shorten links with tinyurl. 1 = on , 0 = off ## ## variable usetiny 1## Change useisgd to shorten links with is.gd. 1 = on , 0 = off ## ## variable useisgd 0## Edit maxresults to the amount of results you want per query. This will not cause ## #### You to lose results. It will only spread them out over several querys. ## ## variable maxresults 2## Edit checkdelay to change the frequency feed pages are checked. Delay is in minutes. ## ## variable checkdelay 3## Edit startupdelay to add delay to startup/restart. Delay is in minutes. ## ## variable startupdelay 2################################################################################################ ## End Setup. ## ################################################################################################ bind dcc - rss rssreader::settings bind evnt -|- init-server rssreader::loadhash bind evnt -|- prerehash rssreader::loadhash proc settings {hand idx text} { set choice [lindex $text 0]; set channel [lindex $text 1] set name [lindex $text 2]; set logo [lindex $text 3] set link [lindex $text 4] if {[string equal -nocase "add" $choice] && $link != ""} { set deleteinfo [string map {\[ ? \] ?} [hget "rssreader" $name]] if {[set indx [lsearch -glob [timers] "*$deleteinfo*"]] != -1 && $deleteinfo != "0"} { killtimer [lindex [lindex [timers] $indx] 2] } hadd "rssreader" "$name" "rssreader::main {$channel $logo $link}" savehash putdcc $idx "Added feed $name to $channel as $logo $link" rssreader::main "$channel $logo $link" } elseif {[string equal -nocase "addxml" $choice] && $link != ""} { set deleteinfo [string map {\[ ? \] ?} [hget "rssreader" $name]] if {[set indx [lsearch -glob [timers] "*$deleteinfo*"]] != -1 && $deleteinfo != "0"} { killtimer [lindex [lindex [timers] $indx] 2] } hadd "rssreader" "$name" "rssreader::type2 {$channel $logo $link}" savehash putdcc $idx "Added feed $name to $channel as $logo $link" rssreader::type2 "$channel $logo $link" } elseif {[string equal -nocase "addssl" $choice] && $link != ""} { set deleteinfo [string map {\[ ? \] ?} [hget "rssreader" $name]] if {[set indx [lsearch -glob [timers] "*$deleteinfo*"]] != -1 && $deleteinfo != "0"} { killtimer [lindex [lindex [timers] $indx] 2] } hadd "rssreader" "$name" "rssreader::type3 {$channel $logo $link}" savehash putdcc $idx "Added feed $name to $channel as $logo $link" rssreader::type3 "$channel $logo $link" } elseif {[string equal -nocase "list" $choice]} { putdcc $idx "\[RSS list\]" set count [hfind "rssreader" "*" 0]; set counter 1 while {$count >= $counter} { putdcc $idx "[hfind "rssreader" "*" $counter]" incr counter } } elseif {[string equal -nocase "info" $choice] && $channel != ""} { putdcc $idx "[hget "rssreader" $channel]" } elseif {[string equal -nocase "delete" $choice] && $channel != ""} { set deleteinfo [string map {\[ ? \] ?} [hget "rssreader" $channel]] hdel "rssreader" $channel savehash if {[set indx [lsearch -glob [timers] "*$deleteinfo*"]] != -1 && $deleteinfo != "0"} { killtimer [lindex [lindex [timers] $indx] 2] putdcc $idx "Removed $channel from RSS" } else { putdcc $idx "$channel not found" } } elseif {[string equal -nocase "timers" $choice]} { putdcc $idx [timers] } elseif {[string equal -nocase "rehash" $choice]} { putdcc $idx "rehashing rss...." hfree rsstempold hfree rsstempnew putdcc $idx "done" } else { putdcc $idx "\[RSS Syntax\]" putdcc $idx "Add Feed: .rss add <#chan1,#chan2,#chanetc> <name> <logo> <link>" putdcc $idx "Add Xml Feed: .rss addxml <#chan1,#chan2,#chanetc> <name> <logo> <link>" putdcc $idx "Add SSL Feed: .rss addssl <#chan1,#chan2,#chanetc> <name> <logo> <link>" putdcc $idx "Delete Feed: .rss delete <name>" putdcc $idx "Info Feed: .rss info <name>" putdcc $idx "List Feeds: .rss list" putdcc $idx "Help Feeds: .rss" } } proc main {text} { set chan [lindex $text 0]; set logo [lindex $text 1]; set linker [lindex $text 2] set title ""; set link ""; set description ""; set maxcount 1; set json "" if {[set indx [lsearch -glob [timers] "*rssreader::main {$chan [string map {\[ ? \] ?} $logo] ${linker}}*"]] != -1} { killtimer [lindex [lindex [timers] $indx] 2] } timer $rssreader::checkdelay "rssreader::main {$chan $logo $linker}" set rssreaderurl "/ajax/services/feed/load?v=1.0&q=${linker}" set rssreadersite "ajax.googleapis.com"; set rssout "" if {[catch {set rssreadersock [socket -async $rssreadersite 80]} sockerr]} { return 0 } else { puts $rssreadersock "GET $rssreaderurl HTTP/1.0" puts $rssreadersock "Host: $rssreadersite" puts $rssreadersock "User-Agent: Opera 9.6" puts $rssreadersock "Connection: close" puts $rssreadersock "" flush $rssreadersock while {![eof $rssreadersock]} { set rssreadervar " [string map {<![CDATA[ "" ]]> "" \$ \002\$\002 \[ \( \] \)} [gets $rssreadersock]] " if {[regexp {\"responseStatus\":\s?400} $rssreadervar]} { if {[set indx [lsearch -glob [timers] "*rssreader::main {$chan $logo ${linker}}*"]] != -1} { killtimer [lindex [lindex [timers] $indx] 2] } type2 "$chan $logo $linker" close $rssreadersock return } else { regexp {\:\[(\{.*)$} $rssreadervar match rssout set rssout [regexp -all -inline {\{(.*?)\}} $rssout] if {$rssout != ""} { set count 0 foreach {match matched} $rssout { incr count set matched [regexp -all -inline {(".*?":".*?"\,)} $match] foreach {innermatch innermatched} $matched { regexp {\"(.*?)\":\".*?\"\,} $innermatch match varname regexp {\".*?\":\"(.*?)\"\,} $innermatch match value set value [string map {\$ \002\$\002 \] \002\]\002 \[ \002\[\002} $value] set $varname $value } if {[hfindexact "rsstempold" "${link}" 1] != $link} { if {$title == ""} { set title $description } set linked $link if {$rssreader::usetiny} { set linked [string trimright [tiny $link]] } if {$rssreader::useisgd} { set linked [string trimright [isgd $link]] } if {$maxcount <= $rssreader::maxresults} { putserv "PRIVMSG $chan :${logo} ${rssreader::textf}[dehex $title] ${rssreader::linkf}${linked}" incr maxcount hadd "rsstempnew" $link 1 } } } hfree rsstempold hcopy rsstempnew rsstempold rssreader::savetemphash } } } close $rssreadersock } } proc type2 {text} { set chan [lindex $text 0]; set logo [lindex $text 1]; set linker [lindex $text 2] set title ""; set link ""; set description "" if {[set indx [lsearch -glob [timers] "*rssreader::type2 {$chan [string map {\[ ? \] ?} $logo] ${linker}}*"]] != -1} { killtimer [lindex [lindex [timers] $indx] 2] } timer $rssreader::checkdelay "rssreader::type2 {$chan $logo $linker}" regexp -- {https?\:\/\/(.*?)(\/.*)$} $linker wholematch rsstype2site rsstype2url set itemfound 0 ; set maxcount 1 if {[catch {set rsstype2sock [socket -async $rsstype2site 80]} sockerr]} { return 0 } else { puts $rsstype2sock "GET $rsstype2url HTTP/1.0" puts $rsstype2sock "Host: $rsstype2site" puts $rsstype2sock "User-Agent: Opera 9.6" puts $rsstype2sock "Connection: close" puts $rsstype2sock "" flush $rsstype2sock while {![eof $rsstype2sock]} { set rsstype2var " [string map {<![CDATA[ "" ]]> "" \$ \002\$\002 \[ \( \] \)} [gets $rsstype2sock]] " if {[string match {*<item>*} $rsstype2var]} { set itemfound 1 } if {[regexp {<title>(.*?)(?:<\/title>|$)} $rsstype2var match title]} { } if {[regexp {<link>(.*?)(?:<\/link>|$)} $rsstype2var match link]} { } if {[string match {*</item>*} $rsstype2var]} { if {[hfindexact "rsstempold" "${link}" 1] != $link} { if {$itemfound} { if {$maxcount <= $rssreader::maxresults} { set linked $link if {$rssreader::usetiny} { set linked [string trimright [tiny $link]] } if {$rssreader::useisgd} { set linked [string trimright [isgd $link]] } putserv "PRIVMSG $chan :${logo} ${rssreader::textf}[dehex $title] ${rssreader::linkf}${linked}" incr maxcount hadd "rsstempnew" $link 1 } } } } } set itemfound 0 hfree rsstempold hcopy rsstempnew rsstempold rssreader::savetemphash close $rsstype2sock } } proc type3 {text} { set chan [lindex $text 0]; set logo [lindex $text 1]; set linker [lindex $text 2] set title ""; set link ""; set description "" if {[set indx [lsearch -glob [timers] "*rssreader::type3 {$chan [string map {\[ ? \] ?} $logo] ${linker}}*"]] != -1} { killtimer [lindex [lindex [timers] $indx] 2] } timer $rssreader::checkdelay "rssreader::type3 {$chan $logo $linker}" regexp -- {https?\:\/\/(.*?)(\/.*)$} $linker wholematch rsstype3site rsstype3url set itemfound 0 ; set maxcount 1 ; set count 1 ; set counter 1 ::http::register https 443 tls::socket set type3searchtoken [::http::geturl "https://${rsstype3site}${rsstype3url}"] set type3searchdata [string map {<!\[CDATA\[ \"\" \]\]> "" \$ \\\$ \[ \\\[ \] \\\]} [::http::data $type3searchtoken]] ::http::cleanup $type3searchtoken ::http::unregister https set title [regexp -all -inline {<title>(.*?)<\/title>} $type3searchdata] set link [regexp -all -inline {<link>(.*?)<\/link>} $type3searchdata] while {$counter <= [llength $title]} { set thislink [lindex ${link} $counter] if {[hfindexact "rsstempold" "${thislink}" 1] != $thislink} { if {$maxcount <= $rssreader::maxresults} { set linked $thislink if {$rssreader::usetiny} { set linked [string trimright [tiny $thislink]] } if {$rssreader::useisgd} { set linked [string trimright [isgd $thislink]] } putserv "PRIVMSG $chan :${logo} ${rssreader::textf}[dehex [lindex $title $counter]] ${rssreader::linkf}${linked}" hadd "rsstempnew" $thislink 1 incr maxcount 1 } incr count 2 } incr counter 2 } hfree rsstempold hcopy rsstempnew rsstempold rssreader::savetemphash } proc tiny {link} { set tinysite tinyurl.com set tinyurl /api-create.php?url=[urlencode ${link}] if {[catch {set tinysock [socket -async $tinysite 80]} sockerr]} { putlog "$tinysite $tinyurl $sockerr error" return $link } else { puts $tinysock "GET $tinyurl HTTP/1.0" puts $tinysock "Host: $tinysite" puts $tinysock "User-Agent: Opera 9.6" puts $tinysock "Connection: close" puts $tinysock "" flush $tinysock while {![eof $tinysock]} { set tinyvar " [gets $tinysock] " if {[regexp {(http:\/\/.*)} $tinyvar match tinyresult]} { close $tinysock return [string map {http:// https://} $tinyresult] } } close $tinysock return $link } } proc isgd {link} { set isgdsite is.gd set isgdurl /create.php?format=simple&url=[urlencode ${link}] if {[catch {set isgdsock [socket -async $isgdsite 80]} sockerr]} { putlog "$isgdsite $isgdurl $sockerr error" return $link } else { puts $isgdsock "GET $isgdurl HTTP/1.0" puts $isgdsock "Host: $isgdsite" puts $isgdsock "User-Agent: Opera 9.6" puts $isgdsock "Connection: close" puts $isgdsock "" flush $isgdsock while {![eof $isgdsock]} { set isgdvar " [gets $isgdsock] " if {[regexp {(http:\/\/.*)} $isgdvar match isgdresult]} { close $isgdsock return $isgdresult } } close $isgdsock return $link } } proc hex {decimal} { return [format %x $decimal] } proc decimal {hex} { return [expr 0x$hex] } proc dehex {string} { regsub -all {^\{|\}$} $string "" string set string [subst [regsub -nocase -all {\\u([a-f0-9]{4})} $string {[format %c [decimal \1]]}]] set string [subst [regsub -nocase -all {\%([a-f0-9]{2})} $string {[format %c [decimal \1]]}]] set string [subst [regsub -nocase -all {\&#([0-9]{4});} $string {[format %c \1]}]] set string [subst [regsub -nocase -all {\&#x([0-9]{2});} $string {[format %c [decimal \1]]}]] set string [string map {" \" · · & & <b> \002 </b> \002 – – » \ » « « Ü Ü ü ü Á Á á á É É é é Í Í í \ í Ó Ó ó ó Ñ Ñ ñ ñ Ú Ú ú ú æ æ " " ' \' \ \( \002\(\002 \) \002\)\002 \{ \002\{\002 \} \002\}\002} $string] return $string } proc urlencode {string} { regsub -all {^\{|\}$} $string "" string return [subst [regsub -nocase -all {([^a-z0-9\+])} $string {%[format %x [scan "\\&" %c]]}]] } proc hadd {hashname hashitem hashdata } { global $hashname set ${hashname}($hashitem) $hashdata } proc hget {hashname hashitem} { upvar #0 $hashname hgethashname if {[info exists hgethashname($hashitem)]} { return $hgethashname($hashitem) } else { return 0 } } proc hfind {hashname search value} { upvar #0 $hashname hfindhashname if {[array exists hfindhashname]} { if {$value == 0} { return [llength [array names hfindhashname $search]] } else { set value [expr $value - 1] return [lindex [array names hfindhashname $search] $value] } } } proc hfindexact {hashname search value} { upvar #0 $hashname hfindhashname if {[array exists hfindhashname]} { if {$value == 0} { return [llength [array names hfindhashname -exact $search]] } else { set value [expr $value - 1] return [lindex [array names hfindhashname -exact $search] $value] } } } proc hsave {hashname filename} { upvar #0 $hashname hsavehashname if {[array exists hsavehashname]} { set hsavefile [open $filename w] foreach {key value} [array get hsavehashname] { puts $hsavefile "${key}=${value}" } close $hsavefile } } proc hload {hashname filename} { upvar #0 $hashname hloadhashname hfree $hashname set hloadfile [open $filename] set linenum 0 while {[gets $hloadfile line] >= 0} { if {[regexp -- {([^\s]+)=(.*)$} $line wholematch item data]} { set hloadhashname($item) $data } } close $hloadfile } proc hfree {hashname} { upvar #0 $hashname hfreehashname if {[array exists hfreehashname]} { foreach key [array names hfreehashname] { unset hfreehashname($key) } } } proc hdel {hashname hashitem} { upvar #0 $hashname hdelhashname if {[info exists hdelhashname($hashitem)]} { unset hdelhashname($hashitem) } } proc hcopy {hashfrom hashto} { upvar #0 $hashfrom hashfromlocal $hashto hashtolocal array set hashtolocal [array get hashfromlocal] } proc savetemphash {} { #hsave "rsstempnew" "${::network}rsstemp.hsh" } proc savehash {} { hsave "rssreader" "${::network}rssreader.hsh" } proc loadhash {type} { if {[file exists "${::network}rssreader.hsh"]} { rssreader::hload "rssreader" "${::network}rssreader.hsh" } if {[file exists "${::network}rsstemp.hsh"]} { #rssreader::hload "rsstempnew" "${::network}rsstemp.hsh" #rssreader::hload "rsstempold" "${::network}rsstemp.hsh" } set count $rssreader::startupdelay foreach {key value} [array get ::rssreader] { if {[set indx [lsearch -glob [timers] "*$value*"]] != -1} { killtimer [lindex [lindex [timers] $indx] 2] } timer $count $value incr count } } }putlog "\002*Loaded* \017\00304\002RSS Reader\017 \002by \Ford_Lawnmower irc.GeekShed.net #Script-Help .rss for help"Statistics: Posted by sky6419 — Tue Oct 24, 2023 3:43 pm