/usr/share/perl5/Rex/Commands/MD5.pm is in rex 1.4.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | #
# (c) Jan Gehring <jan.gehring@gmail.com>
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:
=head1 NAME
Rex::Commands::MD5 - Calculate MD5 sum of files
=head1 DESCRIPTION
With this module you calculate the md5 sum of a file.
This is just a helper function and will not be reported.
=head1 SYNOPSIS
my $md5 = md5($file);
=head1 EXPORTED FUNCTIONS
=cut
package Rex::Commands::MD5;
use strict;
use warnings;
our $VERSION = '1.4.1'; # VERSION
use Rex::Logger;
require Rex::Commands;
use Rex::Interface::Exec;
use Rex::Interface::File;
use Rex::Interface::Fs;
use Rex::Helper::Path;
use Rex::Helper::Run;
require Rex::Exporter;
use base qw(Rex::Exporter);
use vars qw(@EXPORT);
@EXPORT = qw(md5);
=head2 md5($file)
This function will return the MD5 checksum (hexadecimal) for the given file.
task "md5", "server01", sub {
my $md5 = md5("/etc/passwd");
};
=cut
sub md5 {
my ($file) = @_;
my $fs = Rex::Interface::Fs->create;
if ( $fs->is_file($file) ) {
Rex::Logger::debug("Calculating checksum (MD5) of $file");
my $command =
( $^O =~ m/^MSWin/i && Rex::is_local() )
? qq(perl -MDigest::MD5 -e "open my \$fh, '<', \$ARGV[0] or die 'Cannot open ' . \$ARGV[0]; binmode \$fh; print Digest::MD5->new->addfile(\$fh)->hexdigest;" "$file")
: qq(perl -MDigest::MD5 -e 'open my \$fh, "<", \$ARGV[0] or die "Cannot open " . \$ARGV[0]; binmode \$fh; print Digest::MD5->new->addfile(\$fh)->hexdigest;' '$file');
my $md5 = i_run($command);
unless ( $? == 0 ) {
my $exec = Rex::Interface::Exec->create;
my $os = $exec->exec("uname -s");
if ( $os =~ /bsd/i ) {
$md5 = $exec->exec("/sbin/md5 -q '$file'");
}
else {
($md5) = split( /\s/, $exec->exec("md5sum '$file'") );
}
if ( !$md5 ) {
my $message = "Unable to get MD5 checksum of $file: $!";
Rex::Logger::info($message);
die($message);
}
}
chomp $md5;
Rex::Logger::debug("MD5 checksum of $file: $md5");
return $md5;
}
else {
my $message = "File not found: $file";
Rex::Logger::debug($message);
die($message);
}
}
1;
|