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 : edit_part.cgi

#!/usr/bin/perl
# edit_part.cgi
# Edit an existing partition, or create a new one

require './fdisk-lib.pl';
&ReadParse();
@dlist = &list_disks_partitions();
$dinfo = $dlist[$in{'disk'}];
&can_edit_disk($dinfo->{'device'}) ||
	&error($text{'edit_ecannot'});
if ($in{'new'}) {
	&ui_print_header($dinfo->{'desc'}, $text{'create_title'}, "");
	}
else {
	&ui_print_header($dinfo->{'desc'}, $text{'edit_title'}, "");
	}

print &ui_form_start("save_part.cgi");
print &ui_table_start($text{'edit_details'}, "width=100%", 4);
print &ui_hidden("disk", $in{'disk'});
print &ui_hidden("part", $in{'part'});
print &ui_hidden("new", $in{'new'});

# Work out the start and end for the new partition
@plist = @{$dinfo->{'parts'}};
if ($in{'new'}) {
	if ($in{'new'} == 1 || $in{'new'} == 3) {
		# Adding a new primary or extended partition
		$np = 1;
		for($i=0; $i<@plist; $i++) {
			if ($plist[$i]->{'number'} == $np) { $np++; }
			push(@start, $plist[$i]->{'start'});
			push(@end, $plist[$i]->{'end'});
			}
		$min = 1;
		$max = $dinfo->{'cylinders'};
		}
	else {
		# Adding a new logical partition (inside the extended partition)
		$np = 5;
		for($i=0; $i<@plist; $i++) {
			if ($plist[$i]->{'number'} == $np) { $np++; }
			if ($plist[$i]->{'extended'}) {
				$min = $plist[$i]->{'start'};
				$max = $plist[$i]->{'end'};
				}
			else {
				push(@start, $plist[$i]->{'start'});
				push(@end, $plist[$i]->{'end'});
				}
			}
		}
	print &ui_hidden("newpart", $np);
	print &ui_hidden("min", $min);
	print &ui_hidden("max", $max);

# find a gap in the partition map
	for($start=$min; $start<=$max; $start++) {
		$found = 1;
		for($i=0; $i<@start; $i++) {
			if ($start >= $start[$i] && $start <= $end[$i]) {
				$found = 0;
				last;
				}
			}
		if ($found) { last; }
		}
	if ($found) {
		# starting place found.. find the end
		$found = 0;
		for($end=$start; $end<=$max; $end++) {
			for($i=0; $i<@start; $i++) {
				if ($end >= $start[$i] && $end <= $end[$i]) {
					$found = 1;
					last;
					}
				}
			if ($found) { last; }
			}
		$end--;
		}
	else {
		# no place for new partition!
		$start = $end = 0;
		}
	}
else { 
	# Just editing an existing partition
	$pinfo = $plist[$in{'part'}];
	$np = $pinfo->{'number'};
	}
print &ui_hidden("np", $np);

# Describe partition
print &ui_table_row($text{'edit_location'},
	     $dinfo->{'device'} =~ /^\/dev\/(s|h)d([a-z])$/ ?
		&text('select_part', $1 eq 's' ? 'SCSI' : 'IDE', uc($2), $np) :
	     $dinfo->{'device'} =~ /rd\/c(\d+)d(\d+)$/ ?
		&text('select_mpart', "$1", "$2", $np) :
	     $dinfo->{'device'} =~ /ida\/c(\d+)d(\d+)$/ ?
		&text('select_cpart', "$1", "$2", $np) :
	     $dinfo->{'device'} =~ /scsi\/host(\d+)\/bus(\d+)\/target(\d+)\/lun(\d+)\/disc/ ?
		&text('select_spart', "$1", "$2", "$3", "$4", $np) :
	     $dinfo->{'device'} =~ /ide\/host(\d+)\/bus(\d+)\/target(\d+)\/lun(\d+)\/disc/ ?
		&text('select_snewide', "$1", "$2", "$3", "$4", $np) :
		$dinfo->{'device'});

# Device name
$dev = $dinfo->{'prefix'} =~ /^\/dev\/mmcblk.*/ ?
	$dinfo->{'prefix'}.'p'.$np :
	$dinfo->{'prefix'}.$np;
print &ui_table_row($text{'edit_device'}, $dev);

# Partition type
if ($pinfo->{'extended'} || $in{'new'} == 3) {
	# Extended, cannot change
	print &ui_table_row($text{'edit_type'}, $text{'extended'});
	}
elsif ($pinfo->{'edittype'} || $in{'new'}) {
	# Can change
	print &ui_table_row($text{'edit_type'},
		&ui_select("type",
			   $in{'new'} ? &default_tag() : $pinfo->{'type'},
			   [ map { [ $_, &tag_name($_) ] }
				 (sort { &tag_name($a) cmp &tag_name($b) }
				       &list_tags()) ]));
	}
else {
	# Tool doesn't allow change
	print &ui_table_row($text{'edit_type'},
			    &tag_name($pinfo->{'type'}));
		
	}

# Extent and cylinders
if ($in{'new'}) {
	$ext = &ui_textbox("start", $start, 4)." - ".&ui_textbox("end", $end, 4);
	}
else {
	$ext = "$pinfo->{'start'} - $pinfo->{'end'}";
	}
$ext .= " ".$text{'edit_of'}." ".$dinfo->{'cylinders'};
print &ui_table_row($text{'edit_extent'}, $ext);

