#175 Add mailing list CSV support

Author: sbearcsiro

userdetails-cognito/src/main/groovy/au/org/ala/userdetails/CognitoUserService.groovy

@@ -464,6 +464,36 @@ class CognitoUserService implements IUserService<UserRecord, UserPropertyRecord,
         return null
     }
 
+    @Override
+    List<String[]> emailList(Date startDate, Date endDate) {
+        // Initialize list to hold all filtered users across paginated calls
+        def users = new ArrayList<UserType>()
+
+        // Pagination logic
+        def token = null
+        while (true) {
+            def response
+            if (token) {
+                response = cognitoIdp.listUsers(new ListUsersRequest().withUserPoolId(poolId).withPaginationToken(token))
+            } else {
+                response = cognitoIdp.listUsers(new ListUsersRequest().withUserPoolId(poolId))
+            }
+
+            // Filter users based on creation or last modified date and add to filtered_users list
+            users.addAll(response.getUsers().findAll {
+                (it.userCreateDate.after(startDate) && it.userCreateDate.before(endDate)) ||
+                (it.userLastModifiedDate.after(startDate) && it.userLastModifiedDate.before(endDate))
+            })
+
+            token = response.paginationToken
+            if (!token) {
+                break
+            }
+        }
+
+        return users.collect { [it.attributes.find { it.name == 'email' }.value, it.userCreateDate, it.userLastModifiedDate].toArray(new String[0]) }
+    }
+
     @Override
     Collection<RoleRecord> listRoles() {
         ListGroupsResult result = cognitoIdp.listGroups(

userdetails-gorm/src/main/groovy/au/org/ala/userdetails/gorm/GormUserService.groovy

@@ -519,6 +519,30 @@ class GormUserService implements IUserService<User, UserProperty, Role, UserRole
         }
     }
 
+    @Override
+    List<String[]> emailList(Date startDate, Date endDate) {
+        def results = User.withCriteria {
+            or {
+                and {
+                    gt 'dateCreated' startDate
+                    lt 'dateCreated' endDate
+                }
+                and {
+                    gt 'lastUpdated' startDate
+                    lt 'lastUpdated' endDate
+                }
+            }
+            projections {
+                property 'email'
+                property 'dateCreated'
+                property 'lastUpdated'
+            }
+        }
+        return results.collect {
+            [it[0], it[1], it[2]].toArray(new String[0])
+        }
+    }
+
     @Override
     Collection<Role> listRoles() {
         Role.list()

userdetails-plugin/grails-app/controllers/au/org/ala/userdetails/AdminController.groovy

@@ -154,12 +154,27 @@ class AdminController {
 
     def surveyResults() {
         def results = userService.countByProfileAttribute('affiliation', null, request.locale)
+        respondWithCsv(results, "user-survey-${new Date()}.csv")
+    }
+
+    def emailListForm() {
+
+    }
+
+    def emailList() {
+        def startDate = params.date('start_date')
+        def endDate = params.date('end_date')
+        def results = userService.emailList(startDate, endDate)
+        respondWithCsv(results, "email-list-$startDate-to-${endDate}.csv")
+    }
+
+    private def respondWithCsv(List<String[]> results, String filename) {
         def csvWriter = new CSVWriterBuilder(response.writer)
                 .withParser(new RFC4180ParserBuilder().build())
                 .build()
         response.status = 200
         response.contentType = 'text/csv'
-        response.setHeader('Content-Disposition', "attachment; filename=user-survey-${new Date()}.csv")
+        response.setHeader('Content-Disposition', "attachment; filename=$filename")
         csvWriter.writeAll(results)
         csvWriter.flush()
     }

userdetails-plugin/grails-app/views/admin/emailListForm.gsp

@@ -0,0 +1,49 @@
+%{--
+  - Copyright (C) 2023 Atlas of Living Australia
+  - All Rights Reserved.
+  -
+  - The contents of this file are subject to the Mozilla Public
+  - License Version 1.1 (the "License"); you may not use this file
+  - except in compliance with the License. You may obtain a copy of
+  - the License at http://www.mozilla.org/MPL/
+  -
+  - Software distributed under the License is distributed on an "AS
+  - IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+  - implied. See the License for the specific language governing
+  - rights and limitations under the License.
+  --}%
+<!doctype html>
+<html>
+<head>
+    <meta name="layout" content="${grailsApplication.config.getProperty('skin.layout')}"/>
+    <meta name="section" content="home"/>
+    <g:set var="title">Export Users to CSV</g:set>
+    <title>${title} | ${grailsApplication.config.getProperty('skin.orgNameLong')}</title>
+    <asset:stylesheet src="userdetails.css" />
+</head>
+<body>
+<g:if test="${flash.message}">
+    <div class="alert alert-danger">
+        ${flash.message}
+    </div>
+</g:if>
+
+<div class="row">
+    <div class="col-md-12" id="page-body" role="main">
+        <g:form name="emailList" action="emailList" method="get"  class="form-horizontal">
+            <div class="form-group">
+                <label for="start_date">Start Date</label>
+                <input type="date" class="form-control" id="start_date" >
+%{--                <g:datePicker name="start_date" value="${new Date()}"/>--}%
+            </div>
+            <div class="form-group">
+                <label for="end_date">End Date</label>
+                <input type="date" class="form-control" id="end_date" >
+%{--                <g:datePicker name="end_date" value="${new Date()}"/>--}%
+            </div>
+            <button type="submit" class="btn btn-default">Submit</button>
+        </g:form>
+    </div>
+</div>
+</body>
+</html>

userdetails-plugin/src/main/groovy/au/org/ala/userdetails/IUserService.groovy

@@ -117,6 +117,8 @@ interface IUserService<U extends IUser<? extends Serializable>, P extends IUserP
 
     List<String[]> countByProfileAttribute(String s, Date date, Locale locale)
 
+    List<String[]> emailList(Date startDate, Date endDate)
+
     /***
      * This method can be used to get users by username
      * The following paging params are always supported: