initial commit of file from CVS for smeserver-phplist on Sat Sep 7 20:52:04 AEST 2024

root/etc/e-smith/events/actions/phplist-create-pseudo

@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use esmith::AccountsDB;
+
+my $a = esmith::AccountsDB->open or die "Couldn't open AccountsDB\n";
+
+my $pseudo = $a->get('listreports');
+
+if (!$pseudo){
+  $a->new_record('listreports',{
+        type         => 'pseudonym',
+        Account      => 'admin'
+  });
+  unless ( system("/sbin/e-smith/signal-event", "pseudonym-create", "listreports") == 0 ){
+    die "Failed to create pseudonym listreports\n";
+  }
+}
+

root/etc/e-smith/events/actions/phplist-initialise

@@ -0,0 +1,6 @@
+#!/bin/bash
+password=$(config getprop phplist AdminPass)
+domain=$(config get DomainName)
+ADMIN_PASSWORD=$password ADMIN_EMAIL=admin@$domain phplist -pinitialise
+phplist -pdbcheck
+phplist -pupgrade