#!/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: inet-up-fmt,v 1.4 1998/02/26 18:16:12 ejb Exp $
# $Source: /home/ejb/scripts/apex/RCS/inet-up-fmt,v $
# $Author: ejb $
#
# Given filenames, output information so that it can fit in this
# format (removing leading # ).
#
#
# Filename        Bytes       Date        Time        Recipient
# ========        =====       ====        ====        =========

require 5.002;
use strict;

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

for (@ARGV)
{
    my $name = $_;
    my @stat = stat($name);
    if (@stat)
    {
	my $size = $stat[7];
	my $mtime = $stat[9];
	my ($min, $hour, $mday, $mon, $year) = (localtime($mtime))[1..5];
	$mon++;
	$year -= 100 if $year > 100;
	my $ap = "a";
	if ($hour == 0)
	{
	    $hour = 12;
	}
	elsif ($hour >= 12)
	{
	    $ap = "p";
	    if ($hour > 12)
	    {
		$hour -= 12;
	    }
	}
	my $date = sprintf("%d-%d-%02d", $mon, $mday, $year);
	my $time = sprintf("%2d:%02d%s", $hour, $min, $ap);
	my $t = "";
	while ($size =~ s/(\d)(\d{3})$/$1/)
	{
	    $t = $2 . "," . $t;
	}
	$t = $size . "," . $t;
	$t =~ s/,$//;
	$size = $t;

	$name = sprintf("   %-12s", $name);
	$size = sprintf("%9s", $size);
	$date = sprintf("%-7s", $date);
	$time = sprintf("%-8s", $time);
	my $pad = " " x 5;

	print "$date $time $size $name $pad\n";
    }
}