mc problem - solved

[Dima <dima@eris.dev.null>]

Hi

1) Please disregard my previous posting with lots of Perl and stuff: 
I was falling asleep when I posted that.  I'm attaching a patch for
/usr/local/lib/mc/extfs/deb (or wherever it is on your box) below.
Note that the patch has Y2K bug, which leads me to

2) Is there a function in Perl to convert month from 2-digit MM to
3-letter Mon or do I have to roll my own?

---
Explanation: it seems that original scripts expects the date in 
`dpkg-deb -c` output to be in either MM DD HH:MM YY or 
Mon DD HH:MM YYYY format (not sure which) and it gets MM-DD-YYYY
instead.  That breaks split() and consequently the rest.
mc needs date converted to either MM-DD-YY or Mon DD YYYY.
In the patch below I simply subtract 1900 from YYYY to get YY, 
which is ugly.  What I really need is to convert MM to Mon --
hence the question above.

When that's done I'll send the patch to mc team, meanwhile you can
try the following hack.

--
Dimitri


--- deb.orig	Fri Jul  4 05:31:31 1997
+++ deb	Sun Jul  6 17:21:12 1997
@@ -34,8 +34,10 @@
 	{
 		while(<PIPEIN>)
 		{
-			($perm,$owgr,$size,$month,$day,$time,$year,$path,$arrow,$link,$link2)
+			($perm,$owgr,$size,$date,$time,$path,$arrow,$link,$link2)
 				= split;
+			($year,$month,$day) = split(/-/,$date);
+			$year -= 1900;
 			$owgr=~s!/! !;
 			next if $path=~m!/$!;
 			if($arrow eq 'link')
@@ -49,7 +51,7 @@
 				$arrow=' ' . $arrow;
 				$link= ' ' . $link;
 			}
-			print "$perm 1 $owgr $size $month $day $year $time CONTENTS/$path$arrow$link\n";
+			print "$perm 1 $owgr $size $month-$day-$year $time CONTENTS/$path$arrow$link\n";
 		}
 	}
 }