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
30
31
32
|
#!/usr/bin/perl
use IO::File;
use DIME::Message;
use DIME::Payload;
use DIME::Parser;
sub generate
{
# Generate a DIME message
my $payload = new DIME::Payload;
$payload->attach(Path => "./test.txt",
MIMEType => 'text/plain',
Dynamic => 1);
my $payload2 = new DIME::Payload;
my $data = "Hello World!!!";
$payload2->attach(Data => \$data,
MIMEType => 'text/plain');
my $message = new DIME::Message;
$message->add_payload($payload);
$message->add_payload($payload2);
my $out = new IO::File("dime.message","w");
$message->print($out);
$out->close();
}
generate();
|
