• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 205
  • Last Modified:

Last Update on FTP transfer, perl call ?

Perl/CGI; I use a lot of .lib files, common library, such as:

require "meter_library_data_file.lib";
&meter_readings;

Our database administrator uses above .lib file for keeping updates that is used by management and sales to keep track on what is going on.  Lots of times, a sales person or other will wonder when the last time something was updated.  Question:  Is there a way for perl to know when a certain file was overwritten, hence updated?  Files are simply transfer via FTP to a web server.  I know how to call time:

$date = `/bin/date`;
chomp($date);

" current date and time is $date "

But that is current time, not when a file was overwritten or updated.  Unix/lynx webserver is used.

???????????/
0
precision
Asked:
precision
  • 3
  • 2
1 Solution
 
mrh30Commented:
You want to use stat, which, in list context, will return a 13 element list giving the statistics for a file.

Example of use:

my @filedata = stat('/bin/date');
print "last modified on".gmtime($filedata[9]);
0
 
precisionAuthor Commented:
File of change upon ftp upload:  client_data.lib
File that looks for last upload date of client_data.lib is "compile.cgi"
so, is this correct ???

$filedata = "client_data.lib";

my @filedata = stat('/bin/date');
print "last modified on".gmtime($filedata[9]);
0
 
mrh30Commented:
Nope:

$filedata = "client_data.lib";
my @filedata = stat("bin/$filedata"); # Or whatever the path to the file actually is
print "Modified: ".gmtime($filedata[9]);
0
 
precisionAuthor Commented:
Cool, getting close, works but how do I make it EST????  I see it displays but shows gmtime...thanks...great job
0
 
mrh30Commented:
Use localtime instead of gmtime
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now