r6974 - in /branches/upstream/libdigest-md5-file-perl: ./ current/ current/Changes current/File.pm current/MANIFEST current/META.yml current/Makefile.PL current/README current/t/ current/t/1.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Aug 20 07:38:16 UTC 2007
Author: dmn
Date: Mon Aug 20 07:38:16 2007
New Revision: 6974
URL: http://svn.debian.org/wsvn/?sc=1&rev=6974
Log:
[svn-inject] Installing original source of libdigest-md5-file-perl
Added:
branches/upstream/libdigest-md5-file-perl/
branches/upstream/libdigest-md5-file-perl/current/
branches/upstream/libdigest-md5-file-perl/current/Changes
branches/upstream/libdigest-md5-file-perl/current/File.pm (with props)
branches/upstream/libdigest-md5-file-perl/current/MANIFEST
branches/upstream/libdigest-md5-file-perl/current/META.yml
branches/upstream/libdigest-md5-file-perl/current/Makefile.PL
branches/upstream/libdigest-md5-file-perl/current/README
branches/upstream/libdigest-md5-file-perl/current/t/
branches/upstream/libdigest-md5-file-perl/current/t/1.t
Added: branches/upstream/libdigest-md5-file-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/Changes?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/Changes (added)
+++ branches/upstream/libdigest-md5-file-perl/current/Changes Mon Aug 20 07:38:16 2007
@@ -1,0 +1,17 @@
+Revision history for Perl extension Digest::MD5::File.
+
+0.05 Wed Jun 7 18:35:42 2006
+ - made it still load under perl's without Encode (older than 5.7.3) (of course Encoding doesn't work...)
+
+0.04 Tue Jan 3 21:23:44 2006
+ - added dir_* funtions and adddir() method
+
+0.03 Tue Aug 30 20:06:12 2005
+ - fixed import() to resolve bug importing names into packages other than main:: (Thanks Mike MacKenzie for pointing that out)
+
+0.02 Fri Aug 26 18:35:00 2005
+ - fixed issue with VERSION() that conflicted with UNIVERSAL's VERSION functionality
+
+0.01 Thu Mar 31 09:05:59 2005
+ - original version; created by h2xs 1.22 with options
+ -AXc -n Digest::MD5::File
Added: branches/upstream/libdigest-md5-file-perl/current/File.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/File.pm?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/File.pm (added)
+++ branches/upstream/libdigest-md5-file-perl/current/File.pm Mon Aug 20 07:38:16 2007
@@ -1,0 +1,403 @@
+package Digest::MD5::File;
+
+use strict;
+use warnings;
+use Carp;
+use Digest::MD5;
+eval { require Encode; };
+use LWP::UserAgent;
+
+require Exporter;
+our @ISA = qw(Exporter Digest::MD5);
+our @EXPORT_OK = qw(dir_md5 dir_md5_hex dir_md5_base64
+ file_md5 file_md5_hex file_md5_base64
+ url_md5 url_md5_hex url_md5_base64);
+
+our $BINMODE = 1;
+our $UTF8 = 0;
+our $NOFATALS = 0;
+
+sub import {
+ my $me = shift;
+ my %imp;
+
+ @imp{ @_ } = ();
+ for(@EXPORT_OK) {
+ delete $imp{$_} if exists($imp{$_});
+ }
+
+ $BINMODE = 0 if exists $imp{-nobin};
+ $UTF8 = 1 if exists $imp{-utf8};
+ $NOFATALS = 1 if exists $imp{-nofatals};
+
+ for(keys %imp) {
+ s/^-//;
+ $imp{$_}='' unless $_ =~ m/^(no)?(bin|utf8|fatals)$/;
+ push @EXPORT_OK, $_ unless $_ =~ m/^(no)?(bin|utf8|fatals)$/;
+ delete $imp{"-$_"} if exists $imp{"-$_"};
+ }
+
+ $me->export_to_level(1, $me, grep(!/^-/, @_));
+ Digest::MD5->import(keys %imp);
+}
+
+our $VERSION = '0.05';
+
+my $getfh = sub {
+ my $file = shift;
+
+ croak "$file: Does not exist" if !-e $file && !$NOFATALS;
+ croak "$file: Is a directory" if -d $file && !$NOFATALS;
+
+ if(-e $file && !-d $file) {
+ open my ($fh), $file or return;
+ binmode $fh if $BINMODE;
+ return $fh;
+ }
+ else { return undef; }
+};
+
+my $utf8fh = sub {
+ my @utf8;
+ my $fh = shift;
+ for(<$fh>) {
+ push @utf8, Encode::encode_utf8($_);
+ }
+ return @utf8;
+};
+
+my $getur = sub {
+ my $res = LWP::UserAgent->new->get(shift());
+ return $res->is_success ? $res->content : undef;
+};
+
+sub Digest::MD5::adddir {
+ my $md5 = shift;
+ my $base = shift;
+ for( keys %{ _dir($base, undef, undef, 3) }) {
+ next if !$_;
+ my $file = File::Spec->catfile($base, $_);
+ $md5->addpath($file) or carp "addpath $file failed: $!" if !-d $file;
+ }
+ return 1;
+}
+
+sub _dir {
+ my($dir, $hr, $base, $type, $cc) = @_;
+ require File::Spec; # only load it if its needed
+
+ $cc = {} if ref $cc ne 'HASH';
+ $hr = {} if ref $hr ne 'HASH';
+ $base = $dir if !defined $base;
+ $type = 0 if ! defined $type;
+
+ my $_md5func = \&file_md5;
+ $_md5func = \&file_md5_hex if $type eq '1';
+ $_md5func = \&file_md5_base64 if $type eq '2';
+
+ opendir(DIR, $dir) or return;
+ my @dircont = grep( $_ ne '.' && $_ ne '..', readdir(DIR));
+ closedir DIR;
+
+ for my $file( @dircont ) {
+ my $_dirver = File::Spec->catdir($dir, $file);
+ my $full = -d $_dirver ? $_dirver
+ : File::Spec->catfile($dir, $file);
+ my $short = $full;
+ $short =~ s{^$base[/]?}{}; # use File::Spec instead
+
+ if(-l $full) {
+ my $target = readlink $full;
+ $full = $target if -d $target;
+ }
+
+ if(exists $hr->{$full}) {
+ carp "$full seen already, you may have circular links";
+ $cc->{$full}++;
+ croak "$full is in a circular link, bailing out."
+ if $cc->{$full} > 4;
+ }
+
+ if(-d $full) {
+ $hr->{ $short } = '';
+ _dir($full, $hr, $base, $type, $cc) or return;
+ }
+ else {
+ $hr->{ $short } = '';
+ $hr->{ $short } = $_md5func->( $full ) or return if $type ne '3';
+ }
+ }
+ return $hr;
+}
+
+sub dir_md5 {
+ push @_, undef if @_ < 3;
+ push @_, undef if @_ < 3;
+ _dir(@_, 0);
+}
+
+sub dir_md5_hex {
+ push @_, undef if @_ < 3;
+ push @_, undef if @_ < 3;
+ _dir(@_, 1);
+}
+
+sub dir_md5_base64 {
+ push @_, undef if @_ < 3;
+ push @_, undef if @_ < 3;
+ _dir(@_, 2);
+}
+
+sub file_md5 {
+ my $fh = $getfh->(shift()) or return;
+ my ($bn,$ut) = @_;
+ local $BINMODE = $bn if defined $bn;
+ local $UTF8 = $ut if defined $ut;
+ return Digest::MD5::md5(<$fh>) if !$UTF8;
+ return Digest::MD5::md5($utf8fh->($fh));
+}
+
+sub file_md5_hex {
+ my $fh = $getfh->(shift()) or return;
+ my ($bn,$ut) = @_;
+ local $BINMODE = $bn if defined $bn;
+ local $UTF8 = $ut if defined $ut;
+ return Digest::MD5::md5_hex(<$fh>) if !$UTF8;
+ return Digest::MD5::md5_hex($utf8fh->($fh));
+}
+
+sub file_md5_base64 {
+ my $fh = $getfh->(shift()) or return;
+ my ($bn,$ut) = @_;
+ local $BINMODE = $bn if defined $bn;
+ local $UTF8 = $ut if defined $ut;
+ return Digest::MD5::md5_base64(<$fh>) if !$UTF8;
+ return Digest::MD5::md5_base64($utf8fh->($fh));
+}
+
+sub url_md5 {
+ my $cn = $getur->(shift()) or return;
+ my ($ut) = shift;
+ local $UTF8 = $ut if defined $ut;
+ return Digest::MD5::md5($cn) if !$UTF8;
+ return Digest::MD5::md5(Encode::encode_utf8($cn));
+}
+
+sub url_md5_hex {
+ my $cn = $getur->(shift()) or return;
+ my ($ut) = shift;
+ local $UTF8 = $ut if defined $ut;
+ return Digest::MD5::md5_hex($cn) if !$UTF8;
+ return Digest::MD5::md5_hex(Encode::encode_utf8($cn));
+}
+
+sub url_md5_base64 {
+ my $cn = $getur->(shift()) or return;
+ my ($ut) = shift;
+ local $UTF8 = $ut if defined $ut;
+ return Digest::MD5::md5_base64($cn) if !$UTF8;
+ return Digest::MD5::md5_base64(Encode::encode_utf8($cn));
+}
+
+sub Digest::MD5::addpath {
+ my $md5 = shift;
+ my ($fl,$bn,$ut) = @_;
+ local $BINMODE = $bn if defined $bn;
+ local $UTF8 = $ut if defined $ut;
+ if(ref $fl eq 'ARRAY') {
+ for(@{ $fl }) {
+ $md5->addpath($_, $bn, $ut) or return;
+ }
+ }
+ else {
+ my $fh = $getfh->($fl) or return;
+ while(<$fh>) {
+ !$UTF8 ? $md5->add($_) : $md5->add(Encode::encode_utf8($_));
+ }
+ }
+ return 1;
+}
+
+sub Digest::MD5::addurl {
+ my $md5 = shift;
+ my $cn = $getur->(shift()) or return;
+ my $ut = shift;
+ local $UTF8 = $ut if defined $ut;
+ !$UTF8 ? $md5->add($cn) : $md5->add(Encode::encode_utf8($cn));
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Digest::MD5::File - Perl extension for getting MD5 sums for files and urls.
+
+=head1 SYNOPSIS
+
+ use Digest::MD5::File qw(dir_md5_hex file_md5_hex url_md5_hex);
+
+ my $md5 = Digest::Md5->new;
+ $md5->addpath('/path/to/file');
+ my $digest = $md5->hexdigest;
+
+ my $digest = file_md5($file);
+ my $digest = file_md5_hex($file);
+ my $digest = file_md5_base64($file);
+
+ my $md5 = Digest::Md5->new;
+ $md5->addurl('http://www.tmbg.com/tour.html');
+ my $digest = $md5->hexdigest;
+
+ my $digest = url_md5($url);
+ my $digest = url_md5_hex($url);
+ my $digest = url_md5_base64($url);
+
+ my $md5 = Digest::Md5->new;
+ $md5->adddir('/directory');
+ my $digest = $md5->hexdigest;
+
+ my $dir_hashref = dir_md5($dir);
+ my $dir_hashref = dir_md5_hex($dir);
+ my $dir_hashref = dir_md5_base64($dir);
+
+=head1 DESCRIPTION
+
+ Get MD5 sums for files of a given path or content of a given url.
+
+=head1 EXPORT
+
+None by default.
+You can export any file_* dir_*, or url_* function and anything L<Digest::MD5> can export.
+
+ use Digest::MD5::File qw(md5 md5_hex md5_base64); # 3 Digest::MD5 functions
+ print md5_hex('abc123'), "\n";
+ print md5_base64('abc123'), "\n";
+
+=head1 OBJECT METHODS
+
+=head2 addpath()
+
+ my $md5 = Digest::Md5->new;
+ $md5->addpath('/path/to/file.txt')
+ or die "file.txt is not where you said: $!";
+
+or you can add multiple files by specifying an array ref of files:
+
+ $md5->addpath(\@files);
+
+=head2 adddir()
+
+addpath()s each file in a directory recursively. Follows the same rules as the dir_* functions.
+
+ my $md5 = Digest::Md5->new;
+ $md5->adddir('/home/tmbg/')
+ or die "See warning above to see why I bailed: $!";
+
+=head2 addurl()
+
+ my $md5 = Digest::Md5->new;
+ $md5->addurl('http://www.tmbg.com/tour.html')
+ or die "They Must Be not on tour";
+
+=head1 file_* functions
+
+Get the digest in variouse formats of $file.
+If file does not exist or is a directory it croaks (See NOFATALS for more info)
+
+ my $digest = file_md5($file) or warn "$file failed: $!";
+ my $digest = file_md5_hex($file) or warn "$file failed: $!";
+ my $digest = file_md5_base64($file) or warn "$file failed: $!";
+
+=head1 dir_* functions
+
+Returns a hashref whose keys are files relative to the given path and the values are the MD5 sum of the file or and empty string if a directory.
+It recurses through the entire depth of the directory.
+Symlinks to files are just addpath()d and symlinks to directories are followed.
+
+ my $dir_hashref = dir_md5($dir) or warn "$dir failed: $!";
+ my $dir_hashref = dir_md5_hex($dir) or warn "$dir failed: $!";
+ my $dir_hashref = dir_md5_base64($dir) or warn "$dir failed: $!";
+
+=head1 url_* functions
+
+Get the digest in various formats of the content at $url (Including, if $url points to directory, the directory listing content).
+Returns undef if url fails (IE if L<LWP::UserAgent>'s $res->is_success is false)
+
+ my $digest = url_md5($url) or warn "$url failed";
+ my $digest = url_md5_hex($url) or warn "$url failed";
+ my $digest = url_md5_base64($url) or warn "$url failed";
+
+=head1 SPECIAL SETTINGS
+
+=head2 BINMODE
+
+By default files are opened in binmode. If you do not want to do this you can unset it a variety of ways:
+
+ use Digest::MD5::File qw(-nobin);
+
+or
+
+ $Digest::MD5::File::BINMODE = 0;
+
+or at the function/method level by specifying its value as the second argument:
+
+ $md5->addpath($file,0);
+
+ my $digest = file_md5_hex($file,0);
+
+=head2 UTF8
+
+In some cases you may want to have your data utf8 encoded, you can do this the following ways:
+
+ use Digest::MD5::File qw(-utf8);
+
+or
+
+ $Digest::MD5::File::UTF8 = 1;
+
+or at the function/method level by specifying its value as the third argument for files and second for urls:
+
+ $md5->addpath($file,$binmode,1);
+
+ my $digest = file_md5_hex($file,$binmode,1);
+
+ $md5->addurl($url,1);
+
+ url_md5_hex($url,1);
+
+It use's L<Encode>'s encode_utf8() function to do the encoding. So if you do not have Encode (pre 5.7.3) this won't work :)
+
+=head2 NOFATALS
+
+Instead of croaking it will return undef if you set NOFATALS to true.
+
+You can do this two ways:
+
+ $Digest::MD5::File::NOFATALS = 1;
+
+or the -nofatals flag:
+
+ use Digest::MD5::File qw(-nofatals);
+
+ my $digest = file_md5_hex($file) or die "$file failed";
+
+$! is not set so its not really helpful if you die().
+
+=head1 SEE ALSO
+
+L<Digest::MD5>, L<Encode>, L<LWP::UserAgent>
+
+=head1 AUTHOR
+
+Daniel Muey, L<http://drmuey.com/cpan_contact.pl>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2005 by Daniel Muey
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
Propchange: branches/upstream/libdigest-md5-file-perl/current/File.pm
------------------------------------------------------------------------------
svn:keywords = Id
Added: branches/upstream/libdigest-md5-file-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/MANIFEST?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/MANIFEST (added)
+++ branches/upstream/libdigest-md5-file-perl/current/MANIFEST Mon Aug 20 07:38:16 2007
@@ -1,0 +1,7 @@
+Changes
+File.pm
+Makefile.PL
+MANIFEST
+README
+t/1.t
+META.yml Module meta-data (added by MakeMaker)
Added: branches/upstream/libdigest-md5-file-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/META.yml?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/META.yml (added)
+++ branches/upstream/libdigest-md5-file-perl/current/META.yml Mon Aug 20 07:38:16 2007
@@ -1,0 +1,12 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Digest-MD5-File
+version: 0.05
+version_from: File.pm
+installdirs: site
+requires:
+ Digest::MD5: 0
+ LWP::UserAgent: 0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
Added: branches/upstream/libdigest-md5-file-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/Makefile.PL?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/Makefile.PL (added)
+++ branches/upstream/libdigest-md5-file-perl/current/Makefile.PL Mon Aug 20 07:38:16 2007
@@ -1,0 +1,13 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Digest::MD5::File',
+ VERSION_FROM => 'File.pm',
+ PREREQ_PM => {
+ Digest::MD5 => 0,
+ LWP::UserAgent => 0,
+ },
+ ($] >= 5.005 ?
+ (ABSTRACT_FROM => 'File.pm',
+ AUTHOR => 'Daniel Muey <http://drmuey.com/cpan_contact.pl>') : ()),
+);
Added: branches/upstream/libdigest-md5-file-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/README?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/README (added)
+++ branches/upstream/libdigest-md5-file-perl/current/README Mon Aug 20 07:38:16 2007
@@ -1,0 +1,32 @@
+Digest/MD5/File version 0.05
+============================
+
+See Pod for documentation or
+ perldoc Digest::MD5::File
+
+INSTALLATION
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+or
+
+ perl -MCPAN -e 'install Digest::MD5::File;'
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+Digest::Md5, Encode, LWP::UserAgent
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2005 Daniel Muey
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
Added: branches/upstream/libdigest-md5-file-perl/current/t/1.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-md5-file-perl/current/t/1.t?rev=6974&op=file
==============================================================================
--- branches/upstream/libdigest-md5-file-perl/current/t/1.t (added)
+++ branches/upstream/libdigest-md5-file-perl/current/t/1.t Mon Aug 20 07:38:16 2007
@@ -1,0 +1,15 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl 1.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 1;
+BEGIN { use_ok('Digest::MD5::File') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
More information about the Pkg-perl-cvs-commits
mailing list