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

[zerodtk]

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

[zerodtk]

what about this one
came from Ofloo

Code: Select all

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

and adding it where it catches the urls

Code: Select all

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: Select all

[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)

[nml375]

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: Select all

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
}

[zerodtk]

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

something like

Code: Select all

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
}

[zerodtk]

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

Code: Select all

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:)