GNU bug report logs - #28232
openvpn service configuration fails by default

Previous Next

Package: guix;

Reported by: charly bion <charly.bion <at> ensea.fr>

Date: Fri, 25 Aug 2017 15:31:02 UTC

Severity: normal

Done: ludo <at> gnu.org (Ludovic Courtès)

Bug is archived. No further changes may be made.

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 28232 in the body.
You can then email your comments to 28232 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

View this report as an mbox folder, status mbox, maintainer mbox

Report forwarded to help-debbugs <at> gnu.org:
bug#28232; Package openvpn. (Fri, 25 Aug 2017 15:31:02 GMT) Full text and rfc822 format available.
Acknowledgement sent to charly bion <charly.bion <at> ensea.fr>:
New bug report received and forwarded. Copy sent to help-debbugs <at> gnu.org. (Fri, 25 Aug 2017 15:31:02 GMT) Full text and rfc822 format available.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: charly bion <charly.bion <at> ensea.fr>
To: bug-guix <at> gnu.org
Subject: openvpn service configuration fails by default
Date: Fri, 25 Aug 2017 17:08:14 +0200 (CEST)

[Message part 1 (text/plain, inline)]
Package: openvpn 
Version: 2.4.3 

Backtrace: 
In srfi/srfi-1.scm: 
592:29 19 (map1 (#<<service> type: #<service-type nscd 3a8acc0?> ?)) 
592:29 18 (map1 (#<<service> type: #<service-type guix 3a8ac00?> ?)) 
592:29 17 (map1 (#<<service> type: #<service-type urandom-seed?> ?)) 
592:29 16 (map1 (#<<service> type: #<service-type syslog 3a8ac?> ?)) 
592:29 15 (map1 (#<<service> type: #<service-type static-netwo?> ?)) 
592:29 14 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
592:29 13 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
592:29 12 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
592:29 11 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
592:29 10 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
592:29 9 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
592:29 8 (map1 (#<<service> type: #<service-type console-font?> ?)) 
592:17 7 (map1 (#<<service> type: #<service-type openvpn-clie?> ?)) 
In gnu/services/vpn.scm: 
409:24 6 (_ #<<openvpn-client-configuration> openvpn: #<package ?>) 
379:9 5 (openvpn-config-file client #<<openvpn-client-configura?>) 
In ice-9/ports.scm: 
549:4 4 (call-with-output-string _) 
473:4 3 (with-output-to-port _ _) 
In ice-9/boot-9.scm: 
268:13 2 (for-each #<procedure 534a100 at gnu/services/configur?> ?) 
In gnu/services/vpn.scm: 
112:19 1 (serialize-tls-auth client #f) 
In unknown file: 
0 (string-append #f " " "1") 

ERROR: In procedure string-append: 
ERROR: In procedure string-append: Wrong type (expecting string): #f 



To have this error, I tried do build a vm-image using the openvpn service: 
(service openvpn-client-service-type 
(openvpn-client-configuration 
(proto 'tcp) 
(ca "ca.crt") 
(cert "client.crt") 
(key "client.key") 
)) 


Guix doesn't want to build the VM, because of the openvpn service. The problem is in the function serialize-tls-auth (line 110 of the file /gnu/services/vpn.scm). The function tries to concatenate a string with the input of the "tls_auth" field in openvpn_client_configuration. But by default this input's value is #f. Test function are implemented just after this one, but not used. 

As I don't know what the function is supposed to return, I can't correct this. 

I'm using Guix 0.13.0 

[Message part 2 (text/html, inline)]
bug reassigned from package 'openvpn' to 'guix'. Request was from Glenn Morris <rgm <at> gnu.org> to control <at> debbugs.gnu.org. (Fri, 25 Aug 2017 15:47:01 GMT) Full text and rfc822 format available.
bug No longer marked as found in versions 2.4.3. Request was from Glenn Morris <rgm <at> gnu.org> to control <at> debbugs.gnu.org. (Fri, 25 Aug 2017 15:47:01 GMT) Full text and rfc822 format available.
Information forwarded to bug-guix <at> gnu.org:
bug#28232; Package guix. (Fri, 25 Aug 2017 15:50:02 GMT) Full text and rfc822 format available.

Message #12 received at 28232 <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 28232 <at> debbugs.gnu.org
Cc: charly bion <charly.bion <at> ensea.fr>
Subject: Re: bug#28232: openvpn service configuration fails by default
Date: Fri, 25 Aug 2017 11:49:41 -0400

Reassigned from non-existent "openvpn" package to guix.

charly bion wrote:

> Package: openvpn 
> Version: 2.4.3 
>
> Backtrace: 
> In srfi/srfi-1.scm: 
> 592:29 19 (map1 (#<<service> type: #<service-type nscd 3a8acc0?> ?)) 
> 592:29 18 (map1 (#<<service> type: #<service-type guix 3a8ac00?> ?)) 
> 592:29 17 (map1 (#<<service> type: #<service-type urandom-seed?> ?)) 
> 592:29 16 (map1 (#<<service> type: #<service-type syslog 3a8ac?> ?)) 
> 592:29 15 (map1 (#<<service> type: #<service-type static-netwo?> ?)) 
> 592:29 14 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 13 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 12 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 11 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 10 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 9 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 8 (map1 (#<<service> type: #<service-type console-font?> ?)) 
> 592:17 7 (map1 (#<<service> type: #<service-type openvpn-clie?> ?)) 
> In gnu/services/vpn.scm: 
> 409:24 6 (_ #<<openvpn-client-configuration> openvpn: #<package ?>) 
> 379:9 5 (openvpn-config-file client #<<openvpn-client-configura?>) 
> In ice-9/ports.scm: 
> 549:4 4 (call-with-output-string _) 
> 473:4 3 (with-output-to-port _ _) 
> In ice-9/boot-9.scm: 
> 268:13 2 (for-each #<procedure 534a100 at gnu/services/configur?> ?) 
> In gnu/services/vpn.scm: 
> 112:19 1 (serialize-tls-auth client #f) 
> In unknown file: 
> 0 (string-append #f " " "1") 
>
> ERROR: In procedure string-append: 
> ERROR: In procedure string-append: Wrong type (expecting string): #f 
>
>
>
> To have this error, I tried do build a vm-image using the openvpn service: 
> (service openvpn-client-service-type 
> (openvpn-client-configuration 
> (proto 'tcp) 
> (ca "ca.crt") 
> (cert "client.crt") 
> (key "client.key") 
> )) 
>
>
> Guix doesn't want to build the VM, because of the openvpn service. The
> problem is in the function serialize-tls-auth (line 110 of the file
> /gnu/services/vpn.scm). The function tries to concatenate a string
> with the input of the "tls_auth" field in
> openvpn_client_configuration. But by default this input's value is #f.
> Test function are implemented just after this one, but not used.
>
> As I don't know what the function is supposed to return, I can't correct this. 
>
> I'm using Guix 0.13.0
Reply sent to ludo <at> gnu.org (Ludovic Courtès):
You have taken responsibility. (Mon, 20 Nov 2017 17:47:02 GMT) Full text and rfc822 format available.
Notification sent to charly bion <charly.bion <at> ensea.fr>:
bug acknowledged by developer. (Mon, 20 Nov 2017 17:47:04 GMT) Full text and rfc822 format available.

Message #17 received at 28232-done <at> debbugs.gnu.org (full text, mbox):

From: ludo <at> gnu.org (Ludovic Courtès)
To: charly bion <charly.bion <at> ensea.fr>
Cc: 28232-done <at> debbugs.gnu.org
Subject: Re: bug#28232: openvpn service configuration fails by default
Date: Mon, 20 Nov 2017 18:46:01 +0100

Hi,

charly bion <charly.bion <at> ensea.fr> skribis:

> Backtrace: 
> In srfi/srfi-1.scm: 
> 592:29 19 (map1 (#<<service> type: #<service-type nscd 3a8acc0?> ?)) 
> 592:29 18 (map1 (#<<service> type: #<service-type guix 3a8ac00?> ?)) 
> 592:29 17 (map1 (#<<service> type: #<service-type urandom-seed?> ?)) 
> 592:29 16 (map1 (#<<service> type: #<service-type syslog 3a8ac?> ?)) 
> 592:29 15 (map1 (#<<service> type: #<service-type static-netwo?> ?)) 
> 592:29 14 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 13 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 12 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 11 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 10 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 9 (map1 (#<<service> type: #<service-type mingetty 3a2?> ?)) 
> 592:29 8 (map1 (#<<service> type: #<service-type console-font?> ?)) 
> 592:17 7 (map1 (#<<service> type: #<service-type openvpn-clie?> ?)) 
> In gnu/services/vpn.scm: 
> 409:24 6 (_ #<<openvpn-client-configuration> openvpn: #<package ?>) 
> 379:9 5 (openvpn-config-file client #<<openvpn-client-configura?>) 
> In ice-9/ports.scm: 
> 549:4 4 (call-with-output-string _) 
> 473:4 3 (with-output-to-port _ _) 
> In ice-9/boot-9.scm: 
> 268:13 2 (for-each #<procedure 534a100 at gnu/services/configur?> ?) 
> In gnu/services/vpn.scm: 
> 112:19 1 (serialize-tls-auth client #f) 
> In unknown file: 
> 0 (string-append #f " " "1") 
>
> ERROR: In procedure string-append: 
> ERROR: In procedure string-append: Wrong type (expecting string): #f 
>
>
>
> To have this error, I tried do build a vm-image using the openvpn service: 
> (service openvpn-client-service-type 
> (openvpn-client-configuration 
> (proto 'tcp) 
> (ca "ca.crt") 
> (cert "client.crt") 
> (key "client.key") 
> )) 

This was fixed on Oct. 9th with commit
4b8b4418e609b5e0bfb6efbc11ac28deaa437e80.

Thanks,
Ludo’.
bug archived. Request was from Debbugs Internal Request <help-debbugs <at> gnu.org> to internal_control <at> debbugs.gnu.org. (Tue, 19 Dec 2017 12:24:05 GMT) Full text and rfc822 format available.
This bug report was last modified 6 years and 122 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.