# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is the Bugzilla Bug Tracking System.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s): Zach Lipton <zach@zachlipton.com>
#

package Bugzilla::Hook;

use Bugzilla::Constants;
use Bugzilla::Util;
use Bugzilla::Error;

use strict;

sub process {
    my ($name, $args) = @_;
    
    # get a list of all extensions
    my @extensions = glob(bz_locations()->{'extensionsdir'} . "/*");
    
    # check each extension to see if it uses the hook
    # if so, invoke the extension source file:
    foreach my $extension (@extensions) {
        # all of these variables come directly from code or directory names. 
        # If there's malicious data here, we have much bigger issues to 
        # worry about, so we can safely detaint them:
        trick_taint($extension);
        # Skip CVS directories and any hidden files/dirs.
        next if $extension =~ m{/CVS$} || $extension =~ m{/\.[^/]+$};
        next if -e "$extension/disabled";
        if (-e $extension.'/code/'.$name.'.pl') {
            Bugzilla->hook_args($args);
            # Allow extensions to load their own libraries.
            local @INC = ("$extension/lib", @INC);
            do($extension.'/code/'.$name.'.pl');
            ThrowCodeError('extension_invalid', 
                { errstr => $@, name => $name, extension => $extension }) if $@;
            # Flush stored data.
            Bugzilla->hook_args({});
        }
    }
}

sub enabled_plugins {
    my $extdir = bz_locations()->{'extensionsdir'};
    my @extensions = glob("$extdir/*");
    my %enabled;
    foreach my $extension (@extensions) {
        trick_taint($extension);
        my $extname = $extension;
        $extname =~ s{^\Q$extdir\E/}{};
        next if $extname eq 'CVS' || $extname =~ /^\./;
        next if -e "$extension/disabled";
        # Allow extensions to load their own libraries.
        local @INC = ("$extension/lib", @INC);
        $enabled{$extname} = do("$extension/info.pl");
        ThrowCodeError('extension_invalid',
                { errstr => $@, name => 'version',
                  extension => $extension }) if $@;

    }

    return \%enabled;
}

1;

__END__

=head1 NAME

Bugzilla::Hook - Extendable extension hooks for Bugzilla code

=head1 SYNOPSIS

 use Bugzilla::Hook;

 Bugzilla::Hook::process("hookname", { arg => $value, arg2 => $value2 });

=head1 DESCRIPTION

Bugzilla allows extension modules to drop in and add routines at 
arbitrary points in Bugzilla code. These points are referred to as
hooks. When a piece of standard Bugzilla code wants to allow an extension
to perform additional functions, it uses Bugzilla::Hook's L</process>
subroutine to invoke any extension code if installed. 

There is a sample extension in F<extensions/example/> that demonstrates
most of the things described in this document, as well as many of the
hooks available.

=head2 How Hooks Work

