Spec file update

.tito/packages/.readme

@@ -1,3 +0,0 @@
-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

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

.tito/releasers.conf

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

.tito/tito.props

@@ -1,6 +0,0 @@
-[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,11 +7,4 @@ 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", qw(list-create list-modify list-delete));
-templates2events("/var/qmail/control/badrcptto_ext", 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,9 +24,6 @@ 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/service/qpsmtpd/config/badrcptto_ext/20InternalMinilist

@@ -1,10 +0,0 @@
-{
-    $OUT .= '';
-    foreach my $list ( $a->get_all_by_prop( type => 'list' ){
-        next unless ( $list->prop('Visible') || '') =~ m/^(internal|none)$/i;
-
-        foreach my $domain ( $d->domains ){
-            $OUT .= $list->key . '@' . $domain->key . "\n";
-        }
-    }
-}

root/usr/lib/perl5/site_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-z0-9][\_\.\-a-z0-9]*)$/){
+    unless ($name =~ /^([a-zA-Z0-9][\_\.\-a-zA-Z0-9]*)$/){
         return $fm->localise('INVALID_CHARS',{string => $name});
     }
     if ($a->get($name)){

smeserver-minilist.spec

@@ -1,8 +1,12 @@
+%define version 0.1.2
+%define release 1
+%define name smeserver-minilist
+
+
 Summary: minilist provide a panel to manage simple mailing lists
-Name: smeserver-minilist
-Version: 0.1.9
-Release: 1%{?dist}
-Epoch: 9
+Name: %{name}
+Version: %{version}
+Release: %{release}%{?dist}
 License: GPL
 Group: Networking/Daemons
 Source: %{name}-%{version}.tar.gz
@@ -17,41 +21,9 @@ 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.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
+* Wed Jan 8 2014 Daniel Berteaud <daniel@firewall-services.com> - 0.1.2-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