TCL und Base64

[ldittmar]

Hallo Leute,

ich habe ein kleines Problem mit TCL-Skript. Ich möchte eine Base64 codierte JPG Datei, als binäre Datei auf der CCU speichern. Wie geht das? Ich habe schon das hier...

Code: Alles auswählen

#!/bin/tclsh
package require base64

source /www/config/cgi.tcl
load tclrega.so

set file ""

cgi_eval {

    cgi_input

    cgi_content_type "text/plain"
    cgi_http_head

    cgi_import "file" 
  
}

...also nur die Datei als Base64... und würde diese gerne unter /tmp speichern.

Grüße,
ldittmar

[ldittmar]

Hmm,

ich bin zwar etwas weiter weiter gekommen, aber meine Datei ist leider ungültig..

Code: Alles auswählen

set decodeddata [::base64::decode $file]
set fp [open "/tmp/test.jpg" "w"]
puts $fp $decodeddata
close $fp

Wäre für jede Hilfe sehr dankbar


Grüße,
ldittmar