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

Edit File: cgi_args.pl

do 'custom-lib.pl';

sub cgi_args
{
my ($cgi) = @_;
my @cust = grep { &can_run_command($_) } &list_commands();
if ($cgi eq 'edit_cmd.cgi') {
	# Custom command editor
	my ($cmd) = grep { !$_->{'edit'} && !$_->{'sql'} } @cust;
	return $cmd ? 'id='.&urlize($cmd->{'id'}) :
	       $access{'edit'} ? 'new=1' : 'none';
	}
elsif ($cgi eq 'form.cgi') {
	# Custom command form
	my ($cmd) = grep { !$_->{'edit'} && !$_->{'sql'} } @cust;
	return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
	}
elsif ($cgi eq 'edit_file.cgi') {
	# File editor editor
	my ($cmd) = grep { $_->{'edit'} } @cust;
	return $cmd ? 'id='.&urlize($cmd->{'id'}) :
	       $access{'edit'} ? 'new=1' : 'none';
	}
elsif ($cgi eq 'view.cgi') {
	# Custom command form
	my ($cmd) = grep { $_->{'edit'} } @cust;
	return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
	}
elsif ($cgi eq 'edit_sql.cgi') {
	# SQL query
	my ($cmd) = grep { $_->{'sql'} } @cust;
	return $cmd ? 'id='.&urlize($cmd->{'id'}) :
	       $access{'edit'} ? 'new=1' : 'none';
	}
elsif ($cgi eq 'sqlform.cgi') {
	# SQL query form
	my ($cmd) = grep { $_->{'sql'} } @cust;
	return $cmd ? 'id='.&urlize($cmd->{'id'}) : 'none';
	}
return undef;
}