One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

View File Name : iview.cgi

#!/usr/bin/perl
# Show full details of an available Gems module
use strict;
use warnings;
our (%text, %in);

require './ruby-gems-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'view_title'}, "");

my ($mod) = grep { $_->{'name'} eq $in{'name'} } &list_available_gems_modules();
my @tds = ( "nowrap" );
print &ui_form_start("install.cgi");
print &ui_hidden("mod", $mod->{'name'}),"\n";
print &ui_table_start($text{'view_header'}, "width=50%", 2);

print &ui_table_row($text{'view_name'}, "<tt>$mod->{'name'}</tt>", 1, \@tds);

print &ui_table_row($text{'view_versions'},
		    &ui_select("version", undef,
			       [ map { [ $_ ] } @{$mod->{'versions'}} ]),
		    1, \@tds);

if ($mod->{'desc'}) {
	print &ui_table_row($text{'view_desc'},
			    &html_escape($mod->{'desc'}), 1, \@tds);
	}

print &ui_table_end();
print &ui_form_end([ [ "install", $text{'view_install'} ] ]);

&ui_print_footer("", $text{'index_return'});