One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

View File Name : index.cgi

#!/usr/bin/perl
# index.cgi
# Display all themes for the user to choose

require './theme-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1);

@themes = sort { $a->{'desc'} cmp $b->{'desc'} } &list_visible_themes($current_theme);
$uth = $gconfig{'theme_'.$remote_user};

print "$text{'index_desc'}<p>\n";
print &ui_form_start("change_theme.cgi");
print &ui_table_start(undef, "width=100%", 2);
my $defaulttheme = &trim(&read_file_contents("$root_directory/defaulttheme"));
if (! -r "$root_directory/$defaulttheme") {
	$defaulttheme = 'gray-theme';
	if (! -r "$root_directory/$defaulttheme") {
		$defaulttheme = "";
		}
	}
print &ui_table_row($text{'index_sel'},
	&ui_select("theme", $uth,
	[ [ $defaulttheme, $text{'index_global'} ],
	  map { [ $_->{'dir'}, $_->{'desc'}."" ] }
	      @themes ]));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'index_change'} ] ]);

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