[process] Include process name in debug messages
[ipxe.git] / src / util / padimg.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use warnings;
5 use Getopt::Long;
6 use Fcntl;
7
8 my $verbosity = 0;
9 my $blksize = 512;
10 my $byte = 0;
11
12 my %opts = (
13 'verbose|v+' => sub { $verbosity++; },
14 'quiet|q+' => sub { $verbosity--; },
15 'blksize|s=o' => sub { $blksize = $_[1]; },
16 'byte|b=o' => sub { $byte = $_[1]; },
17 );
18
19 Getopt::Long::Configure ( 'bundling', 'auto_abbrev' );
20 GetOptions ( %opts ) or die "Could not parse command-line options\n";
21
22 while ( my $filename = shift ) {
23 die "$filename is not a file\n" unless -f $filename;
24 my $oldsize = -s $filename;
25 my $padsize = ( ( -$oldsize ) % $blksize );
26 my $newsize = ( $oldsize + $padsize );
27 next unless $padsize;
28 if ( $verbosity >= 1 ) {
29 printf "Padding %s from %d to %d bytes with %d x 0x%02x\n",
30 $filename, $oldsize, $newsize, $padsize, $byte;
31 }
32 if ( $byte ) {
33 sysopen ( my $fh, $filename, ( O_WRONLY | O_APPEND ) )
34 or die "Could not open $filename for appending: $!\n";
35 syswrite $fh, ( chr ( $byte ) x $padsize )
36 or die "Could not append to $filename: $!\n";
37 close ( $fh );
38 } else {
39 truncate $filename, $newsize
40 or die "Could not resize $filename: $!\n";
41 }
42 die "Failed to pad $filename\n"
43 unless ( ( ( -s $filename ) % $blksize ) == 0 );
44 }