.key cmd/a,data/f
.bra {
.ket }

; Foozle-Import-Sript with replace
;
; cmd  : lha
; data : Archiv-Name from Foozle
;
;-------------

; Unpack archiv. Change Parameter here.
 {cmd} x {data}


IF WARN

  Echo {cmd} -> Error

ELSE
	move >nil: Inbound:t/#?.pkt Inbound:
	Echo "*NAREA:COMP.SYS.AMIGA.PROGRAMMER -> AREA:CSA.PROGRAMMER"
	replace d  Inbound:#?.pkt Inbound:t/ "AREA:COMP.SYS.AMIGA.PROGRAMMER" "AREA:CSA.PROGRAMMER"


	move >nil: Inbound:t/#?.pkt Inbound:
	echo "*NAREA:COMP.SYS.AMIGA.EMULATIONS -> AREA:CSA.EMULATIONS"
	replace d  Inbound:#?.pkt Inbound:t/ "AREA:COMP.SYS.AMIGA.EMULATIONS" "AREA:CSA.EMULATIONS"


	move >nil: Inbound:#?.pkt Inbound:t/

ENDIF