blob: cb49663ad11efe1395fb3cda7432d0e812fdbc52 (
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
|
#-*- perl -*-
#
# Copyright (C) 2001 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $FML: edit.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
#
package FML::Command::Admin::edit;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
use Carp;
use ErrorStatus;
use FML::Command::Utils;
@ISA = qw(FML::Command::Utils ErrorStatus);
=head1 NAME
FML::Command::Admin::edit - edit a new member
=head1 SYNOPSIS
=head1 DESCRIPTION
See C<FML::Command> for more details.
=head1 METHODS
=head1 METHODS
=head2 C<process($curproc, $optargs)>
C<TODO>:
now we can read and write config.cf, not change it.
=cut
# Descriptions: edit config.cf
# Arguments: $self $curproc $optargs
# Side Effects: update config.cf
# Return Value: none
sub process
{
my ($self, $curproc, $optargs) = @_;
my $config = $curproc->{ config };
my $options = $optargs->{ options };
my $address = $optargs->{ address } || $options->[ 0 ];
my $myname = $optargs->{ args }->{ myname };
# ML's home directory
my $ml_home_dir = $optargs->{ 'args' }->{ 'ml_home_dir' };
my $config_cf = $ml_home_dir."/config.cf";
use FML::Config;
my $c = new FML::Config;
# read configuration. configuration is holded in FML:Config space.
$c->read( $config_cf );
# modify $c (config) object
# XXX TODO
# XXX ... snip ...
# $c->set('key', 'value'); # set up
# $c->regist('key'); # add list to write into config.cf
# ovewrite $config_cf
# after old $config_cf is backup'ed to $config_cf.bak
$c->write( $config_cf );
}
=head1 AUTHOR
Ken'ichi Fukamachi
=head1 COPYRIGHT
Copyright (C) 2001 Ken'ichi Fukamachi
All rights reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.
=head1 HISTORY
FML::Command::Admin::edit appeared in fml5 mailing list driver package.
See C<http://www.fml.org/> for more details.
=cut
1;
|
