Daniel Berteaud
12 years ago
commit
754accf27d
9 changed files with 689 additions and 0 deletions
@ -0,0 +1,10 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
|
||||||
|
use esmith::Build::CreateLinks qw(:all); |
||||||
|
|
||||||
|
panel_link('minilist','manager'); |
||||||
|
|
||||||
|
event_link("qmail-update-list", "list-create", "20"); |
||||||
|
event_link("qmail-update-list", "list-modify", "20"); |
||||||
|
event_link("qmail-delete-list", "list-delete", "20"); |
||||||
|
templates2events("/var/service/qpsmtpd/config/goodrcptto", qw(list-create list-modify list-delete)); |
||||||
@ -0,0 +1,18 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
|
||||||
|
package esmith; |
||||||
|
|
||||||
|
use strict; |
||||||
|
use Errno; |
||||||
|
|
||||||
|
my $event = $ARGV [0]; |
||||||
|
my $list = $ARGV [1]; |
||||||
|
|
||||||
|
die "list name argument missing." unless defined ($list); |
||||||
|
|
||||||
|
$list =~ s/\./:/g; |
||||||
|
unlink "/var/qmail/alias/.qmail-$list"; |
||||||
|
unlink "/var/qmail/alias/.qmail-$list-default"; |
||||||
|
|
||||||
|
exit (0); |
||||||
|
|
||||||
@ -0,0 +1,53 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
|
||||||
|
package esmith; |
||||||
|
|
||||||
|
use strict; |
||||||
|
use Errno; |
||||||
|
use esmith::ConfigDB; |
||||||
|
use esmith::AccountsDB; |
||||||
|
use esmith::util; |
||||||
|
|
||||||
|
my $c = esmith::ConfigDB->open_ro || die "Couldn't open config db\n"; |
||||||
|
my $a = esmith::AccountsDB->open_ro || die "Couldn't open accounts db\n"; |
||||||
|
|
||||||
|
my $event = $ARGV [0] || die "Event name arg missing\n";; |
||||||
|
my @lists; |
||||||
|
|
||||||
|
if ($ARGV[1]){ |
||||||
|
@lists = $a->get($ARGV[1]); |
||||||
|
} |
||||||
|
|
||||||
|
@lists = $a->get_all_by_prop(type=>'minilist') |
||||||
|
if (scalar @lists lt 1); |
||||||
|
|
||||||
|
|
||||||
|
foreach my $list (@lists){ |
||||||
|
my $name = $list->key; |
||||||
|
unless ($list->prop('type') eq 'minilist'){ |
||||||
|
warn "Account $name is not a mailinglist account.\n"; |
||||||
|
next; |
||||||
|
} |
||||||
|
my $members = $list->prop('Members') || ''; |
||||||
|
|
||||||
|
esmith::util::processTemplate( |
||||||
|
{ |
||||||
|
CONFREF => |
||||||
|
{ |
||||||
|
Members => $members, |
||||||
|
}, |
||||||
|
|
||||||
|
TEMPLATE_PATH => |
||||||
|
"/var/qmail/alias/.qmail-group", |
||||||
|
|
||||||
|
OUTPUT_FILENAME => "/var/qmail/alias/.qmail-$name", |
||||||
|
} |
||||||
|
); |
||||||
|
|
||||||
|
unless (-f "/var/qmail/alias/.qmail-$name-default"){ |
||||||
|
symlink "/var/qmail/alias/.qmail-$name", |
||||||
|
"/var/qmail/alias/.qmail-$name-default"; |
||||||
|
} |
||||||
|
} |
||||||
|
exit (0); |
||||||
|
|
||||||
@ -0,0 +1,118 @@ |
|||||||
|
<lexicon lang="en-us"> |
||||||
|
<entry> |
||||||
|
<base>MINILIST</base> |
||||||
|
<trans>Mailing lists</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>FORM_TITLE</base> |
||||||
|
<trans>Create, modify, or remove mailing lists</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>CREATE_LIST</base> |
||||||
|
<trans>Create a new list</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_NAME</base> |
||||||
|
<trans> |
||||||
|
The list name will be used as mail address for the list. |
||||||
|
It needs to contains only lowercases letters, numbers, periods (.), hyphens (-) and undescores (_). |
||||||
|
It must start with a letter or a number. |
||||||
|
</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LABEL_NAME</base> |
||||||
|
<trans>Name</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LABEL_DESC</base> |
||||||
|
<trans>Description</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_DESC</base> |
||||||
|
<trans>You can enter a description for this list</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LABEL_MEMBERS</base> |
||||||
|
<trans>Members</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_MEMBERS</base> |
||||||
|
<trans>Enter here the mail addresses which will be part of this list. One address per line. You can also enter user login.</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>VALIDATE</base> |
||||||
|
<trans>Validate</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>REMOVE_LIST</base> |
||||||
|
<trans>Remove a list</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_REMOVE</base> |
||||||
|
<trans>You are about to remove the following list. Are you sure you want to continue ?</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>REMOVE</base> |
||||||
|
<trans>Remove</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY_LIST</base> |
||||||
|
<trans>Modify a list</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LIST_ADD</base> |
||||||
|
<trans>Add a new list</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>NO_LIST_CREATED</base> |
||||||
|
<trans>Ther's no list configured</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LIST</base> |
||||||
|
<trans>List</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESCRIPTION</base> |
||||||
|
<trans>Description</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>ACTION</base> |
||||||
|
<trans>Action</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY</base> |
||||||
|
<trans>Modify</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>CREATE_ERROR</base> |
||||||
|
<trans>An error occured during list creation</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>CREATE_SUCCESS</base> |
||||||
|
<trans>List successfully created</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY_ERROR</base> |
||||||
|
<trans>An error occured during list modification</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY_SUCCESS</base> |
||||||
|
<trans>List successfully modified</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DELETE_ERROR</base> |
||||||
|
<trans>An error occured during list removal</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DELETE_SUCCESS</base> |
||||||
|
<trans>List successfully deleted</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>INVALID_CHARS</base> |
||||||
|
<trans>{$string} contains invalid characters</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>ACCOUNT_CLASH</base> |
||||||
|
<trans>Another account named {$string} allready exists on this system</trans> |
||||||
|
</entry> |
||||||
|
</lexicon> |
||||||
@ -0,0 +1,118 @@ |
|||||||
|
<lexicon lang="fr"> |
||||||
|
<entry> |
||||||
|
<base>MINILIST</base> |
||||||
|
<trans>Mailing lists</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>FORM_TITLE</base> |
||||||
|
<trans>Création, modification ou suppression des listes</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>CREATE_LIST</base> |
||||||
|
<trans>Création d'une nouvelle liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_NAME</base> |
||||||
|
<trans> |
||||||
|
Le nom de la liste sera utilisé comme adresse mail. |
||||||
|
Il ne doit contenir que des lettres minuscules, des nombres, des points (.), des traits d'union (-) et des underscores (_). |
||||||
|
Il doit commencer par une lettre ou un nombre. |
||||||
|
</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LABEL_NAME</base> |
||||||
|
<trans>Nom</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LABEL_DESC</base> |
||||||
|
<trans>Description</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_DESC</base> |
||||||
|
<trans>Vous pouvez entrer une description pour cette liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LABEL_MEMBERS</base> |
||||||
|
<trans>Membres</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_MEMBERS</base> |
||||||
|
<trans>Entrez ici les adresses mail membres de la liste. Une adresse par ligne. Vous pouvez aussi entrer des identifiants d'utilisateurs.</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>VALIDATE</base> |
||||||
|
<trans>Valider</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>REMOVE_LIST</base> |
||||||
|
<trans>Suppression d'une liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESC_REMOVE</base> |
||||||
|
<trans>Vous êtes sur le point de supprimer la liste suivante. Êtes-vous sûre de vouloir continuer ?</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>REMOVE</base> |
||||||
|
<trans>Supprimer</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY_LIST</base> |
||||||
|
<trans>Modification d'une liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LIST_ADD</base> |
||||||
|
<trans>Ajouter une liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>NO_LIST_CREATED</base> |
||||||
|
<trans>Aucune liste n'est configurée</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>LIST</base> |
||||||
|
<trans>Liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DESCRIPTION</base> |
||||||
|
<trans>Description</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>ACTION</base> |
||||||
|
<trans>Action</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY</base> |
||||||
|
<trans>Modifier</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>CREATE_ERROR</base> |
||||||
|
<trans>Une erreur est sruvenue pendant la création de la liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>CREATE_SUCCESS</base> |
||||||
|
<trans>La liste a été créée</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY_ERROR</base> |
||||||
|
<trans>Une erreur est survenue durant la modification de la liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>MODIFY_SUCCESS</base> |
||||||
|
<trans>La liste a été modifiée</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DELETE_ERROR</base> |
||||||
|
<trans>Une erreur est survenue durant la suppression de la liste</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>DELETE_SUCCESS</base> |
||||||
|
<trans>La liste a été supprimée</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>INVALID_CHARS</base> |
||||||
|
<trans>{$string} contient des caractères invalides</trans> |
||||||
|
</entry> |
||||||
|
<entry> |
||||||
|
<base>ACCOUNT_CLASH</base> |
||||||
|
<trans>Un autre compte nommé {$string} existe sur ce système</trans> |
||||||
|
</entry> |
||||||
|
</lexicon> |
||||||
@ -0,0 +1,17 @@ |
|||||||
|
{ |
||||||
|
use esmith::AccountsDB; |
||||||
|
|
||||||
|
$OUT = ""; |
||||||
|
|
||||||
|
my $a = esmith::AccountsDB->open_ro(); |
||||||
|
|
||||||
|
foreach my $list ($a->get_all_by_prop(type=>'minilist')){ |
||||||
|
my $key = $list->key; |
||||||
|
if ($key =~ /\@/){ |
||||||
|
$OUT .= "$key\n"; |
||||||
|
} |
||||||
|
else{ |
||||||
|
$OUT .= "$key\@$_\n" for (@domains); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
@ -0,0 +1,93 @@ |
|||||||
|
#!/usr/bin/perl -wT |
||||||
|
|
||||||
|
# vim: ft=xml ts=4 sw=4 et: |
||||||
|
#---------------------------------------------------------------------- |
||||||
|
# heading : Collaboration |
||||||
|
# description : MINILIST |
||||||
|
# navigation : 2200 2400 |
||||||
|
#---------------------------------------------------------------------- |
||||||
|
#---------------------------------------------------------------------- |
||||||
|
# copyright (C) 2012 Firewall Services |
||||||
|
# daniel@firewall-services.com |
||||||
|
# |
||||||
|
# This program is free software; you can redistribute it and/or modify |
||||||
|
# it under the terms of the GNU General Public License as published by |
||||||
|
# the Free Software Foundation; either version 2 of the License, or |
||||||
|
# (at your option) any later version. |
||||||
|
# |
||||||
|
# This program is distributed in the hope that it will be useful, |
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||||||
|
# GNU General Public License for more details. |
||||||
|
# |
||||||
|
# You should have received a copy of the GNU General Public License |
||||||
|
# along with this program; if not, write to the Free Software |
||||||
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
||||||
|
# |
||||||
|
#---------------------------------------------------------------------- |
||||||
|
|
||||||
|
|
||||||
|
use strict; |
||||||
|
use esmith::FormMagick::Panel::minilist; |
||||||
|
my $f = esmith::FormMagick::Panel::minilist->new(); |
||||||
|
$f->display(); |
||||||
|
|
||||||
|
|
||||||
|
__DATA__ |
||||||
|
<form title="FORM_TITLE" header="/etc/e-smith/web/common/head.tmpl" footer="/etc/e-smith/web/common/foot.tmpl"> |
||||||
|
<page name="First" pre-event="print_status_message()"> |
||||||
|
<subroutine src="show_initial()"/> |
||||||
|
</page> |
||||||
|
<page name="CreateList" pre-event="turn_off_buttons()" |
||||||
|
post-event="create_list()"> |
||||||
|
<title>CREATE_LIST</title> |
||||||
|
<description>DESC_NAME</description> |
||||||
|
<field type="text" id="listName" |
||||||
|
validation="validate_list_name"> |
||||||
|
<label>LABEL_NAME</label> |
||||||
|
</field> |
||||||
|
<field type="text" id="listDesc" validation="validate_description"> |
||||||
|
<label>LABEL_DESC</label> |
||||||
|
<description>DESC_DESC</description> |
||||||
|
</field> |
||||||
|
<field type="textarea" id="members" validation="validate_list_members()" |
||||||
|
rows="12"> |
||||||
|
<label>LABEL_MEMBERS</label> |
||||||
|
<description>DESC_MEMBERS</description> |
||||||
|
</field> |
||||||
|
<subroutine src="print_button('VALIDATE')" /> |
||||||
|
</page> |
||||||
|
<page name="Delete" pre-event="turn_off_buttons()" |
||||||
|
post-event="delete_list()"> |
||||||
|
<title>REMOVE_LIST</title> |
||||||
|
<field type="literal" id="listName" value="$q->param('listName')"> |
||||||
|
<label>LABEL_NAME</label> |
||||||
|
<description>DESC_REMOVE</description> |
||||||
|
</field> |
||||||
|
<field type="literal" id="listDesc" value="get_description()"> |
||||||
|
<label>LABEL_DESC</label> |
||||||
|
</field> |
||||||
|
<field type="literal" id="members" value="get_html_members()"> |
||||||
|
<label>LABEL_MEMBERS</label> |
||||||
|
</field> |
||||||
|
<subroutine src="print_button('REMOVE')" /> |
||||||
|
</page> |
||||||
|
<page name="Modify" pre-event="turn_off_buttons()" |
||||||
|
post-event="modify_list()"> |
||||||
|
<title>MODIFY_LIST</title> |
||||||
|
<field type="literal" id="listName" value="$q->param('listName')"> |
||||||
|
<label>LABEL_NAME</label> |
||||||
|
</field> |
||||||
|
<field type="text" id="listDesc" value="get_description()" |
||||||
|
validation="validate_list_description"> |
||||||
|
<label>LABEL_DESC</label> |
||||||
|
</field> |
||||||
|
<field type="textarea" id="members" validation="validate_list_members()" |
||||||
|
value="get_members()" rows="12"> |
||||||
|
<label>LABEL_MEMBERS</label> |
||||||
|
<description>DESC_MEMBERS</description> |
||||||
|
</field> |
||||||
|
<subroutine src="print_button('VALIDATE')" /> |
||||||
|
</page> |
||||||
|
</form> |
||||||
|
|
||||||
@ -0,0 +1,210 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
|
||||||
|
package esmith::FormMagick::Panel::minilist; |
||||||
|
|
||||||
|
use strict; |
||||||
|
|
||||||
|
use esmith::FormMagick; |
||||||
|
use esmith::ConfigDB; |
||||||
|
use esmith::AccountsDB; |
||||||
|
use File::Basename; |
||||||
|
use Exporter; |
||||||
|
use Carp; |
||||||
|
|
||||||
|
our @ISA = qw(esmith::FormMagick Exporter); |
||||||
|
|
||||||
|
our @EXPORT = qw( |
||||||
|
new |
||||||
|
get_accounts_prop |
||||||
|
get_members |
||||||
|
get_html_members |
||||||
|
get_description |
||||||
|
show_initial |
||||||
|
create_list |
||||||
|
modify_list |
||||||
|
delete_list |
||||||
|
validate_list_name |
||||||
|
validate_list_description |
||||||
|
validate_list_members |
||||||
|
); |
||||||
|
|
||||||
|
our $a = esmith::AccountsDB->open() || die "Couldn't open accounts"; |
||||||
|
our $db = esmith::ConfigDB->open || die "Couldn't open config db"; |
||||||
|
|
||||||
|
sub new { |
||||||
|
shift; |
||||||
|
my $self = esmith::FormMagick->new(); |
||||||
|
$self->{calling_package} = (caller)[0]; |
||||||
|
bless $self; |
||||||
|
return $self; |
||||||
|
} |
||||||
|
|
||||||
|
# return the value of a prop from an account object |
||||||
|
sub get_accounts_prop { |
||||||
|
my $fm = shift; |
||||||
|
my $item = shift; |
||||||
|
my $prop = shift; |
||||||
|
|
||||||
|
my $record = $a->get($item); |
||||||
|
|
||||||
|
if ($record) { |
||||||
|
return $record->prop($prop); |
||||||
|
} |
||||||
|
else { |
||||||
|
return ''; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# Return the members of a list |
||||||
|
sub get_members { |
||||||
|
my $fm = shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
my $list = $q->param('listName') || ''; |
||||||
|
my @members = split /[;,]/, get_accounts_prop($fm,$list,'Members'); |
||||||
|
my $members = join "\n", @members; |
||||||
|
return $members; |
||||||
|
} |
||||||
|
|
||||||
|
# return the members of a list |
||||||
|
# to display in HTML |
||||||
|
sub get_html_members { |
||||||
|
my $fm = shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
my $list = $q->param('listName') || ''; |
||||||
|
my $members = get_members($fm,$list); |
||||||
|
$members =~ s/\n/<br>/g; |
||||||
|
return $members; |
||||||
|
} |
||||||
|
|
||||||
|
# return the description of a list |
||||||
|
sub get_description { |
||||||
|
my $fm = shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
my $list = $q->param('listName') || ''; |
||||||
|
return get_accounts_prop($fm,$list,'Description'); |
||||||
|
} |
||||||
|
|
||||||
|
# Print a table with the actual list and a button to create new ones |
||||||
|
sub show_initial () { |
||||||
|
my $fm = shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
|
||||||
|
my @lists = $a->get_all_by_prop(type=>'minilist'); |
||||||
|
|
||||||
|
print $q->Tr($q->td( |
||||||
|
"<p><a class=\"button-like\" href=\"minilist?page_stack=;page=0;&wherenext=CreateList\">" |
||||||
|
. $fm->localise("LIST_ADD") |
||||||
|
. "</a></p>")); |
||||||
|
|
||||||
|
if ( scalar @lists == 0 ) { |
||||||
|
print $q->Tr($q->td( |
||||||
|
'<p><b>' . $fm->localise("NO_LIST_CREATED") . '</p></b>')); |
||||||
|
} |
||||||
|
else { |
||||||
|
print $q->start_table({-CLASS => "sme-border"}),"\n"; |
||||||
|
print "<tr><th class=\"sme-border\">" |
||||||
|
. $fm->localise("LIST") |
||||||
|
. "</th> <th class=\"sme-border\">" |
||||||
|
. $fm->localise('DESCRIPTION') |
||||||
|
. "</th><th class=\"sme-border\" colspan=\"2\">" |
||||||
|
. $fm->localise('ACTION') |
||||||
|
. "</th></tr>"; |
||||||
|
foreach my $list ( @lists ) { |
||||||
|
my $name = $list->key; |
||||||
|
print "<tr>" . "<td class=\"sme-border\">" |
||||||
|
. $name . "</td>" . "<td class=\"sme-border\">" |
||||||
|
. $list->prop('Description') . "</td>" |
||||||
|
. "<td class=\"sme-border\"><a href=\"minilist?page_stack=;page=0;&listName=$name&wherenext=Modify\">" |
||||||
|
. $fm->localise("MODIFY") . "</a></td>" |
||||||
|
. "<td class=\"sme-border\"><a href=\"minilist?page_stack=;page=0;&listName=$name&wherenext=Delete\">" |
||||||
|
. $fm->localise("REMOVE") . "</a>" . "</td></tr>"; |
||||||
|
|
||||||
|
} |
||||||
|
print $q->end_table,"\n"; |
||||||
|
} |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# Create a new list |
||||||
|
sub create_list { |
||||||
|
my $fm =shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
my $name =$q->param('listName') || ''; |
||||||
|
my @members = split /\r?\n/, ($q->param('members') || ''); |
||||||
|
my $members = join ",", @members; |
||||||
|
|
||||||
|
my %props = ( |
||||||
|
'type', 'minilist', 'Description', |
||||||
|
$q->param('listDesc'), 'Members', $members |
||||||
|
); |
||||||
|
|
||||||
|
$a->new_record( $name, \%props ); |
||||||
|
($name) = ($name =~ /^([a-z0-9][\-\_\.a-z0-9]*)$/); |
||||||
|
return system("/sbin/e-smith/signal-event", "list-create", "$name") ? |
||||||
|
$fm->error('CREATE_ERROR') : $fm->success('CREATE_SUCCESS'); |
||||||
|
} |
||||||
|
|
||||||
|
# modify an existinbg list |
||||||
|
sub modify_list { |
||||||
|
my $fm =shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
my $name =$q->param('listName') || ''; |
||||||
|
my @members = split /\r?\n/, ($q->param('members') || ''); |
||||||
|
my $members = join ",", @members; |
||||||
|
$a->set_prop($name,'Description',$q->param('listDesc')); |
||||||
|
$a->set_prop($name,'Members',$members); |
||||||
|
($name) = ($name =~ /^([a-z0-9][\-\_\.a-z0-9]*)$/); |
||||||
|
return system("/sbin/e-smith/signal-event", "list-modify", "$name") ? |
||||||
|
$fm->error('MODIFY_ERROR') : $fm->success('MODIFY_SUCCESS'); |
||||||
|
} |
||||||
|
|
||||||
|
# delete a list (after confirmation) |
||||||
|
sub delete_list { |
||||||
|
my $fm =shift; |
||||||
|
my $q = $fm->{cgi}; |
||||||
|
my $name =$q->param('listName') || ''; |
||||||
|
return $fm->error('DELETE_ERROR') unless $a->get($name)->delete; |
||||||
|
($name) = ($name =~ /^([a-z0-9][\-\_\.a-z0-9]*)$/); |
||||||
|
return system("/sbin/e-smith/signal-event", "list-delete", "$name") ? |
||||||
|
$fm->error('DELETE_ERROR') : $fm->success('DELETE_SUCCESS'); |
||||||
|
} |
||||||
|
|
||||||
|
# Validate list name |
||||||
|
sub validate_list_name { |
||||||
|
my $fm = shift; |
||||||
|
my $name = shift; |
||||||
|
unless ($name =~ /^([a-zA-Z0-9][\_\.\-a-zA-Z0-9]*)$/){ |
||||||
|
return $fm->localise('INVALID_CHARS',{string => $name}); |
||||||
|
} |
||||||
|
if ($a->get($name)){ |
||||||
|
return $fm->localise('ACCOUNT_CLASH',{string => $name}); |
||||||
|
} |
||||||
|
return "OK"; |
||||||
|
} |
||||||
|
|
||||||
|
# Validate list description |
||||||
|
sub validate_list_description { |
||||||
|
my $fm = shift; |
||||||
|
my $desc = shift; |
||||||
|
unless ($desc =~ /^([a-zA-Z0-9][\s\w\.\-]*)$/){ |
||||||
|
return $fm->localise('INVALID_CHARS',{string => $desc}); |
||||||
|
} |
||||||
|
return "OK"; |
||||||
|
} |
||||||
|
|
||||||
|
# Validate memebrs of a list |
||||||
|
sub validate_list_members { |
||||||
|
my $fm = shift; |
||||||
|
my $members = shift; |
||||||
|
foreach my $member (split /\r?\n/, $members) { |
||||||
|
my $acc = $a->get($member); |
||||||
|
if ($acc){ |
||||||
|
my $type = $acc->prop('type') || 'none'; |
||||||
|
next if ($type eq 'user'); |
||||||
|
} |
||||||
|
unless ($member =~ /^[a-zA-Z0-9][\w\.\-]*\@([a-zA-Z0-9\._\-]+\.[a-zA-Z0-9\._\-]+)$/){ |
||||||
|
return $fm->localise('INVALID_CHARS',{string => $member}); |
||||||
|
} |
||||||
|
} |
||||||
|
return "OK"; |
||||||
|
} |
||||||
@ -0,0 +1,52 @@ |
|||||||
|
%define version 0.1.1 |
||||||
|
%define release 1 |
||||||
|
%define name smeserver-minilist |
||||||
|
|
||||||
|
|
||||||
|
Summary: minilist provide a panel to manage simple mailing lists |
||||||
|
Name: %{name} |
||||||
|
Version: %{version} |
||||||
|
Release: %{release}%{?dist} |
||||||
|
License: GPL |
||||||
|
Group: Networking/Daemons |
||||||
|
Source: %{name}-%{version}.tar.gz |
||||||
|
|
||||||
|
BuildRoot: /var/tmp/%{name}-%{version}-%{release}-buildroot |
||||||
|
BuildArchitectures: noarch |
||||||
|
BuildRequires: e-smith-devtools |
||||||
|
|
||||||
|
Requires: e-smith-base >= 5.2.0 |
||||||
|
|
||||||
|
%description |
||||||
|
Provides group like mail fonctionnality, but lets you enter arbitrary email addresses |
||||||
|
|
||||||
|
%changelog |
||||||
|
* Thu Nov 22 2012 Daniel Berteaud <daniel@firewall-services.com> - 0.1.1-1 |
||||||
|
- Add template for qpsmtpd goodrcptto |
||||||
|
|
||||||
|
* Thu Nov 22 2012 Daniel Berteaud <daniel@firewall-services.com> - 0.1.0-1 |
||||||
|
- initial release |
||||||
|
|
||||||
|
%prep |
||||||
|
%setup -q -n %{name}-%{version} |
||||||
|
|
||||||
|
%build |
||||||
|
perl createlinks |
||||||
|
|
||||||
|
%install |
||||||
|
/bin/rm -rf $RPM_BUILD_ROOT |
||||||
|
(cd root ; /usr/bin/find . -depth -print | /bin/cpio -dump $RPM_BUILD_ROOT) |
||||||
|
/bin/rm -f %{name}-%{version}-filelist |
||||||
|
/sbin/e-smith/genfilelist $RPM_BUILD_ROOT \ |
||||||
|
> %{name}-%{version}-filelist |
||||||
|
|
||||||
|
%files -f %{name}-%{version}-filelist |
||||||
|
%defattr(-,root,root) |
||||||
|
|
||||||
|
%clean |
||||||
|
rm -rf $RPM_BUILD_ROOT |
||||||
|
|
||||||
|
%pre |
||||||
|
|
||||||
|
%post |
||||||
|
|
||||||
Loading…
Reference in new issue