| 
						
						
							
								
							
						
						
					 | 
					 | 
					@ -23,7 +23,8 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                       (backup-date (date (current-date))
 | 
					 | 
					 | 
					 | 
					                                       (backup-date (date (current-date))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                        "date that backup(seed) is from, to not use the same/older seed")
 | 
					 | 
					 | 
					 | 
					                                        "date that backup(seed) is from, to not use the same/older seed")
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                       (uris (string "ldap:// ldapi://")
 | 
					 | 
					 | 
					 | 
					                                       (uris (string "ldap:// ldapi://")
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                        "slapd uris to accept connections to"))
 | 
					 | 
					 | 
					 | 
					                                        "slapd uris to accept connections to")
 | 
				
			
			
				
				
			
		
	
		
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                                       (log-level (integer 1) "log level to start slapd with"))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(define (slapd-accounts config)
 | 
					 | 
					 | 
					 | 
					(define (slapd-accounts config)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					  (list (user-group
 | 
					 | 
					 | 
					 | 
					  (list (user-group
 | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
							
								
							
						
						
					 | 
					 | 
					@ -128,20 +129,18 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                     (slapd-configuration-openldap
 | 
					 | 
					 | 
					 | 
					                                                                     (slapd-configuration-openldap
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                      config)
 | 
					 | 
					 | 
					 | 
					                                                                      config)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                     "/libexec/slapd")
 | 
					 | 
					 | 
					 | 
					                                                                     "/libexec/slapd")
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                                                               "-d" ;To run in foreground
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                                                               #$(number->string (slapd-configuration-log-level
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                                                                   config))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "-F"
 | 
					 | 
					 | 
					 | 
					                                                               "-F"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "/var/lib/slapd/slapd.d"
 | 
					 | 
					 | 
					 | 
					                                                               "/var/lib/slapd/slapd.d"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "-h"
 | 
					 | 
					 | 
					 | 
					                                                               "-h"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               #$(slapd-configuration-uris config)
 | 
					 | 
					 | 
					 | 
					                                                               #$(slapd-configuration-uris
 | 
				
			
			
				
				
			
		
	
		
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                                                                  config)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "-u"
 | 
					 | 
					 | 
					 | 
					                                                               "-u"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "slapd"
 | 
					 | 
					 | 
					 | 
					                                                               "slapd"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "-g"
 | 
					 | 
					 | 
					 | 
					                                                               "-g"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                               "slapd")
 | 
					 | 
					 | 
					 | 
					                                                               "slapd")
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                              #:environment-variables
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                              (list (string-append
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                     "LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:"
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                     #$(slapd-configuration-home
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                        config)
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                                     "/modules"))
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                              #:user "root"
 | 
					 | 
					 | 
					 | 
					                                                              #:user "root"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                                                              #:group "root"))
 | 
					 | 
					 | 
					 | 
					                                                              #:group "root"))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                          (stop #~(make-kill-destructor)))))
 | 
					 | 
					 | 
					 | 
					                          (stop #~(make-kill-destructor)))))
 | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
					 | 
					
 
 |