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 'samba-lib.pl';

sub cgi_args
{
my ($cgi) = @_;
my @shares = &list_shares();
if ($cgi eq 'edit_pshare.cgi' || $cgi eq 'edit_popts.cgi') {
	# First printer share
	foreach my $s (@shares) {
		next if (!&can('r', \%access, $s) || $s eq 'global');
		local %share;
		&get_share($s);
		if (&istrue("printable")) {
			return 'share='.&urlize($s);
			}
		}
	return $access{'c_ps'} ? '' : 'none';	# Create if allowed
	}
elsif ($cgi eq 'edit_fshare.cgi' || $cgi eq 'edit_sec.cgi' ||
       $cgi eq 'edit_fperm.cgi' || $cgi eq 'edit_fname.cgi' ||
       $cgi eq 'edit_fmisc.cgi') {
	# First non-printer share
	foreach my $s (@shares) {
		next if (!&can('r', \%access, $s) || $s eq 'global');
		local %share;
		&get_share($s);
		if (!&istrue("printable")) {
			return 'share='.&urlize($s);
			}
		}
	return $access{'c_fs'} ? '' : 'none';	# Create if allowed
	}
elsif ($cgi eq 'edit_euser.cgi') {
	# First user, if any
	my @ulist = &list_users();
	return @ulist ? 'idx='.$ulist[0]->{'index'} : 'none';
	}
return undef;
}