egghelp/eggheads community

need help with a news script

2003-10-31T09:31:51-04:00

that means it also tried it with /

okay...but saying stuff like

the url is without http:\\

made me think you had no idea that backslash!=slash

Anyway...that uri (/misc/newsyoyo) is valid, so at least you should get a different error message than "Invalid URI in request"

Statistics: Posted by user — Fri Oct 31, 2003 9:31 am

need help with a news script

2003-10-31T08:38:35-04:00

already tried it that way..

that means it also tried it with /

Statistics: Posted by Guest — Fri Oct 31, 2003 8:38 am

repeating...

2003-10-31T06:27:03-04:00

Add a SLASH in front of your URI. (not URL)
This is what a slash looks like: / (this is a backslash: \)

Statistics: Posted by user — Fri Oct 31, 2003 6:27 am

need help with a news script

2003-10-31T05:55:02-04:00

already tried it that way..
oh damn have not thought i am that unable

Statistics: Posted by Guest — Fri Oct 31, 2003 5:55 am

need help with a news script

2003-10-31T05:26:52-04:00

Oh..and btw.. in case you didn't understand my post about the uri...This is the uri in your code (the bold part):
puts $sock "GET misc/newsyoyo HTTP/1.1"

Statistics: Posted by user — Fri Oct 31, 2003 5:26 am

need help with a news script

2003-10-31T05:11:12-04:00

hehe ok sry :>

Statistics: Posted by Guest — Fri Oct 31, 2003 5:11 am

need help with a news script

2003-10-31T04:22:27-04:00

Your problem is with http, not tcl. Redirect your hate.

Statistics: Posted by user — Fri Oct 31, 2003 4:22 am

need help with a news script

2003-10-31T03:47:39-04:00

credits are in. just haven´t post them.

but it still wont work, the url is without http:\\
still the same.. i wont get the script running.
i hate tcl :>

Statistics: Posted by Guest — Fri Oct 31, 2003 3:47 am

need help with a news script

2003-10-30T09:31:11-04:00

Start your uri with a slash.

Statistics: Posted by user — Thu Oct 30, 2003 9:31 am

need help with a news script

2003-10-30T08:26:48-04:00

i dont work with sockets at all, but : i think you have to use http://www.infernum.com/ (btw : austrian ? )

yer TCL is based on domsens work, am i correct ? give him credits in the header

Statistics: Posted by GodOfSuicide — Thu Oct 30, 2003 8:26 am

need help with a news script

2003-10-30T04:03:56-04:00

heyas out there.. i have a problem with my news script, i get the error msg: Invalid URI in request
i just have no idea how to fix it. plz help
thx in advance!

#cfg#
set inftrigger ".inf"
set infchans ""
set inflimit "5"
set infnewspostlimit "3"
set infnewspost "1"
set isinfhub "0"
set infleafs ""
#code#

bind msg - $inftrigger msg_inf
bind pub - $inftrigger pub_inf
bind time - "?0 * * * *" infcheck

proc sendinfnews { arg } {
global infleafs
foreach bot [bots] {
if {([lsearch -exact [string tolower $infleafs] [string tolower $bot]] != -1)} {
putbot $bot "inf: $arg"
}}}

proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }

proc html { text } {
regsub -all "ü" $text "ü" text
regsub -all "ö" $text "ö" text
regsub -all "ä" $text "ä" text
regsub -all "Ü" $text "Ü" text
regsub -all "Ö" $text "Ö" text
regsub -all "Ä" $text "Ä" text
regsub -all "ß" $text "ß" text
regsub -all """ $text "\"" text
regsub -all "<" $text "<" text
regsub -all ">" $text ">" text
return $text
}

proc infcheck {nick uhost hand chan arg} {
global infchans infnewspost isinfhub infnewspostlimit
set counter 0
if {$infnewspost == 1 } {
putlog "inf: suche nach neuer newsline"
set inflastnews "none"
if {[file exists inf.hdl]} {
set temp [open "inf.hdl" r]
set inflastnews "[gets $temp]"
if {$inflastnews == ""} { set inflastnews "none" }
close $temp
}
set temp [open "inf.hdl" w+]
if {[catch {set sock [socket www.infernum.com 80] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET misc/newsyoyo HTTP/1.1"
puts $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
puts $sock "Host: www.infernum.com"
puts $sock "Connection: close"
puts $sock ""
flush $sock
set counter 0
while {[eof $sock] != 1} {
set bl [gets $sock]
if {[string first "misc/" $bl] != -1} {
set newsline $bl
puts $temp "[html $bl]"
}}}
close $sock ; close $temp
if {$inflastnews == "none" } { putlog "inf: headlinefile created" ; return 0 }
set temp [open "inf.hdl" r]
while { [eof $temp] != 1 } {
set infneunews [gets $temp]
if {($inflastnews == $infneunews) || ($counter == $infnewspostlimit)} { close $temp;return 0 }
incr counter
foreach chan [channels] {
if {$infchans == "" } { putserv "privmsg $chan :(neue infernum newsline) $infneunews" }
if {$infchans != "" } {
if {([lsearch -exact [string tolower $infchans] [string tolower $chan]] != -1) || ($infchans == "")} {putserv "privmsg $chan :(neue inf newsline) $infneunews"}
}
if { $isinfhub == "1" } { sendinfnews $infneunews }
}}}}

proc infnews {target limit} {
if {[catch {set sock [socket www.infernum.com 80] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET misc/newsyoyo HTTP/1.1"
puts $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
puts $sock "Host: www.infernum.com"
puts $sock "Connection: Close"
puts $sock ""
flush $sock
set counter 0
while {[eof $sock] != 1} {
set bl [gets $sock]
if {[string first "misc/" $bl] != -1} {
putserv "privmsg $target :[incr counter] [html $bl]"
}
if {$counter == $limit} {close $sock ; return 0 }
}}}

proc msg_inf { nick uhost hand arg } { global inflimit ; infnews $nick $inflimit }
proc pub_inf { nick uhost hand chan arg } { global infchans inflimit ; if {([lsearch -exact [string tolower $infchans] [string tolower $chan]] != -1) || ($infchans == "")} { infnews $nick $inflimit }}
_____________________________________________________________

Statistics: Posted by Guest — Thu Oct 30, 2003 4:03 am