#!/usr/bin/perl -w
 ;#
 ;#
 ;#
 ;#

use strict;


my $fstamp = &ctime('f');
my $dstamp = &ctime('d');

print "$fstamp",.,".log\n";
print "[ $dstamp ]\n";

sub ctime{

    my ($stamp) = @_;
    my (
         %months,%time,@days,
         $end,$mname,$tstamp,$t
       );

    %months = (
                Jan => '01', Jul => '07',
                Feb => '02', Aug => '08',
                Mar => '03', Sep => '09',
                Apr => '04', Oct => '10',
                May => '05', Nov => '11',
                Jun => '06', Dec => '12'
              );                   

    @days = (
              'Sun', 'Mon',
              'Tue', 'Wed',
              'Thu', 'Fri',
              'Sat'
            );
 
    ( $time{sec},$time{min},
      $time{hour},$time{day},
      $time{month},$time{year},$time{day2} ) = (localtime(time))[0,1,2,3,4,5,6];
   
    foreach $t (sort(keys(%time))){
       next if ($t=~/year|day2/);

       if ($time{$t} < 10){
          $time{$t} = 0 . $time{$t};
       }
    }

    $time{year} += "1900";
   
    if ($time{hour} >= 12) {
       $end = "PM";

    } else { $end = "AM"; }

    if ($time{hour} == 0) { $time{hour} = 12; }
    if ($time{hour} > 12) { $time{hour} -= 12; }

    if ($stamp eq 'd'){
       %months = reverse(%months);     
       $mname = $months{++($time{month})};
   
       $tstamp .= "$days[$time{day2}], ";
       $tstamp .= "$time{day} $mname "; 
       $tstamp .= "$time{year} ";
       $tstamp .= "($time{hour}:$time{min}:$time{sec} $end)";
     
       return ("$tstamp");
    } 

    elsif ($stamp eq 'f'){
          ++($time{month});

          return ("$time{month}-$time{day}-$time{year}");
    }
}

;#
;# eNd
;#