abuse.exp

Linux下ztelnet 的rz、sz源码

load_lib "lrzsz.exp"
if $tracelevel then {
    strace $tracelevel
}

# sz <-> sz
runabuse abuse-sz $objdir/../src/lsz "-q" \
	$objdir/../src/lsz "-q $z_test_files" "$z_test_files"
# rz <-> rz
runabuse abuse-rz $objdir/../src/lrz "-q" \
	$objdir/../src/lrz "-q" ""