egghelp/eggheads community

urltitle grabber

2021-03-03T12:35:59-04:00

In my VPS Debian 10 it works very fine

tested with eggdrop 1.8.4 and 1.9.0-rc3

Statistics: Posted by Carlin0 — Wed Mar 03, 2021 12:35 pm

urltitle grabber

2021-03-03T12:22:42-04:00

this works best

http://tclarchive.org/search.php?str=ur ... =0&sub.y=0

hello,

not for me.
error msg
Tcl error [::urlmagic::find_urls]: can't read "settings(content-length)": no such element in array

After .set errorInfo

Code:

Currently: can't read "settings(content-length)": no such element in arrayCurrently:     while executingCurrently: "set content_length $settings(content-length)"Currently:     (procedure "::urlmagic::get_title" line 12)Currently:     invoked from withinCurrently: "${ns}::get_title $url"Currently:     (procedure "::urlmagic::find_urls" line 16)Currently:     invoked from withinCurrently: "::urlmagic::find_urls $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Statistics: Posted by m4s — Wed Mar 03, 2021 12:22 pm

urltitle grabber

2021-03-03T11:34:14-04:00

this works best

http://tclarchive.org/search.php?str=ur ... =0&sub.y=0

Statistics: Posted by Carlin0 — Wed Mar 03, 2021 11:34 am

urltitle grabber

2021-03-02T14:57:26-04:00

I changed this line:

Code:

::http::register https 443 ::tls::socket

Code:

http::register https 443 [list ::tls::socket -autoservername true]

and the "can't read "http": no such variable" msg disappeared but I got a result with strange characters in the title: https://i.imgur.com/e9cOqzI.jpg

Any idea to avoid this?

Statistics: Posted by m4s — Tue Mar 02, 2021 2:57 pm

.set errorInfo

2021-02-28T10:57:19-04:00

After .set errorInfo I got

Code:

Currently: can't read "http": no such variableCurrently:     while executingCurrently: "::http::status $http"Currently:     (procedure "urltitle" line 11)Currently:     invoked from withinCurrently: "urltitle $word"Currently:     (procedure "pubm:urltitle" line 7)Currently:     invoked from withinCurrently: "pubm:urltitle $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Statistics: Posted by m4s — Sun Feb 28, 2021 10:57 am

urltitle grabber

2021-02-28T10:17:25-04:00

I can Confirm, it works

Code:

 http://forum.egghelp.org/viewtopic.php?p=109443#109443 ComputerTech: URL Title for http://forum.egghelp.org/viewtopic.php?p=109443#109443 - egghelp.org community :: View topic - urltitle grabber

However yes for your url https://www.politico.eu/article/trapped ... nightmare/

i get

Code:

 [14:18:42] Tcl error [pubm:urltitle]: can't read "http": no such variable

Perhaps due to ssl issue of the site, because

Code:

 https://www.google.co.uk/ ComputerTech: URL Title for https://www.google.co.uk/ - Google https://www.anope.org/ ComputerTech: URL Title for https://www.anope.org/ - Anope IRC Services

other https url's work

Statistics: Posted by ComputerTech — Sun Feb 28, 2021 10:17 am

urltitle grabber

2021-02-28T10:06:38-04:00

m4s, you sure you have loaded the http.tcl package?

if not

https://core.tcl-lang.org/tcllib/dir?ci ... me=modules

I've been using m00nie youtube script for a long time which also requires http package.
It works.

Statistics: Posted by m4s — Sun Feb 28, 2021 10:06 am

urltitle grabber

2021-02-28T10:15:15-04:00

Just tested it again, works

m4s, you sure you have loaded the http.tcl package?

if not

https://core.tcl-lang.org/tcllib/dir?ci ... me=modules

Statistics: Posted by ComputerTech — Sun Feb 28, 2021 9:55 am

Error

2021-02-28T10:03:15-04:00

Hello,

I got this error msg in DCC:

Tcl error [pubm:urltitle]: can't read "http": no such variable

The website I used:
https://www.politico.eu/article/trapped ... nightmare/

Can you pls check this script again?

Statistics: Posted by m4s — Sun Feb 28, 2021 9:38 am

urltitle grabber

2021-01-25T15:33:30-04:00

Tested it CrazyCat, Works Perfect with both http and https

Statistics: Posted by ComputerTech — Mon Jan 25, 2021 3:33 pm

Re: urltitle grabber

2021-01-25T08:49:32-04:00

Use the code button next time, please.

The tcl doesn't use tls, here is a small modification (not tested)

Code:

