summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/bin/exe_update.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/bin/exe_update.pl')
-rwxr-xr-xMaster/tlpkg/tlperl/bin/exe_update.pl98
1 files changed, 0 insertions, 98 deletions
diff --git a/Master/tlpkg/tlperl/bin/exe_update.pl b/Master/tlpkg/tlperl/bin/exe_update.pl
deleted file mode 100755
index dc43251ebff..00000000000
--- a/Master/tlpkg/tlperl/bin/exe_update.pl
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/usr/local/bin/perl
-# $File: //member/autrijus/Win32-Exe/script/exe_update.pl $ $Author: autrijus $
-# $Revision: #1 $ $Change: 9927 $ $DateTime: 2004/02/06 19:31:24 $
-
-use strict;
-use File::Basename;
-use Win32::Exe;
-use Getopt::Long;
-
-=head1 NAME
-
-exe_update.pl - Modify windows executable files
-
-=head1 SYNOPSIS
-
-B<exe_update.pl> S<[ B<--gui> | B<--console> ]> S<[ B<--icon> I<iconfile> ]>
- S<[ B<--info> I<key=value;...> ]> I<exefile>
-
-=head1 DESCRIPTION
-
-This program rewrites PE headers in a Windows executable file. It can
-change whether the executable runs with a console window, as well as
-setting the icons and version information associated with it.
-
-=head1 OPTIONS
-
-Options are available in a I<short> form and a I<long> form. For
-example, the three lines below are all equivalent:
-
- % exe_update.pl -i new.ico input.exe
- % exe_update.pl --icon new.ico input.exe
- % exe_update.pl --icon=new.ico input.exe
-
-=over 4
-
-=item B<-c>, B<--console>
-
-Set the executable to always display a console window.
-
-=item B<-g>, B<--gui>
-
-Set the executable so it does not have a console window.
-
-=item B<-i>, B<--icon>=I<FILE>
-
-Specify an icon file (in F<.ico>, F<.exe> or F<.dll> format) for the
-executable.
-
-=item B<-N>, B<--info>=I<KEY=VAL>
-
-Attach version information for the executable. The name/value pair is
-joined by C<=>. You may specify C<-N> multiple times, or use C<;> to
-link several pairs.
-
-These special C<KEY> names are recognized:
-
- Comments CompanyName FileDescription FileVersion
- InternalName LegalCopyright LegalTrademarks OriginalFilename
- ProductName ProductVersion
-
-=back
-
-=cut
-
-my $Options = {};
-Getopt::Long::GetOptions( $Options,
- 'g|gui', # No console window
- 'c|console', # Use console window
- 'i|icon:s', # Icon file
- 'N|info:s@', # Executable header info
-);
-
-my $exe = shift or die "Usage: " . basename($0) .
- " [--gui | --console] [--icon file.ico] [--info key=value] file.exe\n";
-
-Win32::Exe->new($exe)->update(
- gui => $Options->{g},
- console => $Options->{c},
- icon => $Options->{i},
- info => $Options->{N},
-) or die "Update of $exe failed!\n";
-
-__END__
-
-=head1 AUTHORS
-
-Audrey Tang E<lt>cpan@audreyt.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2004, 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-See L<http://www.perl.com/perl/misc/Artistic.html>
-
-=cut