From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Mon, 3 Dec 2007 09:36:02 +0000 (+0000)
Subject: Updated the demo post script for 0.2 interface
X-Git-Tag: tclole-0-3~3
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=f3077bdb64c593165eb8dfb712b4dd26426bf6ab;p=tclole

Updated the demo post script for 0.2 interface
---

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
+}