blob: d082de51171a7d660d458bae11018aed40dca7f9 (
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
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
<!-- -*- mode:text coding:euc-jp -*-
$FML: recipes.autoreply.sgml,v 1.2 2008/08/18 02:23:59 fukachan Exp $
-->
<qandaset>
<qandaentry>
<question>
<para>
�����ӥ������ư�������֤�
</para>
</question>
<answer>
<para>
���ޥ�ɥ��� guide �Ȥ������ޥ�ɤ������ȥ����ɤ������֤��ޤ���
���λ��Ȥߤ���Ѥ�����ɤ��Ǥ��礦��
</para>
<para>
�ǥե���ȤǤϥ�å������ƥ�ץ졼�ȤΥ����ɰ��⤬�Ȥ��ޤ���
&fml4; �Τ褦�ˣ̤ͣΥۡ���� guide �ե����뤬����櫓�ǤϤ���ޤ���
��äȤ� &fml4; �Ȥθߴ����ݻ��Τ���ˡ�
�ƣ̤ͣΥۡ���ǥ��쥯�ȥ�� guide �ե�������С�
����������֤��Ƥ���ޤ���
</para>
<para>
�֥������Ƥˤ�����餺��˥����ɤ������֤��פˤϡ�
�⤦�ҤȤҤͤ�ɬ�פǤ���
</para>
<para>
���Τ���ˤϡ�
���Τ褦�� HOOK �Ǿ�� guide ���ޥ�ɤ�¹Ԥ���褦�ˤ���Ȥ褤�Ǥ��礦��
�ʤ���������Ǥ��̾�ν����ϹԤʤ�ʤ��褦�ˤ��Ƥ��ޤ���
<screen>
$distribute_run_start_hook = q{
# guide ���ޥ�ɤ�ƤӽФ��ޤ���
# guide ���ޥ�ɤ����Ƥ����ѤΥ�륭�塼�����ƥ���Ϥ���ޤ���
use FML::Command;
my $dispatch = new FML::Command;
my $context = $curproc->command_context_init("guide");
$dispatch->guide($curproc, $context);
# �̾�ν�����Ԥʤ��ޤ���
$curproc->stop_this_process();
};
# ���ޥ�ɥ��Ǥ�Ʊ���������ɤ������֤��褦��
$command_mail_run_start_hook = $distribute_run_start_hook;
</screen>
&fml4; �Ȱۤʤꡢ
�����Ѥȥ��ޥ�ɥ���Ѥ��줾��Υץ��������Ȥ�
HOOK ��ʬ����Ƥ��뤳�Ȥ����դ��Ʋ�������
���Τ����Τ褦�ˡ�
�Ǹ��Ʊ�����ƤΥ��ޥ�ɥ���Ѥ� HOOK ���������ɬ�פ�����ޤ�
(���Τ褦���ѿ��ԡ�����н�ʬ�Ǥ�)��
<screen>
$command_mail_run_start_hook = $distribute_run_start_hook;
</screen>
</para>
</answer>
</qandaentry>
<qandaentry>
<question>
<para>
����ɤ���֤��ո������դ��ѣͣ�
</para>
</question>
<answer>
<para>
�ְո����ա��ѤΣ̤ͣ�ͤ��Ƥߤޤ��礦��
</para>
<para>
���쥷�Ԥ˻��Ƥ��ޤ����������㤤�ޤ���
</para>
<para>
���Σ̤ͣ˰ո������äƤ��줿�ͤˤϡ�
�Ȥꤢ����������ֻ�
�֤��ո����꤬�Ȥ��������ޤ������ֻ��Ϥ��Ф餯�ԤäƤ͡��פ�Ф���
��Ƥ��줿����ط��Ԥ��������ޤ���
��äơ�
(1) ����Ǥ���ƤǤ��ơ�
(2) ������˽Ф���
(3) ��������̤Σ̤ͣȤ���ư��롢
�褦�����ꤷ�ޤ���
(3) �ϡ��ֻ������ˡ��ط��Ԥ��������뤿��פε�ǽ�Ȥ�������Ǥ���
</para>
<para>
<screen>
[config.cf]
article_post_restrictions = permit_anyone
=cut
$distribute_run_start_hook = q{
my $cred = $curproc->credential();
my $sender = $cred->sender();
# �̤ͣΥ��С��Ǥʤ��ʤ饬���ɤ������֤��ޤ���
# �̤ͣΥ��С����Ф��Ƥ����̤Σ̤ͣȤʤ�ޤ���
# ���� HOOK �ˤ�ꡢ�����ɤ������֤���ǽ��"�ɲä���Ƥ���"���֤Ǥ���
unless ($cred->is_member($sender)) {
# guide ���ޥ�ɤ�ƤӽФ��ޤ���
use FML::Command;
my $dispatch = new FML::Command;
my $context = $curproc->command_context_init("guide");
$dispatch->guide($curproc, $context);
}
};
</screen>
</para>
</answer>
</qandaentry>
</qandaset>
|
