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	2022-11-18 01:11:35.517000000 -0500
+++ smeserver-openvpn-s2s-0.2/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/openvpns2s.pm	2022-11-18 01:23:08.993000000 -0500
@@ -361,6 +361,12 @@
         my $key = $config->key;
 
         my $status = $config->prop('status') || 'enabled';
+        my $linkup = "<span style='color:red'>". $fm->localise('DOWN')."</span>" ;
+        use Net::Ping;
+        my $p = Net::Ping->new('icmp');
+        $linkup = "<span style='color:green'>". $fm->localise('UP') . "</span>"  if (($status eq "enabled" ) &&  ( $p->ping($config->prop('RemoteIP'),1) ) );
+        $linkup = " " if ($status eq "disabled" );
+
         if ($status eq 'enabled'){
             $status = $fm->localise('ENABLED');
         }
@@ -372,10 +378,6 @@
         my $hmac   = $config->prop('HMAC') || 'SHA1';
 	$hmac= "<span style='color:red'>". $fm->localise('INSECURE'). " $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>" ;
-	use Net::Ping;
-	my $p = Net::Ping->new();
-	$linkup = "<span style='color:green'>". $fm->localise('UP') ."</span>"  if $p->ping($config->prop('RemoteIP'));
 
         print $q->Tr (esmith::cgi::genSmallCell($q,"$key"),
                       esmith::cgi::genSmallCell($q,"$status"),