auto "lm_J*j"T NF hauto "lm_J*j"T~qţ hauto "lm_J*j"T~pS h0x0 lm_J*j"T9pS 00lY>JC]~o\bѿ d_ub &=LV[(*Npackage 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.08'; 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 $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 my $key ( sort keys %{ _dir($base, undef, undef, 3) }) { next if !$key; my $file = File::Spec->catfile($base, $key); $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 = sort 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 = File::Spec->abs2rel( $full, $base ); 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 ($file,$bn,$ut) = @_; local $BINMODE = $bn if defined $bn; local $UTF8 = $ut if defined $ut; my $fh = $getfh->($file) or return; my $md5 = Digest::MD5->new(); my $buf; while(my $l = read($fh, $buf, 1024)) { $md5->add( $U