egghelp/eggheads community

updating http.tcl + old script [solved]

2010-03-05T11:10:56-04:00

Thanks, I'm didn't know there was an other http.tcl

Statistics: Posted by TCL_no_TK — Fri Mar 05, 2010 11:10 am

updating http.tcl + old script [solved]

2010-03-05T04:53:50-04:00

@nml375: adding http:// fixed it.
@TCL_no_TK

I'd recommend you look at the script (http.tcl) and check that its the correct one?

Code:

# http.tcl --##Client-side HTTP for GET, POST, and HEAD commands. These routines can#be used in untrusted code that uses the Safesock security policy. These#procedures use a callback interface to avoid using vwait, which is not#defined in the safe base.## See the file "license.terms" for information on usage and redistribution of# this file, and for a DISCLAIMER OF ALL WARRANTIES.## RCS: @(#) $Id: http.tcl,v 1.67.2.4 2008/08/11 21:57:14 dgp Exp $package require Tcl 8.4# Keep this in sync with pkgIndex.tcl and with the install directories# in Makefilespackage provide http 2.7.1

Thank you both for helping

Statistics: Posted by Torrevado — Fri Mar 05, 2010 4:53 am

updating http.tcl + old script [solved]

2010-03-04T14:04:34-04:00

Have you tried adding http:// to the url's?
Such as http://www.terra.cl/astrologia/include/ ... m?signo=19

Statistics: Posted by nml375 — Thu Mar 04, 2010 2:04 pm

updating http.tcl + old script [solved]

2010-03-04T13:49:15-04:00

The only http.tcl version i know of is 2.5 and the script should still work with the newer versions, if there are any.

I'd recommend you look at the script (http.tcl) and check that its the correct one?

Statistics: Posted by TCL_no_TK — Thu Mar 04, 2010 1:49 pm

updating http.tcl + old script [solved]

2010-03-05T13:29:39-04:00

Hi,
I guess this is the right place to post it since there's no way to contact author...

Updating http.tcl from v2.5.001 to 2.7.1, horoscope.tcl I'm using stopped working

Tcl error [pub:horoscopo]: Unsupported URL: www.terra.cl/astrologia/include/pop_h_d ... m?signo=19

How could it be fixed? (if I go back to older http.tcl, the script works again).

This is the short script

Code:

# Reportar Errores a mi# Aportes y actualizaciones seran bienvenidas =)# Aguante las Tclsbind pub - !horoscopo pub:horoscopoproc pub:horoscopo {nick host hand chan arg} {  set arg [lindex $arg 0]  if {$arg==""} {    putserv "NOTICE $nick :4Usa: 14!horoscopo , 4Ej: 14!horoscopo aries"    return 0  }  switch [string tolower $arg] {    "aries" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=2"    } "tauro" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=19"    } "geminis" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=7"    } "cancer" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=3"    } "leo" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=10"    } "virgo" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=22"    } "libra" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=11"    } "escorpion" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=6"    } "sagitario" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=16"    } "capricornio" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=4"    } "acuario" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=1"    } "piscis" {      set pagina "www.terra.cl/astrologia/include/pop_h_diario.cfm?signo=14"    } default {      putserv "PRIVMSG $chan :4Signos validos: 14aries, tauro, geminis, cancer, leo, virgo,\              libra, escorpion, sagitario, capricornio, acuario y piscis."    }  }  set http [http::config -useragent mozilla]  set http [http::geturl $pagina -timeout [expr 1000 * 10]]  set html [http::data $http]  regexp {
(.*)} $html horoscopo  regsub -all "
" $horoscopo "" horoscopo  regsub -all "
" $horoscopo "" horoscopo  putserv "PRIVMSG $chan :4[string toupper $arg]:14 $horoscopo"}

Any help will be appreciated

Statistics: Posted by Torrevado — Thu Mar 04, 2010 4:29 am