Compare commits

...

23 Commits
master ... sme9

Author SHA1 Message Date
Daniel Berteaud ad0e17a293 Automatic commit of package [smeserver-minilist] release [0.1.11-1]. 4 years ago
Daniel Berteaud a2d77471b3 Fix inversion of templates between qpsmtpd and qmail 4 years ago
Daniel Berteaud bd5ea6ed14 Automatic commit of package [smeserver-minilist] release [0.1.10-1]. 4 years ago
Daniel Berteaud b8a5c09c7e Fix badrcptto_ext template 4 years ago
Daniel Berteaud 3aab0fa5bd Automatic commit of package [smeserver-minilist] release [0.1.9-1]. 4 years ago
Daniel Berteaud 419676667a File to expand is badrcptto_ext 4 years ago
Daniel Berteaud 12caa79f61 Automatic commit of package [smeserver-minilist] release [0.1.8-1]. 4 years ago
Daniel Berteaud 3f47e54646 Add missing event links for the new Visible prop support 4 years ago
Daniel Berteaud d4981e9575 Automatic commit of package [smeserver-minilist] release [0.1.7-1]. 4 years ago
Daniel Berteaud 25be7c21b4 Add support for the Visible prop on minilists 4 years ago
Daniel Berteaud ed7d9791bd Automatic commit of package [smeserver-minilist] release [0.1.6-1]. 5 years ago
Daniel Berteaud 709c09b171 Adapt spec file for builds with tito 5 years ago
Daniel Berteaud 2bfb550947 Escape dots in minilist names to semicolons 5 years ago
Daniel Berteaud 04cf86b808 Automatic commit of package [smeserver-minilist] release [0.1.5-1]. 5 years ago
Daniel Berteaud 3ce4522256 Configure tito build 5 years ago
Daniel Berteaud 1ed84a388e Initialized to use tito. 5 years ago
Daniel Berteaud db43b516b0 Forbid uppercase in list name as qmail doesn't support them 5 years ago
Daniel Berteaud 93b715e9b2 Spec file update 9 years ago
Daniel Berteaud bf53652eb2 Update list in email-update and bootstrap-console-save 9 years ago
Daniel Berteaud ec59d1223b Spec file update 11 years ago
Daniel Berteaud c578d1e15b Add support for pseudonyms on minilists 11 years ago
Daniel Berteaud 5b5c40db7d update the spec file 11 years ago
Daniel Berteaud 4e36a5b25d Adapt perl lib path for SME9 11 years ago
  1. 3
      .tito/packages/.readme
  2. 1
      .tito/packages/smeserver-minilist
  3. 1
      .tito/releasers.conf
  4. 6
      .tito/tito.props
  5. 7
      createlinks
  6. 3
      root/etc/e-smith/events/actions/qmail-update-list
  7. 52
      root/etc/e-smith/templates/var/qmail/users/assign/71MinilistPseudo
  8. 10
      root/etc/e-smith/templates/var/service/qpsmtpd/config/badrcptto_ext/20InternalMinilist
  9. 2
      root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm
  10. 54
      smeserver-minilist.spec

@ -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 @@
../../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-create", "20");
event_link("qmail-update-list", "list-modify", "20"); event_link("qmail-update-list", "list-modify", "20");
event_link("qmail-delete-list", "list-delete", "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/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){ foreach my $list (@lists){
my $name = $list->key; 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'){ unless ($list->prop('type') eq 'minilist'){
warn "Account $name is not a mailinglist account.\n"; warn "Account $name is not a mailinglist account.\n";
next; 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 { sub validate_list_name {
my $fm = shift; my $fm = shift;
my $name = 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}); return $fm->localise('INVALID_CHARS',{string => $name});
} }
if ($a->get($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 Summary: minilist provide a panel to manage simple mailing lists
Name: %{name} Name: smeserver-minilist
Version: %{version} Version: 0.1.11
Release: %{release}%{?dist} Release: 1%{?dist}
Epoch: 9
License: GPL License: GPL
Group: Networking/Daemons Group: Networking/Daemons
Source: %{name}-%{version}.tar.gz 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 Provides group like mail fonctionnality, but lets you enter arbitrary email addresses
%changelog %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 * Thu Nov 22 2012 Daniel Berteaud <daniel@firewall-services.com> - 0.1.1-1
- Add template for qpsmtpd goodrcptto - Add template for qpsmtpd goodrcptto

Loading…
Cancel
Save