summaryrefslogtreecommitdiffstats
path: root/perl-install/do_resize_fat
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
commit925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch)
tree29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/do_resize_fat
parentc8b361905dedbe2961b4e3c1670d5028eec12807 (diff)
downloaddrakx-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-xperl-install/do_resize_fat18
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]);
+