Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.92 KB	-rw-r--r--
acl_security.pl	1.41 KB	-rwxr-xr-x
apply_hdparm.cgi	1.17 KB	-rwxr-xr-x
blink.cgi	384 B	-rwxr-xr-x
cgi_args.pl	483 B	-rwxr-xr-x
config	13 B	-rw-r--r--
config.info	144 B	-rw-r--r--
config.info.bg	156 B	-rw-r--r--
config.info.bg.UTF-8	235 B	-rw-r--r--
config.info.ca	165 B	-rw-r--r--
config.info.ca.UTF-8	167 B	-rw-r--r--
config.info.de	152 B	-rw-r--r--
config.info.de.UTF-8	152 B	-rw-r--r--
config.info.nl	138 B	-rw-r--r--
config.info.nl.UTF-8	138 B	-rw-r--r--
config.info.no	151 B	-rw-r--r--
config.info.no.UTF-8	151 B	-rw-r--r--
defaultacl	26 B	-rw-r--r--
edit_disk.cgi	4.4 KB	-rwxr-xr-x
edit_hdparm.cgi	4.36 KB	-rwxr-xr-x
edit_part.cgi	7.71 KB	-rwxr-xr-x
edit_relabel.cgi	1.32 KB	-rwxr-xr-x
fdisk-lib.pl	47.44 KB	-rwxr-xr-x
feedback_files.pl	115 B	-rwxr-xr-x
fsck.cgi	604 B	-rwxr-xr-x
fsck_form.cgi	700 B	-rwxr-xr-x
index.cgi	2.58 KB	-rwxr-xr-x
log_parser.pl	1.53 KB	-rwxr-xr-x
make_tags.pl	210 B	-rwxr-xr-x
mkfs.cgi	820 B	-rwxr-xr-x
mkfs_form.cgi	832 B	-rwxr-xr-x
module.info	238 B	-rw-r--r--
module.info.ca	119 B	-rw-r--r--
module.info.ca.UTF-8	131 B	-rw-r--r--
module.info.cz	36 B	-rw-r--r--
module.info.cz.UTF-8	46 B	-rw-r--r--
module.info.de	131 B	-rw-r--r--
module.info.de.UTF-8	143 B	-rw-r--r--
module.info.es	38 B	-rw-r--r--
module.info.es.UTF-8	44 B	-rw-r--r--
module.info.fr	35 B	-rw-r--r--
module.info.fr.UTF-8	41 B	-rw-r--r--
module.info.hu	71 B	-rw-r--r--
module.info.hu.UTF-8	91 B	-rw-r--r--
module.info.ja_JP.UTF-8	67 B	-rw-r--r--
module.info.ja_JP.euc	49 B	-rw-r--r--
module.info.ko_KR.UTF-8	45 B	-rw-r--r--
module.info.ko_KR.euc	35 B	-rw-r--r--
module.info.ms_MY	126 B	-rw-r--r--
module.info.ms_MY.UTF-8	138 B	-rw-r--r--
module.info.nl	39 B	-rw-r--r--
module.info.nl.UTF-8	45 B	-rw-r--r--
module.info.no	42 B	-rw-r--r--
module.info.no.UTF-8	48 B	-rw-r--r--
module.info.pl	38 B	-rw-r--r--
module.info.pl.UTF-8	44 B	-rw-r--r--
module.info.pt	35 B	-rw-r--r--
module.info.pt.UTF-8	43 B	-rw-r--r--
module.info.ru.UTF-8	66 B	-rw-r--r--
module.info.ru_RU	39 B	-rw-r--r--
module.info.ru_RU.UTF-8	69 B	-rw-r--r--
module.info.ru_SU	39 B	-rw-r--r--
module.info.sv	28 B	-rw-r--r--
module.info.sv.UTF-8	34 B	-rw-r--r--
module.info.tr	32 B	-rw-r--r--
module.info.zh_CN	24 B	-rw-r--r--
module.info.zh_TW.Big5	31 B	-rw-r--r--
range.js	4.7 KB	-rw-r--r--
reboot.cgi	261 B	-rwxr-xr-x
relabel.cgi	417 B	-rwxr-xr-x
save_part.cgi	3.75 KB	-rwxr-xr-x
slider.js	14.48 KB	-rw-r--r--
timer.js	2.86 KB	-rw-r--r--
tunefs.cgi	689 B	-rwxr-xr-x
tunefs_form.cgi	722 B	-rwxr-xr-x
winclassic.css	1.72 KB	-rw-r--r--

Code Editor : save_part.cgi

#!/usr/bin/perl
# save_part.cgi
# Save changes to an existing or new partition

require './fdisk-lib.pl';
&error_setup($text{'save_err'});
&ReadParse();

@dlist = &list_disks_partitions();
$dinfo = $dlist[$in{'disk'}];
&can_edit_disk($dinfo->{'device'}) ||
	&error($text{'save_ecannot'});
