Ik ben bezig met een scriptje wat de eerste regel van een file uitleest, deze vergelijkt met een variable en zodra deze niet meer overeenkomt de variable veranderd. Daarna moet het scriptje kijken om welke soort het gaat, en daarbij de bij behorende commando's uitvoeren. Om dit zo ver te krijgen heb ik dit scriptje geproduceerd:
nu krijg ik alleen deze foutmelding als ik het scriptje aanroep:
[18:44] Tcl error [test_server]: extra characters after close-quote
Er zou dus ergens een character staan achter een close quote. alleen die zie ik ergens? Waar zit de fout?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| proc test_server { channel args } {
set fs [open /etc/glftpd.conf r]
gets $fs line(first)
close $fs
if { $line(first) == $serverstatus } {
return 0
} elseif { $line(first) != $serverstatus } {
set serverstatus $line(first)
if { $line(first) == "shutdown 0" } {
putserv "PRIVMSG #blaat :"server is up again"
} elseif { $line(first) == "shutdown 1" } {
putserv "PRIVMSG #blaat :"server is down"
}
}
} |
nu krijg ik alleen deze foutmelding als ik het scriptje aanroep:
[18:44] Tcl error [test_server]: extra characters after close-quote
Er zou dus ergens een character staan achter een close quote. alleen die zie ik ergens? Waar zit de fout?
[ Voor 5% gewijzigd door Verwijderd op 06-05-2003 18:49 ]
tel er nu ook twintig.
* telt nog een keer *
:strip_exif()/u/13818/episodebutler_60x60.gif?f=community)
.