webmin/bsdfdisk/delete_slice.cgi

#!/usr/local/bin/perl
# Delete a slice, after asking for confirmation

use strict;
use warnings;
require './bsdfdisk-lib.pl';
our (%in, %text, $module_name);
&ReadParse();

# Get the disk and slice
my @disks = &list_disks_partitions();
my ($disk) = grep { $_->{'device'} eq $in{'device'} } @disks;
$disk || &error($text{'disk_egone'});
my ($slice) = grep { $_->{'number'} eq $in{'slice'} } @{$disk->{'slices'}};
$slice || &error($text{'slice_egone'});

&ui_print_header($slice->{'desc'}, $text{'dslice_title'}, "");

if ($in{'confirm'}) {
	# Delete it
	}
else {
	# Ask first
	my @warn;
	foreach my $p (@{$slice->{'parts'}}) {
		my @st = &fdisk::device_status($p->{'device'});
		if (@st) {
			my $use = &fdisk::device_status_link(@st);
			push(@warn, $use);
			}
		}
	print &ui_confirmation_form(
		"delete_slice.cgi",
		&text('dslice_rusure', "<tt>$slice->{'device'}</tt>"),
		[ [ "device", $in{'device'} ],
		  [ "slice", $in{'slice'} ] ],
		[ [ "confirm", $text{'dslice_confirm'} ] ],
		undef,
		@warn ? &text('dslice_warn', join(" ", @warn)) : undef);
	}

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