Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.92 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	958 B	-rwxr-xr-x	2026-07-17 21:17
apply_hdparm.cgi	1.22 KB	-rwxr-xr-x	2026-07-17 21:22
blink.cgi	384 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	483 B	-rwxr-xr-x	2026-07-17 21:17
config	13 B	-rw-r--r--	2026-07-17 21:17
config.info	144 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	235 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	167 B	-rw-r--r--	2026-07-17 21:17
config.info.de	148 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	167 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	138 B	-rw-r--r--	2026-07-17 21:17
config.info.no	151 B	-rw-r--r--	2026-07-17 21:17
defaultacl	26 B	-rw-r--r--	2026-07-17 21:17
edit_disk.cgi	4.9 KB	-rwxr-xr-x	2026-07-17 21:22
edit_hdparm.cgi	4.44 KB	-rwxr-xr-x	2026-07-17 21:22
edit_part.cgi	8.26 KB	-rwxr-xr-x	2026-07-17 21:22
edit_relabel.cgi	1.32 KB	-rwxr-xr-x	2026-07-17 21:22
fdisk-lib.pl	49.08 KB	-rwxr-xr-x	2026-07-17 21:17
feedback_files.pl	115 B	-rwxr-xr-x	2026-07-17 21:17
fsck.cgi	604 B	-rwxr-xr-x	2026-07-17 21:22
fsck_form.cgi	700 B	-rwxr-xr-x	2026-07-17 21:22
index.cgi	2.41 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.53 KB	-rwxr-xr-x	2026-07-17 21:17
make_tags.pl	210 B	-rwxr-xr-x	2026-07-17 21:22
mkfs.cgi	820 B	-rwxr-xr-x	2026-07-17 21:22
mkfs_form.cgi	832 B	-rwxr-xr-x	2026-07-17 21:22
module.info	238 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	209 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	236 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	29 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	40 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	149 B	-rw-r--r--	2026-07-17 21:17
module.info.de	131 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	26 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	299 B	-rw-r--r--	2026-07-17 21:17
module.info.es	38 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	233 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	149 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	35 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	133 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	160 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	79 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	26 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	58 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	179 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	36 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	137 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	120 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	23 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	39 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.no	38 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	38 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	37 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	162 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	60 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	185 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	166 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	28 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	34 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	245 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	27 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	104 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	33 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	110 B	-rw-r--r--	2026-07-17 21:17
range.js	4.7 KB	-rw-r--r--	2026-07-17 21:17
reboot.cgi	261 B	-rwxr-xr-x	2026-07-17 21:22
relabel.cgi	417 B	-rwxr-xr-x	2026-07-17 21:22
save_part.cgi	3.75 KB	-rwxr-xr-x	2026-07-17 21:22
slider.js	14.48 KB	-rw-r--r--	2026-07-17 21:17
timer.js	2.86 KB	-rw-r--r--	2026-07-17 21:17
tunefs.cgi	689 B	-rwxr-xr-x	2026-07-17 21:22
tunefs_form.cgi	722 B	-rwxr-xr-x	2026-07-17 21:22
winclassic.css	1.72 KB	-rw-r--r--	2026-07-17 21:17

Rename

#!/usr/bin/perl
# Show the partitions on a single disk

require './fdisk-lib.pl';
&ReadParse();
&can_edit_disk($in{'device'}) || &error($text{'disk_ecannot'});

# Get the disk
@disks = &list_disks_partitions();
($d) = grep { $_->{'device'} eq $in{'device'} } @disks;
$d || &error($text{'disk_egone'});
@parts = @{$d->{'parts'}};
&ui_print_header($d->{'desc'}, $text{'disk_title'}, "", undef,
		 @disks == 1 ? 1 : 0, @disks == 1 ? 1 : 0);
$caneditpart = $d->{'table'} ne 'gpt' || 
	       ($d->{'table'} eq 'gpt' &&
		&has_command('parted') && $config{'mode'} ne 'fdisk');

# Work out links to add partitions
foreach $p (@parts) {
	$extended++ if ($p->{'extended'});
	$regular++ if (!$p->{'extended'});
	if ($p->{'end'} > $d->{'cylinders'}) {
		$d->{'cylinders'} = $p->{'end'};
		}
	if (!$p->{'extended'} && $stat[2] &&
	 &indexof($p->{'type'}, @space_type) >= 0 &&
	 (@space = &disk_space($p->{'device'}, $stat[0])) &&
	 $space[0]) {
		$p->{'free'} = sprintf "%d %%\n", 100 * $space[1] / $space[0];
		$anyfree++;
		}
	}
if ($caneditpart) {
	if ($regular < 4 || $disk->{'table'} ne 'msdos') {
		push(@edlinks,
			&ui_link("edit_part.cgi?disk=$d->{'index'}&new=1",
				 $text{'index_addpri'}));
		}
	if ($extended) {
		push(@edlinks,
			&ui_link("edit_part.cgi?disk=$d->{'index'}&new=2",
			 $text{'index_addlog'}));
		}
	elsif ($regular < 4 && &supports_extended()) {
		push(@edlinks,
			&ui_link("edit_part.cgi?disk=$d->{'index'}&new=3",
				 $text{'index_addext'}));
		}
	}
