Attachment #3248 for bug #18619

View | Details | Raw Unified | Return to bug 18619
Collapse All | Expand All

Lines 144-149 Link Here

(-)mc-orig/mc-4.6.2/lib/mc.ext.in (+5 lines)
144	Open=%cd %p#uarj	144	Open=%cd %p#uarj
145	View=%view{ascii} unarj l %f	145	View=%view{ascii} unarj l %f
146		146
		147	# cab
		148	regex/\.([cC][aA][bB])$
		149	Open=%cd %p#ucab
		150	View=%view{ascii} cabextract -l %f
		151
147	# ha	152	# ha
148	regex/\.([Hh][Aa])$	153	regex/\.([Hh][Aa])$
149	Open=%cd %p#uha	154	Open=%cd %p#uha

Lines 12-17 Link Here

(-)mc-orig/mc-4.6.2/vfs/extfs/extfs.ini (+3 lines)
12	# For arj usage you need a special patch to unarj (see unarj.diff)	12	# For arj usage you need a special patch to unarj (see unarj.diff)
13	uarj	13	uarj
14		14
		15	# For cab files
		16	ucab
		17
15	# ar is used for static libraries	18	# ar is used for static libraries
16	uar	19	uar
17		20

Lines 4-10 Link Here

(-)mc-orig/mc-4.6.2/vfs/extfs/Makefile.am (-1 / +2 lines)
4	EXTFS_MISC = README extfs.ini sfs.ini	4	EXTFS_MISC = README extfs.ini sfs.ini
5		5
6	# Scripts hat don't need adaptation to the local system	6	# Scripts hat don't need adaptation to the local system
7	EXTFS_CONST = bpp rpm trpm u7z	7	EXTFS_CONST = bpp rpm trpm u7z ucab
8		8
9	# Scripts that need adaptation to the local system - source files	9	# Scripts that need adaptation to the local system - source files
10	EXTFS_IN = \	10	EXTFS_IN = \
Lines 54-59 Link Here
54	uzip \	54	uzip \
55	uzoo	55	uzoo
56		56
		57
57	if USE_VFS	58	if USE_VFS
58	extfs_DATA = $(EXTFS_MISC)	59	extfs_DATA = $(EXTFS_MISC)
59	extfs_SCRIPTS = $(EXTFS_CONST) $(EXTFS_OUT)	60	extfs_SCRIPTS = $(EXTFS_CONST) $(EXTFS_OUT)

Lines 251-257 Link Here

(-)mc-orig/mc-4.6.2/vfs/extfs/Makefile.in (-1 / +1 lines)
251	EXTFS_MISC = README extfs.ini sfs.ini	251	EXTFS_MISC = README extfs.ini sfs.ini
252		252
253	# Scripts hat don't need adaptation to the local system	253	# Scripts hat don't need adaptation to the local system
254	EXTFS_CONST = bpp rpm trpm u7z	254	EXTFS_CONST = bpp rpm trpm u7z ucab
255		255
256	# Scripts that need adaptation to the local system - source files	256	# Scripts that need adaptation to the local system - source files
257	EXTFS_IN = \	257	EXTFS_IN = \




#! /bin/sh

CAB=cabextract

mccabfs_list ()
{
    $CAB -l "$1" | gawk -v uid=`id -un` -v gid=`id -gn` '
BEGIN { flag=0 }
/^-------/ { flag++; if (flag > 1) exit 0; next }
{
if (flag == 0) next
if (length($6) == 0) next
pr="-rw-r--r--"
split($3, a, ".")
split($4, b, ":")
printf "%s 1 %s %s %d %02d/%02d/%02d %02d:%02d  %s\n", pr, uid, gid, $1, a[2], a[1], a[3], b[1], b[2], $6
}'

}

mccabfs_copyout ()
{
    $CAB -F "$2" -p "$1" > "$3"
}

LC_ALL=C
export LC_ALL

umask 077

cmd="$1"

case "$cmd" in
  # Workaround for a bug in mc - directories must precede files to
  # avoid duplicate entries, so we sort output by filenames
  list)    mccabfs_list    "$2" ;;
  copyout) mccabfs_copyout "$2" "$3" "$4" ;;
  *) exit 1 ;;
esac
exit 0

Return to bug 18619

Line 0 Link Here

(-)mc-orig/mc-4.6.2/vfs/extfs/ucab (+40 lines)
	1	#! /bin/sh
	2
	3	CAB=cabextract
	4
	5	mccabfs_list ()
	6	{
	7	$CAB -l "$1" \| gawk -v uid=`id -un` -v gid=`id -gn` '
	8	BEGIN { flag=0 }
	9	/^-------/ { flag++; if (flag > 1) exit 0; next }
	10	{
	11	if (flag == 0) next
	12	if (length($6) == 0) next
	13	pr="-rw-r--r--"
	14	split($3, a, ".")
	15	split($4, b, ":")
	16	printf "%s 1 %s %s %d %02d/%02d/%02d %02d:%02d %s\n", pr, uid, gid, $1, a[2], a[1], a[3], b[1], b[2], $6
	17	}'
	18
	19	}
	20
	21	mccabfs_copyout ()
	22	{
	23	$CAB -F "$2" -p "$1" > "$3"
	24	}
	25
	26	LC_ALL=C
	27	export LC_ALL
	28
	29	umask 077
	30
	31	cmd="$1"
	32
	33	case "$cmd" in
	34	# Workaround for a bug in mc - directories must precede files to
	35	# avoid duplicate entries, so we sort output by filenames
	36	list) mccabfs_list "$2" ;;
	37	copyout) mccabfs_copyout "$2" "$3" "$4" ;;
	38	*) exit 1 ;;
	39	esac
	40	exit 0