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', "$modname", + "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"

\n"; + &ui_print_footer("/", $text{'index'}); + return; + } + # Build Xterm dependency links my $termlinks = { 'css' => ['xterm.css?$wver'], @@ -131,16 +142,6 @@ if (!$xmlhr) { print ""; } -# Check for needed modules -my $modname = "Net::WebSocket::Server"; -eval "use ${modname};"; -if ($@) { - print &text('index_cpan', "$modname", - "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"

\n"; - &ui_print_footer("/", $text{'index'}); - return; - } - # Find ports already in use &lock_file(&get_miniserv_config_file()); my %miniserv;