From dbe0435426831d5e5f7b16f48d0ad0234aad32cb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 16 Feb 2004 17:38:11 +0000 Subject: PFS group only accept 3 distinct values --- perl-install/standalone/drakvpn | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakvpn') diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn index 23b2c0037..67dceaaa5 100644 --- a/perl-install/standalone/drakvpn +++ b/perl-install/standalone/drakvpn @@ -852,7 +852,8 @@ Choose continue or previous when you are done.\n", $racoon_conf), { label => N("sainfo_source_proto"), val => \$sainfo_section->{1}[3], type => 'entry' }, { label => N("sainfo_dest_address"), val => \$sainfo_section->{1}[5], type => 'entry' }, { label => N("sainfo_dest_proto"), val => \$sainfo_section->{1}[6], type => 'entry' }, - { label => N("PFS group"), val => \$sainfo_section->{2}[1], type => 'entry' }, + { label => N("PFS group"), val => \$sainfo_section->{2}[1], + list => [ qw(modp768 modp1024 modp1536) ], }, { label => N("Lifetime number"), val => \$sainfo_section->{3}[2], type => 'entry' }, { label => N("Lifetime unit"), val => \$sainfo_section->{3}[3], type => 'entry' }, { label => N("Encryption algorithm"), val => \$sainfo_section->{4}[1], type => 'entry' }, @@ -916,7 +917,8 @@ Choose continue when you are done to write the data.\n", $racoon_conf), { label => N("sainfo_source_proto"), val => \$racoon->{$number}{1}[3], type => 'entry' }, { label => N("sainfo_dest_address"), val => \$racoon->{$number}{1}[5], type => 'entry' }, { label => N("sainfo_dest_proto"), val => \$racoon->{$number}{1}[6], type => 'entry' }, - { label => N("PFS group"), val => \$racoon->{$number}{2}[1], type => 'entry' }, + { label => N("PFS group"), val => \$racoon->{$number}{2}[1], + list => [ qw(modp768 modp1024 modp1536) ], }, { label => N("Lifetime number"), val => \$racoon->{$number}{3}[2], type => 'entry' }, { label => N("Lifetime unit"), val => \$racoon->{$number}{3}[3], type => 'entry' }, { label => N("Encryption algorithm"), val => \$racoon->{$number}{4}[1], type => 'entry' }, -- cgit v1.2.1