egghelp/eggheads community

[SOLVED] Need help with file handling - thanks nml375!

2009-03-26T19:11:47-04:00

hahahaha the solution was in front of my eyes!
:DDD thanks for your help )

Code:

proc isdupe {url} {  set r 0  if {![catch {open "scripts/ignored.txt" r} rf]} {    while {![eof $rf]} {      if {[string match -nocase *${url}* [gets $rf]]} {        set r 1        break      }    }    close $rf  }  return $r}

and the ignored urls goes to the ignored.txt lol
thanks much for helping me out:)

Statistics: Posted by zerodtk — Thu Mar 26, 2009 7:11 pm

[SOLVED] Need help with file handling - thanks nml375!

2009-03-26T18:00:13-04:00

thanks, the error is now gone...
so i just need to change ${url} to what i want to be ignored?

something like

Code:

proc isdupe {url} {  set r 0  if {![catch {open "/home/zerodtk/public_html/log/index.php" r} rf]} {    while {![eof $rf]} {      if {[string match -nocase *szabadka* [gets $rf]]} {        set r 1        break      }    }    close $rf  }  return $r}

Statistics: Posted by zerodtk — Thu Mar 26, 2009 6:00 pm

[SOLVED] Need help with file handling - thanks nml375!

2009-03-26T14:16:27-04:00

the isdupe proc is missing a line stating "return $r" at the end. Also, the catch:path variable is not linked to globalspace, and is not defined, so this will cause an error (caught though).
I'd suggest something like this:

Code:

proc isdupe {url} {  set r 0  if {![catch {open "scripts/urllogger.txt" r} rf]} {    while {![eof $rf]} {      if {[string match -nocase *${url}* [gets $rf]]} {        set r 1        break      }    }    close $rf  }  return $r}

Statistics: Posted by nml375 — Thu Mar 26, 2009 2:16 pm

[SOLVED] Need help with file handling - thanks nml375!

2009-03-26T13:31:04-04:00

what about this one
came from Ofloo

Code:

proc isdupe {url} {if {![catch {open $catch:path r} rf]} {set r 0while {![eof $rf]} {if {[string match -nocase *${url}* [gets $rf]]} {set r 1break} } close $rf } }

and adding it where it catches the urls

Code:

