blob: 222abc7bb525f78c845d59b7b98c10108306d995 (
plain)
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
|
<!--
$FML: internal.sgml,v 1.3 2002/04/01 23:41:00 fukachan Exp $
-->
<sect1 id="fml.command.interal.change">
<title>
����:
��4.0 �� &fmldevel; �Υ����ɤν����ϤɤΤ��餤�㤦������
</title>
<para>
���ޥ�ɤ�ŵ���إե�����������֤��٤����� help ���ޥ�ɤ���ˤȤ�����
���ޤ��礦��
</para>
<para>
5.0 �Ǥ� 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->{ reply_message_charset };
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 �� UNIX �����ͥ�Ǥ��ʤ��ߤ� current process ��¤�Τ�
�Υݥ�����������ϥå����ե���Ǥ���
������ $config �ϥå���Ȥ����ߤ����Ƥ��������ѿ����֤ϡ�4.0 �Ǥϥ�
�����Х��ѿ��Ǥ���
</para>
<para>
prepare_file_to_return() �ϥ�å������ƥ�ץ졼�Ȥ���ˤ����ѿ���Ÿ��
��ʸ���������Ѵ���Ŭ���Ԥʤ��ޤ���
</para>
<para>
$curproc->reply_message() �ϰ����ˤ�äƿ������Ȥʤ�ޤ�����
������ˤ��衢��å������塼��������åɤǤ���
</para>
<para>
���塼�������줿��å��������ϡ��ץ������ν�λľ���˰��̤Υ��Ȥ�
���Ȥ�Ω�Ƥʤ����졢Mail::Delivery ���饹��ͳ����������ޤ�����å���
�����塼�μ��ब�ե�����ȥ�å����������ߤ��Ƥ���С�Ŭ�� MIME �ޥ��
�ѡ��ȤΥ�å���������������ޤ���
</para>
<para>
���λ��Ȥߤ� &fml4; �� Notify() ��Ʊ�ͤǤ������������å����������塼
�������졢�Ǹ�˰쵤�˽��������Ȥ��������礭���ۤʤ�ޤ���
</para>
<para>
�ʤ� get ���ޥ�ɤʤɤ�Ʊ�����塼���λ��Ȥߤ�ȤäƤ��ޤ����Ĥޤ�
4.0 �� Notify() ������ʬ��(�̾�ε��������ʳ���)������������ǽ��ô��
����Ȥ������ȤǤ����������ˤ����ơ������Υ��塼���Υᥫ�˥������
�����ۤʤäƤ��ޤ���
</para>
</sect1>
|
