From cd5616a6c08dc29ab53d82b4e34133d20ecc034a Mon Sep 17 00:00:00 2001
From: iliajie <gpg@ilia.engineer>
Date: Sun, 30 Oct 2022 13:30:02 +0200
Subject: [PATCH] Fix to move module check at the top

---
 xterm/index.cgi | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/xterm/index.cgi b/xterm/index.cgi
index 3a2d799df..b67304b9b 100644
--- a/xterm/index.cgi
+++ b/xterm/index.cgi
@@ -8,6 +8,17 @@ require './xterm-lib.pl';
 my $wver = &get_webmin_version();
 $wver =~ s/\.//;
 
+# Check for needed modules
+my $modname = "Net::WebSocket::Server";
+eval "use ${modname};";
+if ($@) {
+	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0);
+	print &text('index_cpan', "<tt>$modname</tt>",
+		    "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"<p>\n";
+	&ui_print_footer("/", $text{'index'});
+	return;
+	}
+
 # Build Xterm dependency links
 my $termlinks = 
 	{ 'css' => ['xterm.css?$wver'],
@@ -131,16 +142,6 @@ if (!$xmlhr) {
 	print "<script>history.replaceState(null, String(), location.pathname);</script>";
 	}
 
-# Check for needed modules
-my $modname = "Net::WebSocket::Server";
-eval "use ${modname};";
-if ($@) {
-	print &text('index_cpan', "<tt>$modname</tt>",
-		    "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"<p>\n";
-	&ui_print_footer("/", $text{'index'});
-	return;
-	}
-
 # Find ports already in use
 &lock_file(&get_miniserv_config_file());
 my %miniserv;