Updated the demo post script for 0.2 interface

diff --git a/demo/postole.tcl b/demo/postole.tcl
index 51e63cd58191685c6eb408d9b0ab553fdbc5ae75..87a30e8ef55ba97906d947044bcd0ec9746e7489 100644 (file)
--- 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
+}