Has anyone got any more feedback for this? Otherwise I would like to
merge this patch for Core Update 92.

Tested-by: Wolfgang Apolinarski <wolfgang.apolinarski(a)web.de>

https://bugzilla.ipfire.org/show_bug.cgi?id=10860

-Michael

On Tue, 2015-06-02 at 20:24 +0200, Michael Tremer wrote:
> If a connection is edited, the IKE group types will be used instead.
> 
> Fixes #10860
> 
> Signed-off-by: Michael Tremer <michael.tremer(a)ipfire.org>
> ---
>  doc/language_issues.de   |  1 +
>  doc/language_issues.es   |  1 +
>  doc/language_issues.fr   |  1 +
>  doc/language_issues.it   |  1 +
>  doc/language_issues.nl   |  1 +
>  doc/language_issues.pl   |  1 +
>  doc/language_issues.ru   |  1 +
>  doc/language_issues.tr   |  1 +
>  html/cgi-bin/vpnmain.cgi | 73 ++++++++++++++++++++++++++++++++++++++++++------
>  langs/en/cgi-bin/en.pl   |  1 +
>  10 files changed, 74 insertions(+), 8 deletions(-)
> 
> diff --git a/doc/language_issues.de b/doc/language_issues.de
> index 90accb3c006a..0d86987569b5 100644
> --- a/doc/language_issues.de
> +++ b/doc/language_issues.de
> @@ -644,6 +644,7 @@ WARNING: untranslated string: fwhost cust geoipgrp
>  WARNING: untranslated string: fwhost err hostip
>  WARNING: untranslated string: ike lifetime should be between 1 and 8 hours
>  WARNING: untranslated string: no data
> +WARNING: untranslated string: none
>  WARNING: untranslated string: qos add subclass
>  WARNING: untranslated string: route config changed
>  WARNING: untranslated string: routing config added
> diff --git a/doc/language_issues.es b/doc/language_issues.es
> index fe8b726243ab..b0c066f644a3 100644
> --- a/doc/language_issues.es
> +++ b/doc/language_issues.es
> @@ -917,6 +917,7 @@ WARNING: untranslated string: most preferred
>  WARNING: untranslated string: nameserver
>  WARNING: untranslated string: no data
>  WARNING: untranslated string: no hardware random number generator
> +WARNING: untranslated string: none
>  WARNING: untranslated string: not a valid dh key
>  WARNING: untranslated string: notice
>  WARNING: untranslated string: openvpn default
> diff --git a/doc/language_issues.fr b/doc/language_issues.fr
> index fee481d25bb0..b13969b01705 100644
> --- a/doc/language_issues.fr
> +++ b/doc/language_issues.fr
> @@ -932,6 +932,7 @@ WARNING: untranslated string: most preferred
>  WARNING: untranslated string: nameserver
>  WARNING: untranslated string: no data
>  WARNING: untranslated string: no hardware random number generator
> +WARNING: untranslated string: none
>  WARNING: untranslated string: not a valid dh key
>  WARNING: untranslated string: notice
>  WARNING: untranslated string: ntp common settings
> diff --git a/doc/language_issues.it b/doc/language_issues.it
> index 2f61cb61b17c..c133fec1b84f 100644
> --- a/doc/language_issues.it
> +++ b/doc/language_issues.it
> @@ -705,6 +705,7 @@ WARNING: untranslated string: masquerading disabled
>  WARNING: untranslated string: masquerading enabled
>  WARNING: untranslated string: messages
>  WARNING: untranslated string: no data
> +WARNING: untranslated string: none
>  WARNING: untranslated string: outgoing compression in bytes per second
>  WARNING: untranslated string: outgoing overhead in bytes per second
>  WARNING: untranslated string: ovpn add conf
> diff --git a/doc/language_issues.nl b/doc/language_issues.nl
> index fadc79272f9b..692420e6b30b 100644
> --- a/doc/language_issues.nl
> +++ b/doc/language_issues.nl
> @@ -737,6 +737,7 @@ WARNING: untranslated string: modem status
>  WARNING: untranslated string: monitor interface
>  WARNING: untranslated string: nameserver
>  WARNING: untranslated string: no data
> +WARNING: untranslated string: none
>  WARNING: untranslated string: not a valid dh key
>  WARNING: untranslated string: outgoing compression in bytes per second
>  WARNING: untranslated string: outgoing overhead in bytes per second
> diff --git a/doc/language_issues.pl b/doc/language_issues.pl
> index fe8b726243ab..b0c066f644a3 100644
> --- a/doc/language_issues.pl
> +++ b/doc/language_issues.pl
> @@ -917,6 +917,7 @@ WARNING: untranslated string: most preferred
>  WARNING: untranslated string: nameserver
>  WARNING: untranslated string: no data
>  WARNING: untranslated string: no hardware random number generator
> +WARNING: untranslated string: none
>  WARNING: untranslated string: not a valid dh key
>  WARNING: untranslated string: notice
>  WARNING: untranslated string: openvpn default
> diff --git a/doc/language_issues.ru b/doc/language_issues.ru
> index a9e900134b79..f23b103e1642 100644
> --- a/doc/language_issues.ru
> +++ b/doc/language_issues.ru
> @@ -917,6 +917,7 @@ WARNING: untranslated string: most preferred
>  WARNING: untranslated string: nameserver
>  WARNING: untranslated string: no data
>  WARNING: untranslated string: no hardware random number generator
> +WARNING: untranslated string: none
>  WARNING: untranslated string: not a valid dh key
>  WARNING: untranslated string: notice
>  WARNING: untranslated string: openvpn default
> diff --git a/doc/language_issues.tr b/doc/language_issues.tr
> index d94953a84d93..8ec9e31295ec 100644
> --- a/doc/language_issues.tr
> +++ b/doc/language_issues.tr
> @@ -684,6 +684,7 @@ WARNING: untranslated string: incoming compression in bytes per second
>  WARNING: untranslated string: incoming overhead in bytes per second
>  WARNING: untranslated string: invalid input for valid till days
>  WARNING: untranslated string: no data
> +WARNING: untranslated string: none
>  WARNING: untranslated string: outgoing compression in bytes per second
>  WARNING: untranslated string: outgoing overhead in bytes per second
>  WARNING: untranslated string: ovpn add conf
> diff --git a/html/cgi-bin/vpnmain.cgi b/html/cgi-bin/vpnmain.cgi
> index 94900765f523..6458bf251920 100644
> --- a/html/cgi-bin/vpnmain.cgi
> +++ b/html/cgi-bin/vpnmain.cgi
> @@ -327,7 +327,13 @@ sub writeipsecfiles {
>  	if ($lconfighash{$key}[21] && $lconfighash{$key}[22]) {
>  		my @encs   = split('\|', $lconfighash{$key}[21]);
>  		my @ints   = split('\|', $lconfighash{$key}[22]);
> -		my @groups = split('\|', $lconfighash{$key}[20]);
> +		my @groups = split('\|', $lconfighash{$key}[23]);
> +
> +		# Use IKE grouptype if no ESP group type has been selected
> +		# (for backwards compatibility)
> +		if ($lconfighash{$key}[23] eq "") {
> +			@groups = split('\|', $lconfighash{$key}[20]);
> +		}
>  
>  		my @algos = &make_algos("esp", \@encs, \@ints, \@groups, ($pfs eq "on"));
>  		print CONF "\tesp=" . join(",", @algos);
> @@ -1260,6 +1266,9 @@ END
>  	$cgiparams{'ESP_ENCRYPTION'} 	= $confighash{$cgiparams{'KEY'}}[21];
>  	$cgiparams{'ESP_INTEGRITY'}  	= $confighash{$cgiparams{'KEY'}}[22];
>  	$cgiparams{'ESP_GROUPTYPE'}  	= $confighash{$cgiparams{'KEY'}}[23];
> +	if ($cgiparams{'ESP_GROUPTYPE'} eq "") {
> +		$cgiparams{'ESP_GROUPTYPE'} = $cgiparams{'IKE_GROUPTYPE'};
> +	}
>  	$cgiparams{'ESP_KEYLIFE'}    	= $confighash{$cgiparams{'KEY'}}[17];
>  	$cgiparams{'COMPRESSION'}    	= $confighash{$cgiparams{'KEY'}}[13];
>  	$cgiparams{'ONLY_PROPOSED'}  	= $confighash{$cgiparams{'KEY'}}[24];
> @@ -1855,7 +1864,7 @@ END
>  	$cgiparams{'IKE_LIFETIME'}   = '3';		#[16];
>  	$cgiparams{'ESP_ENCRYPTION'} = 'aes256gcm128|aes256gcm96|aes256gcm64|aes256|aes192gcm128|aes192gcm96|aes192gcm64|aes192|aes128gcm128|aes128gcm96|aes128gcm64|aes128';	#[21];
>  	$cgiparams{'ESP_INTEGRITY'}  = 'sha2_512|sha2_256|sha1';	#[22];
> -	$cgiparams{'ESP_GROUPTYPE'}  = '';		#[23];
> +	$cgiparams{'ESP_GROUPTYPE'}  = '4096|3072|2048|1536|1024';		#[23];
>  	$cgiparams{'ESP_KEYLIFE'}    = '1';		#[17];
>  	$cgiparams{'COMPRESSION'}    = 'on';		#[13];
>  	$cgiparams{'ONLY_PROPOSED'}  = 'off';		#[24];
> @@ -2165,13 +2174,17 @@ if(($cgiparams{'ACTION'} eq $Lang::tr{'advanced'}) ||
>  		goto ADVANCED_ERROR;
>  	    }
>  	}
> -	if ($cgiparams{'ESP_GROUPTYPE'} ne '' &&
> -	    $cgiparams{'ESP_GROUPTYPE'} !~  /^ecp(192|224|256|384|512)(bp)?$/ &&
> -	    $cgiparams{'ESP_GROUPTYPE'} !~  /^modp(1024|1536|2048|2048s(256|224|160)|3072|4096|6144|8192)$/) {
> +	@temp = split('\|', $cgiparams{'ESP_GROUPTYPE'});
> +	if ($#temp < 0) {
>  	    $errormessage = $Lang::tr{'invalid input'};
>  	    goto ADVANCED_ERROR;
>  	}
> -
> +	foreach my $val (@temp) {
> +	    if ($val !~ /^(e521|e384|e256|e224|e192|e512bp|e384bp|e256bp|e224bp|1024|1536|2048|2048s256|2048s224|2048s160|3072|4096|6144|8192|none)$/) {
> +		$errormessage = $Lang::tr{'invalid input'};
> +		goto ADVANCED_ERROR;
> +	    }
> +	}
>  	if ($cgiparams{'ESP_KEYLIFE'} !~ /^\d+$/) {
>  	    $errormessage = $Lang::tr{'invalid input for esp keylife'};
>  	    goto ADVANCED_ERROR;
> @@ -2234,6 +2247,9 @@ if(($cgiparams{'ACTION'} eq $Lang::tr{'advanced'}) ||
>  	$cgiparams{'ESP_ENCRYPTION'} = $confighash{$cgiparams{'KEY'}}[21];
>  	$cgiparams{'ESP_INTEGRITY'}  = $confighash{$cgiparams{'KEY'}}[22];
>  	$cgiparams{'ESP_GROUPTYPE'}  = $confighash{$cgiparams{'KEY'}}[23];
> +	if ($cgiparams{'ESP_GROUPTYPE'} eq "") {
> +		$cgiparams{'ESP_GROUPTYPE'} = $cgiparams{'IKE_GROUPTYPE'};
> +	}
>  	$cgiparams{'ESP_KEYLIFE'}    = $confighash{$cgiparams{'KEY'}}[17];
>  	$cgiparams{'COMPRESSION'}    = $confighash{$cgiparams{'KEY'}}[13];
>  	$cgiparams{'ONLY_PROPOSED'}  = $confighash{$cgiparams{'KEY'}}[24];
> @@ -2323,7 +2339,17 @@ if(($cgiparams{'ACTION'} eq $Lang::tr{'advanced'}) ||
>      $checked{'ESP_INTEGRITY'}{'aesxcbc'} = '';
>      @temp = split('\|', $cgiparams{'ESP_INTEGRITY'});
>      foreach my $key (@temp) {$checked{'ESP_INTEGRITY'}{$key} = "selected='selected'"; }
> -    $checked{'ESP_GROUPTYPE'}{$cgiparams{'ESP_GROUPTYPE'}} = "selected='selected'";
> +    $checked{'ESP_GROUPTYPE'}{'768'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'1024'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'1536'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'2048'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'3072'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'4096'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'6144'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'8192'} = '';
> +    $checked{'ESP_GROUPTYPE'}{'none'} = '';
> +    @temp = split('\|', $cgiparams{'ESP_GROUPTYPE'});
> +    foreach my $key (@temp) {$checked{'ESP_GROUPTYPE'}{$key} = "selected='selected'"; }
>  
>      $checked{'COMPRESSION'} = $cgiparams{'COMPRESSION'} eq 'on' ? "checked='checked'" : '' ;
>      $checked{'ONLY_PROPOSED'} = $cgiparams{'ONLY_PROPOSED'} eq 'on' ? "checked='checked'" : '' ;
> @@ -2484,7 +2510,30 @@ if(($cgiparams{'ACTION'} eq $Lang::tr{'advanced'}) ||
>  					<option value='1024' $checked{'IKE_GROUPTYPE'}{'1024'}>MODP-1024</option>
>  				</select>
>  			</td>
> -			<td></td>
> +			<td class='boldbase'>
> +				<select name='ESP_GROUPTYPE' multiple='multiple' size='6' style='width: 100%'>
> +					<option value='e521' $checked{'ESP_GROUPTYPE'}{'e521'}>ECP-521 (NIST)</option>
> +					<option value='e512bp' $checked{'ESP_GROUPTYPE'}{'e512bp'}>ECP-512 (Brainpool)</option>
> +					<option value='e384' $checked{'ESP_GROUPTYPE'}{'e384'}>ECP-384 (NIST)</option>
> +					<option value='e384bp' $checked{'ESP_GROUPTYPE'}{'e384bp'}>ECP-384 (Brainpool)</option>
> +					<option value='e256' $checked{'ESP_GROUPTYPE'}{'e256'}>ECP-256 (NIST)</option>
> +					<option value='e256bp' $checked{'ESP_GROUPTYPE'}{'e256bp'}>ECP-256 (Brainpool)</option>
> +					<option value='e224' $checked{'ESP_GROUPTYPE'}{'e224'}>ECP-224 (NIST)</option>
> +					<option value='e224bp' $checked{'ESP_GROUPTYPE'}{'e224bp'}>ECP-224 (Brainpool)</option>
> +					<option value='e192' $checked{'ESP_GROUPTYPE'}{'e192'}>ECP-192 (NIST)</option>
> +					<option value='8192' $checked{'ESP_GROUPTYPE'}{'8192'}>MODP-8192</option>
> +					<option value='6144' $checked{'ESP_GROUPTYPE'}{'6144'}>MODP-6144</option>
> +					<option value='4096' $checked{'ESP_GROUPTYPE'}{'4096'}>MODP-4096</option>
> +					<option value='3072' $checked{'ESP_GROUPTYPE'}{'3072'}>MODP-3072</option>
> +					<option value='2048s256' $checked{'ESP_GROUPTYPE'}{'2048s256'}>MODP-2048/256</option>
> +					<option value='2048s224' $checked{'ESP_GROUPTYPE'}{'2048s224'}>MODP-2048/224</option>
> +					<option value='2048s160' $checked{'ESP_GROUPTYPE'}{'2048s160'}>MODP-2048/160</option>
> +					<option value='2048' $checked{'ESP_GROUPTYPE'}{'2048'}>MODP-2048</option>
> +					<option value='1536' $checked{'ESP_GROUPTYPE'}{'1536'}>MODP-1536</option>
> +					<option value='1024' $checked{'ESP_GROUPTYPE'}{'1024'}>MODP-1024</option>
> +					<option value='none' $checked{'ESP_GROUPTYPE'}{'none'}>- $Lang::tr{'none'} -</option>
> +				</select>
> +			</td>
>  		</tr>
>  	</tbody>
>      </table>
> @@ -3029,6 +3078,14 @@ sub make_algos($$$$$) {
>  					if (!$is_aead) {
>  						push(@algo, $int);
>  					}
> +
> +					if ($grp eq "none") {
> +						# noop
> +					} elsif ($grp =~ m/^e(.*)$/) {
> +						push(@algo, "ecp$1");
> +					} else {
> +						push(@algo, "modp$grp");
> +					}
>  				}
>  
>  				push(@algos, join("-", @algo));
> diff --git a/langs/en/cgi-bin/en.pl b/langs/en/cgi-bin/en.pl
> index 43601c86eb22..19f5fdd1be94 100644
> --- a/langs/en/cgi-bin/en.pl
> +++ b/langs/en/cgi-bin/en.pl
> @@ -1645,6 +1645,7 @@
>  'no modem selected' => 'No modem selected',
>  'no set selected' => 'No set was selected',
>  'no time limit' => 'unlimited time',
> +'none' => 'none',
>  'none found' => 'none found',
>  'nonetworkname' => 'No Network Name entered',
>  'noservicename' => 'No Service Name entered',