Seite 1 von 1

TCL und Base64

Verfasst: 08.11.2015, 02:46
von 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

Re: TCL und Base64

Verfasst: 08.11.2015, 09:42
von ldittmar
Hmm,

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

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 :wink:


Grüße,
ldittmar