Compare commits
23 Commits
Author | SHA1 | Date |
---|---|---|
Daniel Berteaud | ad0e17a293 | |
Daniel Berteaud | a2d77471b3 | |
Daniel Berteaud | bd5ea6ed14 | |
Daniel Berteaud | b8a5c09c7e | |
Daniel Berteaud | 3aab0fa5bd | |
Daniel Berteaud | 419676667a | |
Daniel Berteaud | 12caa79f61 | |
Daniel Berteaud | 3f47e54646 | |
Daniel Berteaud | d4981e9575 | |
Daniel Berteaud | 25be7c21b4 | |
Daniel Berteaud | ed7d9791bd | |
Daniel Berteaud | 709c09b171 | |
Daniel Berteaud | 2bfb550947 | |
Daniel Berteaud | 04cf86b808 | |
Daniel Berteaud | 3ce4522256 | |
Daniel Berteaud | 1ed84a388e | |
Daniel Berteaud | db43b516b0 | |
Daniel Berteaud | 93b715e9b2 | |
Daniel Berteaud | bf53652eb2 | |
Daniel Berteaud | ec59d1223b | |
Daniel Berteaud | c578d1e15b | |
Daniel Berteaud | 5b5c40db7d | |
Daniel Berteaud | 4e36a5b25d |
|
@ -0,0 +1,3 @@
|
|||
the .tito/packages directory contains metadata files
|
||||
named after their packages. Each file has the latest tagged
|
||||
version and the project's relative directory.
|
|
@ -0,0 +1 @@
|
|||
0.1.11-1 ./
|
|
@ -0,0 +1 @@
|
|||
../../tito_libs/releasers.conf
|
|
@ -0,0 +1,6 @@
|
|||
[buildconfig]
|
||||
builder = tito.builder.Builder
|
||||
tagger = tito.tagger.VersionTagger
|
||||
changelog_do_not_remove_cherrypick = 0
|
||||
changelog_format = %s (%ae)
|
||||
lib_dir = ../tito_libs
|
|
@ -7,4 +7,11 @@ 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");
|
||||
event_link("qmail-update-list", "email-update", "20");
|
||||
event_link("qmail-update-list", "bootstrap-console-save", "55");
|
||||
templates2events("/var/service/qpsmtpd/config/goodrcptto", qw(list-create list-modify list-delete));
|
||||
templates2events("/var/service/qpsmtpd/config/badrcptto_ext", qw(list-create list-modify list-delete));
|
||||
templates2events("/var/qmail/control/badrcptto", qw(list-create list-modify list-delete));
|
||||
safe_symlink("sighub", "root/etc/e-smith/events/list-create/services2adjust/qmail");
|
||||
safe_symlink("sighub", "root/etc/e-smith/events/list-modify/services2adjust/qmail");
|
||||
safe_symlink("sighub", "root/etc/e-smith/events/list-delete/services2adjust/qmail");
|
||||
|
|
|
@ -24,6 +24,9 @@ if ($ARGV[1]){
|
|||
|
||||
foreach my $list (@lists){
|
||||
my $name = $list->key;
|
||||
# dots must be escaped by replacing them with a :
|
||||
# see http://www.lifewithqmail.com/lwq.html#dots-in-extensions
|
||||
$name =~ s/\./:/g;
|
||||
unless ($list->prop('type') eq 'minilist'){
|
||||
warn "Account $name is not a mailinglist account.\n";
|
||||
next;
|
||||
|
|
|
@ -0,0 +1,52 @@
|
|||
{
|
||||
$OUT = '';
|
||||
my (undef, undef, $uid, $gid, undef, undef, undef, $dir, undef)
|
||||
= getpwnam("alias");
|
||||
unless (defined $uid && defined $gid && defined $dir)
|
||||
{
|
||||
my $msg =
|
||||
"Failed to obtain user details for \'alias\' "
|
||||
. "while processing pseudonym assignments.";
|
||||
|
||||
warn "$msg\n";
|
||||
$OUT = $msg;
|
||||
return;
|
||||
}
|
||||
|
||||
my $alias_assign = "alias:${uid}:${gid}:${dir}";
|
||||
|
||||
undef $uid;
|
||||
undef $gid;
|
||||
undef $dir;
|
||||
|
||||
use esmith::AccountsDB;
|
||||
my $adb = esmith::AccountsDB->open_ro();
|
||||
|
||||
foreach $pseudonym ( $adb->pseudonyms )
|
||||
{
|
||||
next if ( $pseudonym->key =~ /@/ ); # user@domain goes in virtualdomains
|
||||
|
||||
my $account = $pseudonym->prop('Account');
|
||||
unless ($account)
|
||||
{
|
||||
my $key = $pseudonym->key;
|
||||
warn "pseudonym $key has no account property";
|
||||
next;
|
||||
}
|
||||
$account = $adb->get($pseudonym->prop('Account'));
|
||||
unless ($account)
|
||||
{
|
||||
my $key = $pseudonym->key;
|
||||
warn "pseudonym $key points to account which does not exist";
|
||||
next;
|
||||
}
|
||||
if ($account->prop('type') eq "minilist")
|
||||
{
|
||||
$OUT .= "=" . $pseudonym->key . ":${alias_assign}:-:" . $account->key . ":\n";
|
||||
$OUT .= "+" . $pseudonym->key . "-:${alias_assign}:-:" . $account->key . ":\n";
|
||||
next;
|
||||
}
|
||||
}
|
||||
chomp($OUT);
|
||||
$OUT = "=alias:${alias_assign}:::" unless $OUT;
|
||||
}
|
|
@ -0,0 +1,10 @@
|
|||
{
|
||||
$OUT .= '';
|
||||
foreach my $list ( $a->get_all_by_prop( type => 'minilist' ) ){
|
||||
next unless ( $list->prop('Visible') || '') =~ m/^(internal|none)$/i;
|
||||
|
||||
foreach my $domain ( $d->domains ){
|
||||
$OUT .= $list->key . '@' . $domain->key . "\n";
|
||||
}
|
||||
}
|
||||
}
|
|
@ -173,7 +173,7 @@ sub delete_list {
|
|||
sub validate_list_name {
|
||||
my $fm = shift;
|
||||
my $name = shift;
|
||||
unless ($name =~ /^([a-zA-Z0-9][\_\.\-a-zA-Z0-9]*)$/){
|
||||
unless ($name =~ /^([a-z0-9][\_\.\-a-z0-9]*)$/){
|
||||
return $fm->localise('INVALID_CHARS',{string => $name});
|
||||
}
|
||||
if ($a->get($name)){
|
|
@ -1,12 +1,8 @@
|
|||
%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}
|
||||
Name: smeserver-minilist
|
||||
Version: 0.1.11
|
||||
Release: 1%{?dist}
|
||||
Epoch: 9
|
||||
License: GPL
|
||||
Group: Networking/Daemons
|
||||
Source: %{name}-%{version}.tar.gz
|
||||
|
@ -21,6 +17,48 @@ Requires: e-smith-base >= 5.2.0
|
|||
Provides group like mail fonctionnality, but lets you enter arbitrary email addresses
|
||||
|
||||
%changelog
|
||||
* Fri Dec 18 2020 Daniel Berteaud <daniel@firewall-services.com> 0.1.11-1
|
||||
- Fix inversion of templates between qpsmtpd and qmail (daniel@firewall-
|
||||
services.com)
|
||||
|
||||
* Fri Dec 18 2020 Daniel Berteaud <daniel@firewall-services.com> 0.1.10-1
|
||||
- Fix badrcptto_ext template (daniel@firewall-services.com)
|
||||
|
||||
* Fri Dec 18 2020 Daniel Berteaud <daniel@firewall-services.com> 0.1.9-1
|
||||
- File to expand is badrcptto_ext (daniel@firewall-services.com)
|
||||
|
||||
* Fri Dec 18 2020 Daniel Berteaud <daniel@firewall-services.com> 0.1.8-1
|
||||
- Add missing event links for the new Visible prop support (daniel@firewall-
|
||||
services.com)
|
||||
|
||||
* Fri Dec 18 2020 Daniel Berteaud <daniel@firewall-services.com> 0.1.7-1
|
||||
- Add support for the Visible prop on minilists (daniel@firewall-services.com)
|
||||
|
||||
* Thu Mar 19 2020 Daniel Berteaud <daniel@firewall-services.com> 0.1.6-1
|
||||
- Adapt spec file for builds with tito (daniel@firewall-services.com)
|
||||
- Escape dots in minilist names to semicolons (daniel@firewall-services.com)
|
||||
|
||||
* Thu Mar 19 2020 Daniel Berteaud <daniel@firewall-services.com>
|
||||
- Escape dots in minilist names to semicolons (daniel@firewall-services.com)
|
||||
|
||||
* Thu Mar 19 2020 Daniel Berteaud <daniel@firewall-services.com>
|
||||
- Escape dots in minilist names to semicolons (daniel@firewall-services.com)
|
||||
|
||||
* Fri Oct 04 2019 Daniel Berteaud <daniel@firewall-services.com> 0.1.5-1
|
||||
- new package built with tito
|
||||
|
||||
* Fri Oct 4 2019 Daniel Berteaud <daniel@firewall-services.com> - 0.1.5-1
|
||||
- Forbid uppercase in list name as qmail doesn't support it
|
||||
|
||||
* Tue Jan 12 2016 Daniel Berteaud <daniel@firewall-services.com> - 0.1.4-1
|
||||
- Also update lists in email-update and bootstrap-console-save
|
||||
|
||||
* Wed Jan 8 2014 Daniel Berteaud <daniel@firewall-services.com> - 0.1.3-1
|
||||
- Add support for pseudonyms
|
||||
|
||||
* Wed Nov 13 2013 Daniel Berteaud <daniel@firewall-services.com> - 0.1.2-1
|
||||
- New branch for SME9
|
||||
|
||||
* Thu Nov 22 2012 Daniel Berteaud <daniel@firewall-services.com> - 0.1.1-1
|
||||
- Add template for qpsmtpd goodrcptto
|
||||
|
||||
|
|
Loading…
Reference in New Issue