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

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: ludo <at> gnu.org (Ludovic Courtès)
Cc: tracker <at> debbugs.gnu.org
Subject: bug#28232: closed (openvpn service configuration fails by default)
Date: Mon, 20 Nov 2017 17:47:02 +0000

[Message part 1 (text/plain, inline)]

Your message dated Mon, 20 Nov 2017 18:46:01 +0100
with message-id <87fu983kti.fsf <at> gnu.org>
and subject line Re: bug#28232: openvpn service configuration fails by default
has caused the debbugs.gnu.org bug report #28232,
regarding openvpn service configuration fails by default
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs <at> gnu.org.)


-- 
28232: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=28232
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

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 3 (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 4 (text/html, inline)]

[Message part 5 (message/rfc822, inline)]

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’.

Previous Next

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