# Current status
if ($pinfo->{'extended'}) {
	foreach $p (@plist) {
		$ecount++ if ($p->{'number'} > 4);
		}
	if ($ecount == 1) {
		$stat = $text{'edit_cont1'};
		}
	else {
		if ($ecount > 4) {
			$stat = &text('edit_cont5', $ecount);
			}
		else {
			$stat = &text('edit_cont234', $ecount);
			}
		}
	}
elsif (!$in{'new'}) {
	@stat = &device_status($dev);
	if (@stat) {
		$msg = $stat[2] ? 'edit_mount' : 'edit_umount';
		$msg .= 'vm' if ($stat[1] eq 'swap');
		$msg .= 'raid' if ($stat[1] eq 'raid');
		$msg .= 'lvm' if ($stat[1] eq 'lvm');
		$msg .= 'iscsi' if ($stat[1] eq 'iscsi');
		$stat = &text($msg, "<tt>$stat[0]</tt>",
				    "<tt>$stat[1]</tt>");
		}
	else {
		$stat = $text{'edit_notused'};
		}
	}
if ($stat) {
	print &ui_table_row($text{'edit_status'}, $stat);
	}

# Partition size
if (!$in{'new'}) {
	print &ui_table_row($text{'edit_size'},
		$pinfo->{'size'} ? &nice_size($pinfo->{'size'})
				 : &text('edit_blocks', $pinfo->{'blocks'}));
	}

# Show field for editing filesystem label
if (($has_e2label || $has_xfs_db) && &supports_label($pinfo) && !$in{'new'}) {
	local $label = $in{'new'} ? undef : &get_label($pinfo->{'device'});
	if (@stat) {
		print &ui_table_row($text{'edit_label'},
			$label ? "<tt>$label</tt>" : $text{'edit_none'});
		}
	else {
		print &ui_table_row($text{'edit_label'},
			&ui_textbox("label", $label, 16));
		}
	}

# Show field for partition name
if (&supports_name($dinfo)) {
	print &ui_table_row($text{'edit_name'},
			&ui_textbox("name", $pinfo->{'name'}, 20));
	}

# Show current UUID
if ($has_volid && !$in{'new'}) {
	local $volid = &get_volid($pinfo->{'device'});
	print &ui_table_row($text{'edit_volid'}, "<tt>$volid</tt>", 3);
	}

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}
elsif (@stat && $stat[2]) {
	print &ui_form_end();
	print "<b>$text{'edit_inuse'}</b><p>\n";
	}
else {
	print &ui_form_end([ $pinfo->{'extended'} ? ( ) :
				( [ undef, $text{'save'} ] ),
			     [ 'delete', $text{'delete'} ] ]);
	}

if (!$in{'new'} && !$pinfo->{'extended'}) {
	print &ui_hr();
	print &ui_buttons_start();

if (!@stat || $stat[2] == 0) {
		# Show form for creating filesystem
		local $rt = @stat ? $stat[1] : &conv_type($pinfo->{'type'});
		print &ui_buttons_row("mkfs_form.cgi",
			$text{'edit_mkfs2'}, $text{'edit_mkfsmsg2'},
			&ui_hidden("dev", $dev),
			&ui_select("type", $rt,
                                [ map { [ $_, $fdisk::text{"fs_".$_}." ($_)" ] }
                                      &fdisk::supported_filesystems() ]));
		}

if (!$in{'new'} && @stat && $stat[2] == 0 && &can_fsck($stat[1])) {
		# Show form to fsck filesystem
		print &ui_buttons_row("fsck_form.cgi",
			$text{'edit_fsck'},&text('edit_fsckmsg', "<tt>fsck</tt>"),
			&ui_hidden("dev", $dev)." ".
			&ui_hidden("type", $stat[1]));
		}

if (!$in{'new'} && @stat && $stat[2] == 0 && &can_tune($stat[1])) {
		# Show form to tune filesystem
		print &ui_buttons_row("tunefs_form.cgi",
			$text{'edit_tune'}, $text{'edit_tunemsg'},
			&ui_hidden("dev", $dev)." ".
			&ui_hidden("type", $stat[1]));
		}

@types = &conv_type($pinfo->{'type'});
	if (!$in{'new'} && !@stat && @types) {
		# Show form to mount filesystem
		if ($types[0] eq "swap") {
			# Swap partition
			print &ui_buttons_row("../mount/edit_mount.cgi",
				$text{'edit_newmount2'},$text{'edit_mountmsg2'},
				&ui_hidden("type", $types[0]).
				&ui_hidden("newdev", $dev));
			}
		else {
			# For some filesystem
			$dirsel = &ui_textbox("newdir", undef, 20);
			if (@types > 1) {
				$dirsel .= $text{'edit_mountas'}." ".
					&ui_select("type", undef, \@types);
				}
			else {
				$dirsel .= &ui_hidden("type", $types[0]);
				}
			print &ui_buttons_row("../mount/edit_mount.cgi",
				$text{'edit_newmount'}, $text{'edit_mountmsg'},
				&ui_hidden("newdev", $dev),
				$dirsel);
			}
		}

print &ui_buttons_end();
	}

&ui_print_footer("edit_disk.cgi?device=$dinfo->{'device'}",
		 $text{'disk_return'});

${this.title}

Code Editor : edit_part.cgi