creating a check...

[NewzUK]

hi

I'm trying to make a check for this script so the headline posted won't repeat if it's the same the next time it retrieves. I've tried a few things but no luck yet...

proc pub:readaap { nick uhost handle channel arg } {
set url http://www.url.com
set file news/news.txt
exec lynx -preparsed -dump -width=5000 $url > $file
set aapf [open $file r]
set data [read $aapf]
foreach line [split $data \n] {
if {[string match *17\]* $line]} {
set aap [string range $line 7 end]
foreach lines [split $data \n] {
if {[string match *17.* $lines]} {
set aapurl [string range $lines 5 end]
putserv "PRIVMSG #Newsroom :7,7 1,15 [gettime +0]ET $aap - AAP "
putserv "NOTICE #Newsroom2 :$aapurl"
break
}
}
}
}
}

[stdragon]

Have you tried using a global variable to save the headline? Then next time, check the headline against the saved headline and if it's the same, don't print it out.

[NewzUK]

thanks will try that - to set that do you replace 'set' with 'global'?

[dollar]

thanks will try that - to set that do you replace 'set' with 'global'?

No. ( )

[NewzUK]

what does that mean dollar?

[dollar]

what does that mean dollar?

You don't replace "set" with "global", you set your variables and at the top of each proc you want to use them with add "global <varname without $>". Example:
proc abc {args} {global varname; set varname 123}

proc cba {args} {global varname; do stuff with $varname}

[NewzUK]

hmmm thanks - but in this case the vars I need to check so the headline dosn't repeat are set near the end of the proc operation so not sure how that works...

[stdragon]

It has to download and parse the file before it can check to see if the headline is repeated. Just do the check right before the putserv.

[NewzUK]

ok - I've set the global vars at the top and put my check in just before the putserv:

if {$rtrlast != $rtr} {
set rtrlast $rtr

but it's not sending anything to the channel even if the headline is new...