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

Dir : ~/proc/self/root/usr/share/webmin/dfsadmin/

Edit File: edit_share.cgi

#!/usr/bin/perl
# edit_share.cgi
# Display a form for editing a shared directory

require './dfs-lib.pl';
$access{'view'} && &error($text{'ecannot'});
$s = $ARGV[0];

if (defined($s)) {
	&ui_print_header(undef, $text{'edit_title1'}, "", "edit_share");
	}
else {
	&ui_print_header(undef, $text{'edit_title2'}, "", "create_share");
	}

print &ui_form_start("save_share.cgi", "post");
if (defined($s)) {
	print &ui_hidden("idx", $s),"\n";
	@shlist = &list_shares();
	$share = $shlist[$s];
	}

# Directory and description section
print &ui_table_start($text{'edit_header1'}, "width=100%", 2);

print &ui_table_row(&hlink($text{'edit_dir'}, "dir"),
		    &ui_textbox("directory", $share->{'dir'}, 60)." ".
		    &file_chooser_button("directory", 1));

print &ui_table_row(&hlink($text{'edit_desc'}, "desc"),
		    &ui_textbox("desc", $share->{'desc'}, 60));

print &ui_table_end(),"\n";

print "<table width=100% border>\n";
&parse_options($share->{'opts'});
print "<tr $tb>\n";
print "<td>",&hlink("$text{'edit_ro'}","ro"),"</td>\n";
print "<td>",&hlink("$text{'edit_rw'}","rw"),"</td>\n";
print "<td>",&hlink("$text{'edit_root'}","root"),"</td> </tr>\n";

# $fn = ""; $efn = "";
print "<tr $cb>\n";
print "<td valign=top>",
 &ui_radio("readonly", !defined($options{"ro"}) ? 0 :
			 $options{"ro"} ? 2 : 1,
		[ [ 0, $text{'edit_none'}." " ],
		 [ 1, $text{'edit_all'}." " ],
		 [ 2, $text{'edit_listed'}." " ] ])."\n".
 &ui_textarea("rolist", join("\n", split(/:/, $options{"ro"})), 8, 25),
 "</td>\n";

print "<td valign=top>",
 &ui_radio("readwrite", !defined($options{"rw"}) ? 0 :
			 $options{"rw"} ? 2 : 1,
		[ [ 0, $text{'edit_none'}." " ],
		 [ 1, $text{'edit_all'}." " ],
		 [ 2, $text{'edit_listed'}." " ] ])."\n".
 &ui_textarea("rwlist", join("\n", split(/:/, $options{"rw"})), 8, 25),
 "</td>\n";

print "<td valign=top>",
 &ui_radio("root", !defined($options{"root"}) ? 0 :
			$options{"root"} ? 2 : 1,
		[ [ 0, $text{'edit_none'}." &nbsp; " ],
		 [ 2, $text{'edit_listed'}." " ] ])."\n".
 &ui_textarea("rtlist", join("\n", split(/:/, $options{"root"})), 8, 25),
 "</td>\n";
print "</tr></table>\n";

if (!$access{'simple'}) {
	print &ui_table_start($text{'edit_header2'}, "width=100%", 4);

print &ui_table_row(&hlink($text{'edit_nosub'}, "sub"),
		    &ui_radio("nosub", defined($options{"nosub"}) ? 1 : 0,
			      [ [ 0, $text{'yes'} ],
				[ 1, $text{'no'} ] ]));

print &ui_table_row(&hlink($text{'edit_nosuid'}, "suid"),
		    &ui_radio("nosuid", defined($options{"nosuid"}) ? 1 : 0,
			      [ [ 0, $text{'yes'} ],
				[ 1, $text{'no'} ] ]));

print &ui_table_row(&hlink($text{'edit_des'}, "des"),
		    &ui_radio("secure", defined($options{"secure"}) ? 1 : 0,
			      [ [ 1, $text{'yes'} ],
				[ 0, $text{'no'} ] ]));

print &ui_table_row(&hlink($text{'edit_kerberos'}, "kerberos"),
		    &ui_radio("kerberos", defined($options{"kerberos"}) ? 1 : 0,
			      [ [ 1, $text{'yes'} ],
				[ 0, $text{'no'} ] ]));

$user = defined($options{"anon"}) && $options{"anon"} != -1 ?
			getpwuid($options{'anon'}) : undef;
	print &ui_table_row(&hlink($text{'edit_anon'}, "anon"),
		    &ui_radio("anon_m", !defined($options{"anon"}) ? 0 :
					$options{"anon"} == -1 ? 1 : 2,
			      [ [ 0, $text{'edit_anon0'} ],
				[ 1, $text{'edit_anon1'} ],
				[ 2, &ui_user_textbox("anon", $user) ] ]));

print &ui_table_row(&hlink($text{'edit_aclok'}, "aclok"),
		    &ui_radio("aclok", defined($options{"aclok"}) ? 1 : 0,
			      [ [ 1, $text{'yes'} ],
				[ 0, $text{'no'} ] ]));

if ($gconfig{'os_version'} >= 7) {
		print &ui_table_row(&hlink($text{'edit_public'}, "public"),
		    &ui_radio("public", defined($options{"public"}) ? 1 : 0,
			      [ [ 1, $text{'yes'} ],
				[ 0, $text{'no'} ] ]));

print &ui_table_row(&hlink($text{'edit_index'}, "index"),
		    &ui_opt_textbox("index", $options{"index"}, 15,
				    $text{'edit_none'}));
		}

print &ui_table_end();
	}

if ($s ne "") {
	print &ui_form_end([ [ "save", $text{'save'} ],
			     [ "delete", $text{'delete'} ] ]);
	}
else {
	print &ui_form_end([ [ "create", $text{'create'} ] ]);
	}
&ui_print_footer("", $text{'index_return'});