gpxe: delete long since obsolete snapshot of gPXE

gPXE has been deprecated in favor of iPXE for many, many years now.
It is much better than users get it directly from the iPXE project,
since we should no longer need any special modifications for Syslinux
use.

Signed-off-by: H. Peter Anvin <hpa@zytor.com>

1 files changed, 0 insertions, 44 deletions

diff --git a/gpxe/src/util/padimg.pl b/gpxe/src/util/padimg.pl
deleted file mode 100755
index 4421aaf4..00000000
--- a/gpxe/src/util/padimg.pl
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use warnings;
-use Getopt::Long;
-use Fcntl;
-
-my $verbosity = 0;
-my $blksize = 512;
-my $byte = 0;
-
-my %opts = (
-  'verbose|v+' => sub { $verbosity++; },
-  'quiet|q+' => sub { $verbosity--; },
-  'blksize|s=o' => sub { $blksize = $_[1]; },
-  'byte|b=o' => sub { $byte = $_[1]; },
-);
-
-Getopt::Long::Configure ( 'bundling', 'auto_abbrev' );
-GetOptions ( %opts ) or die "Could not parse command-line options\n";
-
-while ( my $filename = shift ) {
-  die "$filename is not a file\n" unless -f $filename;
-  my $oldsize = -s $filename;
-  my $padsize = ( ( -$oldsize ) % $blksize );
-  my $newsize = ( $oldsize + $padsize );
-  next unless $padsize;
-  if ( $verbosity >= 1 ) {
-      printf "Padding %s from %d to %d bytes with %d x 0x%02x\n",
-	     $filename, $oldsize, $newsize, $padsize, $byte;
-  }
-  if ( $byte ) {
-    sysopen ( my $fh, $filename, ( O_WRONLY | O_APPEND ) )
-	or die "Could not open $filename for appending: $!\n";
-    syswrite $fh, ( chr ( $byte ) x $padsize )
-	or die "Could not append to $filename: $!\n";
-    close ( $fh );
-  } else {
-    truncate $filename, $newsize
-	or die "Could not resize $filename: $!\n";
-  }
-  die "Failed to pad $filename\n"
-      unless ( ( ( -s $filename ) % $blksize ) == 0 );
-}