@plist = @{$dinfo->{'parts'}};
if ($in{'delete'} && $in{'confirm'}) {
	# deleting a partition
	$pinfo = $plist[$in{'part'}];
	&delete_partition($dinfo->{'device'}, $pinfo->{'number'});
	&webmin_log("delete", "part", $dinfo->{'device'}, \%in);
	&redirect("edit_disk.cgi?device=$dinfo->{'device'}");
	}
elsif ($in{'delete'}) {
	# Ask the user if he really wants to delete the partition
	&ui_print_header(undef, $text{'delete_title'}, "");

$pinfo = $plist[$in{'part'}];
	$dname = &mount::device_name($pinfo->{'device'});
	print "<center><form action=save_part.cgi>\n";
	print "<input type=hidden name=disk value='$in{'disk'}'>\n";
	print "<input type=hidden name=part value='$in{'part'}'>\n";
	print "<input type=hidden name=delete value=1>\n";
	print "<b>",&text('delete_rusure', $dname,
			  "<tt>$pinfo->{'device'}</tt>"),"</b><p>\n";
	print "<input type=submit name=confirm value='$text{'delete_ok'}'>\n";
	print "</form></center>\n";

&ui_print_footer("edit_disk.cgi?device=$dinfo->{'device'}",
			 $text{'disk_return'});
	}
elsif (!$in{'new'}) {
	# Changing existing partition type and label
	$pinfo = $plist[$in{'part'}];
	if ($pinfo->{'edittype'}) {
		&change_type($dinfo->{'device'}, $pinfo->{'number'},
			     $in{'type'});
		$pinfo->{'type'} = $in{'type'};
		}
	if (defined($in{'label'}) && &supports_label($pinfo)) {
		&set_label($pinfo->{'device'}, $in{'label'});
		}
	if (defined($in{'name'}) && &supports_name($dinfo)) {
		&set_name($dinfo, $pinfo, $in{'name'});
		}
	&webmin_log("modify", "part", $dinfo->{'device'}, \%in);
	&redirect("edit_disk.cgi?device=$dinfo->{'device'}");
	}
else {
	# Adding new partition
	$in{start} =~ /^\d+$/ ||
		&error(&text('save_estart', $in{'start'}));
	$in{end} =~ /^\d+$/ ||
		&error(&text('save_eend', $in{'end'}));
	$in{start} >= $in{'min'} ||
		&error(&text('save_emin', $in{'min'}));
	$in{end} <= $in{'max'} ||
		&error(&text('save_emax', $in{'max'}));
	$in{start} < $in{end} ||
		&error($text{'save_eminmax'});

# Check for partition overlap..
	foreach $pinfo (@plist) {
		if (($in{'start'} >= $pinfo->{'start'} &&
		     $in{'start'} <= $pinfo->{'end'} ||
		     $in{'end'} >= $pinfo->{'start'} &&
		     $in{'end'} <= $pinfo->{'end'}) &&
		     !($in{'new'}==2 && $pinfo->{'extended'})) {
			&error(&text('save_eoverlap', $pinfo->{'number'},
				     $pinfo->{'start'}, $pinfo->{'end'}));
			}
		}
	if ($in{'new'} == 3) {
		&create_extended($dinfo->{'device'}, $in{'newpart'},
				$in{'start'}, $in{'end'});
		&webmin_log("create", "part", $dinfo->{'device'}, \%in);
		}
	else {
		&create_partition($dinfo->{'device'}, $in{'newpart'},
				  $in{'start'}, $in{'end'}, $in{'type'});
		$pinfo = { 'type' => $in{'type'},
			   'number' => $in{'newpart'} };
		if ($in{'label'} && &supports_label($pinfo)) {
			local $dev = $dinfo->{'prefix'}.$in{'newpart'};
			&set_label($dev, $in{'label'});
			}
		if ($in{'name'} && &supports_name($dinfo)) {
			&set_name($dinfo, $pinfo, $in{'name'});
			}
		&webmin_log("create", "part", $dinfo->{'device'}, \%in);
		}
	if (&need_reboot($dinfo)) {
		&ask_reboot($dinfo);
		}
	else {
		&redirect("edit_disk.cgi?device=$dinfo->{'device'}");
		}
	}

# ask_reboot(disk)
# Display a form asking for a reboot
sub ask_reboot
{
&ui_print_header(undef, $text{'reboot_title'}, "");
local $what = &text('select_device', uc($_[0]->{'type'}),
		    uc(substr($_[0]->{'device'}, -1)));
print "<b>",&text('reboot_why', $what),"</b> <p>\n";
print &ui_form_start("reboot.cgi");
print &ui_form_end([ [ undef, $text{'reboot_ok'} ] ]);

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

${this.title}

Code Editor : save_part.cgi