perl-install/do_resize_fat


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

use diagnostics;
use strict;

use lib qw(/usr/lib/libDrakX);
use common;
use resize_fat::main;

local *log::l = sub { print join(' ', @_), "\n" };

@ARGV = qw(/mnt/iso/w +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]);