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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
<!--
$FML: internal.sgml,v 1.9 2004/04/21 08:48:47 fukachan Exp $
-->
<sect1 id="fml.command.internal.change">
<title>
��:
��&fml4;�� &fml8; �Υ����ɤν����ϤɤΤ��餤�㤦������
</title>
<para>
���ޥ�ɤ�ŵ���Ǥ���إե�����������֤��٤�����
help ���ޥ�ɤ���ˤȤꡢ
��������������ޤ��礦��
</para>
<para>
&fml4; �Ǥϡ�Ŭ���ʴؿ������Ȥ��� myProcHelpFileSendBack ���ꡢ
%LocalProcedure �˽Ƥ����ޤ���
<screen>
%LocalProcedure = (
'help', 'myProcHelpFileSendBack',
);
</screen>
myProcHelpFileSendBack ���ƽ����ȡ��Ĥ��Τ褦�ʤ�ΤǤ��礦��
<screen>
sub myProcHelpFileSendBack
{
local($proc, *Fld, *e, *misc) = @_;
my $UJA_FILE = "/some/where/help";
&SendFile($Envelope{'Addr2Reply:'}, "UJA $ML_FN", $UJA_FILE);
}
</screen>
</para>
<para>
&fml8; �Ǥ� help �ե�����������֤������ɤμ��Τ�
FML::Command::User::help �ˤ��ꡢ
FML::Process::Command ���饹����
(FML::Command �� AUTOLOAD ���ͳ����)�ƤӽФ���ޤ���
</para>
<warning>
<para>
���ƤΥ��ޥ�ɤ� FML::Command::User::���ޥ�ɤ⤷����
FML::Command::Admin::���ޥ�ɥ��饹�Ȥ��Ƽ�������Ƥ��ޤ����ʤ�
makefml �� CGI �� FML::Command::Admin::���ޥ�� ��Ȥ��ޤ������ޥ�ɥ
��� User �� Admin �¤˱�����Ŭ���Ȥ�ʬ���ޤ���
</para>
</warning>
<para>
help ���ޥ�ɤμ��Τ� FML::Command::User::help �� process() �ؿ��Ǥ���
<screen>
sub process
{
my ($self, $curproc, $optargs) = @_;
my $config = $curproc->{ config };
my $charset = $config->{ report_mail_charset_ja };
my $help_file = $config->{ help_file };
# template substitution: kanji code, $varname expansion et. al.
my $params = {
src => $help_file,
charset_out => $charset,
};
my $help_template = $curproc->prepare_file_to_return( $params );
if (-f $help_template) {
$curproc->reply_message( {
type => "text/plain; charset=$charset",
path => $help_template,
filename => "help",
disposition => "help",
});
}
else {
croak("no help file ($help_template)\n");
}
}
</screen>
������ $curproc �ϥϥå����ե���ǡ�&fml4; �� %Envelope �ˤ�����
���������ޤ���̾�����̤ꡢUNIX �����ͥ�Ǥ��ʤ��ߤ� current process ��
¤�ΤؤΥݥ��Τ褦�ʤ�Τǡ��ץ������˴�Ϣ���뤤�������ʥǡ�����¤
�䥪�֥������ȤؤΥ�ե����ޤ�Ǥ��ޤ���
</para>
<para>
�ѿ��Ǥ�����&fml4; �Ǥϥ������Х��ѿ����Ǥ������� &fml8; �Ǥ� $config
���֥������Ȥ��̤��ƥ��������Ǥ��������ѿ����֤���ˤ���ޤ���
</para>
<para>
prepare_file_to_return() �ϥ�å������ƥ�ץ졼�Ȥ���ˤ����ѿ���Ÿ��
��ʸ���������Ѵ���Ŭ���Ԥʤ��ޤ���
</para>
<para>
$curproc->reply_message() �ϰ����ˤ�äƿ������Ȥʤ�ޤ�����
������ˤ��衢��å������塼��������åɤǤ���
</para>
<para>
���塼�������줿��å��������ϡ��ץ������ν�λľ���˼����Ԥ��Ȥ˥��
�������ϤޤȤ�����̤Υ��Ȥ����Ȥ�Ω�Ƥʤ����졢Mail::Delivery
���饹��ͳ����������ޤ�����å��������塼�μ��ब�ե�����ȥ�å�����
�����ߤ��Ƥ���С�Ŭ�� MIME �ޥ���ѡ��ȤΥ�å���������������ޤ���
</para>
<para>
���λ��Ȥߤ� &fml4; �� Notify() ��Ʊ�ͤǤ������������å����������塼
�������졢�Ǹ�˰쵤�˽��������Ȥ��������礭���ۤʤ�ޤ���
</para>
<para>
�ʤ� get ���ޥ�ɤʤɤ�Ʊ�����塼���λ��Ȥߤ�ȤäƤ��ޤ����Ĥޤ�
&fml4; �� Notify() ������ʬ��(�̾�ε��������ʳ���)������������ǽ��
ô������Ȥ������ȤǤ����������ˤ����ơ������Υ��塼���Υᥫ�˥���
�� &fml4; ���礭���ۤʤäƤ��ޤ���
</para>
</sect1>
|
