summaryrefsloggenerated by cgit v1.2.1 (git 2.21.0) at 2025-01-01 23:41:05 +0000 a href='/software/drakx/stats/perl-install/do_resize_fat?h=17.33'>stats
path: root/perl-install/do_resize_fat
blob: 41ebf1b839ce331688f9f973739d97d1a7e92b04 (plain)
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]);