proc catch_url_pubm {nick host hand chan arg} {  if {[regexp -nocase {(http://[^\s]+)} $arg -> url]} {if {[isdupe $url]} {return}

and the error i get is

Code:

[18:14:41] [(Angela]: [18:12] Tcl error [catch_url_pubm]: expected boolean value but got ""[18:14:44] [(Angela]: Currently: expected boolean value but got ""[18:14:44] [(Angela]: Currently: while executing[18:14:44] [(Angela]: Currently: "if {[isdupe $url]} {return}"[18:14:44] [(Angela]: Currently: (procedure "catch_url_pubm" line 3)

Statistics: Posted by zerodtk — Thu Mar 26, 2009 1:31 pm

[SOLVED] Need help with file handling - thanks nml375!

2009-03-26T10:46:47-04:00

heya, hope you don't mind one more question...
how can i make it ignore its own url?
something like
*szabadka.org*

thanks in advance

Statistics: Posted by zerodtk — Thu Mar 26, 2009 10:46 am

[SOLVED] Need help with file handling - thanks nml375!

2009-03-26T08:52:12-04:00

hey! all working! everything's just fine

thanks again

Statistics: Posted by zerodtk — Thu Mar 26, 2009 8:52 am

[SOLVED] Need help with file handling - thanks nml375!

2009-03-25T22:15:00-04:00

it works!!! thank you very much!!!
i can't believe it all works now

i will put it in the full script tomorrow morning and will let you know

thanks again!!

Statistics: Posted by zerodtk — Wed Mar 25, 2009 10:15 pm

[SOLVED] Need help with file handling - thanks nml375!

2009-03-25T22:10:27-04:00

'k.. ohh, forgot, seek uses bytes, not characters.
Guess we'll have to do it the other way *sigh*

Code:

proc catch_url_pubm {nick host hand chan arg} {  if {[regexp -nocase {(http://[^\s]+)} $arg -> url]} {    if {![catch {open scripts/urllogger.txt "RDWR CREAT"} af]} {      set string [read $af]      set key ""      set j [expr [string first $key $string] + [string length $key]]      set i [expr $j - 1]      set first [string range $string 0 $i]      set last [string range $string $j end]      seek $af 0 start      puts -nonewline $af "${first}\n${url}\n${last}"      close $af    }  }}bind pubm -|- *http* catch_url_pubm

Statistics: Posted by nml375 — Wed Mar 25, 2009 10:10 pm

[SOLVED] Need help with file handling - thanks nml375!

2009-03-25T21:58:54-04:00

i think we are in the finish..
but there's one more thing

Code:

header goes here is missing...
everything else is just fine Statistics: Posted by zerodtk — Wed Mar 25, 2009 9:58 pm



[SOLVED] Need help with file handling - thanks nml375!
2009-03-25T21:54:22-04:00

Actually, I do spot a flaw in my code. But it should produce an entirely different behaviour to what you are describing.

'k.. after a few minutes of thinking.. the problem at hand, is that you're opening the file in append-mode. That basically means that the file pointer is set to the end of the file... reading the file thus returns nothing. Opening the file in normal read/write mode solves that issue. I also removed some double-work I did in my first post.

The code below should behave properly.Code: 
proc catch_url_pubm {nick host hand chan arg} {  if {[regexp -nocase {(http://[^\s]+)} $arg -> url]} {    if {![catch {open scripts/urllogger.txt "RDWR CREAT"} af]} {      set string [read $af]      set key ""      set j [expr [string first $key $string] + [string length $key]]      set last [string range $string $j end]      seek $af $j start      puts -nonewline $af "\n${url}${last}"      close $af    }  }}bind pubm -|- *http* catch_url_pubm
Statistics: Posted by nml375 — Wed Mar 25, 2009 9:54 pm




[SOLVED] Need help with file handling - thanks nml375!
2009-03-25T21:36:40-04:00

it was set to w+ not a+
actually its not deleting the header now
but deletes the  and the first few characters of the footer..
Code: 
proc catch_url_pubm {nick host hand chan arg} {  if {[regexp -nocase {(http://[^\s]+)} $arg -> url]} {    if {![catch {open scripts/urllogger.txt "a+"} af]} {set string [read $af]set key ""set j [expr [string first $key $string] + [string length $key]]set i [expr $j - 1]set first [string range $string 0 $i]set last [string range $string $j end]seek $af $jputs -nonewline $af "$first $url $last"#puts $af "$url" close $af} } }bind pubm -|- *http* catch_url_pubm

it wasCode: 
header goes herefooter goes here
and nowCode: 
header goes here http://www.google.com/ ter
Statistics: Posted by zerodtk — Wed Mar 25, 2009 9:36 pm




[SOLVED] Need help with file handling - thanks nml375!
2009-03-25T21:22:16-04:00

That's odd..
I missed including the file pointer in the puts-line, but that shouldn't wipe your file.. (updated post to fix that though)

Do you think you could post your implementation of my code?Statistics: Posted by nml375 — Wed Mar 25, 2009 9:22 pm




[SOLVED] Need help with file handling - thanks nml375!
2009-03-25T21:11:59-04:00

the error is now gone
this what happens

the file looks likeCode: 
header goes herefooter goes here
instead of putting the post between  and footer
it looks likeCode: 
                   http://www.google.com/2
it deletes the footer and the header too 

and just changes the current link to another after adding a new one...Statistics: Posted by zerodtk — Wed Mar 25, 2009 9:11 pm




[SOLVED] Need help with file handling - thanks nml375!
2009-03-25T20:57:23-04:00

Ahh...
Guess I edited my code once too many, I'll update my previous post in a secStatistics: Posted by nml375 — Wed Mar 25, 2009 8:57 pm




[SOLVED] Need help with file handling - thanks nml375!
2009-03-25T20:38:33-04:00

it was my mistake...
.set errorInfo worked
Code: 
[01:37:46] [(Angela]: [01:35] #z3r0# set errorInfo[01:37:46] [(Angela]: Currently: wrong # args: should be "set varName ?newValue?"[01:37:46] [(Angela]: Currently: while executing[01:37:46] [(Angela]: Currently: "set j [string first $key $string] + [string length $key]]"[01:37:46] [(Angela]: Currently: (procedure "catch_url_pubm" line 6)[01:37:46] [(Angela]: Currently: invoked from within[01:37:46] [(Angela]: Currently: "catch_url_pubm $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"
Statistics: Posted by zerodtk — Wed Mar 25, 2009 8:38 pm