#!/bin/sh
# -*- perl -*-
# This code allows us to start perl from our path or an environment variable
# rather than hardcoding a path into the #! line.  It works from sh or csh.
(exit $?0) && eval 'exec ${QPERLQ-perl} -x $0 ${1+"$@"}'
if (! $?QPERLQ) setenv QPERLQ perl
exec $QPERLQ -x $0 $argv:q

#!/usr/local/bin/perl -w
#
# $Id: ftp_mdtm_to_timestamp,v 1.1 1997/11/29 00:05:20 ejb Exp $
# $Source: /home/ejb/scripts/RCS/ftp_mdtm_to_timestamp,v $
# $Author: ejb $
#

require 5.002;
use strict;

my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";

use Time::Local;
my @times = ();
for (@ARGV)
{
    if (m/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/)
    {
	push(@times, [$1, $2, $3, $4, $5, $6]);
    }
    else
    {
	die "usage: $whoami yyyymmddhhmmss ...\n";
    }
}

for (@times)
{
    my ($year, $mon, $day, $hour, $min, $sec) = @$_;
    $mon--;
    $year -= 1900;
    print timelocal($sec, $min, $hour, $day, $mon, $year), "\n";
}