egghelp/eggheads community

sugestion

2003-12-27T14:41:05-04:00

My interest in this is have all possible links I've clicked till now in my database cos I don't want to use anymore the channel bot cos is usualy lagged and when I try to click some links it dosen't tell me corectly what links should I click cos sometemes it quits with excess flood .. so, that's why I want to make a personal database Now I should think of an way to add the result of the clicked links in to the database..

Statistics: Posted by caesar — Sat Dec 27, 2003 2:41 pm

sugestion

2003-12-27T12:15:26-04:00

you could add a cleanup...
it could check for the time difference -> delete the line
else you dbase will become quite large by the time, thats not nescessary since only the latest 24h links seam to be of interrest

Statistics: Posted by GodOfSuicide — Sat Dec 27, 2003 12:15 pm

sugestion

2003-12-27T10:55:11-04:00

Here is the finished *click* code:

Code:

bind pub f .click my:clickproc my:click {nick uhost hand chan text} {  set list [split [read [set f [open "koc.db" r]]][close $f] \n]   set i 0  foreach bla $list {    if {[llength $bla] < 2} {      continue    }     if {[expr [unixtime] - [lindex $bla 1]] >= 86400} {      putserv "PRIVMSG $chan :[lindex $bla 0]"      incr i    }   }  if {$i} {     putserv "PRIVMSG $chan :Search complete.. Found \002$i\002 result[expr {$i==1?"":"s"}].."     } {     putserv "PRIVMSG $chan :Sorry, no links have been found to be clicked. Try again later."  }}

Any sugestions are welcomed.

Statistics: Posted by caesar — Sat Dec 27, 2003 10:55 am

sugestion

2003-12-27T09:06:37-04:00

exactly

Statistics: Posted by Papillon — Sat Dec 27, 2003 9:06 am

sugestion

2003-12-27T07:08:27-04:00

add something like this to check for blank lines

as i said, check for them or just don't put them in there the first way

Statistics: Posted by GodOfSuicide — Sat Dec 27, 2003 7:08 am

sugestion

2003-12-27T05:51:36-04:00

if I remember correctly opening in "a" mode, it will automatically always set the accesspoint of that file to the end of the file, thus adding a blank line at the end
and no, your proc doesn't have any way of checking if a line is blank

Code:

if {[llength $bla] < 2} {continue}

add something like this to check for blank lines

Statistics: Posted by Papillon — Sat Dec 27, 2003 5:51 am

sugestion

2003-12-27T04:18:53-04:00

The link is added "normaly" in the file like:

Code:

set f [open "koc.db" a]puts $f "[lindex [split $text] 0] [unixtime]" close $f

Yes I know, that proc just reads from that file and it's suposed to not read the blank ones but it dose..

Statistics: Posted by caesar — Sat Dec 27, 2003 4:18 am

sugestion

2003-12-26T17:32:01-04:00

Heh.. I was hungry and I've eat an letter..

i'd rather delete it for poor subject line but ok...

Edit: Now an "open" problem. Seems that it adds an blank line after adding the link in the file

that proc doesnt add anything to the file, it's just reading from it.
if you have got blank lines just check for them..like "are there 2 words ?" "is the line != \n ?" etc (i'm sorry i cannot provide more help cos i dont see the real problem)

As you can see I've folowed your advice GodOfSuicide, cos yours at another close look seems a lot easier that what I had in mind.

you're welcome

Statistics: Posted by GodOfSuicide — Fri Dec 26, 2003 5:32 pm

sugestion

2003-12-26T16:24:50-04:00

Heh.. I was hungry and I've eat an letter..

Edit: Now an "open" problem. Seems that it adds an blank line after adding the link in the file, and again cos of that the "premature end of expression" pops-out his ugly face .. so, any suggestions on how should I get ridd of the blank line?

Code:

proc my:click {nick uhost hand chan text} {  set list [split [read [set f [open "koc.db" r]]][close $f] \n]   foreach bla $list {     if {[expr [unixtime] - [lindex $bla 1]] >= 86400} {      putserv "PRIVMSG $chan :[lindex $bla 0]"    }   }}

As you can see I've folowed your advice GodOfSuicide, cos yours at another close look seems a lot easier that what I had in mind.

Statistics: Posted by caesar — Fri Dec 26, 2003 4:24 pm

sugestion

2003-12-26T16:10:33-04:00

"sugestion"? I think this post might have to be deleted

yeah, it has to be "suggestion"

Statistics: Posted by arcane — Fri Dec 26, 2003 4:10 pm

sugestion

2003-12-26T15:29:47-04:00

"sugestion"? I think this post might have to be deleted ;)

Statistics: Posted by stdragon — Fri Dec 26, 2003 3:29 pm

sugestion

2003-12-26T14:14:48-04:00

hehe

let's have a look at it when it's finished, ok ?

Statistics: Posted by GodOfSuicide — Fri Dec 26, 2003 2:14 pm

sugestion

2003-12-26T11:18:29-04:00

GodOfSuicide : Well.. calculating the duration betwen them or doing what you've said seems to me to be the same thing, at least for me dose, and mine looks a lot easier.

Damn.. /me slaps itself.. I wonder how the heck did I forgot to add the [unixtime] thing there.. umm.. *problem* fixed.

Statistics: Posted by caesar — Fri Dec 26, 2003 11:18 am

sugestion

2003-12-26T07:58:26-04:00

Umm.. like comparing if the unixtime from the link is let's say 34 years 1 day 22 hours 6 minutes 59 seconds and my current unixtime is 34 years 2 days 22 hours 6 minutes 59 then it should be working fine, I guess.

did you listen ? I said NOT to use duration...
take the current [unixtime] (NOT DURATION), substract the old one from it

that looks some kinda like this:
current time - old time = x
1072443286 - 1072443256 = 30

if x >= 86400 -> older than 24h
(correct me if the value is wrong, thats 60 * 60 * 24)

Statistics: Posted by GodOfSuicide — Fri Dec 26, 2003 7:58 am

sugestion

2003-12-26T07:33:14-04:00

that error means that there is no 2nd element in your list
are you sure $bla is a list?
do a check on what the $list/$bla contains

Statistics: Posted by Papillon — Fri Dec 26, 2003 7:33 am