1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#! /usr/bin/crm
#
# paolo_ov4.crm - paolo written test script
# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.
#
window
alter (:_dw:) /HHHHHHHHHHHHHHHHHH\nContent-Type: multipart; boundary="--0123456789"\nhhhhhhhhhhhhhhhhhhhhhh\n\nThis is a multi-part message in MIME format.\n----0123456789\nContent-Type: text\nContent-Transfer-Encoding: 7bit\n\nTTTTTTTTTTTTTTTTTTTTTTT\n\n----0123456789\nContent-Type: image\n name="clonic.GIF"\nContent-Transfer-Encoding: base64\niiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii\n\nooooooooooooooooooooooooooooooooo\noooooooooooooooooooooooooooo\n\n----0123456789--\n\n\n/
{
match (:: :headers: :body:) /(.*?)\n\n(.*)/
}
isolate (:headers:)
{
match <nomultiline> [:headers:] /^Content-Type: .* boundary="(.+)"/ \
(:x: :boundary:)
output /:boundary:=:*:boundary:\n/
}
isolate (:c:) /0/
{
eval (:c:) /:@::*:c:+1:/
match <fromend> [:body:] (:x: :headers:) /\n--:*:boundary:\n(.+?)\n\n/
output /:c:=:*:c:\n:*:headers:\n\n/
liaf
}
|