When a hook named C<HOOK_NAME> is run, Bugzilla will attempt to invoke any 
source files named F<extensions/*/code/HOOK_NAME.pl>.

So, for example, if your extension is called "testopia", and you
want to have code run during the L</install-update_db> hook, you
would have a file called F<extensions/testopia/code/install-update_db.pl>
that contained perl code to run during that hook.

=head2 Arguments Passed to Hooks

Some L<hooks|/HOOKS> have params that are passed to them.

These params are accessible through L<Bugzilla/hook_args>.
That returns a hashref. Very frequently, if you want your
hook to do anything, you have to modify these variables.

=head2 Versioning Extensions

Every extension must have a file in its root called F<info.pl>.
This file must return a hash when called with C<do>.
The hash must contain a 'version' key with the current version of the
extension. Extension authors can also add any extra infomration to this hash if
required, by adding a new key beginning with x_ which will not be used the
core Bugzilla code. 

=head1 SUBROUTINES

=over

=item C<process>

=over

=item B<Description>

Invoke any code hooks with a matching name from any installed extensions.

See C<customization.xml> in the Bugzilla Guide for more information on
Bugzilla's extension mechanism.

=item B<Params>

=over

=item C<$name> - The name of the hook to invoke.

=item C<$args> - A hashref. The named args to pass to the hook. 
They will be accessible to the hook via L<Bugzilla/hook_args>.

=back

=item B<Returns> (nothing)

=back

=back

=head1 HOOKS

This describes what hooks exist in Bugzilla currently. They are mostly
in alphabetical order, but some related hooks are near each other instead
of being alphabetical.

=head2 auth-login_methods

This allows you to add new login types to Bugzilla.
(See L<Bugzilla::Auth::Login>.)

Params:

=over

=item C<modules>

This is a hash--a mapping from login-type "names" to the actual module on
disk. The keys will be all the values that were passed to 
L<Bugzilla::Auth/login> for the C<Login> parameter. The values are the
actual path to the module on disk. (For example, if the key is C<DB>, the
value is F<Bugzilla/Auth/Login/DB.pm>.)

For your extension, the path will start with 
F<extensions/yourextension/lib/>. (See the code in the example extension.)

If your login type is in the hash as a key, you should set that key to the
right path to your module. That module's C<new> method will be called,
probably with empty parameters. If your login type is I<not> in the hash,
you should not set it.

You will be prevented from adding new keys to the hash, so make sure your
key is in there before you modify it. (In other words, you can't add in
login methods that weren't passed to L<Bugzilla::Auth/login>.)

=back

=head2 auth-verify_methods

This works just like L</auth-login_methods> except it's for
login verification methods (See L<Bugzilla::Auth::Verify>.) It also
takes a C<modules> parameter, just like L</auth-login_methods>.

=head2 bug-columns

This allows you to add new fields that will show up in every L<Bugzilla::Bug>
object. Note that you will also need to use the L</bug-fields> hook in
conjunction with this hook to make this work.

Params:

=over

=item C<columns> - An arrayref containing an array of column names. Push
your column name(s) onto the array.

=back

=head2 bug-end_of_update

This happens at the end of L<Bugzilla::Bug/update>, after all other changes are
made to the database. This generally occurs inside a database transaction.

Params:

=over

=item C<bug> - The changed bug object, with all fields set to their updated
values.

=item C<timestamp> - The timestamp used for all updates in this transaction.

=item C<changes> - The hash of changed fields. 
C<$changes-E<gt>{field} = [old, new]>

=back

=head2 bug-fields

Allows the addition of database fields from the bugs table to the standard
list of allowable fields in a L<Bugzilla::Bug> object, so that
you can call the field as a method.

Note: You should add here the names of any fields you added in L</bug-columns>.

Params:

=over

=item C<columns> - A arrayref containing an array of column names. Push
your column name(s) onto the array.

=back

=head2 buglist-columns

This happens in buglist.cgi after the standard columns have been defined and
right before the display column determination.  It gives you the opportunity
to add additional display columns.

Params:

=over

=item C<columns> - A hashref, where the keys are unique string identifiers
for the column being defined and the values are hashrefs with the
following fields:

=over

=item C<name> - The name of the column in the database.

=item C<title> - The title of the column as displayed to users.

=back

The definition is structured as:

 $columns->{$id} = { name => $name, title => $title };

=back

=head2 colchange-columns

This happens in F<colchange.cgi> right after the list of possible display
columns have been defined and gives you the opportunity to add additional
display columns to the list of selectable columns.

Params:

=over

=item C<columns> - An arrayref containing an array of column IDs.  Any IDs
added by this hook must have been defined in the the buglist-columns hook.
See L</buglist-columns>.

=back

=head2 config-add_panels

If you want to add new panels to the Parameters administrative interface,
this is where you do it.

Params:

=over

=item C<panel_modules>

A hashref, where the keys are the "name" of the module and the value
is the Perl module containing that config module. For example, if
the name is C<Auth>, the value would be C<Bugzilla::Config::Auth>.

For your extension, the Perl module name must start with 
C<extensions::yourextension::lib>. (See the code in the example
extension.)

=back

=head2 config-modify_panels

This is how you modify already-existing panels in the Parameters
administrative interface. For example, if you wanted to add a new
Auth method (modifying Bugzilla::Config::Auth) this is how you'd
do it.

Params:

=over

=item C<panels>

A hashref, where the keys are lower-case panel "names" (like C<auth>, 
C<admin>, etc.) and the values are hashrefs. The hashref contains a
single key, C<params>. C<params> is an arrayref--the return value from
C<get_param_list> for that module. You can modify C<params> and
your changes will be reflected in the interface.

Adding new keys to C<panels> will have no effect. You should use
L</config-add_panels> if you want to add new panels.

=back

=head2 enter_bug-entrydefaultvars

This happens right before the template is loaded on enter_bug.cgi.

Params:

=over

=item C<vars> - A hashref. The variables that will be passed into the template.

=back

=head2 flag-end_of_update

This happens at the end of L<Bugzilla::Flag/process>, after all other changes
are made to the database and after emails are sent. It gives you a before/after
snapshot of flags so you can react to specific flag changes.
This generally occurs inside a database transaction.

Note that the interface to this hook is B<UNSTABLE> and it may change in the
future.

Params:

=over

=item C<bug> - The changed bug object.

=item C<timestamp> - The timestamp used for all updates in this transaction.

=item C<old_flags> - The snapshot of flag summaries from before the change.

=item C<new_flags> - The snapshot of flag summaries after the change. Call
C<my ($removed, $added) = diff_arrays(old_flags, new_flags)> to get the list of
changed flags, and search for a specific condition like C<added eq 'review-'>.

=back

=head2 install-before_final_checks

Allows execution of custom code before the final checks are done in 
checksetup.pl.

Params:

=over

=item C<silent>

A flag that indicates whether or not checksetup is running in silent mode.

=back

=head2 install-requirements

Because of the way Bugzilla installation works, there can't be a normal
hook during the time that F<checksetup.pl> checks what modules are
installed. (C<Bugzilla::Hook> needs to have those modules installed--it's
a chicken-and-egg problem.)

So instead of the way hooks normally work, this hook just looks for two 
subroutines (or constants, since all constants are just subroutines) in 
your file, called C<OPTIONAL_MODULES> and C<REQUIRED_MODULES>,
which should return arrayrefs in the same format as C<OPTIONAL_MODULES> and
C<REQUIRED_MODULES> in L<Bugzilla::Install::Requirements>.

These subroutines will be passed an arrayref that contains the current
Bugzilla requirements of the same type, in case you want to modify
Bugzilla's requirements somehow. (Probably the most common would be to
alter a version number or the "feature" element of C<OPTIONAL_MODULES>.)

F<checksetup.pl> will add these requirements to its own.

Please remember--if you put something in C<REQUIRED_MODULES>, then
F<checksetup.pl> B<cannot complete> unless the user has that module
installed! So use C<OPTIONAL_MODULES> whenever you can.

=head2 install-update_db

This happens at the very end of all the tables being updated
during an installation or upgrade. If you need to modify your custom
schema, do it here. No params are passed.

=head2 db_schema-abstract_schema

This allows you to add tables to Bugzilla. Note that we recommend that you 
prefix the names of your tables with some word, so that they don't conflict 
with any future Bugzilla tables.

If you wish to add new I<columns> to existing Bugzilla tables, do that
in L</install-update_db>.

Params:

=over

=item C<schema> - A hashref, in the format of 
L<Bugzilla::DB::Schema/ABSTRACT_SCHEMA>. Add new hash keys to make new table
definitions. F<checksetup.pl> will automatically add these tables to the
database when run.

=back

=head2 mailer-before_send

Called right before L<Bugzilla::Mailer> sends a message to the MTA.

Params:

=over

=item C<email> - The C<Email::MIME> object that's about to be sent.

=back

=head2 webservice

This hook allows you to add your own modules to the WebService. (See
L<Bugzilla::WebService>.)

Params:

=over

=item C<dispatch>

A hashref that you can specify the names of your modules and what Perl
module handles the functions for that module. (This is actually sent to 
L<SOAP::Lite/dispatch_with>. You can see how that's used in F<xmlrpc.cgi>.)

The Perl module name must start with C<extensions::yourextension::lib::>
(replace C<yourextension> with the name of your extension). The C<package>
declaration inside that module must also start with 
C<extensions::yourextension::lib::> in that module's code.

Example:

  $dispatch->{Example} = "extensions::example::lib::Example";

And then you'd have a module F<extensions/example/lib/Example.pm>

It's recommended that all the keys you put in C<dispatch> start with the
name of your extension, so that you don't conflict with the standard Bugzilla
WebService functions (and so that you also don't conflict with other
plugins).

=back

=head2 webservice-error_codes

If your webservice extension throws custom errors, you can set numeric
codes for those errors here.

Extensions should use error codes above 10000, unless they are re-using
an already-existing error code.

Params:

=over

=item C<error_map>

A hash that maps the names of errors (like C<invalid_param>) to numbers.
See L<Bugzilla::WebService::Constants/WS_ERROR_CODE> for an example.

=back
241'>241</a>
<a id='n242' href='#n242'>242</a>
<a id='n243' href='#n243'>243</a>
<a id='n244' href='#n244'>244</a>
<a id='n245' href='#n245'>245</a>
<a id='n246' href='#n246'>246</a>
<a id='n247' href='#n247'>247</a>
<a id='n248' href='#n248'>248</a>
<a id='n249' href='#n249'>249</a>
<a id='n250' href='#n250'>250</a>
<a id='n251' href='#n251'>251</a>
<a id='n252' href='#n252'>252</a>
<a id='n253' href='#n253'>253</a>
<a id='n254' href='#n254'>254</a>
<a id='n255' href='#n255'>255</a>
<a id='n256' href='#n256'>256</a>
<a id='n257' href='#n257'>257</a>
<a id='n258' href='#n258'>258</a>
<a id='n259' href='#n259'>259</a>
<a id='n260' href='#n260'>260</a>
<a id='n261' href='#n261'>261</a>
<a id='n262' href='#n262'>262</a>
<a id='n263' href='#n263'>263</a>
<a id='n264' href='#n264'>264</a>
<a id='n265' href='#n265'>265</a>
<a id='n266' href='#n266'>266</a>
<a id='n267' href='#n267'>267</a>
<a id='n268' href='#n268'>268</a>
<a id='n269' href='#n269'>269</a>
<a id='n270' href='#n270'>270</a>
<a id='n271' href='#n271'>271</a>
<a id='n272' href='#n272'>272</a>
<a id='n273' href='#n273'>273</a>
<a id='n274' href='#n274'>274</a>
<a id='n275' href='#n275'>275</a>
<a id='n276' href='#n276'>276</a>
<a id='n277' href='#n277'>277</a>
<a id='n278' href='#n278'>278</a>
<a id='n279' href='#n279'>279</a>
<a id='n280' href='#n280'>280</a>
<a id='n281' href='#n281'>281</a>
<a id='n282' href='#n282'>282</a>
<a id='n283' href='#n283'>283</a>
<a id='n284' href='#n284'>284</a>
<a id='n285' href='#n285'>285</a>
<a id='n286' href='#n286'>286</a>
<a id='n287' href='#n287'>287</a>
<a id='n288' href='#n288'>288</a>
<a id='n289' href='#n289'>289</a>
<a id='n290' href='#n290'>290</a>
<a id='n291' href='#n291'>291</a>
<a id='n292' href='#n292'>292</a>
<a id='n293' href='#n293'>293</a>
<a id='n294' href='#n294'>294</a>
<a id='n295' href='#n295'>295</a>
<a id='n296' href='#n296'>296</a>
<a id='n297' href='#n297'>297</a>
<a id='n298' href='#n298'>298</a>
<a id='n299' href='#n299'>299</a>
<a id='n300' href='#n300'>300</a>
<a id='n301' href='#n301'>301</a>
<a id='n302' href='#n302'>302</a>
<a id='n303' href='#n303'>303</a>
<a id='n304' href='#n304'>304</a>
<a id='n305' href='#n305'>305</a>
<a id='n306' href='#n306'>306</a>
<a id='n307' href='#n307'>307</a>
<a id='n308' href='#n308'>308</a>
<a id='n309' href='#n309'>309</a>
<a id='n310' href='#n310'>310</a>
<a id='n311' href='#n311'>311</a>
<a id='n312' href='#n312'>312</a>
<a id='n313' href='#n313'>313</a>
<a id='n314' href='#n314'>314</a>
<a id='n315' href='#n315'>315</a>
<a id='n316' href='#n316'>316</a>
<a id='n317' href='#n317'>317</a>
<a id='n318' href='#n318'>318</a>
<a id='n319' href='#n319'>319</a>
<a id='n320' href='#n320'>320</a>
<a id='n321' href='#n321'>321</a>
<a id='n322' href='#n322'>322</a>
<a id='n323' href='#n323'>323</a>
<a id='n324' href='#n324'>324</a>
<a id='n325' href='#n325'>325</a>
<a id='n326' href='#n326'>326</a>
<a id='n327' href='#n327'>327</a>
<a id='n328' href='#n328'>328</a>
<a id='n329' href='#n329'>329</a>
<a id='n330' href='#n330'>330</a>
<a id='n331' href='#n331'>331</a>
<a id='n332' href='#n332'>332</a>
<a id='n333' href='#n333'>333</a>
<a id='n334' href='#n334'>334</a>
<a id='n335' href='#n335'>335</a>
<a id='n336' href='#n336'>336</a>
<a id='n337' href='#n337'>337</a>
<a id='n338' href='#n338'>338</a>
<a id='n339' href='#n339'>339</a>
<a id='n340' href='#n340'>340</a>
<a id='n341' href='#n341'>341</a>
<a id='n342' href='#n342'>342</a>
<a id='n343' href='#n343'>343</a>
<a id='n344' href='#n344'>344</a>
<a id='n345' href='#n345'>345</a>
<a id='n346' href='#n346'>346</a>
<a id='n347' href='#n347'>347</a>
<a id='n348' href='#n348'>348</a>
<a id='n349' href='#n349'>349</a>
<a id='n350' href='#n350'>350</a>
<a id='n351' href='#n351'>351</a>
<a id='n352' href='#n352'>352</a>
<a id='n353' href='#n353'>353</a>
<a id='n354' href='#n354'>354</a>
<a id='n355' href='#n355'>355</a>
<a id='n356' href='#n356'>356</a>
<a id='n357' href='#n357'>357</a>
<a id='n358' href='#n358'>358</a>
<a id='n359' href='#n359'>359</a>
<a id='n360' href='#n360'>360</a>
<a id='n361' href='#n361'>361</a>
<a id='n362' href='#n362'>362</a>
<a id='n363' href='#n363'>363</a>
<a id='n364' href='#n364'>364</a>
<a id='n365' href='#n365'>365</a>
<a id='n366' href='#n366'>366</a>
<a id='n367' href='#n367'>367</a>
<a id='n368' href='#n368'>368</a>
<a id='n369' href='#n369'>369</a>
<a id='n370' href='#n370'>370</a>
<a id='n371' href='#n371'>371</a>
<a id='n372' href='#n372'>372</a>
<a id='n373' href='#n373'>373</a>
<a id='n374' href='#n374'>374</a>
<a id='n375' href='#n375'>375</a>
<a id='n376' href='#n376'>376</a>
<a id='n377' href='#n377'>377</a>
<a id='n378' href='#n378'>378</a>
<a id='n379' href='#n379'>379</a>
<a id='n380' href='#n380'>380</a>
<a id='n381' href='#n381'>381</a>
<a id='n382' href='#n382'>382</a>
<a id='n383' href='#n383'>383</a>
<a id='n384' href='#n384'>384</a>
<a id='n385' href='#n385'>385</a>
<a id='n386' href='#n386'>386</a>
<a id='n387' href='#n387'>387</a>
<a id='n388' href='#n388'>388</a>
<a id='n389' href='#n389'>389</a>
<a id='n390' href='#n390'>390</a>
<a id='n391' href='#n391'>391</a>
<a id='n392' href='#n392'>392</a>
<a id='n393' href='#n393'>393</a>
<a id='n394' href='#n394'>394</a>
<a id='n395' href='#n395'>395</a>
<a id='n396' href='#n396'>396</a>
<a id='n397' href='#n397'>397</a>
<a id='n398' href='#n398'>398</a>
<a id='n399' href='#n399'>399</a>
<a id='n400' href='#n400'>400</a>
<a id='n401' href='#n401'>401</a>
<a id='n402' href='#n402'>402</a>
<a id='n403' href='#n403'>403</a>
<a id='n404' href='#n404'>404</a>
<a id='n405' href='#n405'>405</a>
<a id='n406' href='#n406'>406</a>
<a id='n407' href='#n407'>407</a>
<a id='n408' href='#n408'>408</a>
<a id='n409' href='#n409'>409</a>
<a id='n410' href='#n410'>410</a>
<a id='n411' href='#n411'>411</a>
<a id='n412' href='#n412'>412</a>
<a id='n413' href='#n413'>413</a>
<a id='n414' href='#n414'>414</a>
<a id='n415' href='#n415'>415</a>
<a id='n416' href='#n416'>416</a>
<a id='n417' href='#n417'>417</a>
<a id='n418' href='#n418'>418</a>
<a id='n419' href='#n419'>419</a>
<a id='n420' href='#n420'>420</a>
<a id='n421' href='#n421'>421</a>
<a id='n422' href='#n422'>422</a>
<a id='n423' href='#n423'>423</a>
<a id='n424' href='#n424'>424</a>
<a id='n425' href='#n425'>425</a>
<a id='n426' href='#n426'>426</a>
<a id='n427' href='#n427'>427</a>
<a id='n428' href='#n428'>428</a>
<a id='n429' href='#n429'>429</a>
<a id='n430' href='#n430'>430</a>
<a id='n431' href='#n431'>431</a>
<a id='n432' href='#n432'>432</a>
<a id='n433' href='#n433'>433</a>
<a id='n434' href='#n434'>434</a>
<a id='n435' href='#n435'>435</a>
<a id='n436' href='#n436'>436</a>
<a id='n437' href='#n437'>437</a>
<a id='n438' href='#n438'>438</a>
<a id='n439' href='#n439'>439</a>
<a id='n440' href='#n440'>440</a>
<a id='n441' href='#n441'>441</a>
<a id='n442' href='#n442'>442</a>
<a id='n443' href='#n443'>443</a>
<a id='n444' href='#n444'>444</a>
<a id='n445' href='#n445'>445</a>
<a id='n446' href='#n446'>446</a>
<a id='n447' href='#n447'>447</a>
<a id='n448' href='#n448'>448</a>
<a id='n449' href='#n449'>449</a>
<a id='n450' href='#n450'>450</a>
<a id='n451' href='#n451'>451</a>
<a id='n452' href='#n452'>452</a>
<a id='n453' href='#n453'>453</a>
<a id='n454' href='#n454'>454</a>
<a id='n455' href='#n455'>455</a>
<a id='n456' href='#n456'>456</a>
<a id='n457' href='#n457'>457</a>
<a id='n458' href='#n458'>458</a>
<a id='n459' href='#n459'>459</a>
<a id='n460' href='#n460'>460</a>
<a id='n461' href='#n461'>461</a>
<a id='n462' href='#n462'>462</a>
<a id='n463' href='#n463'>463</a>
<a id='n464' href='#n464'>464</a>
<a id='n465' href='#n465'>465</a>
<a id='n466' href='#n466'>466</a>
<a id='n467' href='#n467'>467</a>
<a id='n468' href='#n468'>468</a>
<a id='n469' href='#n469'>469</a>
<a id='n470' href='#n470'>470</a>
<a id='n471' href='#n471'>471</a>
<a id='n472' href='#n472'>472</a>
<a id='n473' href='#n473'>473</a>
<a id='n474' href='#n474'>474</a>
<a id='n475' href='#n475'>475</a>
<a id='n476' href='#n476'>476</a>
<a id='n477' href='#n477'>477</a>
<a id='n478' href='#n478'>478</a>
<a id='n479' href='#n479'>479</a>
<a id='n480' href='#n480'>480</a>
<a id='n481' href='#n481'>481</a>
<a id='n482' href='#n482'>482</a>
<a id='n483' href='#n483'>483</a>
<a id='n484' href='#n484'>484</a>
<a id='n485' href='#n485'>485</a>
<a id='n486' href='#n486'>486</a>
<a id='n487' href='#n487'>487</a>
<a id='n488' href='#n488'>488</a>
<a id='n489' href='#n489'>489</a>
<a id='n490' href='#n490'>490</a>
<a id='n491' href='#n491'>491</a>
<a id='n492' href='#n492'>492</a>
<a id='n493' href='#n493'>493</a>
<a id='n494' href='#n494'>494</a>
<a id='n495' href='#n495'>495</a>
<a id='n496' href='#n496'>496</a>
<a id='n497' href='#n497'>497</a>
<a id='n498' href='#n498'>498</a>
<a id='n499' href='#n499'>499</a>
<a id='n500' href='#n500'>500</a>
<a id='n501' href='#n501'>501</a>
<a id='n502' href='#n502'>502</a>
<a id='n503' href='#n503'>503</a>
<a id='n504' href='#n504'>504</a>
<a id='n505' href='#n505'>505</a>
<a id='n506' href='#n506'>506</a>
<a id='n507' href='#n507'>507</a>
<a id='n508' href='#n508'>508</a>
<a id='n509' href='#n509'>509</a>
<a id='n510' href='#n510'>510</a>
<a id='n511' href='#n511'>511</a>
<a id='n512' href='#n512'>512</a>
<a id='n513' href='#n513'>513</a>
<a id='n514' href='#n514'>514</a>
<a id='n515' href='#n515'>515</a>
<a id='n516' href='#n516'>516</a>
<a id='n517' href='#n517'>517</a>
<a id='n518' href='#n518'>518</a>
<a id='n519' href='#n519'>519</a>
<a id='n520' href='#n520'>520</a>
<a id='n521' href='#n521'>521</a>
<a id='n522' href='#n522'>522</a>
<a id='n523' href='#n523'>523</a>
<a id='n524' href='#n524'>524</a>
<a id='n525' href='#n525'>525</a>
<a id='n526' href='#n526'>526</a>
<a id='n527' href='#n527'>527</a>
<a id='n528' href='#n528'>528</a>
<a id='n529' href='#n529'>529</a>
<a id='n530' href='#n530'>530</a>
<a id='n531' href='#n531'>531</a>
<a id='n532' href='#n532'>532</a>
<a id='n533' href='#n533'>533</a>
<a id='n534' href='#n534'>534</a>
<a id='n535' href='#n535'>535</a>
<a id='n536' href='#n536'>536</a>
<a id='n537' href='#n537'>537</a>
<a id='n538' href='#n538'>538</a>
<a id='n539' href='#n539'>539</a>
<a id='n540' href='#n540'>540</a>
<a id='n541' href='#n541'>541</a>
<a id='n542' href='#n542'>542</a>
<a id='n543' href='#n543'>543</a>
<a id='n544' href='#n544'>544</a>
<a id='n545' href='#n545'>545</a>
<a id='n546' href='#n546'>546</a>
<a id='n547' href='#n547'>547</a>
<a id='n548' href='#n548'>548</a>
<a id='n549' href='#n549'>549</a>
<a id='n550' href='#n550'>550</a>
<a id='n551' href='#n551'>551</a>
<a id='n552' href='#n552'>552</a>
<a id='n553' href='#n553'>553</a>
<a id='n554' href='#n554'>554</a>
<a id='n555' href='#n555'>555</a>
<a id='n556' href='#n556'>556</a>
<a id='n557' href='#n557'>557</a>
<a id='n558' href='#n558'>558</a>
<a id='n559' href='#n559'>559</a>
<a id='n560' href='#n560'>560</a>
<a id='n561' href='#n561'>561</a>
<a id='n562' href='#n562'>562</a>
<a id='n563' href='#n563'>563</a>
<a id='n564' href='#n564'>564</a>
<a id='n565' href='#n565'>565</a>
<a id='n566' href='#n566'>566</a>
<a id='n567' href='#n567'>567</a>
<a id='n568' href='#n568'>568</a>
<a id='n569' href='#n569'>569</a>
<a id='n570' href='#n570'>570</a>
<a id='n571' href='#n571'>571</a>
<a id='n572' href='#n572'>572</a>
<a id='n573' href='#n573'>573</a>
<a id='n574' href='#n574'>574</a>
<a id='n575' href='#n575'>575</a>
<a id='n576' href='#n576'>576</a>
<a id='n577' href='#n577'>577</a>
<a id='n578' href='#n578'>578</a>
<a id='n579' href='#n579'>579</a>
<a id='n580' href='#n580'>580</a>
<a id='n581' href='#n581'>581</a>
<a id='n582' href='#n582'>582</a>
<a id='n583' href='#n583'>583</a>
<a id='n584' href='#n584'>584</a>
<a id='n585' href='#n585'>585</a>
<a id='n586' href='#n586'>586</a>
<a id='n587' href='#n587'>587</a>
<a id='n588' href='#n588'>588</a>
<a id='n589' href='#n589'>589</a>
<a id='n590' href='#n590'>590</a>
<a id='n591' href='#n591'>591</a>
<a id='n592' href='#n592'>592</a>
<a id='n593' href='#n593'>593</a>
<a id='n594' href='#n594'>594</a>
<a id='n595' href='#n595'>595</a>
<a id='n596' href='#n596'>596</a>
<a id='n597' href='#n597'>597</a>
<a id='n598' href='#n598'>598</a>
<a id='n599' href='#n599'>599</a>
<a id='n600' href='#n600'>600</a>
<a id='n601' href='#n601'>601</a>
<a id='n602' href='#n602'>602</a>
<a id='n603' href='#n603'>603</a>
<a id='n604' href='#n604'>604</a>
<a id='n605' href='#n605'>605</a>
<a id='n606' href='#n606'>606</a>
<a id='n607' href='#n607'>607</a>
<a id='n608' href='#n608'>608</a>
<a id='n609' href='#n609'>609</a>
<a id='n610' href='#n610'>610</a>
<a id='n611' href='#n611'>611</a>
<a id='n612' href='#n612'>612</a>
<a id='n613' href='#n613'>613</a>
<a id='n614' href='#n614'>614</a>
<a id='n615' href='#n615'>615</a>
<a id='n616' href='#n616'>616</a>
<a id='n617' href='#n617'>617</a>
<a id='n618' href='#n618'>618</a>
<a id='n619' href='#n619'>619</a>
<a id='n620' href='#n620'>620</a>
<a id='n621' href='#n621'>621</a>
<a id='n622' href='#n622'>622</a>
<a id='n623' href='#n623'>623</a>
<a id='n624' href='#n624'>624</a>
<a id='n625' href='#n625'>625</a>
<a id='n626' href='#n626'>626</a>
<a id='n627' href='#n627'>627</a>
<a id='n628' href='#n628'>628</a>
<a id='n629' href='#n629'>629</a>
<a id='n630' href='#n630'>630</a>
<a id='n631' href='#n631'>631</a>
<a id='n632' href='#n632'>632</a>
<a id='n633' href='#n633'>633</a>
<a id='n634' href='#n634'>634</a>
<a id='n635' href='#n635'>635</a>
<a id='n636' href='#n636'>636</a>
<a id='n637' href='#n637'>637</a>
<a id='n638' href='#n638'>638</a>
<a id='n639' href='#n639'>639</a>
<a id='n640' href='#n640'>640</a>
<a id='n641' href='#n641'>641</a>
<a id='n642' href='#n642'>642</a>
<a id='n643' href='#n643'>643</a>
<a id='n644' href='#n644'>644</a>
<a id='n645' href='#n645'>645</a>
<a id='n646' href='#n646'>646</a>
<a id='n647' href='#n647'>647</a>
<a id='n648' href='#n648'>648</a>
<a id='n649' href='#n649'>649</a>
<a id='n650' href='#n650'>650</a>
<a id='n651' href='#n651'>651</a>
<a id='n652' href='#n652'>652</a>
<a id='n653' href='#n653'>653</a>
<a id='n654' href='#n654'>654</a>
<a id='n655' href='#n655'>655</a>
<a id='n656' href='#n656'>656</a>
<a id='n657' href='#n657'>657</a>
<a id='n658' href='#n658'>658</a>
<a id='n659' href='#n659'>659</a>
<a id='n660' href='#n660'>660</a>
<a id='n661' href='#n661'>661</a>
<a id='n662' href='#n662'>662</a>
<a id='n663' href='#n663'>663</a>
<a id='n664' href='#n664'>664</a>
<a id='n665' href='#n665'>665</a>
<a id='n666' href='#n666'>666</a>
<a id='n667' href='#n667'>667</a>
<a id='n668' href='#n668'>668</a>
<a id='n669' href='#n669'>669</a>
<a id='n670' href='#n670'>670</a>
<a id='n671' href='#n671'>671</a>
<a id='n672' href='#n672'>672</a>
<a id='n673' href='#n673'>673</a>
<a id='n674' href='#n674'>674</a>
<a id='n675' href='#n675'>675</a>
<a id='n676' href='#n676'>676</a>
<a id='n677' href='#n677'>677</a>
<a id='n678' href='#n678'>678</a>
<a id='n679' href='#n679'>679</a>
<a id='n680' href='#n680'>680</a>
<a id='n681' href='#n681'>681</a>
<a id='n682' href='#n682'>682</a>
<a id='n683' href='#n683'>683</a>
<a id='n684' href='#n684'>684</a>
<a id='n685' href='#n685'>685</a>
<a id='n686' href='#n686'>686</a>
<a id='n687' href='#n687'>687</a>
<a id='n688' href='#n688'>688</a>
<a id='n689' href='#n689'>689</a>
<a id='n690' href='#n690'>690</a>
<a id='n691' href='#n691'>691</a>
<a id='n692' href='#n692'>692</a>
<a id='n693' href='#n693'>693</a>
<a id='n694' href='#n694'>694</a>
<a id='n695' href='#n695'>695</a>
<a id='n696' href='#n696'>696</a>
<a id='n697' href='#n697'>697</a>
<a id='n698' href='#n698'>698</a>
<a id='n699' href='#n699'>699</a>
<a id='n700' href='#n700'>700</a>
<a id='n701' href='#n701'>701</a>
<a id='n702' href='#n702'>702</a>
<a id='n703' href='#n703'>703</a>
<a id='n704' href='#n704'>704</a>
<a id='n705' href='#n705'>705</a>
<a id='n706' href='#n706'>706</a>
<a id='n707' href='#n707'>707</a>
<a id='n708' href='#n708'>708</a>
<a id='n709' href='#n709'>709</a>
<a id='n710' href='#n710'>710</a>
<a id='n711' href='#n711'>711</a>
<a id='n712' href='#n712'>712</a>
<a id='n713' href='#n713'>713</a>
<a id='n714' href='#n714'>714</a>
<a id='n715' href='#n715'>715</a>
<a id='n716' href='#n716'>716</a>
<a id='n717' href='#n717'>717</a>
<a id='n718' href='#n718'>718</a>
<a id='n719' href='#n719'>719</a>
<a id='n720' href='#n720'>720</a>
<a id='n721' href='#n721'>721</a>
<a id='n722' href='#n722'>722</a>
<a id='n723' href='#n723'>723</a>
<a id='n724' href='#n724'>724</a>
<a id='n725' href='#n725'>725</a>
<a id='n726' href='#n726'>726</a>
<a id='n727' href='#n727'>727</a>
<a id='n728' href='#n728'>728</a>
<a id='n729' href='#n729'>729</a>
<a id='n730' href='#n730'>730</a>
<a id='n731' href='#n731'>731</a>
<a id='n732' href='#n732'>732</a>
<a id='n733' href='#n733'>733</a>
<a id='n734' href='#n734'>734</a>
<a id='n735' href='#n735'>735</a>
<a id='n736' href='#n736'>736</a>
<a id='n737' href='#n737'>737</a>
<a id='n738' href='#n738'>738</a>
<a id='n739' href='#n739'>739</a>
<a id='n740' href='#n740'>740</a>
<a id='n741' href='#n741'>741</a>
<a id='n742' href='#n742'>742</a>
<a id='n743' href='#n743'>743</a>
<a id='n744' href='#n744'>744</a>
<a id='n745' href='#n745'>745</a>
<a id='n746' href='#n746'>746</a>
<a id='n747' href='#n747'>747</a>
<a id='n748' href='#n748'>748</a>
<a id='n749' href='#n749'>749</a>
<a id='n750' href='#n750'>750</a>
<a id='n751' href='#n751'>751</a>
<a id='n752' href='#n752'>752</a>
<a id='n753' href='#n753'>753</a>
<a id='n754' href='#n754'>754</a>
<a id='n755' href='#n755'>755</a>
<a id='n756' href='#n756'>756</a>
<a id='n757' href='#n757'>757</a>
<a id='n758' href='#n758'>758</a>
<a id='n759' href='#n759'>759</a>
<a id='n760' href='#n760'>760</a>
<a id='n761' href='#n761'>761</a>
<a id='n762' href='#n762'>762</a>
<a id='n763' href='#n763'>763</a>
<a id='n764' href='#n764'>764</a>
<a id='n765' href='#n765'>765</a>
<a id='n766' href='#n766'>766</a>
<a id='n767' href='#n767'>767</a>
<a id='n768' href='#n768'>768</a>
<a id='n769' href='#n769'>769</a>
<a id='n770' href='#n770'>770</a>
<a id='n771' href='#n771'>771</a>
<a id='n772' href='#n772'>772</a>
<a id='n773' href='#n773'>773</a>
<a id='n774' href='#n774'>774</a>
<a id='n775' href='#n775'>775</a>
<a id='n776' href='#n776'>776</a>
<a id='n777' href='#n777'>777</a>
<a id='n778' href='#n778'>778</a>
<a id='n779' href='#n779'>779</a>
<a id='n780' href='#n780'>780</a>
<a id='n781' href='#n781'>781</a>
<a id='n782' href='#n782'>782</a>
<a id='n783' href='#n783'>783</a>
<a id='n784' href='#n784'>784</a>
<a id='n785' href='#n785'>785</a>
<a id='n786' href='#n786'>786</a>
<a id='n787' href='#n787'>787</a>
<a id='n788' href='#n788'>788</a>
<a id='n789' href='#n789'>789</a>
<a id='n790' href='#n790'>790</a>
<a id='n791' href='#n791'>791</a>
<a id='n792' href='#n792'>792</a>
<a id='n793' href='#n793'>793</a>
<a id='n794' href='#n794'>794</a>
<a id='n795' href='#n795'>795</a>
<a id='n796' href='#n796'>796</a>
<a id='n797' href='#n797'>797</a>
<a id='n798' href='#n798'>798</a>
<a id='n799' href='#n799'>799</a>
<a id='n800' href='#n800'>800</a>
<a id='n801' href='#n801'>801</a>
<a id='n802' href='#n802'>802</a>
<a id='n803' href='#n803'>803</a>
<a id='n804' href='#n804'>804</a>
<a id='n805' href='#n805'>805</a>
<a id='n806' href='#n806'>806</a>
<a id='n807' href='#n807'>807</a>
<a id='n808' href='#n808'>808</a>
<a id='n809' href='#n809'>809</a>
<a id='n810' href='#n810'>810</a>
<a id='n811' href='#n811'>811</a>
<a id='n812' href='#n812'>812</a>
<a id='n813' href='#n813'>813</a>
<a id='n814' href='#n814'>814</a>
<a id='n815' href='#n815'>815</a>
<a id='n816' href='#n816'>816</a>
<a id='n817' href='#n817'>817</a>
<a id='n818' href='#n818'>818</a>
<a id='n819' href='#n819'>819</a>
<a id='n820' href='#n820'>820</a>
<a id='n821' href='#n821'>821</a>
<a id='n822' href='#n822'>822</a>
<a id='n823' href='#n823'>823</a>
<a id='n824' href='#n824'>824</a>
<a id='n825' href='#n825'>825</a>
<a id='n826' href='#n826'>826</a>
<a id='n827' href='#n827'>827</a>
<a id='n828' href='#n828'>828</a>
<a id='n829' href='#n829'>829</a>
<a id='n830' href='#n830'>830</a>
<a id='n831' href='#n831'>831</a>
<a id='n832' href='#n832'>832</a>
<a id='n833' href='#n833'>833</a>
<a id='n834' href='#n834'>834</a>
<a id='n835' href='#n835'>835</a>
<a id='n836' href='#n836'>836</a>
<a id='n837' href='#n837'>837</a>
<a id='n838' href='#n838'>838</a>
<a id='n839' href='#n839'>839</a>
<a id='n840' href='#n840'>840</a>
<a id='n841' href='#n841'>841</a>
<a id='n842' href='#n842'>842</a>
<a id='n843' href='#n843'>843</a>
<a id='n844' href='#n844'>844</a>
<a id='n845' href='#n845'>845</a>
<a id='n846' href='#n846'>846</a>
<a id='n847' href='#n847'>847</a>
<a id='n848' href='#n848'>848</a>
<a id='n849' href='#n849'>849</a>
<a id='n850' href='#n850'>850</a>
<a id='n851' href='#n851'>851</a>
<a id='n852' href='#n852'>852</a>
<a id='n853' href='#n853'>853</a>
<a id='n854' href='#n854'>854</a>
<a id='n855' href='#n855'>855</a>
<a id='n856' href='#n856'>856</a>
<a id='n857' href='#n857'>857</a>
<a id='n858' href='#n858'>858</a>
<a id='n859' href='#n859'>859</a>
<a id='n860' href='#n860'>860</a>
<a id='n861' href='#n861'>861</a>
<a id='n862' href='#n862'>862</a>
<a id='n863' href='#n863'>863</a>
<a id='n864' href='#n864'>864</a>
<a id='n865' href='#n865'>865</a>
<a id='n866' href='#n866'>866</a>
<a id='n867' href='#n867'>867</a>
<a id='n868' href='#n868'>868</a>
<a id='n869' href='#n869'>869</a>
<a id='n870' href='#n870'>870</a>
<a id='n871' href='#n871'>871</a>
<a id='n872' href='#n872'>872</a>
<a id='n873' href='#n873'>873</a>
<a id='n874' href='#n874'>874</a>
<a id='n875' href='#n875'>875</a>
<a id='n876' href='#n876'>876</a>
<a id='n877' href='#n877'>877</a>
<a id='n878' href='#n878'>878</a>
<a id='n879' href='#n879'>879</a>
<a id='n880' href='#n880'>880</a>
<a id='n881' href='#n881'>881</a>
<a id='n882' href='#n882'>882</a>
<a id='n883' href='#n883'>883</a>
<a id='n884' href='#n884'>884</a>
<a id='n885' href='#n885'>885</a>
<a id='n886' href='#n886'>886</a>
<a id='n887' href='#n887'>887</a>
<a id='n888' href='#n888'>888</a>
<a id='n889' href='#n889'>889</a>
<a id='n890' href='#n890'>890</a>
<a id='n891' href='#n891'>891</a>
<a id='n892' href='#n892'>892</a>
<a id='n893' href='#n893'>893</a>
<a id='n894' href='#n894'>894</a>
<a id='n895' href='#n895'>895</a>
<a id='n896' href='#n896'>896</a>
<a id='n897' href='#n897'>897</a>
<a id='n898' href='#n898'>898</a>
<a id='n899' href='#n899'>899</a>
<a id='n900' href='#n900'>900</a>
<a id='n901' href='#n901'>901</a>
<a id='n902' href='#n902'>902</a>
<a id='n903' href='#n903'>903</a>
<a id='n904' href='#n904'>904</a>
<a id='n905' href='#n905'>905</a>
<a id='n906' href='#n906'>906</a>
<a id='n907' href='#n907'>907</a>
<a id='n908' href='#n908'>908</a>
<a id='n909' href='#n909'>909</a>
<a id='n910' href='#n910'>910</a>
<a id='n911' href='#n911'>911</a>
<a id='n912' href='#n912'>912</a>
<a id='n913' href='#n913'>913</a>
<a id='n914' href='#n914'>914</a>
<a id='n915' href='#n915'>915</a>
<a id='n916' href='#n916'>916</a>
<a id='n917' href='#n917'>917</a>
<a id='n918' href='#n918'>918</a>
<a id='n919' href='#n919'>919</a>
<a id='n920' href='#n920'>920</a>
<a id='n921' href='#n921'>921</a>
<a id='n922' href='#n922'>922</a>
<a id='n923' href='#n923'>923</a>
<a id='n924' href='#n924'>924</a>
<a id='n925' href='#n925'>925</a>
<a id='n926' href='#n926'>926</a>
<a id='n927' href='#n927'>927</a>
<a id='n928' href='#n928'>928</a>
<a id='n929' href='#n929'>929</a>
<a id='n930' href='#n930'>930</a>
<a id='n931' href='#n931'>931</a>
<a id='n932' href='#n932'>932</a>
<a id='n933' href='#n933'>933</a>
<a id='n934' href='#n934'>934</a>
<a id='n935' href='#n935'>935</a>
<a id='n936' href='#n936'>936</a>
<a id='n937' href='#n937'>937</a>
<a id='n938' href='#n938'>938</a>
<a id='n939' href='#n939'>939</a>
<a id='n940' href='#n940'>940</a>
<a id='n941' href='#n941'>941</a>
<a id='n942' href='#n942'>942</a>
<a id='n943' href='#n943'>943</a>
<a id='n944' href='#n944'>944</a>
<a id='n945' href='#n945'>945</a>
<a id='n946' href='#n946'>946</a>
<a id='n947' href='#n947'>947</a>
<a id='n948' href='#n948'>948</a>
<a id='n949' href='#n949'>949</a>
<a id='n950' href='#n950'>950</a>
<a id='n951' href='#n951'>951</a>
<a id='n952' href='#n952'>952</a>
<a id='n953' href='#n953'>953</a>
<a id='n954' href='#n954'>954</a>
<a id='n955' href='#n955'>955</a>
<a id='n956' href='#n956'>956</a>
<a id='n957' href='#n957'>957</a>
<a id='n958' href='#n958'>958</a>
<a id='n959' href='#n959'>959</a>
<a id='n960' href='#n960'>960</a>
<a id='n961' href='#n961'>961</a>
<a id='n962' href='#n962'>962</a>
<a id='n963' href='#n963'>963</a>
<a id='n964' href='#n964'>964</a>
<a id='n965' href='#n965'>965</a>
<a id='n966' href='#n966'>966</a>
<a id='n967' href='#n967'>967</a>
<a id='n968' href='#n968'>968</a>
<a id='n969' href='#n969'>969</a>
<a id='n970' href='#n970'>970</a>
<a id='n971' href='#n971'>971</a>
<a id='n972' href='#n972'>972</a>
<a id='n973' href='#n973'>973</a>
<a id='n974' href='#n974'>974</a>
<a id='n975' href='#n975'>975</a>
<a id='n976' href='#n976'>976</a>
<a id='n977' href='#n977'>977</a>
<a id='n978' href='#n978'>978</a>
<a id='n979' href='#n979'>979</a>
<a id='n980' href='#n980'>980</a>
<a id='n981' href='#n981'>981</a>
<a id='n982' href='#n982'>982</a>
<a id='n983' href='#n983'>983</a>
<a id='n984' href='#n984'>984</a>
<a id='n985' href='#n985'>985</a>
<a id='n986' href='#n986'>986</a>
<a id='n987' href='#n987'>987</a>
<a id='n988' href='#n988'>988</a>
<a id='n989' href='#n989'>989</a>
<a id='n990' href='#n990'>990</a>
<a id='n991' href='#n991'>991</a>
<a id='n992' href='#n992'>992</a>
<a id='n993' href='#n993'>993</a>
<a id='n994' href='#n994'>994</a>
<a id='n995' href='#n995'>995</a>
<a id='n996' href='#n996'>996</a>
<a id='n997' href='#n997'>997</a>
<a id='n998' href='#n998'>998</a>
<a id='n999' href='#n999'>999</a>
<a id='n1000' href='#n1000'>1000</a>
<a id='n1001' href='#n1001'>1001</a>
<a id='n1002' href='#n1002'>1002</a>
<a id='n1003' href='#n1003'>1003</a>
<a id='n1004' href='#n1004'>1004</a>
<a id='n1005' href='#n1005'>1005</a>
<a id='n1006' href='#n1006'>1006</a>
<a id='n1007' href='#n1007'>1007</a>
<a id='n1008' href='#n1008'>1008</a>
<a id='n1009' href='#n1009'>1009</a>
<a id='n1010' href='#n1010'>1010</a>
<a id='n1011' href='#n1011'>1011</a>
<a id='n1012' href='#n1012'>1012</a>
<a id='n1013' href='#n1013'>1013</a>
<a id='n1014' href='#n1014'>1014</a>
<a id='n1015' href='#n1015'>1015</a>
<a id='n1016' href='#n1016'>1016</a>
<a id='n1017' href='#n1017'>1017</a>
<a id='n1018' href='#n1018'>1018</a>
<a id='n1019' href='#n1019'>1019</a>
<a id='n1020' href='#n1020'>1020</a>
<a id='n1021' href='#n1021'>1021</a>
<a id='n1022' href='#n1022'>1022</a>
<a id='n1023' href='#n1023'>1023</a>
<a id='n1024' href='#n1024'>1024</a>
<a id='n1025' href='#n1025'>1025</a>
<a id='n1026' href='#n1026'>1026</a>
<a id='n1027' href='#n1027'>1027</a>
<a id='n1028' href='#n1028'>1028</a>
<a id='n1029' href='#n1029'>1029</a>
<a id='n1030' href='#n1030'>1030</a>
<a id='n1031' href='#n1031'>1031</a>
<a id='n1032' href='#n1032'>1032</a>
<a id='n1033' href='#n1033'>1033</a>
<a id='n1034' href='#n1034'>1034</a>
<a id='n1035' href='#n1035'>1035</a>
<a id='n1036' href='#n1036'>1036</a>
<a id='n1037' href='#n1037'>1037</a>
<a id='n1038' href='#n1038'>1038</a>
<a id='n1039' href='#n1039'>1039</a>
<a id='n1040' href='#n1040'>1040</a>
<a id='n1041' href='#n1041'>1041</a>
<a id='n1042' href='#n1042'>1042</a>
<a id='n1043' href='#n1043'>1043</a>
<a id='n1044' href='#n1044'>1044</a>
<a id='n1045' href='#n1045'>1045</a>
<a id='n1046' href='#n1046'>1046</a>
<a id='n1047' href='#n1047'>1047</a>
<a id='n1048' href='#n1048'>1048</a>
<a id='n1049' href='#n1049'>1049</a>
<a id='n1050' href='#n1050'>1050</a>
<a id='n1051' href='#n1051'>1051</a>
<a id='n1052' href='#n1052'>1052</a>
<a id='n1053' href='#n1053'>1053</a>
<a id='n1054' href='#n1054'>1054</a>
<a id='n1055' href='#n1055'>1055</a>
<a id='n1056' href='#n1056'>1056</a>
<a id='n1057' href='#n1057'>1057</a>
<a id='n1058' href='#n1058'>1058</a>
<a id='n1059' href='#n1059'>1059</a>
<a id='n1060' href='#n1060'>1060</a>
<a id='n1061' href='#n1061'>1061</a>
<a id='n1062' href='#n1062'>1062</a>
<a id='n1063' href='#n1063'>1063</a>
<a id='n1064' href='#n1064'>1064</a>
<a id='n1065' href='#n1065'>1065</a>
<a id='n1066' href='#n1066'>1066</a>
<a id='n1067' href='#n1067'>1067</a>
<a id='n1068' href='#n1068'>1068</a>
<a id='n1069' href='#n1069'>1069</a>
<a id='n1070' href='#n1070'>1070</a>
<a id='n1071' href='#n1071'>1071</a>
<a id='n1072' href='#n1072'>1072</a>
<a id='n1073' href='#n1073'>1073</a>
<a id='n1074' href='#n1074'>1074</a>
<a id='n1075' href='#n1075'>1075</a>
<a id='n1076' href='#n1076'>1076</a>
<a id='n1077' href='#n1077'>1077</a>
<a id='n1078' href='#n1078'>1078</a>
<a id='n1079' href='#n1079'>1079</a>
<a id='n1080' href='#n1080'>1080</a>
<a id='n1081' href='#n1081'>1081</a>
<a id='n1082' href='#n1082'>1082</a>
<a id='n1083' href='#n1083'>1083</a>
<a id='n1084' href='#n1084'>1084</a>
<a id='n1085' href='#n1085'>1085</a>
<a id='n1086' href='#n1086'>1086</a>
<a id='n1087' href='#n1087'>1087</a>
<a id='n1088' href='#n1088'>1088</a>
<a id='n1089' href='#n1089'>1089</a>
<a id='n1090' href='#n1090'>1090</a>
<a id='n1091' href='#n1091'>1091</a>
<a id='n1092' href='#n1092'>1092</a>
<a id='n1093' href='#n1093'>1093</a>
<a id='n1094' href='#n1094'>1094</a>
<a id='n1095' href='#n1095'>1095</a>
<a id='n1096' href='#n1096'>1096</a>
<a id='n1097' href='#n1097'>1097</a>
<a id='n1098' href='#n1098'>1098</a>
<a id='n1099' href='#n1099'>1099</a>
<a id='n1100' href='#n1100'>1100</a>
<a id='n1101' href='#n1101'>1101</a>
<a id='n1102' href='#n1102'>1102</a>
<a id='n1103' href='#n1103'>1103</a>
<a id='n1104' href='#n1104'>1104</a>
<a id='n1105' href='#n1105'>1105</a>
<a id='n1106' href='#n1106'>1106</a>
<a id='n1107' href='#n1107'>1107</a>
<a id='n1108' href='#n1108'>1108</a>
<a id='n1109' href='#n1109'>1109</a>
<a id='n1110' href='#n1110'>1110</a>
<a id='n1111' href='#n1111'>1111</a>
<a id='n1112' href='#n1112'>1112</a>
<a id='n1113' href='#n1113'>1113</a>
<a id='n1114' href='#n1114'>1114</a>
<a id='n1115' href='#n1115'>1115</a>
<a id='n1116' href='#n1116'>1116</a>
<a id='n1117' href='#n1117'>1117</a>
<a id='n1118' href='#n1118'>1118</a>
<a id='n1119' href='#n1119'>1119</a>
<a id='n1120' href='#n1120'>1120</a>
<a id='n1121' href='#n1121'>1121</a>
<a id='n1122' href='#n1122'>1122</a>
<a id='n1123' href='#n1123'>1123</a>
<a id='n1124' href='#n1124'>1124</a>
<a id='n1125' href='#n1125'>1125</a>
<a id='n1126' href='#n1126'>1126</a>
<a id='n1127' href='#n1127'>1127</a>
<a id='n1128' href='#n1128'>1128</a>
<a id='n1129' href='#n1129'>1129</a>
<a id='n1130' href='#n1130'>1130</a>
<a id='n1131' href='#n1131'>1131</a>
<a id='n1132' href='#n1132'>1132</a>
<a id='n1133' href='#n1133'>1133</a>
<a id='n1134' href='#n1134'>1134</a>
<a id='n1135' href='#n1135'>1135</a>
<a id='n1136' href='#n1136'>1136</a>
<a id='n1137' href='#n1137'>1137</a>
<a id='n1138' href='#n1138'>1138</a>
<a id='n1139' href='#n1139'>1139</a>
<a id='n1140' href='#n1140'>1140</a>
<a id='n1141' href='#n1141'>1141</a>
<a id='n1142' href='#n1142'>1142</a>
<a id='n1143' href='#n1143'>1143</a>
<a id='n1144' href='#n1144'>1144</a>
<a id='n1145' href='#n1145'>1145</a>
<a id='n1146' href='#n1146'>1146</a>
<a id='n1147' href='#n1147'>1147</a>
<a id='n1148' href='#n1148'>1148</a>
<a id='n1149' href='#n1149'>1149</a>
<a id='n1150' href='#n1150'>1150</a>
<a id='n1151' href='#n1151'>1151</a>
<a id='n1152' href='#n1152'>1152</a>
<a id='n1153' href='#n1153'>1153</a>
<a id='n1154' href='#n1154'>1154</a>
<a id='n1155' href='#n1155'>1155</a>
<a id='n1156' href='#n1156'>1156</a>
<a id='n1157' href='#n1157'>1157</a>
<a id='n1158' href='#n1158'>1158</a>
<a id='n1159' href='#n1159'>1159</a>
<a id='n1160' href='#n1160'>1160</a>
<a id='n1161' href='#n1161'>1161</a>
<a id='n1162' href='#n1162'>1162</a>
<a id='n1163' href='#n1163'>1163</a>
<a id='n1164' href='#n1164'>1164</a>
<a id='n1165' href='#n1165'>1165</a>
<a id='n1166' href='#n1166'>1166</a>
<a id='n1167' href='#n1167'>1167</a>
<a id='n1168' href='#n1168'>1168</a>
<a id='n1169' href='#n1169'>1169</a>
<a id='n1170' href='#n1170'>1170</a>
<a id='n1171' href='#n1171'>1171</a>
<a id='n1172' href='#n1172'>1172</a>
<a id='n1173' href='#n1173'>1173</a>
<a id='n1174' href='#n1174'>1174</a>
<a id='n1175' href='#n1175'>1175</a>
<a id='n1176' href='#n1176'>1176</a>
<a id='n1177' href='#n1177'>1177</a>
<a id='n1178' href='#n1178'>1178</a>
<a id='n1179' href='#n1179'>1179</a>
<a id='n1180' href='#n1180'>1180</a>
<a id='n1181' href='#n1181'>1181</a>
<a id='n1182' href='#n1182'>1182</a>
<a id='n1183' href='#n1183'>1183</a>
<a id='n1184' href='#n1184'>1184</a>
<a id='n1185' href='#n1185'>1185</a>
<a id='n1186' href='#n1186'>1186</a>
<a id='n1187' href='#n1187'>1187</a>
<a id='n1188' href='#n1188'>1188</a>
<a id='n1189' href='#n1189'>1189</a>
<a id='n1190' href='#n1190'>1190</a>
<a id='n1191' href='#n1191'>1191</a>
<a id='n1192' href='#n1192'>1192</a>
<a id='n1193' href='#n1193'>1193</a>
<a id='n1194' href='#n1194'>1194</a>
<a id='n1195' href='#n1195'>1195</a>
<a id='n1196' href='#n1196'>1196</a>
<a id='n1197' href='#n1197'>1197</a>
<a id='n1198' href='#n1198'>1198</a>
<a id='n1199' href='#n1199'>1199</a>
<a id='n1200' href='#n1200'>1200</a>
<a id='n1201' href='#n1201'>1201</a>
<a id='n1202' href='#n1202'>1202</a>
<a id='n1203' href='#n1203'>1203</a>
<a id='n1204' href='#n1204'>1204</a>
<a id='n1205' href='#n1205'>1205</a>
<a id='n1206' href='#n1206'>1206</a>
<a id='n1207' href='#n1207'>1207</a>
<a id='n1208' href='#n1208'>1208</a>
<a id='n1209' href='#n1209'>1209</a>
<a id='n1210' href='#n1210'>1210</a>
<a id='n1211' href='#n1211'>1211</a>
<a id='n1212' href='#n1212'>1212</a>
<a id='n1213' href='#n1213'>1213</a>
<a id='n1214' href='#n1214'>1214</a>
<a id='n1215' href='#n1215'>1215</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> diskdrake<span class="hl opt">::</span>interactive<span class="hl opt">;</span> <span class="hl slc"># $Id$</span>

<span class="hl kwa">use</span> diagnostics<span class="hl opt">;</span>
<span class="hl kwa">use</span> strict<span class="hl opt">;</span>

<span class="hl kwa">use</span> common<span class="hl opt">;</span>
<span class="hl kwa">use</span> partition_table <span class="hl str">qw(:types)</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> partition_table<span class="hl opt">::</span>raw<span class="hl opt">;</span>
<span class="hl kwa">use</span> detect_devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> run_program<span class="hl opt">;</span>
<span class="hl kwa">use</span> loopback<span class="hl opt">;</span>
<span class="hl kwa">use</span> devices<span class="hl opt">;</span>
<span class="hl kwa">use</span> fsedit<span class="hl opt">;</span>
<span class="hl kwa">use</span> raid<span class="hl opt">;</span>
<span class="hl kwa">use</span> any<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> fs<span class="hl opt">;</span>


<span class="hl com">=begin</span>
<span class="hl com"></span>
<span class="hl com">=head1 SYNOPSYS</span>
<span class="hl com"></span>
<span class="hl com">struct part {</span>
<span class="hl com">  int active            # one of { 0 | 0x80 }  x86 only, primary only</span>
<span class="hl com">  int start             # in sectors</span>
<span class="hl com">  int size              # in sectors</span>
<span class="hl com">  int type              # 0x82, 0x83, 0x6 ...</span>
<span class="hl com">  string device         # &apos;hda5&apos;, &apos;sdc1&apos; ...</span>
<span class="hl com">  string rootDevice     # &apos;sda&apos;, &apos;hdc&apos; ... (can also be a VG_name)</span>
<span class="hl com">  string real_mntpoint  # directly on real /, &apos;/tmp/hdimage&apos; ...</span>
<span class="hl com">  string mntpoint       # &apos;/&apos;, &apos;/usr&apos; ...</span>
<span class="hl com">  string options        # &apos;defaults&apos;, &apos;noauto&apos;</span>
<span class="hl com">  string device_windobe # &apos;C&apos;, &apos;D&apos; ...</span>
<span class="hl com">  string encrypt_key    # [0-9A-Za-z./]{20,}</span>
<span class="hl com">  string comment        # comment to have in fstab</span>
<span class="hl com"></span>
<span class="hl com">  bool isMounted</span>
<span class="hl com"></span>
<span class="hl com">  bool isFormatted</span>
<span class="hl com">  bool notFormatted </span>
<span class="hl com">    #  isFormatted                  means the device is formatted</span>
<span class="hl com">    # !isFormatted &amp;&amp;  notFormatted means the device is not formatted</span>
<span class="hl com">    # !isFormatted &amp;&amp; !notFormatted means we don&apos;t know which state we&apos;re in</span>
<span class="hl com"></span>
<span class="hl com">  int raid          # for partitions of type isRawRAID and which isPartOfRAID, the raid device number</span>
<span class="hl com">  string lvm        # partition used as a PV for the VG with {lvm} as VG_name  #-#</span>
<span class="hl com">  loopback loopback[]   # loopback living on this partition</span>
<span class="hl com"></span>
<span class="hl com">  # internal</span>
<span class="hl com">  string real_device     # &apos;/dev/loop0&apos;, &apos;/dev/loop1&apos; ...</span>
<span class="hl com"></span>
<span class="hl com">  # internal CHS (Cylinder/Head/Sector)</span>
<span class="hl com">  int start_cyl, start_head, start_sec, end_cyl, end_head, end_sec, </span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct part_allocate inherits part {</span>
<span class="hl com">  int maxsize        # in sectors (alike &quot;size&quot;)</span>
<span class="hl com">  int ratio          # </span>
<span class="hl com">  string hd          # &apos;hda&apos;, &apos;hdc&apos;</span>
<span class="hl com">  string parts       # for creating raid partitions. eg: &apos;foo bar&apos; where &apos;foo&apos; and &apos;bar&apos; are mntpoint</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct part_raid inherits part {</span>
<span class="hl com">  string chunk-size  # usually &apos;64k&apos;</span>
<span class="hl com">  string level       # one of { 0, 1, 4, 5, &apos;linear&apos; }</span>
<span class="hl com"></span>
<span class="hl com">  part disks[]</span>
<span class="hl com"></span>
<span class="hl com">  # invalid: active, start, rootDevice, device_windobe?, CHS</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct part_loopback inherits part {</span>
<span class="hl com">  string loopback_file   # absolute file name which is relative to the partition</span>
<span class="hl com">  part loopback_device   # where the loopback file live</span>
<span class="hl com"></span>
<span class="hl com">  # device is special here: it is the absolute filename of the loopback file.</span>
<span class="hl com"></span>
<span class="hl com">  # invalid: active, start, rootDevice, device_windobe, CHS</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct part_lvm inherits part {</span>
<span class="hl com">  # invalid: active, start, device_windobe, CHS</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com"></span>
<span class="hl com">struct partition_table_elem {</span>
<span class="hl com">  part normal[]     #</span>
<span class="hl com">  part extended     # the main/next extended</span>
<span class="hl com">  part raw[4]       # primary partitions</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct geom {</span>
<span class="hl com">  int heads </span>
<span class="hl com">  int sectors</span>
<span class="hl com">  int cylinders</span>
<span class="hl com">  int totalcylinders # for SUN, forget it</span>
<span class="hl com">  int start          # always 0, forget it</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct hd {</span>
<span class="hl com">  int totalsectors      # size in sectors</span>
<span class="hl com">  string device         # &apos;hda&apos;, &apos;sdc&apos; ...</span>
<span class="hl com">  string device_alias   # &apos;cdrom&apos;, &apos;floppy&apos; ...</span>
<span class="hl com">  string media_type     # one of { &apos;hd&apos;, &apos;cdrom&apos;, &apos;fd&apos;, &apos;tape&apos; }</span>
<span class="hl com">  string capacity       # contain of the strings of { &apos;burner&apos;, &apos;DVD&apos; }</span>
<span class="hl com">  string info           # name of the hd, eg: &apos;QUANTUM ATLAS IV 9 WLS&apos;</span>
<span class="hl com"></span>
<span class="hl com">  bool readonly         # is it allowed to modify the partition table</span>
<span class="hl com">  bool getting_rid_of_readonly_allowed # is it forbidden to write because the partition table is badly handled, or is it because we MUST not change the partition table</span>
<span class="hl com">  bool isDirty          # does it need to be written to the disk </span>
<span class="hl com">  bool needKernelReread # must we tell the kernel to reread the partition table</span>
<span class="hl com">  bool hasBeenDirty     # for undo</span>
<span class="hl com">  bool rebootNeeded     # happens when a kernel reread failed</span>
<span class="hl com">  bool partitionsRenumbered # happens when you</span>
<span class="hl com">                            # - remove an extended partition which is not the last one</span>
<span class="hl com">                            # - add an extended partition which is the first extended partition</span>
<span class="hl com">  int bus, id</span>
<span class="hl com">  </span>
<span class="hl com">  partition_table_elem primary</span>
<span class="hl com">  partition_table_elem extended[]</span>
<span class="hl com"></span>
<span class="hl com">  geom geom</span>
<span class="hl com"></span>
<span class="hl com">  # internal</span>
<span class="hl com">  string prefix         # for some RAID arrays device=&gt;c0d0 and prefix=&gt;c0d0p</span>
<span class="hl com">  string file           # &apos;/dev/hda&apos; ...</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct hd_lvm inherits hd {</span>
<span class="hl com">  int PE_size           # block size (granularity, similar to cylinder size on x86)</span>
<span class="hl com">  string VG_name        # VG name</span>
<span class="hl com"></span>
<span class="hl com">  part_lvm disks[]</span>
<span class="hl com"></span>
<span class="hl com">  # invalid: bus, id, extended, geom</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct raw_hd inherits hd {</span>
<span class="hl com">  string type       # 0x82, 0x83, &apos;nfs&apos;, ...</span>
<span class="hl com">  string mntpoint   # &apos;/&apos;, &apos;/usr&apos; ...</span>
<span class="hl com">  string options    # &apos;defaults&apos;, &apos;noauto&apos;</span>
<span class="hl com"></span>
<span class="hl com">  # invalid: isDirty, needKernelReread, hasBeenDirty, rebootNeeded, primary, extended</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com">struct all_hds {</span>
<span class="hl com">  hd hds[]</span>
<span class="hl com">  hd_lvm lvms[]</span>
<span class="hl com">  part_raid raids[]     # indexed by number: raids[$n]{device} is &quot;md$n&quot;</span>
<span class="hl com">  part_loopback loopbacks[]</span>
<span class="hl com">  raw_hd raw_hds[]</span>
<span class="hl com">  raw_hd nfss[]</span>
<span class="hl com">  raw_hd smbs[]</span>
<span class="hl com">  raw_hd davs[]</span>
<span class="hl com">  raw_hd special[]</span>
<span class="hl com"></span>
<span class="hl com">  # internal: if fstab_to_string($all_hds) eq current_fstab then no need to save</span>
<span class="hl com">  string current_fstab</span>
<span class="hl com">}</span>
<span class="hl com"></span>
<span class="hl com"></span>
<span class="hl com">=cut</span>


<span class="hl kwa">sub</span> main <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $all_hds, $_nowizard, $do_force_reload</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">isa</span><span class="hl opt">(</span><span class="hl str">&apos;interactive::gtk&apos;</span><span class="hl opt">)) {</span>
	<span class="hl kwa">require</span> diskdrake<span class="hl opt">::</span>hd_gtk<span class="hl opt">;</span>
	<span class="hl kwa">goto</span> <span class="hl opt">&amp;</span>diskdrake<span class="hl opt">::</span>hd_gtk<span class="hl opt">::</span>main<span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$current_part, $current_hd</span><span class="hl opt">);</span>
    
    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$choose_txt</span> <span class="hl opt">=</span> <span class="hl kwb">$current_part</span> ? N_<span class="hl opt">(</span><span class="hl str">&quot;Choose another partition&quot;</span><span class="hl opt">) :</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Choose a partition&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$parts_and_holes</span> <span class="hl opt">= [</span> fsedit<span class="hl opt">::</span>get_all_fstab_and_holes<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">) ];</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$choose_part</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$current_part</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf</span><span class="hl opt">(</span><span class="hl str">&apos;diskdrake&apos;</span><span class="hl opt">,</span> translate<span class="hl opt">(</span><span class="hl kwb">$choose_txt</span><span class="hl opt">),</span> 
						<span class="hl kwa">sub</span> <span class="hl opt">{</span>
						    <span class="hl kwc">my</span> <span class="hl kwb">$hd</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>part2hd<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] ||</span> <span class="hl kwa">return</span><span class="hl opt">,</span> <span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
						    format_part_info_short<span class="hl opt">(</span><span class="hl kwb">$hd, $_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]);</span>
						<span class="hl opt">},</span> <span class="hl kwb">$parts_and_holes, $current_part</span><span class="hl opt">) ||</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	    <span class="hl kwb">$current_hd</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>part2hd<span class="hl opt">(</span><span class="hl kwb">$current_part, $all_hds</span><span class="hl opt">);</span>
	<span class="hl opt">};</span>

	<span class="hl kwb">$choose_part</span><span class="hl opt">-&gt;()</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$current_part</span><span class="hl opt">;</span>
	<span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$current_part</span><span class="hl opt">;</span>

	<span class="hl kwc">my</span> <span class="hl kwb">%actions</span> <span class="hl opt">=</span> <span class="hl kwc">my</span> <span class="hl kwb">&#64;actions</span> <span class="hl opt">= (</span>
            if_<span class="hl opt">(</span><span class="hl kwb">$current_part,</span> 
          <span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$diskdrake</span><span class="hl opt">::</span>interactive<span class="hl opt">::{</span><span class="hl kwb">$s</span><span class="hl opt">}(</span><span class="hl kwb">$in, $current_hd, $current_part, $all_hds</span><span class="hl opt">) } }</span> part_possible_actions<span class="hl opt">(</span><span class="hl kwb">$in, $current_hd, $current_part, $all_hds</span><span class="hl opt">)),</span>
		<span class="hl str">&apos;____________________________&apos;</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{},</span>
            <span class="hl opt">),</span>
            if_<span class="hl opt">(</span><span class="hl kwb">&#64;$parts_and_holes</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$choose_txt</span> <span class="hl opt">=&gt;</span> <span class="hl kwb">$choose_part</span><span class="hl opt">),</span>
	    if_<span class="hl opt">(</span><span class="hl kwb">$current_hd,</span>
	  <span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$diskdrake</span><span class="hl opt">::</span>interactive<span class="hl opt">::{</span><span class="hl kwb">$s</span><span class="hl opt">}(</span><span class="hl kwb">$in, $current_hd, $all_hds</span><span class="hl opt">) } }</span> hd_possible_actions_interactive<span class="hl opt">(</span><span class="hl kwb">$in, $current_hd, $all_hds</span><span class="hl opt">)),</span>
	    <span class="hl opt">),</span> 
	  <span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">;</span> <span class="hl kwb">$_</span> <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$diskdrake</span><span class="hl opt">::</span>interactive<span class="hl opt">::{</span><span class="hl kwb">$s</span><span class="hl opt">}(</span><span class="hl kwb">$in, $all_hds</span><span class="hl opt">) } }</span> general_possible_actions<span class="hl opt">(</span><span class="hl kwb">$in, $all_hds</span><span class="hl opt">)),</span>
        <span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$actions</span><span class="hl opt">) =</span> list2kv<span class="hl opt">(</span><span class="hl kwb">&#64;actions</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$a</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$current_part</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">({</span>
			    cancel <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Exit&quot;</span><span class="hl opt">),</span> 
			    title <span class="hl opt">=&gt;</span> <span class="hl str">&apos;diskdrake&apos;</span><span class="hl opt">,</span>
			    messages <span class="hl opt">=&gt;</span> format_part_info<span class="hl opt">(</span><span class="hl kwb">$current_hd, $current_part</span><span class="hl opt">),</span>
			   <span class="hl opt">},</span>
			   <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$a,</span> list <span class="hl opt">=&gt;</span> <span class="hl kwb">$actions,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span><span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> gtk <span class="hl opt">=&gt; {</span> use_boxradio <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">} } ])</span> <span class="hl kwc">or</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">=</span> <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$actions</span><span class="hl opt">{</span><span class="hl kwb">$a</span><span class="hl opt">}() };</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> formatError<span class="hl opt">(</span><span class="hl kwb">$err</span><span class="hl opt">));</span>		
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$v</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;force_reload&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$all_hds</span> <span class="hl opt">=</span> <span class="hl kwb">$do_force_reload</span><span class="hl opt">-&gt;();</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$current_hd</span> <span class="hl opt">=</span> <span class="hl kwb">$current_part</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span>is_part_existing<span class="hl opt">(</span><span class="hl kwb">$current_part, $all_hds</span><span class="hl opt">);</span>	    
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$choose_part</span><span class="hl opt">-&gt;();</span>
	<span class="hl opt">}</span>
	partition_table<span class="hl opt">::</span>assign_device_numbers<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> fsedit<span class="hl opt">::</span>all_hds<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return if</span> <span class="hl kwc">eval</span> <span class="hl opt">{</span> Done<span class="hl opt">(</span><span class="hl kwb">$in, $all_hds</span><span class="hl opt">) };</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
    	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> formatError<span class="hl opt">(</span><span class="hl kwb">$err</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">goto</span> <span class="hl opt">&amp;</span>main<span class="hl opt">;</span>
<span class="hl opt">}</span>




<span class="hl slc">################################################################################</span>
<span class="hl slc"># general actions</span>
<span class="hl slc">################################################################################</span>
<span class="hl kwa">sub</span> general_possible_actions <span class="hl opt">{</span>
    N_<span class="hl opt">(</span><span class="hl str">&quot;Undo&quot;</span><span class="hl opt">), ($::</span>expert ? N_<span class="hl opt">(</span><span class="hl str">&quot;Toggle to normal mode&quot;</span><span class="hl opt">) :</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Toggle to expert mode&quot;</span><span class="hl opt">));</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> Undo <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    fsedit<span class="hl opt">::</span>undo<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Wizard <span class="hl opt">{</span>
    <span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>wizard<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwa">goto</span> <span class="hl opt">&amp;</span>Done<span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Done <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> raid<span class="hl opt">::</span>verify<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">}) };</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
	<span class="hl opt">$::</span>expert <span class="hl kwc">or die</span><span class="hl opt">;</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">, [</span> formatError<span class="hl opt">(</span><span class="hl kwb">$err</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Continue anyway?&quot;</span><span class="hl opt">) ])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}}) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $_</span><span class="hl opt">)) {</span>
	    <span class="hl kwa">return if</span> <span class="hl opt">!$::</span>isStandalone<span class="hl opt">;</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Quit without saving&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Quit without writing the partition table?&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall<span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$new</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>fstab_to_string<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$new</span> <span class="hl kwc">ne</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>current_fstab<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to save /etc/fstab modifications&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>current_fstab<span class="hl opt">} =</span> <span class="hl kwb">$new</span><span class="hl opt">;</span>
	    fs<span class="hl opt">::</span>write_fstab<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc">################################################################################</span>
<span class="hl slc"># per-hd actions</span>
<span class="hl slc">################################################################################</span>
<span class="hl kwa">sub</span> hd_possible_actions <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $hd, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">(</span> 
     if_<span class="hl opt">(!</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>readonly<span class="hl opt">} ||</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>getting_rid_of_readonly_allowed<span class="hl opt">},</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Clear all&quot;</span><span class="hl opt">)),</span> 
     if_<span class="hl opt">(!</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>readonly<span class="hl opt">} &amp;&amp; $::</span>isInstall<span class="hl opt">,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Auto allocate&quot;</span><span class="hl opt">)),</span>
     N_<span class="hl opt">(</span><span class="hl str">&quot;More&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> hd_possible_actions_interactive <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $_hd, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl opt">&amp;</span>hd_possible_actions<span class="hl opt">,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Hard drive information&quot;</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Clear_all <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;parts</span> <span class="hl opt">=</span> partition_table<span class="hl opt">::</span>get_normal_parts<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;parts</span><span class="hl opt">) {</span>
	RemoveFromLVM<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $_, $all_hds</span><span class="hl opt">)</span> <span class="hl kwa">if</span> isPartOfLVM<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
	RemoveFromRAID<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $_, $all_hds</span><span class="hl opt">)</span> <span class="hl kwa">if</span> isPartOfRAID<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">)) {</span>
	lvm<span class="hl opt">::</span>lv_delete<span class="hl opt">(</span><span class="hl kwb">$hd, $_</span><span class="hl opt">)</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;parts</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>readonly<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl slc">#- give a way out of readonly-ness. only allowed when getting_rid_of_readonly_allowed</span>
	<span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>getting_rid_of_readonly_allowed<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
	partition_table<span class="hl opt">::</span>raw<span class="hl opt">::</span>zero_MBR_and_dirty<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Auto_allocate <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$suggestions</span> <span class="hl opt">=</span> partitions_suggestions<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%all_hds_</span> <span class="hl opt">=</span> <span class="hl kwb">%$all_hds</span><span class="hl opt">;</span>
    <span class="hl kwb">$all_hds_</span><span class="hl opt">{</span>hds<span class="hl opt">} = [</span> <span class="hl kwc">sort</span> <span class="hl opt">{</span> <span class="hl kwb">$a</span> <span class="hl opt">==</span> <span class="hl kwb">$hd</span> ? <span class="hl opt">-</span><span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl num">1</span> <span class="hl opt">} &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}} ];</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fsedit<span class="hl opt">::</span>auto_allocate<span class="hl opt">(</span>\<span class="hl kwb">%all_hds_, $suggestions</span><span class="hl opt">) };</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$&#64;</span> <span class="hl opt">=~</span> <span class="hl kwd">/partition table already full/</span> <span class="hl kwc">or die</span><span class="hl opt">;</span>

	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&quot;&quot;</span><span class="hl opt">, [</span> 
			   N<span class="hl opt">(</span><span class="hl str">&quot;All primary partitions are used&quot;</span><span class="hl opt">),</span>
			   N<span class="hl opt">(</span><span class="hl str">&quot;I can&apos;t add any more partition&quot;</span><span class="hl opt">),</span> 
			   N<span class="hl opt">(</span><span class="hl str">&quot;To have more partitions, please delete one to be able to create an extended partition&quot;</span><span class="hl opt">),</span>
			  <span class="hl opt">]);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> More <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$r</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
	    <span class="hl opt">[</span>
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Save partition table&quot;</span><span class="hl opt">),</span>    clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> SaveInFile<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">);</span>   <span class="hl num">1</span> <span class="hl opt">} },</span>
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Restore partition table&quot;</span><span class="hl opt">),</span> clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> ReadFromFile<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">);</span> <span class="hl num">1</span> <span class="hl opt">} },</span>
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Rescue partition table&quot;</span><span class="hl opt">),</span>  clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> Rescuept<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">);</span>     <span class="hl num">1</span> <span class="hl opt">} },</span>
	         if_<span class="hl opt">($::</span>isInstall <span class="hl opt">||</span> <span class="hl num">1</span><span class="hl opt">,</span> 
	     <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Reload partition table&quot;</span><span class="hl opt">),</span> clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> <span class="hl str">&apos;force_reload&apos;</span><span class="hl opt">;</span> <span class="hl num">1</span> <span class="hl opt">} }),</span>
	         if_<span class="hl opt">($::</span>isInstall<span class="hl opt">,</span> 
	     <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Removable media automounting&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl opt">$::</span>o-<span class="hl opt">&gt;{</span>useSupermount<span class="hl opt">},</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span> <span class="hl opt">},</span>
		 <span class="hl opt">),</span>
	    <span class="hl opt">],</span>
    <span class="hl opt">) &amp;&amp;</span> <span class="hl kwb">$r</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> ReadFromFile <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">= $::</span>isStandalone ? <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_file</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Select file&quot;</span><span class="hl opt">)) :</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl str">&quot;fd0&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span>
    catch_cdie <span class="hl opt">{</span> partition_table<span class="hl opt">::</span>load<span class="hl opt">(</span><span class="hl kwb">$hd, $file</span><span class="hl opt">) }</span>
      <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	  <span class="hl kwb">$&#64;</span> <span class="hl opt">=~</span> <span class="hl kwd">/bad totalsectors/</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	  <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
N<span class="hl opt">(</span><span class="hl str">&quot;The backup partition table has not the same size</span>
<span class="hl str">Still continue?&quot;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">);</span>
      <span class="hl opt">};</span>
    <span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
    	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> formatError<span class="hl opt">(</span><span class="hl kwb">$err</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> SaveInFile <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$file</span> <span class="hl opt">= $::</span>isStandalone ?
		 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_file</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Select file&quot;</span><span class="hl opt">)) :</span>
                 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Warning&quot;</span><span class="hl opt">),</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Insert a floppy in drive</span>
<span class="hl str">All data on this floppy will be lost&quot;</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span>detect_devices<span class="hl opt">::</span>floppy<span class="hl opt">())</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">eval</span> <span class="hl opt">{</span> partition_table<span class="hl opt">::</span>save<span class="hl opt">(</span><span class="hl kwb">$hd, $file</span><span class="hl opt">) };</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
    	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> formatError<span class="hl opt">(</span><span class="hl kwb">$err</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Rescuept <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Trying to rescue partition table&quot;</span><span class="hl opt">));</span>
    fsedit<span class="hl opt">::</span>rescuept<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Hd_info <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">, [</span> N<span class="hl opt">(</span><span class="hl str">&quot;Detailed information&quot;</span><span class="hl opt">),</span> format_hd_info<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) ]);</span>
<span class="hl opt">}</span>

<span class="hl slc">################################################################################</span>
<span class="hl slc"># per-part actions</span>
<span class="hl slc">################################################################################</span>

<span class="hl kwa">sub</span> part_possible_actions <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $hd, $part, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">%actions</span> <span class="hl opt">=</span> <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">= (</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Mount point&quot;</span><span class="hl opt">)      =&gt;</span> <span class="hl str">&apos;(</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{real_mntpoint} &amp;&amp; common::usingRamdisk()) || (!isBusy &amp;&amp; !isSwap &amp;&amp; !isNonMountable)&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Type&quot;</span><span class="hl opt">)             =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; $::expert &amp;&amp; (!readonly || (</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{type} &amp; 0xff) == 0x83)&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Options&quot;</span><span class="hl opt">)          =&gt;</span> <span class="hl str">&apos;$::expert&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Resize&quot;</span><span class="hl opt">)	       =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; !readonly &amp;&amp; !isSpecial || isLVM(</span><span class="hl ipl">$hd</span><span class="hl str">) &amp;&amp; isMounted &amp;&amp; isThisFs(&quot;xfs&quot;,</span> <span class="hl ipl">$part</span><span class="hl str">)&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Move&quot;</span><span class="hl opt">)             =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; !readonly &amp;&amp; !isSpecial &amp;&amp; $::expert &amp;&amp; 0&apos;</span><span class="hl opt">,</span> <span class="hl slc"># disable for the moment</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Format&quot;</span><span class="hl opt">)           =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; !readonly &amp;&amp; ($::expert || $::isStandalone)&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Mount&quot;</span><span class="hl opt">)            =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; (hasMntpoint || isSwap) &amp;&amp; maybeFormatted &amp;&amp; ($::expert || $::isStandalone)&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Add to RAID&quot;</span><span class="hl opt">)      =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; isRawRAID &amp;&amp; !isSpecial&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Add to LVM&quot;</span><span class="hl opt">)       =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; isRawLVM&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Unmount&quot;</span><span class="hl opt">)          =&gt;</span> <span class="hl str">&apos;!</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{real_mntpoint} &amp;&amp; isMounted&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Delete&quot;</span><span class="hl opt">)	       =&gt;</span> <span class="hl str">&apos;!isBusy &amp;&amp; !readonly&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Remove from RAID&quot;</span><span class="hl opt">) =&gt;</span> <span class="hl str">&apos;isPartOfRAID&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Remove from LVM&quot;</span><span class="hl opt">)  =&gt;</span> <span class="hl str">&apos;isPartOfLVM&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Modify RAID&quot;</span><span class="hl opt">)      =&gt;</span> <span class="hl str">&apos;isPartOfRAID &amp;&amp; !isMounted(</span><span class="hl ipl">$all_hds</span><span class="hl str">-&gt;{raids}[</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{raid}])&apos;</span><span class="hl opt">,</span>
        N_<span class="hl opt">(</span><span class="hl str">&quot;Use for loopback&quot;</span><span class="hl opt">) =&gt;</span> <span class="hl str">&apos;!</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{real_mntpoint} &amp;&amp; isMountableRW &amp;&amp; !isSpecial &amp;&amp; hasMntpoint &amp;&amp; $::expert&apos;</span><span class="hl opt">,</span>
    <span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$actions_names</span><span class="hl opt">) =</span> list2kv<span class="hl opt">(</span><span class="hl kwb">&#64;l</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%macros</span> <span class="hl opt">= (</span>
	readonly <span class="hl opt">=&gt;</span> <span class="hl str">&apos;</span><span class="hl ipl">$hd</span><span class="hl str">-&gt;{readonly}&apos;</span><span class="hl opt">,</span>
        hasMntpoint <span class="hl opt">=&gt;</span> <span class="hl str">&apos;</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{mntpoint}&apos;</span><span class="hl opt">,</span>
        isPrimary <span class="hl opt">=&gt;</span> <span class="hl str">&apos;isPrimary(</span><span class="hl ipl">$part,</span> <span class="hl str"></span><span class="hl ipl">$hd</span><span class="hl str">)&apos;</span><span class="hl opt">,</span>
    <span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} ==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	if_<span class="hl opt">(!</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>readonly<span class="hl opt">},</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Create&quot;</span><span class="hl opt">));</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
        <span class="hl kwc">grep</span> <span class="hl opt">{</span> 
    	    <span class="hl kwc">my</span> <span class="hl kwb">$cond</span> <span class="hl opt">=</span> <span class="hl kwb">$actions</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
    	    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$k, $v</span><span class="hl opt">) =</span> <span class="hl kwc">each</span> <span class="hl kwb">%macros</span><span class="hl opt">) {</span>
    	        <span class="hl kwb">$cond</span> <span class="hl opt">=~</span> <span class="hl kwd">s/$k/qq(($v))/e</span><span class="hl opt">;</span>
    	    <span class="hl opt">}</span>
    	    <span class="hl kwb">$cond</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(^|[^:\$]) \b ([a-z]\w{3,}) \b ($|[\s&amp;\)])/$1 . $2 . &apos;($part)&apos; . $3/exg</span><span class="hl opt">;</span>
    	    <span class="hl kwc">eval</span> <span class="hl kwb">$cond</span><span class="hl opt">;</span>
        <span class="hl opt">}</span> <span class="hl kwb">&#64;$actions_names</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Create <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$def_start, $def_size, $max</span><span class="hl opt">) = (</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">} +</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">});</span>

    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>maxsize<span class="hl opt">} =</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">};</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>fsedit<span class="hl opt">::</span>suggest_part<span class="hl opt">(</span><span class="hl kwb">$part, $all_hds</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>maxsize<span class="hl opt">};</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} ||=</span> <span class="hl num">0x483</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- update adjustment for start and size, take into account the minimum partition size</span>
    <span class="hl slc">#- including one less sector for start due to a capacity to increase the adjustement by</span>
    <span class="hl slc">#- one.</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$primaryOrExtended, $migrate_files</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> type2name<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">});</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$mb_size</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} &gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$has_startsector</span> <span class="hl opt">= ($::</span>expert <span class="hl opt">||</span> arch<span class="hl opt">() !~</span> <span class="hl kwd">/i.86/</span><span class="hl opt">) &amp;&amp; !</span>isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Create a new partition&quot;</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
        <span class="hl opt">[</span>
           if_<span class="hl opt">(</span><span class="hl kwb">$has_startsector,</span>
         <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Start sector: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">},</span> min <span class="hl opt">=&gt;</span> <span class="hl kwb">$def_start,</span> max <span class="hl opt">=&gt; (</span><span class="hl kwb">$max</span> <span class="hl opt">-</span> min_partition_size<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">)),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;range&apos;</span> <span class="hl opt">},</span>
           <span class="hl opt">),</span>
         <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Size in MB: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$mb_size,</span> min <span class="hl opt">=&gt;</span> min_partition_size<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) &gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">,</span> max <span class="hl opt">=&gt;</span> <span class="hl kwb">$def_size</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;range&apos;</span> <span class="hl opt">},</span>
         <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Filesystem type: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$type,</span> list <span class="hl opt">=&gt; [</span> partition_table<span class="hl opt">::</span>important_types<span class="hl opt">() ],</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">},</span>
         <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Mount point: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">},</span> list <span class="hl opt">=&gt; [</span> fsedit<span class="hl opt">::</span>suggestions_mntpoint<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">],</span>
           disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">= {</span> type <span class="hl opt">=&gt;</span> name2type<span class="hl opt">(</span><span class="hl kwb">$type</span><span class="hl opt">) };</span> isSwap<span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">) ||</span> isNonMountable<span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">) },</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;combo&apos;</span><span class="hl opt">,</span> not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
         <span class="hl opt">},</span>
           if_<span class="hl opt">($::</span>expert <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;</span><span class="hl kwd">hasExtended</span><span class="hl opt">,</span>
         <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Preference: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$primaryOrExtended,</span> list <span class="hl opt">=&gt; [</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&quot;Extended&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;Primary&quot;</span><span class="hl opt">,</span> if_<span class="hl opt">($::</span>expert<span class="hl opt">,</span> <span class="hl str">&quot;Extended_0x85&quot;</span><span class="hl opt">) ] },</span>
           <span class="hl opt">),</span>
        <span class="hl opt">],</span> changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">} + (</span><span class="hl kwb">$mb_size</span> <span class="hl opt">&lt;&lt;</span> <span class="hl num">11</span><span class="hl opt">) &gt;</span> <span class="hl kwb">$max</span><span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] ==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Start sector changed =&gt; restricting Size</span>
		    <span class="hl kwb">$mb_size</span> <span class="hl opt">= (</span><span class="hl kwb">$max</span> <span class="hl opt">-</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">}) &gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">;</span> 
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl slc"># Size changed =&gt; restricting Start sector</span>
		    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">} =</span> <span class="hl kwb">$max</span> <span class="hl opt">- (</span><span class="hl kwb">$mb_size</span> <span class="hl opt">&lt;&lt;</span> <span class="hl num">11</span><span class="hl opt">);</span> 
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
        <span class="hl opt">},</span> complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> from_Mb<span class="hl opt">(</span><span class="hl kwb">$mb_size,</span> min_partition_size<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">),</span> <span class="hl kwb">$max</span> <span class="hl opt">-</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">});</span> <span class="hl slc">#- need this to be able to get back the approximation of using MB</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> name2type<span class="hl opt">(</span><span class="hl kwb">$type</span><span class="hl opt">);</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl str">&apos;&apos;</span> <span class="hl kwa">if</span> isNonMountable<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl str">&apos;swap&apos;</span> <span class="hl kwa">if</span> isSwap<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
	    fs<span class="hl opt">::</span>set_default_options<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>

	    check<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$migrate_files</span> <span class="hl opt">=</span> need_migration<span class="hl opt">(</span><span class="hl kwb">$in, $part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>

	    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fsedit<span class="hl opt">::</span>add<span class="hl opt">(</span><span class="hl kwb">$hd, $part, $all_hds,</span> <span class="hl opt">{</span> force <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> primaryOrExtended <span class="hl opt">=&gt;</span> <span class="hl kwb">$primaryOrExtended</span> <span class="hl opt">}) };</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$err</span> <span class="hl opt">=~</span> <span class="hl kwd">/raw_add/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;</span><span class="hl kwd">hasExtended</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>primary<span class="hl opt">}{</span>extended<span class="hl opt">}) {</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;You can&apos;t create a new partition</span>
<span class="hl str">(since you reached the maximal number of primary partitions).</span>
<span class="hl str">First remove a primary partition and create an extended partition.&quot;</span><span class="hl opt">));</span>
		    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Error&quot;</span><span class="hl opt">),</span> <span class="hl kwb">$&#64;</span><span class="hl opt">);</span>
		    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">},</span>
    <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    warn_if_renumbered<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$migrate_files</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;migrate&apos;</span><span class="hl opt">) {</span>
	format_<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	migrate_files<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part</span><span class="hl opt">);</span>
	fs<span class="hl opt">::</span>mount_part<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Delete <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>isRAID<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	raid<span class="hl opt">::</span><span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">)) {</span>
	lvm<span class="hl opt">::</span>lv_delete<span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>isLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$f</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{loopback_device}{mntpoint}</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{loopback_file}&quot;</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(-</span>e <span class="hl kwb">$f</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remove the loopback file?&quot;</span><span class="hl opt">))) {</span>
	    <span class="hl kwc">unlink</span> <span class="hl kwb">$f</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$l</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_device<span class="hl opt">}{</span>loopback<span class="hl opt">};</span>
	<span class="hl kwb">&#64;$l</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">!=</span> <span class="hl kwb">$part</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$l</span><span class="hl opt">;</span>
	<span class="hl kwc">delete</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_device<span class="hl opt">}{</span>loopback<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">&#64;$l</span> <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">;</span>
	fsedit<span class="hl opt">::</span>recompute_loopbacks<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">() =~</span> <span class="hl kwd">/ppc/</span><span class="hl opt">) {</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$partition_table</span><span class="hl opt">::</span>mac<span class="hl opt">::</span>bootstrap_part <span class="hl kwa">if</span> isAppleBootstrap<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">) &amp;&amp; (</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} =</span> <span class="hl kwb">$partition_table</span><span class="hl opt">::</span>mac<span class="hl opt">::</span>bootstrap_part<span class="hl opt">);</span>
	<span class="hl opt">}</span>
	partition_table<span class="hl opt">::</span>remove<span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">);</span>
	warn_if_renumbered<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Type <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$warn</span> <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> ask_alldatawillbelost<span class="hl opt">(</span><span class="hl kwb">$in, $part,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;After changing type of partition</span> <span class="hl ipl">%s,</span> <span class="hl str">all data on this partition will be lost&quot;</span><span class="hl opt">)) };</span>

    <span class="hl slc">#- for ext2, warn after choosing as ext2-&gt;ext3 can be achieved without loosing any data :)</span>
    isExt2<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwb">$warn</span><span class="hl opt">-&gt;()</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;types</span> <span class="hl opt">=</span> partition_table<span class="hl opt">::</span>important_types<span class="hl opt">();</span>

    <span class="hl slc">#- when readonly, Type() is allowed only when changing between various { 0x83, 0x183, ... }</span>
    <span class="hl kwb">&#64;types</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{ (</span>name2type<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) &amp;</span> <span class="hl num">0xff</span><span class="hl opt">) ==</span> <span class="hl num">0x83</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;types</span> <span class="hl kwa">if</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>readonly<span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$type_name</span> <span class="hl opt">=</span> type2name<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">});</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Change partition type&quot;</span><span class="hl opt">),</span>
		  N<span class="hl opt">(</span><span class="hl str">&quot;Which filesystem do you want?&quot;</span><span class="hl opt">),</span>
		  <span class="hl opt">[ {</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Type&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$type_name,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;types,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> not_edit <span class="hl opt">=&gt; !$::</span>expert <span class="hl opt">} ])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwb">$type_name</span> <span class="hl opt">&amp;&amp;</span> name2type<span class="hl opt">(</span><span class="hl kwb">$type_name</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>isExt2<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">) &amp;&amp;</span> isThisFs<span class="hl opt">(</span><span class="hl str">&apos;ext3&apos;</span><span class="hl opt">, {</span> type <span class="hl opt">=&gt;</span> <span class="hl kwb">$type</span> <span class="hl opt">})) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Switching from ext2 to ext3&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;tune2fs&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-j&quot;</span><span class="hl opt">,</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}))) {</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> <span class="hl kwb">$type</span><span class="hl opt">;</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span> <span class="hl slc">#- assume that if tune2fs works, partition is formatted</span>

	    <span class="hl slc">#- disable the fsck (don&apos;t do it together with -j in case -j fails?)</span>
	    fs<span class="hl opt">::</span>disable_forced_fsck<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">});</span>	    
	    <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- either we switch to non-ext3 or switching losslessly to ext3 failed</span>
    <span class="hl opt">!</span>isExt2<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwb">$warn</span><span class="hl opt">-&gt;()</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span> <span class="hl kwb">$type</span><span class="hl opt">) {</span>
	check_type<span class="hl opt">(</span><span class="hl kwb">$in, $type, $hd, $part</span><span class="hl opt">)</span> <span class="hl kwc">and</span> fsedit<span class="hl opt">::</span>change_type<span class="hl opt">(</span><span class="hl kwb">$type, $hd, $part</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Mount_point <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$migrate_files</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$mntpoint</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} ||</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$part_</span> <span class="hl opt">= {</span> <span class="hl kwb">%$part</span> <span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>fsedit<span class="hl opt">::</span>suggest_part<span class="hl opt">(</span><span class="hl kwb">$part_, $all_hds</span><span class="hl opt">)) {</span>
	    fsedit<span class="hl opt">::</span>has_mntpoint<span class="hl opt">(</span><span class="hl str">&apos;/&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$all_hds</span><span class="hl opt">) ||</span> <span class="hl kwb">$part_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;/boot&apos;</span> ? <span class="hl kwb">$part_</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} :</span> <span class="hl str">&apos;/&apos;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">}</span>
    <span class="hl opt">};</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>
        <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
        isLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> ? N<span class="hl opt">(</span><span class="hl str">&quot;Where do you want to mount the loopback file</span> <span class="hl ipl">%s?</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">}) :</span>
			    N<span class="hl opt">(</span><span class="hl str">&quot;Where do you want to mount device</span> <span class="hl ipl">%s?</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}),</span>
	<span class="hl opt">[ {</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Mount point&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$mntpoint,</span> 
	    list <span class="hl opt">=&gt; [</span> uniq<span class="hl opt">(</span>if_<span class="hl opt">(</span><span class="hl kwb">$mntpoint, $mntpoint</span><span class="hl opt">),</span> fsedit<span class="hl opt">::</span>suggestions_mntpoint<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) ],</span> 
	    not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">} ],</span>
	complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl opt">!</span>isPartOfLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">) ||</span> <span class="hl kwb">$mntpoint</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
N<span class="hl opt">(</span><span class="hl str">&quot;Can&apos;t unset mount point as this partition is used for loop back.</span>
<span class="hl str">Remove the loopback first&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$mntpoint</span> <span class="hl opt">||</span> check_mntpoint<span class="hl opt">(</span><span class="hl kwb">$in, $mntpoint, $hd, $part, $all_hds</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
    	    <span class="hl kwb">$migrate_files</span> <span class="hl opt">=</span> need_migration<span class="hl opt">(</span><span class="hl kwb">$in, $mntpoint</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl kwb">$mntpoint</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$migrate_files</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;migrate&apos;</span><span class="hl opt">) {</span>
	format_<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	migrate_files<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part</span><span class="hl opt">);</span>
	fs<span class="hl opt">::</span>mount_part<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Mount_point_raw_hd <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $part, $all_hds, &#64;propositions</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$mntpoint</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} ||</span> <span class="hl kwc">shift</span> <span class="hl kwb">&#64;propositions</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>
        <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
        N<span class="hl opt">(</span><span class="hl str">&quot;Where do you want to mount</span> <span class="hl ipl">%s?</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}),</span>
	<span class="hl opt">[ {</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Mount point&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$mntpoint,</span> 
	    list <span class="hl opt">=&gt; [</span> if_<span class="hl opt">(</span><span class="hl kwb">$mntpoint, $mntpoint</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;propositions</span> <span class="hl opt">],</span> 
	    not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">} ],</span>
	complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$mntpoint</span> <span class="hl opt">||</span> check_mntpoint<span class="hl opt">(</span><span class="hl kwb">$in, $mntpoint,</span> <span class="hl opt">{},</span> <span class="hl kwb">$part, $all_hds</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">} =</span> <span class="hl kwb">$mntpoint</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Resize <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">%nice_resize, $block_count, $free_block, $block_size</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$min, $max</span><span class="hl opt">) = (</span>min_partition_size<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">),</span> partition_table<span class="hl opt">::</span>next_start<span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">) -</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">});</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>maybeFormatted<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	<span class="hl slc"># here we may have a non-formatted or a formatted partition</span>
	<span class="hl slc"># -&gt; doing as if it was formatted</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span>isFat<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	    <span class="hl slc">#- try to resize without losing data</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Resizing&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Computing FAT filesystem bounds&quot;</span><span class="hl opt">));</span>

	    <span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>fat<span class="hl opt">} =</span> resize_fat<span class="hl opt">::</span>main-<span class="hl opt">&gt;</span><span class="hl kwd">new</span><span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">},</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}));</span>
	    <span class="hl kwb">$min</span> <span class="hl opt">=</span> max<span class="hl opt">(</span><span class="hl kwb">$min, $nice_resize</span><span class="hl opt">{</span>fat<span class="hl opt">}-&gt;</span><span class="hl kwd">min_size</span><span class="hl opt">);</span>
	    <span class="hl kwb">$max</span> <span class="hl opt">=</span> min<span class="hl opt">(</span><span class="hl kwb">$max, $nice_resize</span><span class="hl opt">{</span>fat<span class="hl opt">}-&gt;</span><span class="hl kwd">max_size</span><span class="hl opt">);</span>	    
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>isExt2<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">) ||</span> isThisFs<span class="hl opt">(</span><span class="hl str">&apos;ext3&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	    <span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>ext2<span class="hl opt">} =</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">});</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$r</span> <span class="hl opt">=</span> <span class="hl str">`dumpe2fs</span> <span class="hl ipl">$nice_resize</span><span class="hl str">{ext2} 2&gt;/dev/null`</span><span class="hl opt">;</span>
	    <span class="hl kwb">$r</span> <span class="hl opt">=~</span> <span class="hl kwd">/Block count:\s*(\d+)/</span> <span class="hl kwc">and</span> <span class="hl kwb">$block_count</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$r</span> <span class="hl opt">=~</span> <span class="hl kwd">/Free blocks:\s*(\d+)/</span> <span class="hl kwc">and</span> <span class="hl kwb">$free_block</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$r</span> <span class="hl opt">=~</span> <span class="hl kwd">/Block size:\s*(\d+)/</span> <span class="hl kwc">and</span> <span class="hl kwb">$block_size</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;dumpe2fs</span> <span class="hl ipl">$nice_resize</span><span class="hl str">{ext2} gives: Block_count=</span><span class="hl ipl">$block_count,</span> <span class="hl str">Free_blocks=</span><span class="hl ipl">$free_block,</span> <span class="hl str">Block_size=</span><span class="hl ipl">$block_size</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$block_count</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$free_block</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$block_size</span><span class="hl opt">) {</span>
		<span class="hl kwb">$min</span> <span class="hl opt">=</span> max<span class="hl opt">(</span><span class="hl kwb">$min,</span> <span class="hl opt">(</span><span class="hl kwb">$block_count</span> <span class="hl opt">-</span> <span class="hl kwb">$free_block</span><span class="hl opt">) *</span> <span class="hl kwb">$block_size</span> <span class="hl opt">/</span> <span class="hl num">512</span><span class="hl opt">);</span>
		<span class="hl kwb">$max</span> <span class="hl opt">=</span> min<span class="hl opt">(</span><span class="hl kwb">$max, $block_count</span> <span class="hl opt">*</span> <span class="hl kwb">$block_size</span> <span class="hl opt">/</span> <span class="hl num">512</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwc">delete</span> <span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>ext2<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>isThisFs<span class="hl opt">(</span><span class="hl str">&quot;reiserfs&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$free</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>df<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">))) {</span>
		<span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>reiserfs<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>		  
		<span class="hl kwb">$min</span> <span class="hl opt">=</span> max<span class="hl opt">(</span><span class="hl kwb">$min, $part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} -</span> <span class="hl kwb">$free</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>isThisFs<span class="hl opt">(</span><span class="hl str">&apos;xfs&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">) &amp;&amp;</span> isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) &amp;&amp; $::</span>isStandalone <span class="hl opt">&amp;&amp;</span> isMounted<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$min</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">};</span> <span class="hl slc">#- ensure the user can only increase</span>
	    <span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>xfs<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc">#- make sure that even after normalizing the size to cylinder boundaries, the minimun will be saved,</span>
	<span class="hl slc">#- this save at least a cylinder (less than 8Mb).</span>
	<span class="hl kwb">$min</span> <span class="hl opt">+=</span> partition_table<span class="hl opt">::</span>raw<span class="hl opt">::</span>cylinder_size<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
	<span class="hl kwb">$min</span> <span class="hl opt">&gt;=</span> <span class="hl kwb">$max</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;This partition is not resizeable&quot;</span><span class="hl opt">));</span>

	<span class="hl slc">#- for these, we have tools to resize partition table</span>
	<span class="hl slc">#- without losing data (or at least we hope so :-)</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">%nice_resize</span><span class="hl opt">) {</span>
	    ask_alldatamaybelost<span class="hl opt">(</span><span class="hl kwb">$in, $part,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;All data on this partition should be backed-up&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    ask_alldatawillbelost<span class="hl opt">(</span><span class="hl kwb">$in, $part,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;After resizing partition</span> <span class="hl ipl">%s,</span> <span class="hl str">all data on this partition will be lost&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$mb_size</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} &gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Resize&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Choose the new size&quot;</span><span class="hl opt">), [</span> 
		   <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;New size in MB: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$mb_size,</span> min <span class="hl opt">=&gt;</span> <span class="hl kwb">$min</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">,</span> max <span class="hl opt">=&gt;</span> <span class="hl kwb">$max</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;range&apos;</span> <span class="hl opt">},</span>
		<span class="hl opt">])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>


    <span class="hl kwc">my</span> <span class="hl kwb">$size</span> <span class="hl opt">=</span> from_Mb<span class="hl opt">(</span><span class="hl kwb">$mb_size, $min, $max</span><span class="hl opt">);</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} ==</span> <span class="hl kwb">$size</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$oldsize</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">};</span>
    <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>isDirty<span class="hl opt">} =</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>needKernelReread<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> <span class="hl kwb">$size</span><span class="hl opt">;</span>
    <span class="hl kwb">$hd</span><span class="hl opt">-&gt;</span><span class="hl kwd">adjustEnd</span><span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>

    <span class="hl kwc">undef</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$_b</span> <span class="hl opt">=</span> before_leaving <span class="hl opt">{</span> <span class="hl kwb">$&#64;</span> <span class="hl kwc">and</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> <span class="hl kwb">$oldsize</span> <span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Resizing&quot;</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">)) {</span>
	lvm<span class="hl opt">::</span>lv_resize<span class="hl opt">(</span><span class="hl kwb">$part, $oldsize</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$size</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$oldsize</span><span class="hl opt">;</span>	
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>fat<span class="hl opt">}) {</span>
	<span class="hl kwc">local</span> <span class="hl opt">*</span><span class="hl kwc">log</span><span class="hl opt">::</span>l <span class="hl opt">=</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$w</span><span class="hl opt">-&gt;</span><span class="hl kwd">set</span><span class="hl opt">(</span><span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos; &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;_</span><span class="hl opt">)) };</span>
	<span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>fat<span class="hl opt">}-&gt;</span><span class="hl kwd">resize</span><span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>ext2<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwc">int</span><span class="hl opt">((</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} &lt;&lt;</span> <span class="hl num">9</span><span class="hl opt">) /</span> <span class="hl kwb">$block_size</span><span class="hl opt">);</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;resize2fs</span> <span class="hl ipl">$nice_resize</span><span class="hl str">{ext2} to size</span> <span class="hl ipl">$s</span> <span class="hl str">in block of</span> <span class="hl ipl">$block_size</span> <span class="hl str">bytes&quot;</span><span class="hl opt">);</span>
	run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;resize2fs&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-pf&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>ext2<span class="hl opt">},</span> <span class="hl kwb">$s</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>reiserfs<span class="hl opt">}) {</span>
	<span class="hl kwc">log</span><span class="hl opt">::</span>l<span class="hl opt">(</span><span class="hl str">&quot;reiser resize to</span> <span class="hl ipl">$part</span><span class="hl str">-&gt;{size} sectors&quot;</span><span class="hl opt">);</span>
	run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;resize_reiserfs&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-f&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-q&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-s&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">}/</span><span class="hl num">2</span> <span class="hl opt">.</span> <span class="hl str">&quot;K&quot;</span><span class="hl opt">,</span> devices<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}));</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$nice_resize</span><span class="hl opt">{</span>xfs<span class="hl opt">}) {</span>
	<span class="hl slc">#- happens only with mounted LVM, see above</span>
	run_program<span class="hl opt">::</span>run<span class="hl opt">(</span><span class="hl str">&quot;xfs_growfs&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">%nice_resize</span><span class="hl opt">) {</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>notFormatted<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
	partition_table<span class="hl opt">::</span>verifyParts<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span>isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">)) {</span>
	lvm<span class="hl opt">::</span>lv_resize<span class="hl opt">(</span><span class="hl kwb">$part, $oldsize</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$size</span> <span class="hl opt">&lt;</span> <span class="hl kwb">$oldsize</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	partition_table<span class="hl opt">::</span>adjust_local_extended<span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">);</span>
	partition_table<span class="hl opt">::</span>adjust_main_extended<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Move <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$hd2</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Move&quot;</span><span class="hl opt">),</span>
				  N<span class="hl opt">(</span><span class="hl str">&quot;Which disk do you want to move it to?&quot;</span><span class="hl opt">),</span> \<span class="hl opt">&amp;</span>partition_table<span class="hl opt">::</span>description<span class="hl opt">, &#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}})</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$start2</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entry</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Sector&quot;</span><span class="hl opt">),</span>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Which sector do you want to move it to?&quot;</span><span class="hl opt">));</span>
    <span class="hl kwc">defined</span> <span class="hl kwb">$start2</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Moving&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Moving partition...&quot;</span><span class="hl opt">));</span>
    fsedit<span class="hl opt">::</span>move<span class="hl opt">(</span><span class="hl kwb">$hd, $part, $hd2, $start2</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Format <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    format_<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Mount <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    fs<span class="hl opt">::</span>mount_part<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Add2RAID <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $_hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$raids</span> <span class="hl opt">=</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">};</span>

    <span class="hl kwc">local</span> <span class="hl kwb">$_</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;$raids</span> <span class="hl opt">== ()</span> ? <span class="hl str">&quot;new&quot;</span> <span class="hl opt">:</span>
      <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Choose an existing RAID to add to&quot;</span><span class="hl opt">),</span>
			  <span class="hl opt">[ (</span><span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> map_index <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;md$::i&quot;</span> <span class="hl opt">}</span> <span class="hl kwb">&#64;$raids</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;new&quot;</span><span class="hl opt">) ])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwd">/new/</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$nb1</span> <span class="hl opt">=</span> raid<span class="hl opt">::</span>new<span class="hl opt">(</span><span class="hl kwb">$raids, $part</span><span class="hl opt">);</span>
	<span class="hl kwc">defined</span> modifyRAID<span class="hl opt">(</span><span class="hl kwb">$in, $raids, $nb1</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> raid<span class="hl opt">::</span><span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$raids, $nb1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	raid<span class="hl opt">::</span>add<span class="hl opt">(</span><span class="hl kwb">$raids, $part, $_</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    raid<span class="hl opt">::</span>update<span class="hl opt">(</span><span class="hl kwb">&#64;$raids</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Add2LVM <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$lvms</span> <span class="hl opt">=</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>lvms<span class="hl opt">};</span>
    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $_</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return foreach</span> isRAID<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> ? <span class="hl opt">&#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}} :</span> <span class="hl kwb">$hd</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$lvm</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf_</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Choose an existing LVM to add to&quot;</span><span class="hl opt">),</span>
				  <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwc">ref</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]</span> ? <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]{</span>VG_name<span class="hl opt">} :</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">] },</span>
				  <span class="hl opt">[</span> <span class="hl kwb">&#64;$lvms,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;new&quot;</span><span class="hl opt">) ])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwa">require</span> lvm<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwc">ref</span> <span class="hl kwb">$lvm</span><span class="hl opt">) {</span>
	<span class="hl slc"># create new lvm</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$name</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entry</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;LVM name?&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl kwb">$lvm</span> <span class="hl opt">=</span> new lvm<span class="hl opt">(</span><span class="hl kwb">$name</span><span class="hl opt">);</span>
	<span class="hl kwc">push</span> <span class="hl kwb">&#64;$lvms, $lvm</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    raid<span class="hl opt">::</span>make<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">)</span> <span class="hl kwa">if</span> isRAID<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>lvm<span class="hl opt">} =</span> <span class="hl kwb">$lvm</span><span class="hl opt">-&gt;{</span>VG_name<span class="hl opt">};</span>
    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$lvm</span><span class="hl opt">-&gt;{</span>disks<span class="hl opt">}},</span> <span class="hl kwb">$part</span><span class="hl opt">;</span>
    <span class="hl kwc">delete</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">};</span>

    lvm<span class="hl opt">::</span>check<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>isStandalone<span class="hl opt">;</span>
    lvm<span class="hl opt">::</span>vg_add<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    lvm<span class="hl opt">::</span>update_size<span class="hl opt">(</span><span class="hl kwb">$lvm</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Unmount <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $_hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    fs<span class="hl opt">::</span>umount_part<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> RemoveFromRAID <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $_hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    raid<span class="hl opt">::</span>removeDisk<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> RemoveFromLVM <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_in, $_hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$lvms</span> <span class="hl opt">=</span> <span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>lvms<span class="hl opt">};</span>
    isPartOfLVM<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> <span class="hl kwc">or die</span><span class="hl opt">;</span>
    <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$lvm, $lvms</span><span class="hl opt">) =</span> partition <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>VG_name<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>lvm<span class="hl opt">} }</span> <span class="hl kwb">&#64;$lvms</span><span class="hl opt">;</span>
    lvm<span class="hl opt">::</span>vg_destroy<span class="hl opt">(</span><span class="hl kwb">$lvm</span><span class="hl opt">-&gt;[</span><span class="hl num">0</span><span class="hl opt">]);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> ModifyRAID <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $_hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    modifyRAID<span class="hl opt">(</span><span class="hl kwb">$in, $all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>raid<span class="hl opt">});</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> Loopback <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $real_part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$real_part</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;This partition can&apos;t be used for loopback&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$min, $max</span><span class="hl opt">) = (</span><span class="hl num">1</span><span class="hl opt">,</span> loopback<span class="hl opt">::</span>getFree<span class="hl opt">(</span><span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> <span class="hl kwb">$real_part</span><span class="hl opt">));</span>
    <span class="hl kwb">$max</span> <span class="hl opt">=</span> max<span class="hl opt">(</span><span class="hl kwb">$max,</span> <span class="hl num">1</span> <span class="hl opt">&lt;&lt; (</span><span class="hl num">31</span> <span class="hl opt">-</span> <span class="hl num">9</span><span class="hl opt">))</span> <span class="hl kwa">if</span> isFat<span class="hl opt">(</span><span class="hl kwb">$real_part</span><span class="hl opt">);</span> <span class="hl slc">#- FAT doesn&apos;t handle file size bigger than 2GB</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$part</span> <span class="hl opt">= {</span> maxsize <span class="hl opt">=&gt;</span> <span class="hl kwb">$max,</span> size <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> loopback_device <span class="hl opt">=&gt;</span> <span class="hl kwb">$real_part,</span> notFormatted <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>fsedit<span class="hl opt">::</span>suggest_part<span class="hl opt">(</span><span class="hl kwb">$part, $all_hds</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>maxsize<span class="hl opt">};</span>
	<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} ||=</span> <span class="hl num">0x483</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">delete</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">};</span> <span class="hl slc"># we don&apos;t want the suggested mntpoint</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> type2name<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">});</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$mb_size</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} &gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Loopback&quot;</span><span class="hl opt">),</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, [</span>
		  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Loopback file name: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">} },</span>
		  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Size in MB: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$mb_size,</span> min <span class="hl opt">=&gt;</span> <span class="hl kwb">$min</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">,</span> max <span class="hl opt">=&gt;</span> <span class="hl kwb">$max</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;range&apos;</span> <span class="hl opt">},</span>
		  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Filesystem type: &quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$type,</span> list <span class="hl opt">=&gt; [</span> partition_table<span class="hl opt">::</span>important_types<span class="hl opt">() ],</span> not_edit <span class="hl opt">=&gt; !$::</span>expert<span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">},</span>
             <span class="hl opt">],</span>
	     complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		 <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Give a file name&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">} =~</span> s<span class="hl opt">|^([^</span><span class="hl kwd">/])|/</span><span class="hl kwb">$1</span><span class="hl opt">|;</span>
		 <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$size</span> <span class="hl opt">=</span> loopback<span class="hl opt">::</span>verifFile<span class="hl opt">(</span><span class="hl kwb">$handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">},</span> <span class="hl kwb">$real_part</span><span class="hl opt">)) {</span>
		     <span class="hl kwb">$size</span> <span class="hl opt">== -</span><span class="hl num">1</span> <span class="hl kwc">and</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;File is already used by another loopback, choose another one&quot;</span><span class="hl opt">)),</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">;</span>
		     <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;File already exists. Use it?&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">;</span>
		     <span class="hl kwc">delete</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>notFormatted<span class="hl opt">};</span>
		     <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> divide<span class="hl opt">(</span><span class="hl kwb">$size,</span> <span class="hl num">512</span><span class="hl opt">);</span>
		 <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		     <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} =</span> from_Mb<span class="hl opt">(</span><span class="hl kwb">$mb_size, $min, $max</span><span class="hl opt">);</span>
		 <span class="hl opt">}</span>
		 <span class="hl num">0</span><span class="hl opt">;</span>
	     <span class="hl opt">})</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} =</span> name2type<span class="hl opt">(</span><span class="hl kwb">$type</span><span class="hl opt">);</span>
    <span class="hl kwc">push</span> <span class="hl opt">&#64;{</span><span class="hl kwb">$real_part</span><span class="hl opt">-&gt;{</span>loopback<span class="hl opt">}},</span> <span class="hl kwb">$part</span><span class="hl opt">;</span>
    fsedit<span class="hl opt">::</span>recompute_loopbacks<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> Options <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;simple_options</span> <span class="hl opt">=</span> <span class="hl str">qw(user noauto supermount)</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwc">undef</span><span class="hl opt">,</span> <span class="hl kwb">$user_implies</span><span class="hl opt">) =</span> fs<span class="hl opt">::</span>mount_options<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$options, $unknown</span><span class="hl opt">) =</span> fs<span class="hl opt">::</span>mount_options_unpack<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%help</span> <span class="hl opt">=</span> fs<span class="hl opt">::</span>mount_options_help<span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%$options</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$prev_user</span> <span class="hl opt">=</span> <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>user<span class="hl opt">};</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Mount options&quot;</span><span class="hl opt">),</span>
		  <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
		  <span class="hl opt">[</span> 
		   <span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> 
			 <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$_,</span> text <span class="hl opt">=&gt;</span> <span class="hl kwc">scalar</span> warp_text<span class="hl opt">(</span>formatAlaTeX<span class="hl opt">(</span><span class="hl kwb">$help</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">})),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">},</span> 
			   advanced <span class="hl opt">=&gt; !</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>rootDevice<span class="hl opt">} &amp;&amp; !</span>member<span class="hl opt">(</span><span class="hl kwb">$_, &#64;simple_options</span><span class="hl opt">),</span> if_<span class="hl opt">(!</span><span class="hl kwd">/=$/</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">), }</span>
		     <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl kwb">%$options</span><span class="hl opt">),</span>
		    <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Various&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$unknown,</span> advanced <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
		  <span class="hl opt">],</span>
		  changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		      <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$prev_user</span> <span class="hl opt">!=</span> <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>user<span class="hl opt">}) {</span>
			  <span class="hl kwb">$prev_user</span> <span class="hl opt">=</span> <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>user<span class="hl opt">};</span>
			  <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>user<span class="hl opt">}</span> <span class="hl kwa">foreach</span> <span class="hl kwb">&#64;$user_implies</span><span class="hl opt">;</span>
		      <span class="hl opt">}</span>
		      <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>encrypted<span class="hl opt">}) {</span>
			  <span class="hl slc"># modify $part-&gt;{options} for the check</span>
			  <span class="hl kwc">local</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">};</span>
			  fs<span class="hl opt">::</span>mount_options_pack<span class="hl opt">(</span><span class="hl kwb">$part, $options, $unknown</span><span class="hl opt">);</span>
			  <span class="hl kwa">if</span> <span class="hl opt">(!</span>check<span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">)) {</span>
			      <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>encrypted<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
			  <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(!</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>encrypt_key<span class="hl opt">} &amp;&amp; !</span>isSwap<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
			      <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$encrypt_key</span> <span class="hl opt">=</span> choose_encrypt_key<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">)) {</span>
				  <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;encryption=&apos;</span><span class="hl opt">} =</span> <span class="hl str">&apos;AES128&apos;</span><span class="hl opt">;</span>
				  <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>encrypt_key<span class="hl opt">} =</span> <span class="hl kwb">$encrypt_key</span><span class="hl opt">;</span>
			      <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
				  <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span>encrypted<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
			      <span class="hl opt">}</span>
			  <span class="hl opt">}</span>
		      <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			  <span class="hl kwc">delete</span> <span class="hl kwb">$options</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;encryption=&apos;</span><span class="hl opt">};</span>
			  <span class="hl kwc">delete</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>encrypt_key<span class="hl opt">};</span>
		      <span class="hl opt">}</span>
		  <span class="hl opt">},</span>
		 <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>

    fs<span class="hl opt">::</span>mount_options_pack<span class="hl opt">(</span><span class="hl kwb">$part, $options, $unknown</span><span class="hl opt">);</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl opt">{</span> 
    <span class="hl kwa">no</span> strict<span class="hl opt">;</span> 
    <span class="hl opt">*{</span><span class="hl str">&apos;Toggle to normal mode&apos;</span><span class="hl opt">} =</span> <span class="hl kwa">sub</span> <span class="hl opt">{ $::</span>expert <span class="hl opt">=</span> <span class="hl num">0</span> <span class="hl opt">};</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Toggle to expert mode&apos;</span><span class="hl opt">} =</span> <span class="hl kwa">sub</span> <span class="hl opt">{ $::</span>expert <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl opt">};</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Clear all&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Clear_all<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Auto allocate&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Auto_allocate<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Mount point&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Mount_point<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Modify RAID&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>ModifyRAID<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Add to RAID&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Add2RAID<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Remove from RAID&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>RemoveFromRAID<span class="hl opt">;</span> 
    <span class="hl opt">*{</span><span class="hl str">&apos;Add to LVM&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Add2LVM<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Remove from LVM&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>RemoveFromLVM<span class="hl opt">;</span> 
    <span class="hl opt">*{</span><span class="hl str">&apos;Use for loopback&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Loopback<span class="hl opt">;</span>
    <span class="hl opt">*{</span><span class="hl str">&apos;Hard drive information&apos;</span><span class="hl opt">} =</span> \<span class="hl opt">&amp;</span>Hd_info<span class="hl opt">;</span>
<span class="hl opt">}</span>


<span class="hl slc">################################################################################</span>
<span class="hl slc"># helpers</span>
<span class="hl slc">################################################################################</span>

<span class="hl kwa">sub</span> is_part_existing <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span> <span class="hl opt">&amp;&amp;</span> any <span class="hl opt">{</span> fsedit<span class="hl opt">::</span>is_same_part<span class="hl opt">(</span><span class="hl kwb">$part, $_</span><span class="hl opt">) }</span> fsedit<span class="hl opt">::</span>get_all_fstab_and_holes<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> modifyRAID <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $raids, $nb</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$md</span> <span class="hl opt">=</span> <span class="hl str">&quot;md</span><span class="hl ipl">$nb</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
		  <span class="hl opt">[</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;device&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$md,</span> list <span class="hl opt">=&gt; [</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl str">&quot;md</span><span class="hl ipl">$_</span><span class="hl str">&quot;</span> <span class="hl opt">}</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$nb</span> <span class="hl opt">==</span> <span class="hl kwb">$_</span> <span class="hl opt">|| !</span><span class="hl kwb">$raids</span><span class="hl opt">-&gt;[</span><span class="hl kwb">$_</span><span class="hl opt">] }</span> <span class="hl num">0</span><span class="hl opt">.</span><span class="hl num">.8</span> <span class="hl opt">] },</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;level&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$raids</span><span class="hl opt">-&gt;[</span><span class="hl kwb">$nb</span><span class="hl opt">]{</span>level<span class="hl opt">},</span> list <span class="hl opt">=&gt; [</span> <span class="hl str">qw(0 1 4 5 linear)</span> <span class="hl opt">] },</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;chunk size&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$raids</span><span class="hl opt">-&gt;[</span><span class="hl kwb">$nb</span><span class="hl opt">]{</span><span class="hl str">&apos;chunk-size&apos;</span><span class="hl opt">} },</span>
		  <span class="hl opt">],</span>
		 <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    raid<span class="hl opt">::</span>updateSize<span class="hl opt">(</span><span class="hl kwb">$raids</span><span class="hl opt">-&gt;[</span><span class="hl kwb">$nb</span><span class="hl opt">]);</span> <span class="hl slc"># changing the raid level changes the size available</span>
    raid<span class="hl opt">::</span>changeNb<span class="hl opt">(</span><span class="hl kwb">$raids, $nb,</span> first<span class="hl opt">(</span><span class="hl kwb">$md</span> <span class="hl opt">=~</span> <span class="hl kwd">/(\d+)/</span><span class="hl opt">));</span>
<span class="hl opt">}</span>


<span class="hl kwa">sub</span> ask_alldatamaybelost <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $part, $msg</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    maybeFormatted<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl slc">#- here we may have a non-formatted or a formatted partition</span>
    <span class="hl slc">#- -&gt; doing as if it was formatted</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Read carefully!&quot;</span><span class="hl opt">),</span> 
		      <span class="hl opt">[</span> N<span class="hl opt">(</span><span class="hl str">&quot;Be careful: this operation is dangerous.&quot;</span><span class="hl opt">),</span> <span class="hl kwc">sprintf</span><span class="hl opt">(</span>translate<span class="hl opt">(</span><span class="hl kwb">$msg</span><span class="hl opt">),</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}) ],</span> <span class="hl num">1</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> ask_alldatawillbelost <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $part, $msg</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    maybeFormatted<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl slc">#- here we may have a non-formatted or a formatted partition</span>
    <span class="hl slc">#- -&gt; doing as if it was formatted</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Read carefully!&quot;</span><span class="hl opt">),</span> <span class="hl kwc">sprintf</span><span class="hl opt">(</span>translate<span class="hl opt">(</span><span class="hl kwb">$msg</span><span class="hl opt">),</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}),</span> <span class="hl num">1</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> partitions_suggestions <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$t</span> <span class="hl opt">= $::</span>expert ? 
      <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;What type of partitioning?&quot;</span><span class="hl opt">), [</span> <span class="hl kwc">keys</span> <span class="hl kwb">%fsedit</span><span class="hl opt">::</span>suggestions <span class="hl opt">]) :</span>
      <span class="hl str">&apos;simple&apos;</span><span class="hl opt">;</span>
    <span class="hl kwb">$fsedit</span><span class="hl opt">::</span>suggestions<span class="hl opt">{</span><span class="hl kwb">$t</span><span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> check_type <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $type, $hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fsedit<span class="hl opt">::</span>check_type<span class="hl opt">(</span><span class="hl kwb">$type, $hd, $part</span><span class="hl opt">) };</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$err</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$err</span><span class="hl opt">);</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>isStandalone<span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$pkg</span> <span class="hl opt">=</span> fsedit<span class="hl opt">::</span>package_needed_for_partition_type<span class="hl opt">({</span> type <span class="hl opt">=&gt;</span> <span class="hl kwb">$type</span> <span class="hl opt">})) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$fs</span> <span class="hl opt">=</span> type2fs<span class="hl opt">({</span> type <span class="hl opt">=&gt;</span> <span class="hl kwb">$type</span> <span class="hl opt">});</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!-</span>x <span class="hl str">&quot;/sbin/mkfs.</span><span class="hl ipl">$fs</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;The package</span> <span class="hl ipl">%s</span> <span class="hl str">is needed. Install it?&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$pkg</span><span class="hl opt">),</span> <span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl kwb">$pkg</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl opt">-</span>x <span class="hl str">&quot;/sbin/mkfs.</span><span class="hl ipl">$fs</span><span class="hl str">&quot;</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&quot;Mandatory package</span> <span class="hl ipl">$pkg</span> <span class="hl str">is missing&quot;</span><span class="hl opt">),</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> check_mntpoint <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $mntpoint, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">eval</span> <span class="hl opt">{</span> fsedit<span class="hl opt">::</span>check_mntpoint<span class="hl opt">(</span><span class="hl kwb">$mntpoint, $hd, $part, $all_hds</span><span class="hl opt">) };</span>
    <span class="hl kwc">local</span> <span class="hl kwb">$_</span> <span class="hl opt">=</span> <span class="hl kwb">$&#64;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>m<span class="hl opt">|/</span>boot ending on cylinder <span class="hl opt">&gt;</span> <span class="hl num">1024</span><span class="hl opt">|) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Sorry I won&apos;t accept to create /boot so far onto the drive (on a cylinder &gt; 1024).</span>
<span class="hl str">Either you use LILO and it won&apos;t work, or you don&apos;t use LILO and you don&apos;t need /boot&quot;</span><span class="hl opt">));</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>m<span class="hl opt">|/</span> ending on cylinder <span class="hl opt">&gt;</span> <span class="hl num">1024</span><span class="hl opt">|) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
N<span class="hl opt">(</span><span class="hl str">&quot;The partition you&apos;ve selected to add as root (/) is physically located beyond</span>
<span class="hl str">the 1024th cylinder of the hard drive, and you have no /boot partition.</span>
<span class="hl str">If you plan to use the LILO boot manager, be careful to add a /boot partition&quot;</span><span class="hl opt">));</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>m<span class="hl opt">|</span>raid <span class="hl kwd">/ with no /</span>boot<span class="hl opt">|) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span>
N<span class="hl opt">(</span><span class="hl str">&quot;You&apos;ve selected a software RAID partition as root (/).</span>
<span class="hl str">No bootloader is able to handle this without a /boot partition.</span>
<span class="hl str">Please be sure to add a /boot partition&quot;</span><span class="hl opt">));</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$_</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> formatError<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">));</span>
    <span class="hl opt">}</span>
    <span class="hl opt">!</span><span class="hl kwb">$_</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> check <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    check_type<span class="hl opt">(</span><span class="hl kwb">$in, $part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">},</span> <span class="hl kwb">$hd, $part</span><span class="hl opt">) &amp;&amp;</span>
      check_mntpoint<span class="hl opt">(</span><span class="hl kwb">$in, $part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">},</span> <span class="hl kwb">$hd, $part, $all_hds</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> write_partitions <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>isDirty<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
    isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Read carefully!&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Partition table of drive</span> <span class="hl ipl">%s</span> <span class="hl str">is going to be written to disk!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}),</span> <span class="hl num">1</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing<span class="hl opt">) {</span>
	partition_table<span class="hl opt">::</span><span class="hl kwc">write</span><span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>rebootNeeded<span class="hl opt">}</span> <span class="hl kwc">and die</span> N<span class="hl opt">(</span><span class="hl str">&quot;You&apos;ll need to reboot before the modification can take place&quot;</span><span class="hl opt">);</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> unmount <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$_hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    fs<span class="hl opt">::</span>umount_part<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
<span class="hl opt">}</span>
<span class="hl kwa">sub</span> format_ <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd, $part, $all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    write_partitions<span class="hl opt">(</span><span class="hl kwb">$in, $_</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return foreach</span> isRAID<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> ? <span class="hl opt">&#64;{</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>hds<span class="hl opt">}} :</span> <span class="hl kwb">$hd</span><span class="hl opt">;</span>
    ask_alldatawillbelost<span class="hl opt">(</span><span class="hl kwb">$in, $part,</span> N_<span class="hl opt">(</span><span class="hl str">&quot;After formatting partition</span> <span class="hl ipl">%s,</span> <span class="hl str">all data on this partition will be lost&quot;</span><span class="hl opt">))</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl slc">#- force format;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Formatting&quot;</span><span class="hl opt">),</span> 
			      isLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)</span> ? N<span class="hl opt">(</span><span class="hl str">&quot;Formatting loopback file</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">}) :</span>
			                          N<span class="hl opt">(</span><span class="hl str">&quot;Formatting partition</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">}));</span>
    fs<span class="hl opt">::</span>format_part<span class="hl opt">(</span><span class="hl kwb">$all_hds</span><span class="hl opt">-&gt;{</span>raids<span class="hl opt">},</span> <span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> need_migration <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $mntpoint</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;lost+found&quot;</span> <span class="hl opt">}</span> all<span class="hl opt">(</span><span class="hl kwb">$mntpoint</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;l</span> <span class="hl opt">&amp;&amp; $::</span>isStandalone<span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$choice</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;choices</span> <span class="hl opt">= (</span>N_<span class="hl opt">(</span><span class="hl str">&quot;Move files to the new partition&quot;</span><span class="hl opt">),</span> N_<span class="hl opt">(</span><span class="hl str">&quot;Hide files&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Directory</span> <span class="hl ipl">%s</span> <span class="hl str">already contains data</span><span class="hl esc">\n</span><span class="hl str">(</span><span class="hl ipl">%s</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$mntpoint,</span> formatList<span class="hl opt">(</span><span class="hl num">5</span><span class="hl opt">,</span> <span class="hl kwb">&#64;l</span><span class="hl opt">)),</span> 
		      <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$choice,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;choices,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span> <span class="hl opt">} ])</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
	<span class="hl kwb">$choice</span> <span class="hl kwc">eq</span> <span class="hl kwb">$choices</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]</span> ? <span class="hl str">&apos;migrate&apos;</span> <span class="hl opt">:</span> <span class="hl str">&apos;hide&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl str">&apos;hide&apos;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>    
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> migrate_files <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $_hd, $part, $_all_hds</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$wait</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Moving files to the new partition&quot;</span><span class="hl opt">));</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$handle</span> <span class="hl opt">=</span> any<span class="hl opt">::</span>inspect<span class="hl opt">(</span><span class="hl kwb">$part,</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;rw&apos;</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> glob_<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{mntpoint}/*&quot;</span><span class="hl opt">);</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;l</span><span class="hl opt">) {</span>
	<span class="hl kwb">$wait</span><span class="hl opt">-&gt;</span><span class="hl kwd">set</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Copying</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">));</span> 
	<span class="hl kwc">system</span><span class="hl opt">(</span><span class="hl str">&quot;cp&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-a&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_, $handle</span><span class="hl opt">-&gt;{</span>dir<span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;l</span><span class="hl opt">) {</span>
	<span class="hl kwb">$wait</span><span class="hl opt">-&gt;</span><span class="hl kwd">set</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Removing</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">));</span> 
	<span class="hl kwc">system</span><span class="hl opt">(</span><span class="hl str">&quot;rm&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;-rf&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> warn_if_renumbered <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$l</span> <span class="hl opt">=</span> <span class="hl kwc">delete</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>partitionsRenumbered<span class="hl opt">};</span>
    <span class="hl kwa">return if</span> is_empty_array_ref<span class="hl opt">(</span><span class="hl kwb">$l</span><span class="hl opt">);</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;l</span> <span class="hl opt">=</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> N<span class="hl opt">(</span><span class="hl str">&quot;partition</span> <span class="hl ipl">%s</span> <span class="hl str">is now known as</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;$_</span><span class="hl opt">) }</span> <span class="hl kwb">&#64;$l</span><span class="hl opt">;</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&apos;Partitions have been renumbered: &apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;l</span><span class="hl opt">));</span>
<span class="hl opt">}</span>

<span class="hl slc">#- unit of $mb is mega bytes, min and max are in sectors, this</span>
<span class="hl slc">#- function is used to convert back to sectors count the size of</span>
<span class="hl slc">#- a partition ($mb) given from the interface (on Resize or Create).</span>
<span class="hl slc">#- modified to take into account a true bounding with min and max.</span>
<span class="hl kwa">sub</span> from_Mb <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$mb, $min, $max</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$mb</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$min</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$min</span><span class="hl opt">;</span>
    <span class="hl kwb">$mb</span> <span class="hl opt">&gt;=</span> <span class="hl kwb">$max</span> <span class="hl opt">&gt;&gt;</span> <span class="hl num">11</span> <span class="hl kwc">and</span> <span class="hl kwa">return</span> <span class="hl kwb">$max</span><span class="hl opt">;</span>
    <span class="hl kwb">$mb</span> <span class="hl opt">*</span> <span class="hl num">2048</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> format_part_info <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$info</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>

    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Mount point: &quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{mntpoint}</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Device: &quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl ipl">$part</span><span class="hl str">-&gt;{device}</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} &amp;&amp; !</span>isLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;DOS drive letter:</span> <span class="hl ipl">%s</span> <span class="hl str">(just a guess)</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device_windobe<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>device_windobe<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>arch<span class="hl opt">()</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;ppc&quot;</span><span class="hl opt">) {</span>
      <span class="hl kwc">my</span> <span class="hl kwb">$new_value</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>pType<span class="hl opt">};</span>
      <span class="hl kwb">$new_value</span> <span class="hl opt">=~</span> <span class="hl kwd">s/[^A-Za-z0-9_]//g</span><span class="hl opt">;</span>
      <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Type: &quot;</span><span class="hl opt">) .</span> <span class="hl kwb">$new_value</span> <span class="hl opt">. ($::</span>expert ? <span class="hl kwc">sprintf</span> <span class="hl str">&quot; (0x</span><span class="hl ipl">%x</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} :</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
      <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>pName<span class="hl opt">}) {</span>
      	<span class="hl kwb">$new_value</span> <span class="hl opt">=</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>pName<span class="hl opt">};</span>
      	<span class="hl kwb">$new_value</span> <span class="hl opt">=~</span> <span class="hl kwd">s/[^A-Za-z0-9_]//g</span><span class="hl opt">;</span>
      	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Name: &quot;</span><span class="hl opt">) .</span> <span class="hl kwb">$new_value</span> <span class="hl opt">.</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
      <span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwc">substr</span><span class="hl opt">(</span>type2name<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}),</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">40</span><span class="hl opt">);</span> <span class="hl slc"># limit the length</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Type: &quot;</span><span class="hl opt">) .</span> <span class="hl kwb">$type</span> <span class="hl opt">. ($::</span>expert ? <span class="hl kwc">sprintf</span> <span class="hl str">&quot; (0x</span><span class="hl ipl">%x</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} :</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Empty&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Start: sector</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp; !</span>isSpecial<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Size:</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> formatXiB<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">},</span> <span class="hl num">512</span><span class="hl opt">));</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> <span class="hl kwc">sprintf</span> <span class="hl str">&quot; (</span><span class="hl ipl">%s%%</span><span class="hl str">)&quot;</span><span class="hl opt">,</span> <span class="hl kwc">int</span> <span class="hl num">100</span> <span class="hl opt">*</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">} /</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>totalsectors<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>totalsectors<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;,</span> <span class="hl ipl">%s</span> <span class="hl str">sectors&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>size<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert<span class="hl opt">;</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Cylinder</span> <span class="hl ipl">%d</span> <span class="hl str">to</span> <span class="hl ipl">%d\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>start<span class="hl opt">}</span> <span class="hl kwd">/ $hd-&gt;cylinder_size(), ($part-&gt;{start} + $part-&gt;{size} - 1) /</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;</span><span class="hl kwd">cylinder_size</span><span class="hl opt">())</span> <span class="hl kwa">if</span> <span class="hl opt">($::</span>expert <span class="hl opt">|| !</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}) &amp;&amp; !</span>isSpecial<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Formatted</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Not formatted</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isFormatted<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>notFormatted<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Mounted</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>isMounted<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;RAID md</span><span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>raid<span class="hl opt">})</span> <span class="hl kwa">if</span> isPartOfRAID<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> <span class="hl kwc">sprintf</span> <span class="hl str">&quot;LVM</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>lvm<span class="hl opt">}</span> <span class="hl kwa">if</span> isPartOfLVM<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Loopback file(s):</span><span class="hl esc">\n</span>   <span class="hl str"></span><span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">} } &#64;{</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback<span class="hl opt">}}))</span> <span class="hl kwa">if</span> isPartOfLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">);</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Partition booted by default</span><span class="hl esc">\n</span>    <span class="hl str">(for MS-DOS boot, not for lilo)</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>active<span class="hl opt">} &amp;&amp; $::</span>expert<span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>isRAID<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Level</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>level<span class="hl opt">});</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Chunk size</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span><span class="hl str">&apos;chunk-size&apos;</span><span class="hl opt">});</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;RAID-disks</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwc">join</span> <span class="hl str">&quot;, &quot;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} } &#64;{</span><span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>disks<span class="hl opt">}});</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span>isLoopback<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Loopback file name:</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>loopback_file<span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>isApple<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">Chances are, this partition is</span><span class="hl esc">\n</span><span class="hl str">a Driver partition. You should</span><span class="hl esc">\n</span><span class="hl str">probably leave it alone.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span>isAppleBootstrap<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">This special Bootstrap</span><span class="hl esc">\n</span><span class="hl str">partition is for</span><span class="hl esc">\n</span><span class="hl str">dual-booting your system.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># restrict the length of the lines</span>
    <span class="hl kwb">$info</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(.{60}).*/$1.../mg</span><span class="hl opt">;</span>
    <span class="hl kwb">$info</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> format_part_info_short <span class="hl opt">{</span> 
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$part</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}</span> ? 
      partition_table<span class="hl opt">::</span>description<span class="hl opt">(</span><span class="hl kwb">$part</span><span class="hl opt">) :</span>
      format_part_info<span class="hl opt">(</span><span class="hl kwb">$hd, $part</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> format_hd_info <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$info</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Device: &quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl ipl">$hd</span><span class="hl str">-&gt;{device}</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Read-only&quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>readonly<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Size:</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> formatXiB<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>totalsectors<span class="hl opt">},</span> <span class="hl num">512</span><span class="hl opt">))</span> <span class="hl kwa">if</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>totalsectors<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Geometry:</span> <span class="hl ipl">%s</span> <span class="hl str">cylinders,</span> <span class="hl ipl">%s</span> <span class="hl str">heads,</span> <span class="hl ipl">%s</span> <span class="hl str">sectors</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>geom<span class="hl opt">}}{</span><span class="hl str">qw(cylinders heads sectors)</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>geom<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Info: &quot;</span><span class="hl opt">) . (</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>info<span class="hl opt">} ||</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">}) .</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>info<span class="hl opt">} ||</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>media_type<span class="hl opt">});</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;LVM-disks</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwc">join</span> <span class="hl str">&quot;, &quot;</span><span class="hl opt">,</span> <span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>device<span class="hl opt">} } &#64;{</span><span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>disks<span class="hl opt">}})</span> <span class="hl kwa">if</span> isLVM<span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) &amp;&amp;</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>disks<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Partition table type:</span> <span class="hl ipl">%s\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">ref</span><span class="hl opt">(</span><span class="hl kwb">$hd</span><span class="hl opt">) =~</span> <span class="hl kwd">/_([^_]+)$/</span><span class="hl opt">;</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;on channel</span> <span class="hl ipl">%d</span> <span class="hl str">id</span> <span class="hl ipl">%d\n</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>channel<span class="hl opt">},</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl opt">$::</span>expert <span class="hl opt">&amp;&amp;</span> <span class="hl kwc">exists</span> <span class="hl kwb">$hd</span><span class="hl opt">-&gt;{</span>channel<span class="hl opt">};</span>
    <span class="hl kwb">$info</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> format_raw_hd_info <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$raw_hd</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$info</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Mount point: &quot;</span><span class="hl opt">) .</span> <span class="hl str">&quot;</span><span class="hl ipl">$raw_hd</span><span class="hl str">-&gt;{mntpoint}</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$raw_hd</span><span class="hl opt">-&gt;{</span>mntpoint<span class="hl opt">};</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> format_hd_info<span class="hl opt">(</span><span class="hl kwb">$raw_hd</span><span class="hl opt">);</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$raw_hd</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">=</span> <span class="hl kwc">substr</span><span class="hl opt">(</span>type2name<span class="hl opt">(</span><span class="hl kwb">$raw_hd</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">}),</span> <span class="hl num">0</span><span class="hl opt">,</span> <span class="hl num">40</span><span class="hl opt">);</span> <span class="hl slc"># limit the length</span>
	<span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Type: &quot;</span><span class="hl opt">) .</span> <span class="hl kwb">$type</span> <span class="hl opt">.</span> <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$info</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Options:</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$raw_hd</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$raw_hd</span><span class="hl opt">-&gt;{</span>options<span class="hl opt">};</span>
    <span class="hl kwb">$info</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl slc">#- get the minimal size of partition in sectors to help diskdrake on</span>
