--- rpms/smeserver-openvpn-s2s/contribs10/smeserver-openvpn-s2s-0.2-sme10.patch	2021/03/30 05:09:44	1.2
+++ rpms/smeserver-openvpn-s2s/contribs10/smeserver-openvpn-s2s-0.2-sme10.patch	2021/03/30 05:20:13	1.3
@@ -371,7 +371,7 @@ diff -Nur --no-dereference smeserver-ope
  	    exit 1
 diff -Nur --no-dereference smeserver-openvpn-s2s-0.2.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/openvpns2s.pm smeserver-openvpn-s2s-0.2/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/openvpns2s.pm
 --- smeserver-openvpn-s2s-0.2.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/openvpns2s.pm	2021-03-30 00:12:27.724000000 -0400
-+++ smeserver-openvpn-s2s-0.2/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/openvpns2s.pm	2021-03-30 01:07:35.564000000 -0400
++++ smeserver-openvpn-s2s-0.2/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/openvpns2s.pm	2021-03-30 01:19:05.081000000 -0400
 @@ -26,6 +26,7 @@
      remove_conf
      print_conf_to_remove
@@ -477,7 +477,7 @@ diff -Nur --no-dereference smeserver-ope
          }
 +        my $cipher = $config->prop('cipher') || 'BF-CBC';
 +	$cipher = "<span style='color:red'>". $fm->localise('UNSECURE'). " $cipher</span> " unless ($cipher =~ /(128|192|256|512|SEED)/ );
-+        my $hmac   = $config->prop('hmac') || 'SHA1';
++        my $hmac   = $config->prop('HMAC') || 'SHA1';
 +	$hmac= "<span style='color:red'>". $fm->localise('UNSECURE'). " $hmac</span> " unless ($hmac eq "whirlpool" || $hmac =~ /(512|256|384|224)$/);
 +        my $authe  = $config->prop('Authentication') || '';
 +	my $linkup = "<span style='color:red'>". $fm->localise('DOWN')."</span>" ;