#!/usr/bin/perl -w
##############################################################################
# Return a human readable date for a unix time stamp
# Author: Chris Rouch
# Date: 2001-2003
# Changelog:
# Copyright (c) Chris Rouch 2001-2003
#
#     This program is free software; you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#     the Free Software Foundation; either version 2 of the License, or
#     (at your option) any later version.
#
#     This program is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.
#
#     You should have received a copy of the GNU General Public License
#     along with this program; if not, write to the Free Software
#     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#     or see http://www.gnu.org/licenses/gpl.txt
##############################################################################
use strict;
use Getopt::Long;

# general global variables
my ($PROG,$USAGE,$OPTIONS,@times);

# command line variables
my $mail="";
my $verbose;

# command line switch
my %opts=
(
 "m|mail=s" => \$mail,
 "v|verbose" => \$verbose,
);
($PROG=$0) =~ s#.*/##;
SetUsage(\%opts,\$OPTIONS);

$USAGE="Usage: $PROG $OPTIONS";
die "$USAGE\n" unless GetOptions(%opts);

# program begins here
if ($ARGV[0]) {
    @times=localtime($ARGV[0]);
    printf "%02d/%02d/%04d %02d:%02d:%02d\n",
      $times[03],
	$times[04]+1,
	  $times[05]+1900,
	    $times[02],
	      $times[01],
	      $times[00];
}
############### end of main #############
sub SetUsage {
    my ($ropts,$rstr) = @_;
    foreach my $key (keys %$ropts) {
	if ($key =~ /\|/) {
	    $key=~ s!^.*\|!!;
	}
	if ($key =~ /=/) {
	    $key =~ s!=.*$! value!;
	}
	$key = '-' . $key;
	$$rstr .= '[' . $key . '] ';
    }
}
############### end of file #############