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/env entity
<object>
<window position="center" title="Mailer" ondelete="perl:Entity::exit">
<frame border="3" title="Mailer" expand="true">
<halign>
<label text="To:" width="60"/>
<entry name="to" expand="true"/>
</halign>
<halign>
<label text="Subject:" width="60"/>
<entry name="subject" expand="true"/>
</halign>
<scrollwin expand="true">
<text name="body" editable="true"> </text>
</scrollwin>
<button label="Mail it!" onclick="mailit"/>
</frame>
</window>
<perl><![CDATA[
sub mailit {
$to= enode("entry.to")->attrib("text");
$subject= enode("entry.subject")->attrib("text");
$body= enode("text.body")->get_data();
open(OUT,"| /usr/bin/mail $to");
print OUT "Subject: $subject\n$body\n";
close(OUT);
enode ("object")->call ("entity:exit");
}
]]></perl>
</object>
|
