egghelp/eggheads community

capture all websites posted in channel

2010-01-29T16:15:34-04:00

Hi.

Don't work with: www.

Statistics: Posted by Nor7on — Fri Jan 29, 2010 4:15 pm

capture all websites posted in channel

2010-01-29T16:23:11-04:00

bind pubm - * url_pubm
bind pub -|- !web url_pub

set urllogfilename "urllog.data"

proc url_pubm {nick host handle channel text} {
global urllogfilename

foreach word [split $text] {
if {[string length $word] >= 5 && ([regexp {^(f|ht)tp(s|)://} $word] || [regexp "www." $word]) && ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {

set day [clock format [clock sec] -format %D]
regsub -all {/} $day "" day

if {[url_existstitle "$word"] eq "1"} {
putlog "$word already exists in $urllogfilename"
return 0
} else {
set file [open $urllogfilename a]
puts $file "$day - $word - $nick - $host"
close $file
}

}
}
}

proc url_pub {nick host handle channel text} {
global urllogfilename

if {[file exists $urllogfilename] && [file readable $urllogfilename]} {

set fp [open $urllogfilename r]
set data [read $fp]
close $fp

foreach line [split $data \n] {
if {$text == ""} {
set text [clock format [clock sec] -format %D]
regsub -all {/} $text "" text
}

if {[lindex [split $line] 0] == $text} {
putserv "PRIVMSG $nick :$line"
}
}
}
}

proc url_existstitle {query} {
global urllogfilename

set file [open $urllogfilename r]
set data [read $file]
close $file
foreach line [split $data \n] {
if {![string match -nocase "*$query*" "*$line*"]} {
continue
}
if {[string match -nocase "*$query*" "*$line*"]} {
catch {unset data}
return 1
}
}
catch {unset data}
return 0
}

Statistics: Posted by tueb — Fri Jan 29, 2010 4:07 pm

capture all websites posted in channel

2010-01-29T10:19:33-04:00

Code:

 [14:18] Tcl error [url_pubm]: expected boolean value but got "[regexp {^(f|ht)tp(s|)://} $word] || [regexp {^www"<\Nor7on> .set errorInfo Currently: expected boolean value but got "[regexp {^(f|ht)tp(s|)://} $word] || [regexp {^www" Currently:     while executing Currently: "if {[string length $word] >= 5 && {[regexp {^(f|ht)tp(s|)://} $word] || [regexp {^www//} $word]}&& ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $wor..." Currently:     (procedure "url_pubm" line 5) Currently:     invoked from within Currently: "url_pubm $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Statistics: Posted by Nor7on — Fri Jan 29, 2010 10:19 am

capture all websites posted in channel

2010-01-28T18:56:10-04:00

right, thx

Statistics: Posted by tueb — Thu Jan 28, 2010 6:56 pm

capture all websites posted in channel

2010-01-28T16:05:24-04:00

You need to check if url already exists in file.

Code:

bind pubm - * url_pubmbind pub -|- !web url_pubset urllogfilename "urllog.data"proc url_pubm {nick host handle channel text} {global urllogfilename  foreach word [split $text] {    if {[string length $word] >= 5 && {[regexp {^(f|ht)tp(s|)://} $word] || [regexp {^www//} $word]}&& ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {      set day [clock format [clock sec] -format %D]      regsub -all {/} $day "" day    if {[url_existstitle "$word"] eq "1"} {        putlog "$word already exists in $urllogfilename"        return 0    } else {      set file [open $urllogfilename a]      puts $file "$day - $word - $nick - $host"      close $file    }    }  }}proc url_pub {nick host handle channel text} {global urllogfilename  if {[file exists $urllogfilename]&& [file readable $urllogfilename]} {    set fp [open $urllogfilename r]    set data [read $fp]    close $fp    foreach line [split $data \n] {      if {$text == ""} {      set text [clock format [clock sec] -format %D]      regsub -all {/} $text "" text    }    if {[lindex [split $line] 0] == $text} {        putserv "PRIVMSG $nick :$line"    }    }  }}    proc url_existstitle {query} {global urllogfilename    set file [open $urllogfilename r]    set data [read $file]    close $file        foreach line [split $data \n] {        if {![string match -nocase "*$query*" "*$line*"]} {            continue        }        if {[string match -nocase "*$query*" "*$line*"]} {            catch {unset data}            return 1        }    }    catch {unset data}    return 0    }

Statistics: Posted by username — Thu Jan 28, 2010 4:05 pm

capture all websites posted in channel

2010-01-28T13:53:50-04:00

I hope this works:

Code:

bind pubm - * url_pubmbind pub -|- !web url_pubset urllogfilename "urllog.data"proc url_pubm {nick host handle channel text} {global urllogfilename  foreach word [split $text] {    if {[string length $word] >= 5 && {[regexp {^(f|ht)tp(s|)://} $word] || [regexp {^www//} $word]}&& ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {      set day [clock format [clock sec] -format %D]      regsub -all {/} $day "" day      set file [open $urllogfilename a]      puts $file "$day - $word - $nick - $host"      close $file    }  }}proc url_pub {nick host handle channel text} {global urllogfilename  if {[file exists $urllogfilename]&& [file readable $urllogfilename]} {    set fp [open $urllogfilename r]    set data [read $fp]    close $fp    foreach line [split $data \n] {      if {$text == ""} {      set text [clock format [clock sec] -format %D]      regsub -all {/} $text "" text    }    if {[lindex [split $line] 0] == $text} {        putserv "PRIVMSG $nick :$line"    }    }  }}

Im not sure if it will still work if you remove the two lines saying "#regsub -all {/} $day "" day". this qould make the date format more readable.

greetings,

tueb

Statistics: Posted by tueb — Thu Jan 28, 2010 1:53 pm

capture all websites posted in channel

2010-01-26T17:03:52-04:00

Hi.

I fix something littles error's, and it work.

Code:

bind pubm - * url_pubmbind pub -|- !web url_pubset urllogfilename "urllog.data"proc url_pubm {nick host handle channel text} {global urllogfilenameforeach word [split $text] {if {[string length $word] >= 5 && [regexp {^(f|ht)tp(s|)://} $word] && ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {set day [clock format [clock sec] -format %D]regsub -all {/} $day "" dayset file [open $urllogfilename a]puts $file "$day $word"close $file}}}proc url_pub {nick host handle channel text} {global urllogfilenameif {[file exists $urllogfilename]&& [file readable $urllogfilename]} {set fp [open $urllogfilename r]set data [read $fp]close $fpforeach line [split $data \n] {if {$text == ""} {set text [clock format [clock sec] -format %D]regsub -all {/} $text "" text}if {[lindex [split $line] 0] == $text} {putserv "PRIVMSG $nick :$line"}}}}

Code:

 01262010 http://www.youtube.com/watch?v=iyGBBIKS4f8

Maybe can add the nick who posted the website?
Date - Url - Nick - Ident@host.

Ex:
01262010 - http://www.youtube.com/watch?v=iyGBBIKS4f8 - Nickname - ( nickname!ident@host )

And add for work too with "www."

Thanks tueb.

Statistics: Posted by Nor7on — Tue Jan 26, 2010 5:03 pm

capture all websites posted in channel

2010-01-26T16:36:54-04:00

hi, i haven't tested it yet, so theres probably at least one typo in it. let me know if you have problems with it.

commands:

!web
and
!web 01252010 to get yesterdays urls. (please tell me a better command for this ;-)

bind pubm - * url_pubm
bind pub -|- !web url_pub

set urllogfilename "urllog.data"

proc url_pubm {nick host handle channel text} {
global urllogfilename

foreach word [split $text] {
if {[string length $word] >= 5 && [regexp {^(f|ht)tp(s|)://} $word] && ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {

set day [clock format [clock sec] -format %D]
regsub -all {/} $day "" day

set file [open $urllogfilename a]
puts $file "$day $word"
close $file
}
}

proc url_pub {nick host handle channel text} {
global urllogfilename

if {[file exists $urllogfilename]&& [file readable $urllogfilename]} {

set fp [open $urllogfilename r]
set data [read $fp]
close $fp

foreach line [split $data \n] {
if {$text == ""} {
set text [clock format [clock sec] -format %D]
regsub -all {/} $text "" text
}

if {[lindex [split $line] 0] == $text} {
putserv "PRIVMSG $channel :line"
}
}
}
}

ps: posting killed my formatting o.o

Statistics: Posted by tueb — Tue Jan 26, 2010 4:36 pm

capture all websites posted in channel

2010-01-24T17:42:46-04:00

Hi

Can make someone a script for my eggdrop catch all website posted in the channel and save it in a file.

And when someone put: !webs the eggdrop giveme a list with all website's captured in all day.
maybe can have a option for read the websites captured of other days ago.

thanks.

Statistics: Posted by Nor7on — Sun Jan 24, 2010 5:42 pm