699 |
|
|
700 |
=head2 _add_aliases |
=head2 _add_aliases |
701 |
|
|
702 |
Add or update alias in C</etc/aliases> (or equivavlent) file for selected list |
Add or update alias in C</etc/aliases> (or equivalent) file for selected list |
703 |
|
|
704 |
my $ok = $nos->add_aliases( |
my $ok = $nos->add_aliases( |
705 |
list => 'My list', |
list => 'My list', |
735 |
chmod 0777, $aliases || warn "can't change permission to 0777"; |
chmod 0777, $aliases || warn "can't change permission to 0777"; |
736 |
} |
} |
737 |
|
|
738 |
|
die "FATAL: aliases file $aliases is not writable\n" unless (-w $aliases); |
739 |
|
|
740 |
my $a = new Mail::Alias($aliases) || croak "can't open aliases file $aliases: $!"; |
my $a = new Mail::Alias($aliases) || croak "can't open aliases file $aliases: $!"; |
741 |
|
|
742 |
my $target = ''; |
my $target = ''; |