Automatic commit of package [smeserver-minilist] release [0.1.11-1].

Created by command:

/usr/bin/tito tag

.tito/packages/.readme

@@ -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.

.tito/packages/smeserver-minilist

@@ -0,0 +1 @@
+0.1.11-1 ./

.tito/releasers.conf

@@ -0,0 +1 @@
+../../tito_libs/releasers.conf

.tito/tito.props

@@ -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

createlinks

@@ -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");

root/etc/e-smith/events/actions/qmail-update-list

@@ -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;

root/etc/e-smith/templates/var/qmail/users/assign/71MinilistPseudo

@@ -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;
+}

root/etc/e-smith/templates/var/service/qpsmtpd/config/badrcptto_ext/20InternalMinilist

@@ -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";
+        }
+    }
+}

root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm

@@ -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)){

smeserver-minilist.spec

@@ -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