The following accomplishes the feat of copying the encoded image into a 'word and appending the string value with the proper brackets and "64#" designation.



stuff: msg/content
imagecode: copy []

if find/any stuff {image/jpeg} [parse/all stuff [thru {base64^/^/} copy text
thru {==} (append imagecode text)]]

insert imagecode "64#{" append imagecode "}"

write/binary %image.jpg imagecode




But the %image.jpg does not display correctly. What is it I need to know about base64 encoding to make sure that "write/binary" produces the correct result? Following is the result of

>> print imagecode
64#{ /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDABALDA4MChAODQ4SERATGCgaGBYWGDEjJR0oOjM9
PDkzODdASFxOQERXRTc4UG1RV19iZ2hnPk1xeXBkeFxlZ2P/2wBDARESEhgVGC8aGi9jQjhC
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2P/wAAR
CABbAGQDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAA
AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkK
FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWG
h4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl
5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREA
AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYk
NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk
5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD0CiiigAqOeeG2haa4ljhiX7zyMFUduSaw
tT1fUGnvrSwSKM23DScyytmMN8keACcsAMt+HNZi293L500kIuHti/nx3jGeY5OSiAfIuY2H
C8EkKemapRE3Y7IuBIseGywJB2nHGO/Qdenfn0NMiaUiQzpGgDHZtctlexOQMH25+tcXdalq
UcKaZpkj2yWASKZwqSPgkJEBkgEsMMegHr2qLUdZ1S31i0tZ7iNYy8RlYWz7sNuOwYLg9MfK
evQ8Gl3KSO4llzC4hliEu07C/Kg9sgHpWDdajdWqpZSzia4wZAwwXcDJBwhUAbgBzgEDaeua
bC51W0tZ45kiGEleIqH+bCuFJI46g9M9CCO8tppF5KEbULhSsRHkxI3mAcMMlyoOcNj1+Xkn
Jp3jHcbiRS6tfSTxQxyolzLPiGJSu2RFJJ3ZXIyp+YgnG0EcnaemrDi0iGyjcQpKrM28yrMz
OGwADlifQcEEdjkVZOpR2CwrqFzGIn+VblyEy3J2uOgO0dRwSDwvAKdnsKzRp0VHBPDcwrNb
yxzRN9142DKe3BFSUhBRRRQAVXv7yOws5LmVZGVMALGu5mJIAUDuSSB+NTSSJFG0kjqiICzM
xwFA6kmqMu6XUWF5BALGHyzC8yqS0xJAKndxjIAyASTx7gHHfv49aupJ0u7e5EjzYd1IKsfk
zyQflAHynjaR9dZNTNxCb+G3CsYlSafzA6xgE4yA2SBv3E/L8hySDxS+KmhlX9/ArqVZVlGG
eInCrtB65YjIyBjrkVztjdfZppIo13MIykyyx8PGxHzFc5fGTwN2fmGTuDHZPoJo0dYiubK2
iubtJtSnt5AkG3KpJISCkjIpwu0lkx1bj1FQXMtpNCIpdRvFlsWlSLyXdXYru3NJIQwztBOB
ztyQPmCDTuIle0murq5cRj5mngLsskewEOiZYIVYg7hk/Jnoaw7CxmSVFm2WgtR5UzQZTOwk
ly3BG5cZ7kAHIHFRK0dX1E5KKuzS0O7j0mRo9TLrDLDaiMLGzFJfKCmNgBu3EKDjB4x0zz0l
tqGnzTLFa38Jmb/lgXG/pyCh5BGOQeRisa3g+0XNvc2mQsDFGmfOZU2joSMuvJwdwGfm+bAq
fWNKtdUgX7TlTCd6SAAlfXgggjjkGojTlON9jP6xrqjo6xdctBNdWR+0PbBnZd8DskjtjcEy
OikKxPTlVrL0PULy2srWSIedYmNVMD7g0WDgtGSCzLjJCnnAGPSuju7W31SzRWkJjYrIkkL4
OPVWHTIyMjsT61yu62ZvCalsZSk21zawxajco0v7tiW8wy4jOD8wIVhjdkAZ7g5419Ge6k0m
2e+lhluGQFpIfuOOxH1GOnGenFc8/hS1S6SS2e5gkhV8JFKWLZTbhSx+U4xg5xxj6dRZsjWU
DRwtAhjUrEybTGMcKR2x0xW0IyitWVO19CaiiitCCrqdwbTTbm42bxFGXYZx8oGTj3xnA7nu
OtcjKdVltItPguvKeafzLf7RudlRChUkkZB34ODnAbHbFdF4kmRdMe33/v58COISBGlwQSOV
YYxwcgjB5wMkYWnRNqlxbRrA0S20ykOFVggTYWUkYXl0KjaAOAQMCgC34msJJrdFt3cSRvGM
BQytmRCSwxnAxngjpXJuL2RZPtVs+5nWRmtwVZBgxLw2CM7c59ByADXpF5bI8cxkVXR1ClWG
QR0INcEFkstdu7SxtUmijkVvLYhVXeM5GM8/OR0+6uOc1bcre6E2lHmNDRJY0usT2wWWOMCK
eItgLk/JjOQPmzjp0H8INW7q1+2Wk0ErFGuABK8I2FjwDjr1AxznjiqOlXd1IBFPbxQtFH5k
wQFiclgAoGcnCg5yT2xzxYii1G+hF3bTC26+XA+3qCR8/BIORyARjp1BNc7VWo+XscUpSe47
TrdL/UDqILmCGRhAxm3+YfmV2Gc7V9ApGcZPbGhqV9FYQLJMD5bMELA4C5IGSe3X+dP0+0Wx
sorZMfIOSq7QWJySB2ySTgcCpZoY54mjmRXRhgqwyDXdGNo2IbuzIRZrLz57RFmgRyWgUZlB
4z0JHI5AwD8wzg5Naekzp9iaCKZWMJ82PYcgROzbB6ADlQATwo6ZwKdi+l6dLcWlsFt1UtLI
SSEBwu7knjAZPbkY74u2DWP267eCVDcXFvHIyqR86DcFcevXGef4fauedNL3+vU3oO0yG48S
2UFxgrNJNDJsmRIj8gwTuOcALjJz+NS2+ux28DSTW94bQuz/AGnHmhVbLgnHO3BwCAQOhPFY
btJY+K7i4lm2WoVbhwuT8nlMpyAOeUBx7Zq4uq295cebHamWR7coI5nTZtZ8EHbuJ3bQehBA
GMZNWo6WRvOUlK1jqLS6ivbWO5tyzRSjchZCuR64IBorG8GPH/YpgRp2a1laFzNKHyQBjGCQ
Bgj5R05HPUlZlDrvw6086+TeeVbgYMbRb2AON+GJ/ixk7g2STnIOKDeNpul6jdS6e8Ulq3lB
0jV2nQAbZSF2gj5iSARj5ulbtZV9dQ2NxP8A2ndxtaXKIkNsyhmZslXCqBlgcpxz1PQUAYL3
V7YWvkSXjXzX1mZVJLY8085WTgKhJC4BBBKYHzGsrw5dLJ4ia3nlSaUWwV5C6P5kiHAKsuNw
2nPOTx14rtbbTbaZzcT3J1LfGAjTiNlVCDnbtUD5g3J7gD0rF1DRWhv0ubI+U8JeRsEsZGO4
qNpO3BLvnoecAjqKjo0wlFyi0R3mkXcjzTWN0LWfBCfKCrjOQGGD05x6ZNalnapZWqQRl2Vc
ks7bmYk5JJ9SSTWBf35v7E3ENykU8KOfJjuW2sMjDblK5XjrwASQeRiodMismjA0mT7Dfoiy
eWWYo454bPDrkkbhnHGD0FXKpGL5rb9Ths7anWVXvbuOytXnlOEQEn8s1DaX0s13LazW/lyx
KrlkYsmG6YJCkng9ARx1zxWfqcg1G5WzlZo7TDM7IT85BUBSQOAQT09Ota8yceZakJa6jdN0
a3uS894VuRKRIqox8sDC8cffB2qeeDgcCtCztIIdUnltE2KokWYkk7pZDGxxn/ZUE9B8wx3x
Wg1GGFYlgt7kgxbxCkByoCk4OOAeMYz1IrR0GzlWJpLpNk00jTyrvL4JPC59lCjjjivPgpSl
eR00E3LmeyINV0JtYZFS6mtJY1ZdyjKlWxkMv8QOBxn86xNP0XVI75rb7NCVdnIvY5A8a84f
I4O/JIPTOMDaNxrqJdchRmW1tbm5nYKxjEZRhltoyGwR0Y/RSTgYzNolzaz2rrbFwfMeVkkK
lhvZnzlSQVOTggkcYzkGt+fsdDaZasbOOws47aEuUQdXOSSTkk/Uk+1FWKKQBXA6tPHJ4ouN
7mOeG6gchny3koA20L/dJBfgnnZkDkr31UNZkvIdMmlsVZ5kBOxEDOwx0XJwD3yQ3T7rdKTV
0KSujlbu6vfNu7zT3ubdHuIszmINlShHypg7jkoo45wBnAJGpZ6ynk2cF3JJdSTswExi2MMD
0XIOTnHQbQcnKnOBcXkGpTW97p3nZjIENoIsJENpAbABUsDnAXJGQedpWr1tE9rdpdrBK9xd
vK1va9N6Ook+ZmACvkc8kAKQATzWUZNNJsmF9LPY07rSLWRpDEI9khBkQxgpIc5JK/3uDz7j
OcCqUVsReG4lspIpyPL3htyv3JGD0+UcsAeg9qdrVxqsbm3srbYTKFEpdchecsRghe2OuQTw
DwK2j65LJYyS3sE+yEnfKQjFMAbtyrhsg56LwME9zVy9nN2vqaToxlqPvJo7bUlmMzLdtblI
42mCoSN2wtGDufkkDAP0zV8MLiGKRbEs8gLEsNiqw7NuAbBPfafXFaBikAyUYD6VnSyX0l/B
9kiEkGWQ5mVUc9MscMwwQRgDJOc4AG7aH7tWuZ/V4LdiWenbEEl4VknLB2CZEakdAq+gPPPO
cHsMWdQjvpbRjaQJcIi4NsW2GRsqQwfsVwT19COQKrXz3a6fNJeW72AhkIytzGUnXa2AHOCm
W2jOMjI6clbOgrqkunJDexJFAA0ZdncTuANuTjoSRu3BjxgD+9Q5GvupWRyyX+uR30/9tr5U
MreUPMhCxgmRdyhmHI8sOBycjpXQ6Da21xq817ZB0toS4JJYGWd9pkY/NnACoNpHX3FdJHGk
UaxxoqIgCqqjAUDoAKjtrW3s4zHa28UCE5KxIFBPTOB9BU3uQopE1FFFIYUUUUAZEXhzT7e7
jntVltwjlzFHIQjkkEZHYAjgDA5I6HFWZ9KtnVzb7rKWSQStNa4R2YHPzcYbqeGBHNXqKLCs
kcX4qkXTXs1upVle5jAd1iKmSRNo3/KepyMY6Y68DFZFju9RhlfZdCWzVJgq+W0yOclgoGfu
o52jnjAruZ4IbmFobiKOaJvvJIoZT35Bqta6TYWbo8FsqsiKiMSWKhQQMZ6cMwz71i6V5XRs
qnu2IjdQ3FvPMqX0nkrvMZt3Rm4PChlGTx2/rXPWGi3GpTtffadQWGIeXHZ6jEUYssYCuGyd
pzzvUZzmuzorYzucXLpmv6mLHT76Ex28AdJ7gypIJcLhWzkP8xyCODhsZ5OOxhTyoUjLs5RQ
u5sZbHc4wPyp9FAgooooAKKKKAP/2Q== }
>>

>
> Ah. now I see what's happening. The attachments are embedded in
> another attachment tag. My detach sctip doesn't handle that just yet and
> no time to fix it right now.
>
> I'm going to mail you a different one off the list that should work.
>
> Sterling
>
> > OK, making the change and running the script produced the following
> > result:
> >
> > >> detach msg2
> > starting decoding process...
> > Boundary string: _------_BeOS.rmp.960760
> > Found message attachment; remaining length: 10312
> > Found message attachment; remaining length: 15
> > breaking... attachents finished
> > == [none {Content-Type: multipart/x-bfile;
> > ^-boundary="++++++BFile111399423249++++++"
> > }]
> >
> >
> > The script broke without decoding attachments. Following is msg2/
> > content...
> >
>


Reply via email to