nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

PERL code sometimes getting wrong year

lj1958

I needed to print out the last modified date of PDFs that are linked in a DCR.

Originally I was getting this value this run-time on the production server using javascript on the generated jsp page, but because we are moving to using a different server setup for preview (Tomcat) than our production server (Websphere), and in order to hard-code these dates on the generated template, I have moved to getting the last-modify date in PERL on the presentation template as the page is generated.

Here's what I'm using:
$pdf = iwpt_dcr_value('dcr.vendors.vendor.vendorPDF');
$directory = ("y:/default/main/branchname/WORKAREA/workareaname/jsp_files/foldername/docs/filefoldername/");
$pdfpath = $directory . $pdf;
$lastmod = (stat($pdfpath))[9];
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime($lastmod);
$year = 1900 + $yearOffset;
$last_update_time = "$months[$month] $dayOfMonth, $year";

Not every item has a pdf attached, so this date is only being used for the items that have pdfs.

As the generating process iterates through the entries, most of the dates are correctly parsing.

But on the 10th and 11th of 11 items that have attached pdfs, the last modify date is coming up as Dec 31, 1969.

Looking directly at the files, one file's last modify date is July 28, 2010 and the other is May 13, 2010. Any ideas as to where I might be going wrong?

Find more posts tagged with

Comments

Rick Poulin

My guess is that you're pointing to the items the wrong way. There might be a special character in the name of the PDF or something like that. Either way, your stat()[9] is returning 0 as the last modified date. I'd suggest adding a "if -f $pdfpath" check to make sure you're looking at something that exists before looking for its mod date.

ISCBorisB

I needed to print out the last modified date of PDFs that are linked in a DCR.

Originally I was getting this value this run-time on the production server using javascript on the generated jsp page, but because we are moving to using a different server setup for preview (Tomcat) than our production server (Websphere), and in order to hard-code these dates on the generated template, I have moved to getting the last-modify date in PERL on the presentation template as the page is generated.

Here's what I'm using:
$pdf = iwpt_dcr_value('dcr.vendors.vendor.vendorPDF');
$directory = ("y:/default/main/branchname/WORKAREA/workareaname/jsp_files/foldername/docs/filefoldername/");
$pdfpath = $directory . $pdf;
$lastmod = (stat($pdfpath))[9];
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime($lastmod);
$year = 1900 + $yearOffset;
$last_update_time = "$months[$month] $dayOfMonth, $year";

Not every item has a pdf attached, so this date is only being used for the items that have pdfs.

As the generating process iterates through the entries, most of the dates are correctly parsing.

But on the 10th and 11th of 11 items that have attached pdfs, the last modify date is coming up as Dec 31, 1969.

Looking directly at the files, one file's last modify date is July 28, 2010 and the other is May 13, 2010. Any ideas as to where I might be going wrong?

There are easier and more portable ways to format your Date.
Try this for example, formatting is identical to yours.[php]use POSIX qw(strftime);
use File::stat;

my $pdfpath = 'PDF File Path';
(-e $pdfpath)?
print strftime('%b %d, %Y', localtime(stat($pdfpath)->mtime)) :
print qq("$pdfpath" does not exist);[/php]

nipper

The date you are getting is the Epoch, which is the start of Unix date.

So for some reason, the value of what you are reading is 0, meaning 0 seconds after the Epoch.

You may want to seeif the other data is valid in (stat($pdfpath))[8], (stat($pdfpath))[7] etc.

Adam Stoller

Try putting $pdfpath in double-quotes within the stat() call - i.e.:

.. = stat("$pdfpath");

If your file has any white-space in its name, this should ensure that the entire string is treated as a single argument. Not sure if this helps with filenames that contain high order bit characters, but it can't hurt.

lj1958

Thanks everyone. One of the problems we were having was files being moved, etc. At that point, I hadn't yet coded to catch a missing file at the time of template generation. The "wrong" date that resulted at generatioin is somehow a default date for when the file isn't found a the indicated location.