From f3077bdb64c593165eb8dfb712b4dd26426bf6ab Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Mon, 3 Dec 2007 09:36:02 +0000 Subject: [PATCH] Updated the demo post script for 0.2 interface --- demo/postole.tcl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/demo/postole.tcl b/demo/postole.tcl index 51e63cd..87a30e8 100644 --- a/demo/postole.tcl +++ b/demo/postole.tcl @@ -8,7 +8,7 @@ # usage: post.tcl filename # -package require tclole 0.1 +package require tclole 0.2 package require http proc wait {ajax timeout} { @@ -22,7 +22,8 @@ proc wait {ajax timeout} { } proc Main {filename {title {}}} { - set url "http://paste.tclers.tk/-New" + #set url "http://paste.tclers.tk/-New" + set url "http://paste.patthoyts.tk/-New" if {$title eq {}} { set title "file: $filename" } set f [open $filename r] @@ -36,7 +37,7 @@ proc Main {filename {title {}}} { t $title \ p $content] - set ajax [ole::create MSXML2.XMLHTTP] + set ajax [ole::ref create MSXML2.XMLHTTP] $ajax open POST $url $ajax send $data @@ -58,4 +59,4 @@ if {!$tcl_interactive} { set r [catch [linsert $argv 0 Main] err] if {$r} {puts $::errorInfo} else {if {[string length $err]>0} {puts $err}} exit $r -} \ No newline at end of file +} -- 2.23.0