diff options
Diffstat (limited to 'Master/tlpkg/tlperl/bin/ppd2par')
-rwxr-xr-x | Master/tlpkg/tlperl/bin/ppd2par | 167 |
1 files changed, 0 insertions, 167 deletions
diff --git a/Master/tlpkg/tlperl/bin/ppd2par b/Master/tlpkg/tlperl/bin/ppd2par deleted file mode 100755 index 64bcb5dc3c7..00000000000 --- a/Master/tlpkg/tlperl/bin/ppd2par +++ /dev/null @@ -1,167 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use Getopt::Long qw/GetOptions/; -use PAR::Dist::FromPPD; - -our $VERSION = '0.01'; - -=pod - -=head1 NAME - -ppd2par - Create PAR distributions from PPD XML files - -=head1 SYNOPSIS - -ppd2par --help - -ppd2par [-v -o DIR ...] -u PPD-URI-OR-FILE - -=head1 DESCRIPTION - -This script creates PAR distributions from packages for the -I<Perl Package Manager> which is specific to ActiveState's -perl distributions. In order to do this, F<ppd2par> parses -a PPD document (which is XML). The PPD document -contains meta data and URIs for the actual F<.tar.gz> packages -of the PPM package. - -=head2 Parameters - - -u --uri - Set the place to fetch the .ppd file from. Can be an URL - (http://..., https://..., ftp://...) or a local file. - -v --verbose - Sets the verbose mode. - -o --out - Sets the output directory. (default: .) - --no-docs - Strip all documentation (man pages, html documentation) from the - resulting PAR distribution. - (This step is carried out at the end. If something goes wrong, - it will be skipped.) - -You can also set various bits of meta data by hand: - - -n --distname - Distribution name - --dv --distversion - Distribution version (Note: This is not -v!) - -p --perlversion - Perl version (can be set to 'any_version') - -a --arch - Architecture string (can be set to 'any_arch') - --sa --selectarch - Regexp for selecting the implementation based on architecture - --sp --selectperl - Regexp for selecting the implementation based on perl version - -=head1 SEE ALSO - -This tool is implemented using the L<PAR::Dist::FromPPD> module. Please -refer to that module's documentation for details on how this all works. - -PAR has a mailing list, <par@perl.org>, that you can write to; send -an empty mail to <par-subscribe@perl.org> to join the list and -participate in the discussion. - -Please send bug reports to <bug-par-dist-fromcpan@rt.cpan.org>. - -The official PAR website may be of help, too: http://par.perl.org - -For details on the I<Perl Package Manager>, please refer to ActiveState's -website at L<http://activestate.com>. - -=head1 AUTHOR - -Steffen Mueller, E<lt>smueller at cpan dot orgE<gt> - -=head1 COPYRIGHT AND LICENSE - -Copyright (C) 2006 by Steffen Mueller - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself, either Perl version 5.6 or, -at your option, any later version of Perl 5 you may have available. - -=cut - -my $usage = <<"HERE"; -$0 --help # for help - -$0 [-v -o DIR --no-docs] -u PPD-URI-OR-FILE - -This script creates PAR distributions from packages for the -Perl Package Manager which is specific to ActiveState's -perl distributions. In order to do this, it parses -a PPD document (which is XML). The PPD document -contains meta data and URIs for the actual .tar.gz packages -of the PPM package. - --u --uri - Set the place to fetch the .ppd file from. Can be an URL - (http://..., https://..., ftp://...) or a local file. --v --verbose - Sets the verbose mode. --o --out - Sets the output directory. (default: .) ---no-docs - Strip all documentation (man pages, html documentation) from the - resulting PAR distribution. - (This step is carried out at the end. If something goes wrong, - it will be skipped.) - -You can also set various bits of meta data by hand: --n --distname - Distribution name ---dv --distversion - Distribution version (Note: This is not -v!) --p --perlversion - Perl version (can be set to 'any_version') --a --arch - Architecture string (can be set to 'any_arch') ---sa --selectarch - Regexp for selecting the implementation based on architecture ---sp --selectperl - Regexp for selecting the implementation based on perl version -HERE - -my $uri; -my $outdir = '.'; -my $v = 0; -my $nodocs = 0; -my $distname; -my $distversion; -my $arch; -my $perl; -my $sperl; -my $sarch; -GetOptions( - 'n|distname=s' => \$distname, - 'dv|distversion=s' => \$distversion, - 'a|arch=s' => \$arch, - 'p|perlversion=s' => \$perl, - 'sa|selectarch=s' => \$sarch, - 'sp|selectperl=s' => \$sperl, - 'h|help' => sub { print $usage; exit(1) }, - 'o|out=s' => \$outdir, - 'u|uri=s' => \$uri, - 'v|verbose' => \$v, - 'no-docs' => \$nodocs, -); - -ppd_to_par( - uri => $uri, - ($v ? (verbose => 1 ) : ()), - (defined($outdir) ? (out => $outdir ) : ()), - ($nodocs ? (strip_docs => 1 ) : ()), - ($distname ? (distname => $distname ) : ()), - ($distversion ? (distversion => $distversion ) : ()), - ($arch ? (arch => $arch ) : ()), - ($perl ? (perlversion => $perl ) : ()), - ($sarch ? (selectarch => $sarch ) : ()), - ($sperl ? (selectperl => $sperl ) : ()), -); - |