# Script to grab titles from webpages - Copyright C.Leonhardt (rosc2112 at yahoo com) Aug.11.2007 # http://members.dandy.net/~fbn/urltitle.tcl.txt# Loosely based on the tinyurl script by Jer and other bits and pieces of my own..################################################################################################################# Usage: # 1) Set the configs below# 2) .chanset #channelname +urltitle        ;# enable script# 3) .chanset #channelname +logurltitle     ;# enable logging# Then just input a url in channel and the script will retrieve the title from the corresponding page.# When reporting bugs, PLEASE include the .set errorInfo debug info! # Read here: http://forum.egghelp.org/viewtopic.php?t=10215################################################################################################################# Configs:set urltitle(ignore) "bdkqr|dkqr" ;# User flags script will ignore input fromset urltitle(pubmflags) "-|-" ;# user flags required for channel eggdrop useset urltitle(length) 5 ;# minimum url length to trigger channel eggdrop useset urltitle(delay) 1 ;# minimum seconds to wait before another eggdrop useset urltitle(timeout) 60000 ;# geturl timeout (1/1000ths of a second)################################################################################################################# Script begins:package require http;# You need the http package..package require tlsset urltitle(last) 111 ;# Internal variable, stores time of last eggdrop use, don't change..setudef flag urltitle;# Channel flag to enable script.setudef flag logurltitle;# Channel flag to enable logging of script.set urltitlever "0.01a"bind pubm $urltitle(pubmflags) {*://*} pubm:urltitleproc pubm:urltitle {nick host user chan text} {global urltitleif {([channel get $chan urltitle]) && ([expr [unixtime] - $urltitle(delay)] > $urltitle(last)) && \(![matchattr $user $urltitle(ignore)])} {foreach word [split $text] {if {[string length $word] >= $urltitle(length) && \[regexp {^(f|ht)tp(s|)://} $word] && \![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {set urltitle(last) [unixtime]set urtitle [urltitle $word]if {[string length $urtitle]} {puthelp "PRIVMSG $chan :$nick: URL Title for $word - \002$urtitle\002"}break}}        }if {[channel get $chan logurltitle]} {foreach word [split $text] {if {[string match "*://*" $word]} {putlog "<$nick:$chan> $word -> $urtitle"}}}# change to return 0 if you want the pubm trigger logged additionally..return 1}proc urltitle {url} {if {[info exists url] && [string length $url]} {if {[string match "https://*" $url]} {::http::register https 443 ::tls::socketset secure 1}catch {set http [::http::geturl $url -timeout $::urltitle(timeout)]} errorif {[string match -nocase "*couldn't open socket*" $error]} {return "Error: couldn't connect..Try again later"}if { [::http::status $http] == "timeout" } {return "Error: connection timed out while trying to contact $url"}set data [split [::http::data $http] \n]::http::cleanup $httpset title ""if {[regexp -nocase {(.*?)} $data match title]} {return [string map { {href=} "" \" "" } $title]} else {return "No title found."}if {[info exists secure]} {::http::unregister httpsunset secure}}}putlog "Url Title Grabber $urltitlever (rosc) script loaded.."

Statistics: Posted by CrazyCat — Mon Jan 25, 2021 8:49 am

urltitle grabber

2021-01-25T05:58:23-04:00

Code:

# Script to grab titles from webpages - Copyright C.Leonhardt (rosc2112 at yahoo com) Aug.11.2007 # http://members.dandy.net/~fbn/urltitle.tcl.txt# Loosely based on the tinyurl script by Jer and other bits and pieces of my own..################################################################################################################# Usage: # 1) Set the configs below# 2) .chanset #channelname +urltitle        ;# enable script# 3) .chanset #channelname +logurltitle     ;# enable logging# Then just input a url in channel and the script will retrieve the title from the corresponding page.# When reporting bugs, PLEASE include the .set errorInfo debug info! # Read here: http://forum.egghelp.org/viewtopic.php?t=10215################################################################################################################# Configs:set urltitle(ignore) "bdkqr|dkqr" ;# User flags script will ignore input fromset urltitle(pubmflags) "-|-" ;# user flags required for channel eggdrop useset urltitle(length) 5 ;# minimum url length to trigger channel eggdrop useset urltitle(delay) 1 ;# minimum seconds to wait before another eggdrop useset urltitle(timeout) 60000 ;# geturl timeout (1/1000ths of a second)################################################################################################################# Script begins:package require http;# You need the http package..set urltitle(last) 111 ;# Internal variable, stores time of last eggdrop use, don't change..setudef flag urltitle;# Channel flag to enable script.setudef flag logurltitle;# Channel flag to enable logging of script.set urltitlever "0.01a"bind pubm $urltitle(pubmflags) {*://*} pubm:urltitleproc pubm:urltitle {nick host user chan text} {global urltitleif {([channel get $chan urltitle]) && ([expr [unixtime] - $urltitle(delay)] > $urltitle(last)) && \(![matchattr $user $urltitle(ignore)])} {foreach word [split $text] {if {[string length $word] >= $urltitle(length) && \[regexp {^(f|ht)tp(s|)://} $word] && \![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {set urltitle(last) [unixtime]set urtitle [urltitle $word]if {[string length $urtitle]} {puthelp "PRIVMSG $chan :$nick: URL Title for $word - \002$urtitle\002"}break}}        }if {[channel get $chan logurltitle]} {foreach word [split $text] {if {[string match "*://*" $word]} {putlog "<$nick:$chan> $word -> $urtitle"}}}# change to return 0 if you want the pubm trigger logged additionally..return 1}proc urltitle {url} {if {[info exists url] && [string length $url]} {catch {set http [::http::geturl $url -timeout $::urltitle(timeout)]} errorif {[string match -nocase "*couldn't open socket*" $error]} {return "Error: couldn't connect..Try again later"}if { [::http::status $http] == "timeout" } {return "Error: connection timed out while trying to contact $url"}set data [split [::http::data $http] \n]::http::cleanup $httpset title ""if {[regexp -nocase {(.*?)} $data match title]} {return [string map { {href=} "" \" "" } $title]} else {return "No title found."}}}putlog "Url Title Grabber $urltitlever (rosc) script loaded.."

Using up above tcl for urltitle grabber, But It works only when posts with HTTP , If Post come with HTTPS it doesn't Reply at all.

Statistics: Posted by Goga — Mon Jan 25, 2021 5:58 am