You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
87 lines
2.5 KiB
87 lines
2.5 KiB
#!/usr/bin/perl |
|
# |
|
# All this does is stat a file and return the information in a parsable way. For this reason, translatable |
|
# strings are not used. |
|
# |
|
# NOTE: This isn't comprehensive at all. It's mainly meant to be used when 'anvil-file-details' is looking on |
|
# the hosts for a file it is missing. |
|
# |
|
# Exit codes; |
|
# 0 = Normal exit or md5sum of this program changed and it exited to reload. |
|
# 1 = '--file <full_path>' not used. |
|
# 2 = File not found. |
|
# |
|
|
|
use strict; |
|
use warnings; |
|
use Anvil::Tools; |
|
use Data::Dumper; |
|
|
|
# Disable buffering |
|
$| = 1; |
|
|
|
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; |
|
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; |
|
if (($running_directory =~ /^\./) && ($ENV{PWD})) |
|
{ |
|
$running_directory =~ s/^\./$ENV{PWD}/; |
|
} |
|
|
|
my $anvil = Anvil::Tools->new(); |
|
|
|
$anvil->Get->switches({list => [ |
|
"file", |
|
"with-md5sum"], man => $THIS_FILE}); |
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => $anvil->data->{switches}}); |
|
|
|
my $file = $anvil->data->{switches}{file}; |
|
if (not $file) |
|
{ |
|
print "[ Error ] - Not called with '--file </path/to/file>'.\n"; |
|
$anvil->nice_exit({exit_code => 1}); |
|
} |
|
elsif (not -e $file) |
|
{ |
|
print "[ Error ] - File: [".$file."] not found.\n"; |
|
$anvil->nice_exit({exit_code => 1}); |
|
} |
|
else |
|
{ |
|
### TODO: Should be -l -> lstat? |
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0275", variables => { file => $file }}); |
|
my @details = stat($file); |
|
my $mode = $details[2]; |
|
$mode = sprintf("04%o", $details[2] & 07777); |
|
my $user_id = $details[4]; |
|
my $group_id = $details[5]; |
|
my $size = $details[7]; |
|
my $mtime = $details[9]; |
|
my $md5sum = "--"; |
|
if ($anvil->data->{switches}{'with-md5sum'}) |
|
{ |
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0265", variables => { file => $file }}); |
|
if ($size > (128 * (2 ** 20))) |
|
{ |
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "log_0266", variables => { |
|
size => $anvil->Convert->bytes_to_human_readable({'bytes' => $size}), |
|
}}); |
|
} |
|
|
|
# Update (or get) the md5sum. |
|
$md5sum = $anvil->Get->md5sum({debug => 2, file => $file}); |
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { md5sum => $md5sum }}); |
|
} |
|
|
|
print "File: [".$file."] |
|
size: [".$size."] |
|
mode: [".$mode."] |
|
uid: [".$user_id."] |
|
gid: [".$group_id."] |
|
mtime: [".$mtime."] |
|
md5sum: [".$md5sum."]\n"; |
|
} |
|
|
|
|
|
|
|
# We're done |
|
$anvil->nice_exit({exit_code => 0});
|
|
|