[IRC] Problem beim auslesen einer HTML seite

[BioToxiN]

[MIRC] Problem beim auslesen einer HTML seite

Also folgenes Problem ich hab ein Script geschrieben das mir eine Seite auslesen soll das mach es auch hier mal das Script

Alias incs {

Sockopen incs 217.160.202.106 80

Set %incs $1-

}

On *:sockopen:incs: {
if ($sockerr) { echo -a Es konnte keine Verbindung aufgebaut warden. Eventuell sind IP/Host oder Port nich korrekt. | halt }
sockwrite -n $sockname GET $+(/mxc/includes/mxc_irc_test.html) HTTP/1.1
sockwrite -n $sockname Host: 217.160.202.106 $+ $str($crlf,2)
}

On *:sockread:incs: {

Sockread %data

Tokenize 32 %data

update_incs 

Echo –a $1-

}
On *:sockclose:incs: { echo –a Disconnected from page
}

alias update_incs {
set %incs $deltok(%data,2,62)
set %incs $left(%incs,$calc($len(%incs) - 3)))
msg #testing %incs
}

Nur wenn ich jetzt das Script starte bekomme ich zwar das was ich will
nur wird noch etwas anderes gepostet was ich nicht will und zwar das

HTTP/1.1 200
Date: Thu, 15 Jul 2004 20:22:22
Server: Apache/1.3.27 (Win32) mod_perl/1.25 mod_ssl/2.8.14 OpenSSL/0.9
Last-Modified: Thu, 15 Jul 2004 20:06:27
ETag: "0-1b4-40f6e3
Accept-Ranges: by
Content-Length:
Content-Type: text/h

und das möchte ich nicht drine haben
kann mir da jemand helfen wie das nicht gepostet wird ?
wäre net

Das Zweite Problem ist das wenn ich den Post bekomme fehlen immer 3 stellen hinten am ende des satzes nur wenn ich den befehl

set %incs $left(%incs,$calc($len(%incs) - 3)))

rausnehme zeigt er mit die
html tags an zb. zeigt er mir <br> an


hier mal den kompletten Post

HTTP/1.1 200
Date: Thu, 15 Jul 2004 20:22:22
Server: Apache/1.3.27 (Win32) mod_perl/1.25 mod_ssl/2.8.14 OpenSSL/0.9
Last-Modified: Thu, 15 Jul 2004 20:06:27
ETag: "0-1b4-40f6e3
Accept-Ranges: by
Content-Length:
Content-Type: text/h
I
XXX:XX Name | wird angegriffen von XXX:X Nick | Deffer : XXX:X Name, XXX:X Name, XXX:X N
XXX:XX Name  | wird angegriffen von XXX:X Nick | Deffer : XXX:X Name, XXX:X Name, XXX:X N
XXX:XX Name  | wird angegriffen von XXX:X Nick | Deffer : XXX:X Name, XXX:X Name, XXX:X N
XXX:XX Name  | wird angegriffen von XXX:X Nick | Deffer : XXX:X Name, XXX:X Name, XXX:X N

hoffe das ihr verstanden habt was ich meine

thx

 

[Helmut Klein]

alias incs {
  if ($sock(incs,status) != 1) sockopen incs 217.160.202.106 80
}
on 1:sockopen:incs:{
  sockwrite -n $sockname GET /mxc/includes/mxc_irc_test.html HTTP/1.1
  sockwrite -n $sockname User-Agent: mIRC v $+ $version
  sockwrite -n $sockname Host: $sock($sockname).ip
  sockwrite -n $sockname $crlf
}
on 1:sockread:incs:{
  sockread %sck.incs
  if (*| wird*von* iswm %sck.incs) echo 9 %sck.incs
}

Einfach eine if-Abfrage ob die Zeile vom Aufbau her den gewünschten entspricht.