<span class="hl slc">#- limit cases, include a cylinder + start of a eventually following</span>
<span class="hl slc">#- logical partition.</span>
<span class="hl kwa">sub</span> min_partition_size <span class="hl opt">{</span> <span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]-&gt;</span><span class="hl kwd">cylinder_size</span><span class="hl opt">() +</span> <span class="hl num">2</span><span class="hl opt">*</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]{</span>geom<span class="hl opt">}{</span>sectors<span class="hl opt">} }</span>


<span class="hl kwa">sub</span> choose_encrypt_key <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$encrypt_key, $encrypt_key2</span><span class="hl opt">);</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
		       <span class="hl opt">{</span>
         title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Filesystem encryption key&quot;</span><span class="hl opt">),</span> 
	 messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Choose your filesystem encryption key&quot;</span><span class="hl opt">),</span>
	 callbacks <span class="hl opt">=&gt; {</span> 
	     complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		 <span class="hl kwc">length</span> <span class="hl kwb">$encrypt_key</span> <span class="hl opt">&lt;</span> <span class="hl num">20</span> <span class="hl kwc">and</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;This encryption key is too simple (must be at least</span> <span class="hl ipl">%d</span> <span class="hl str">characters long)&quot;</span><span class="hl opt">,</span> <span class="hl num">20</span><span class="hl opt">)),</span> <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
		 <span class="hl kwb">$encrypt_key</span> <span class="hl kwc">eq</span> <span class="hl kwb">$encrypt_key2</span> <span class="hl kwc">or</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">, [</span> N<span class="hl opt">(</span><span class="hl str">&quot;The encryption keys do not match&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Please try again&quot;</span><span class="hl opt">) ]),</span> <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
		 <span class="hl kwa">return</span> <span class="hl num">0</span>
        <span class="hl opt">} } }, [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Encryption key&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$encrypt_key,</span>  hidden <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Encryption key (again)&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$encrypt_key2,</span> hidden <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
    <span class="hl opt">]) &amp;&amp;</span> <span class="hl kwb">$encrypt_key</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2026-04-24 18:12:19 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>