else {
	$wantsparted = 1;
	}
if ($d->{'table'} eq 'unknown') {
	# Must create a partition table first
	@edlinks = ( $text{'disk_needtable'} );
	}

# Show brief disk info
@info = ( );
if ($d->{'cylsize'}) {
	push(@info, &text('disk_dsize', &nice_size($d->{'cylinders'}*$d->{'cylsize'})));
	}
if ($d->{'model'}) {
	push(@info, &text('disk_model', $d->{'model'}));
	}
push(@info, &text('disk_cylinders', $d->{'cylinders'}));
if ($d->{'table'}) {
	if ($d->{'table'} eq 'unknown') {
		push(@info, $text{'disk_notable'});
		}
	else {
		push(@info, &text('disk_table', uc($d->{'table'})));
		}
	}
print &ui_links_row(\@info),"\n";

if ($wantsparted) {
	my $label = $config{'mode'} eq 'fdisk' ?
	 'edit_edisk2' : 'edit_edisk';
	print "$text{$label}\n";
	}

# Show table of partitions, if any
if (@parts) {
	print &ui_links_row(\@edlinks);
	@tds = ( "width=5%", "width=10%", "width=45%", "width=5%", "width=5%", "width=5%", "width=15%", "width=10%" );
	@tds = map { "nowrap $_" } @tds;
	print &ui_columns_start([ $text{'disk_no'},
				  $text{'disk_type'},
				  $text{'disk_extent'},
				  $text{'disk_size'},
				  $text{'disk_start'},
				  $text{'disk_end'},
				  $text{'disk_use'},
				  $anyfree ? ( $text{'disk_free'} ) : ( ),
			         ], 100, 0, \@tds);
	foreach $p (@parts) {
		$url = "edit_part.cgi?disk=$d->{'index'}&part=$p->{'index'}";

# Create extent images
		$ext = "";
		$ext1 = int((($p->{'start'} - 1) / $d->{'cylinders'}) * 100) . "%";
		$ext2 = int((($p->{'end'} - $p->{'start'}) / $d->{'cylinders'}) * 100) . "%";
		$ext3 = int((($d->{'cylinders'} - ($p->{'end'} - 1)) / $d->{'cylinders'}) * 100) . "%";
		$ext .= "<img src=images/gap.gif height=10 width='$ext1'>";
		$ext .= sprintf "<img src=images/%s.gif height=10 width='$ext2'>", $p->{'extended'} ? "ext" : "use";
		$ext .= "<img src=images/gap.gif height=10 width='$ext3'>";

# Work out usage
		@stat = &device_status($p->{'device'});
		$stat = &device_status_link(@stat);

print &ui_columns_row([
			"<a href='$url'>$p->{'number'}</a>",
			"<a href='$url'>".($p->{'extended'} ?
			 $text{'extended'} : &tag_name($p->{'type'}))."</a>",
			$ext,
			$p->{'size'} ? &nice_size($p->{'size'})
				 : &text('edit_blocks', $p->{'blocks'}),
			$p->{'start'},
			$p->{'end'},
			$stat,
			$anyfree ? ( $p->{'free'} ) : ( ),
			], \@tds);
			
		}
	print &ui_columns_end();
	}
else {
	print "$text{'disk_none'}\n"
		if (!$wantsparted);
	}
print &ui_links_row(\@edlinks);

# Buttons for IDE params and SMART
my $ui_buttons_content = "";
if (&supports_hdparm($d)) {
	$ui_buttons_content .=
	    &ui_buttons_row("edit_hdparm.cgi", $text{'index_hdparm'},
			    $text{'index_hdparmdesc'},
			    &ui_hidden("disk", $d->{'index'}));
	}
if (&supports_smart($d)) {
	$ui_buttons_content .=
	    &ui_buttons_row("../smart-status/index.cgi", $text{'index_smart'},
			    $text{'index_smartdesc'},
			    &ui_hidden("drive", $d->{'device'}));
	}
if (&supports_relabel($d)) {
	if ($d->{'table'} eq 'unknown') {
		$ui_buttons_content .= &ui_buttons_row(
			"edit_relabel.cgi", $text{'index_relabel2'},
			$text{'index_relabeldesc2'},
			&ui_hidden("device", $d->{'device'}));
		}
	else {
		$ui_buttons_content .= &ui_buttons_row(
			"edit_relabel.cgi", $text{'index_relabel'},
			$text{'index_relabeldesc'},
			&ui_hidden("device", $d->{'device'}));
		}
	}
if ($ui_buttons_content) {
	print &ui_hr();
	print &ui_buttons_start();
	print $ui_buttons_content;
	print &ui_buttons_end();
	}

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