# charset="CP932"
# encoding="CP932"
# FTP Command を手輕に作ってしまえっ。

#!/usr/bin/env perl

print "Rename dir: ";
chomp($dir = <STDIN>);
$dir || exit;

$dir =~ s!/+$!!;
print 'MKD ', $dir, "\n";

for (<STDIN>)
{
	chomp;
	print <<"LIST";
RNFR $_
RNTO $dir/$_
LIST
}
__END__

#! MacJGAwk -f
# JGAwk Interface で
#	<dev:clipboard  >dev:clipboard
# する Droplet を作って置いて File name を
# Finder で Copy して使うと良いんぢゃないでしょうか.

BEGIN {
	dir = Ask("Rename dir:", "/");
	if (! dir) exit;
	sub("/*$", "", dir);
	print ("MKD", dir);
}

{
	print ("RNFR", $0 "\n"	\
	       "RNTO", dir "/" $0);
}