Changeset 647 for trunk/tcl/scripts

Timestamp:

Mar 28, 2007, 2:16:50 PM (18 years ago)

Author:

dkearney

Message:

added -type and -compress flags to put function so users can now
provide put function with a ffile name and -type file flag and
tcl rappture will upload the file and place the text into the xml
automatically. with the -compress flag, users can have the text
they are put'ing gzip compressed and base64 encoded.

also, the get function automatically decodes data that is get'ed
from the xml file.

File:

• trunk/tcl/scripts/library.tcl (modified) (4 diffs)

trunk/tcl/scripts/library.tcl

@@ -447 +447 @@
         return ""
     }
-    return [string trim [$node text]]
-}
-
-# ----------------------------------------------------------------------
-# USAGE: put ?-append yes? ?-id num? ?<path>? <string>
+    return [string trim [Rappture::encoding::decode [$node text]]]
+}
+
+# ----------------------------------------------------------------------
+# USAGE: put ?-append yes? ?-id num? ?-type string|file? ?-compress no? ?<path>? <string>
 #
 # Clients use this to set the value of a node.  If the path is not
@@ -469 +469 @@
         -id ""
         -append no
+        -type string
+        -compress no
     }
     while {[llength $args] > 1} {
@@ -484 +486 @@
     }
     if {[llength $args] > 2} {
-        error "wrong # args: should be \"put ?-append bval? ?-id num? ?path? string\""
+        error "wrong # args: should be \"put ?-append bval? ?-id num? ?-type string|file? ?-compress bval? ?path? string\""
     }
     if {[llength $args] == 2} {
@@ -493 +495 @@
         set str [lindex $args 0]
     }
+
+    if {$params(-type) == "file"} {
+        set fileName $str
+        set fid [open $fileName r]
+        fconfigure $fid -translation binary
+        set str [read $fid]
+        close $fid
+    }
+
+    if {$params(-compress) || [Rappture::encoding::is binary $str]} {
+        set str [Rappture::encoding::encode $str]
+    }
+
     set node [find -create $path]