42 lines
245 B
Perl
Executable File
42 lines
245 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
#
|
|
# Get domain name.
|
|
#
|
|
|
|
#
|
|
# Get disk increase amount.
|
|
#
|
|
|
|
|
|
#
|
|
# Ensure guest isn't running.
|
|
#
|
|
|
|
|
|
#
|
|
# If LVM:
|
|
# lvmresize
|
|
#
|
|
#
|
|
|
|
|
|
#
|
|
# If disk:
|
|
# dd...
|
|
#
|
|
#
|
|
|
|
|
|
#
|
|
# Check filesystem.
|
|
#
|
|
|
|
#
|
|
# Run ext3resize.
|
|
#
|
|
|
|
|
|
#
|
|
# Job done.
|
|
# |