summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/bin/ptar.bat
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/bin/ptar.bat')
-rwxr-xr-xMaster/tlpkg/tlperl/bin/ptar.bat130
1 files changed, 0 insertions, 130 deletions
diff --git a/Master/tlpkg/tlperl/bin/ptar.bat b/Master/tlpkg/tlperl/bin/ptar.bat
deleted file mode 100755
index 6c439e086dc..00000000000
--- a/Master/tlpkg/tlperl/bin/ptar.bat
+++ /dev/null
@@ -1,130 +0,0 @@
-@rem = '--*-Perl-*--
-@echo off
-if "%OS%" == "Windows_NT" goto WinNT
-perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
-goto endofperl
-:WinNT
-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 15
-use strict;
-
-use File::Find;
-use Getopt::Std;
-use Archive::Tar;
-use Data::Dumper;
-
-my $opts = {};
-getopts('Ddcvzthxf:I', $opts) or die usage();
-
-### show the help message ###
-die usage() if $opts->{h};
-
-### enable debugging (undocumented feature)
-local $Archive::Tar::DEBUG = 1 if $opts->{d};
-
-### enable insecure extracting.
-local $Archive::Tar::INSECURE_EXTRACT_MODE = 1 if $opts->{I};
-
-### sanity checks ###
-unless ( 1 == grep { defined $opts->{$_} } qw[x t c] ) {
- die "You need exactly one of 'x', 't' or 'c' options: " . usage();
-}
-
-my $compress = $opts->{z} ? 1 : 0;
-my $verbose = $opts->{v} ? 1 : 0;
-my $file = $opts->{f} ? $opts->{f} : 'default.tar';
-my $tar = Archive::Tar->new();
-
-
-if( $opts->{c} ) {
- my @files;
- find( sub { push @files, $File::Find::name;
- print $File::Find::name.$/ if $verbose }, @ARGV );
-
- if ($file eq '-') {
- use IO::Handle;
- $file = IO::Handle->new();
- $file->fdopen(fileno(STDOUT),"w");
- }
-
- Archive::Tar->create_archive( $file, $compress, @files );
-
-} else {
- if ($file eq '-') {
- use IO::Handle;
- $file = IO::Handle->new();
- $file->fdopen(fileno(STDIN),"r");
- }
-
- ### print the files we're finding?
- my $print = $verbose || $opts->{'t'} || 0;
-
- my $iter = Archive::Tar->iter( $file );
-
- while( my $f = $iter->() ) {
- print $f->full_path . $/ if $print;
-
- ### data dumper output
- print Dumper( $f ) if $opts->{'D'};
-
- ### extract it
- $f->extract if $opts->{'x'};
- }
-}
-
-### pod & usage in one
-sub usage {
- my $usage .= << '=cut';
-=pod
-
-=head1 NAME
-
- ptar - a tar-like program written in perl
-
-=head1 DESCRIPTION
-
- ptar is a small, tar look-alike program that uses the perl module
- Archive::Tar to extract, create and list tar archives.
-
-=head1 SYNOPSIS
-
- ptar -c [-v] [-z] [-f ARCHIVE_FILE | -] FILE FILE ...
- ptar -x [-v] [-z] [-f ARCHIVE_FILE | -]
- ptar -t [-z] [-f ARCHIVE_FILE | -]
- ptar -h
-
-=head1 OPTIONS
-
- c Create ARCHIVE_FILE or STDOUT (-) from FILE
- x Extract from ARCHIVE_FILE or STDIN (-)
- t List the contents of ARCHIVE_FILE or STDIN (-)
- f Name of the ARCHIVE_FILE to use. Default is './default.tar'
- z Read/Write zlib compressed ARCHIVE_FILE (not always available)
- v Print filenames as they are added or extraced from ARCHIVE_FILE
- h Prints this help message
-
-=head1 SEE ALSO
-
- tar(1), L<Archive::Tar>.
-
-=cut
-
- ### strip the pod directives
- $usage =~ s/=pod\n//g;
- $usage =~ s/=head1 //g;
-
- ### add some newlines
- $usage .= $/.$/;
-
- return $usage;
-}
-
-
-__END__
-:endofperl