Software: Apache. PHP/5.5.15 uname -a: Windows NT SVR-DMZ 6.1 build 7600 (Windows Server 2008 R2 Enterprise Edition) i586 SYSTEM Safe-mode: OFF (not secure) C:\dmz\perl\bin\ drwxrwxrwx |
Viewing file: ppd2par.bat (5.56 KB) -rwxrwxrwx Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) | @rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT IF EXIST "%~dp0perl.exe" ( "%~dp0perl.exe" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 ) ELSE IF EXIST "%~dp0..\..\bin\perl.exe" ( "%~dp0..\..\bin\perl.exe" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 ) ELSE ( perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 ) goto endofperl :WinNT IF EXIST "%~dp0perl.exe" ( "%~dp0perl.exe" -x -S %0 %* ) ELSE IF EXIST "%~dp0..\..\bin\perl.exe" ( "%~dp0..\..\bin\perl.exe" -x -S %0 %* ) ELSE ( perl -x -S %0 %* ) if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl if %errorlevel% == 9009 echo You do not have Perl in your PATH. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul goto endofperl @rem '; #!/usr/bin/perl #line 29 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 ) : ()), ); __END__ :endofperl |
:: Command execute :: | |
--[ c99shell v. 1.0 pre-release build #13 powered by Captain Crunch Security Team | http://ccteam.ru | Generation time: 0.0312 ]-- |