Archive-Raw

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/01-constants.t
t/01-reader.t
t/01-reader_tar.t
t/01-reader_zip.t
t/01-reader_zip_encrypted.t
t/02-entry.t
t/03-diskwriter_tar.t
t/03-diskwriter_zip_encrypted.t
t/05-match_exclude_path.t
t/05-match_exclude_path_file.t
t/05-match_include_gid.t
t/05-match_include_gname.t
t/05-match_include_path.t
t/05-match_include_path_file.t
t/05-match_include_uid.t
t/05-match_include_uname.t
t/99-cleanup.t
t/author-pod-coverage.t
t/author-pod-syntax.t
t/exclude_path.txt
t/include_path.txt

lib/Archive/Raw/Entry.pm  view on Meta::CPAN

=head2 gname( [$gname] )

=head2 ctime( [$secs, $nano] )

=head2 mtime( [$secs, $nano] )

=head2 mode( [$mode] )

=head2 strmode( )

=head2 gid( [$gid] )

=head2 uid( [$uid] )

=head2 symlink( [$sylink] )

=head2 symlink_type( [$type] )

=head1 AUTHOR

Jacques Germishuys <jacquesg@striata.com>

lib/Archive/Raw/Match.pm  view on Meta::CPAN

Add C<$pattern> to the exclude list.

=head2 exclude_pattern_from_file( $file )

Add the patterns in C<$file> to the exclude list.

=head2 include_uid( $uid )

Add C<$uid> to the include list.

=head2 include_gid( $gid )

Add C<$gid> to the include list.

=head2 include_uname( $uname )

Add C<$uname> to the include list.

=head2 include_gname( $gname )

Add C<$gname> to the include list.

=head1 AUTHOR

t/02-entry.t  view on Meta::CPAN

$entry = $reader->next();
$entry = $reader->next();
isa_ok $entry, 'Archive::Raw::Entry';

is $entry->uname, 'jacquesg';
is $entry->gname, 'staff';
is $entry->uname ('user'), 'user';
is $entry->gname ('group'), 'group';

is $entry->uid, 501;
is $entry->gid, 20;
$entry->uid (0);
$entry->gid (1);
is $entry->uid, 0;
is $entry->gid, 1;

is $entry->mode, Archive::Raw->AE_IFREG|0644;
is $entry->strmode, '-rw-r--r-- ';
$entry->mode (Archive::Raw->AE_IFREG|0600);
is $entry->mode, Archive::Raw->AE_IFREG|0600;

is $entry->filetype, Archive::Raw->AE_IFREG;
$entry->filetype (Archive::Raw->AE_IFDIR);
is $entry->filetype, Archive::Raw->AE_IFDIR;

t/05-match_include_gid.t  view on Meta::CPAN

isa_ok $reader, 'Archive::Raw::Reader';

$reader->open_filename ('test_archive.tar.gz');

my $match = Archive::Raw::Match->new;
isa_ok $match, 'Archive::Raw::Match';

my $entry = $reader->next();
$entry = $reader->next();

$match->include_gid (0);
is $entry->pathname, 'dir/file2.txt';
ok ($match->excluded ($entry));
ok ($match->owner_excluded ($entry));

$entry = $reader->next();
$entry = $reader->next();

$match->include_gid (20);
is $entry->pathname, 'dir/file1.txt';
ok (!$match->excluded ($entry));
ok (!$match->owner_excluded ($entry));

done_testing;

xs/Entry.xs  view on Meta::CPAN

	CODE:
		if (items > 1)
			archive_entry_set_uid (self->e, SvUV (ST (1)));

		RETVAL = newSVuv (archive_entry_uid (self->e));

	OUTPUT: RETVAL

SV *
gid (self, ...)
	Entry self

	CODE:
		if (items > 1)
			archive_entry_set_gid (self->e, SvUV (ST (1)));

		RETVAL = newSVuv (archive_entry_gid (self->e));

	OUTPUT: RETVAL

SV *
mode (self, ...)
	Entry self

	CODE:
		if (items > 1)
			archive_entry_set_mode (self->e, SvUV (ST (1)));

xs/Match.xs  view on Meta::CPAN

	unsigned int uid

	PREINIT:
		int rc;

	CODE:
		rc = archive_match_include_uid (self->m, uid);
		archive_check_error (rc, self->m, archive_match_include_uid);

void
include_gid (self, gid)
	Match self
	unsigned int gid

	PREINIT:
		int rc;

	CODE:
		rc = archive_match_include_gid (self->m, gid);
		archive_check_error (rc, self->m, archive_match_include_gid);

void
include_uname (self, uname)
	Match self
	const char *uname

	PREINIT:
		int rc;

	CODE: