Ik ben een probeer dmv een eggdrop met een tcl script een website uit te lezen.
Deze website krijgt dan via de url door waar hij naar moet zoeken. Nu is het probleem dat ik het niet voor elkaar krijg om de $arg door te geven met url. Hij geeft gewoon geen result dus ik vermoed dat het ergens fout gaat in de regel waar met lynx de url opent (regel 3).
Het script is verder allemaal knip en plak werk uit andere script aangezien ik nog nooit eerder met tcl heb gewerkt. Dit is de code :
code:
1
2
3
4
5
6
7
8
9
10
11
| proc preq {nick uhost hand channel arg} {
set file [open "|lynx -source 'http://www.website.nl/test.php?q=$arg'" r]
while {![eof $file]} {
gets $file html
if {$html == {}} {continue}
puthelp "NOTICE $nick :$html"
}
}
bind pub - !pre preq |
Wat doe ik fout ?
Each year, the Rainforest is responsible for over 3000 deaths from accidents, attacks or illnesses. There are over 700 things in the rainforest that cause cancer. Join the fight now and help stop the Rainforest before it's too late