diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-09 18:48:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-09 18:48:32 +0000 |
commit | 925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch) | |
tree | 29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/do_resize_fat | |
parent | c8b361905dedbe2961b4e3c1670d5028eec12807 (diff) | |
download | drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.gz drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.bz2 drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.xz drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/do_resize_fat')
-rwxr-xr-x | perl-install/do_resize_fat | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/perl-install/do_resize_fat b/perl-install/do_resize_fat new file mode 100755 index 000000000..0668ecb19 --- /dev/null +++ b/perl-install/do_resize_fat @@ -0,0 +1,18 @@ +#!/usr/bin/perl + +use diagnostics; +use strict; + +use lib qw(.); +use common; +use resize_fat::main; + +local *log::l = sub { print join(' ', @_), "\n" }; + +@ARGV = qw(/tmp/eee +0); + +@ARGV == 2 or die "usage: fatresize <device> <size>\n <size> = 100 means `resize to 100Mb'\n <size> = +10 means `keep 10Mb of free space'\n"; + +my $fs = new resize_fat::main(common::basename($ARGV[0]), $ARGV[0]); +resize_fat::main::resize($fs, $ARGV[1]); + |