projects
/
Digitiz.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d72ca1a
)
ftp cannot put full pathnames, cd to dir instead
author
ivan
<ivan>
Sat, 26 Aug 2000 07:26:43 +0000
(07:26 +0000)
committer
ivan
<ivan>
Sat, 26 Aug 2000 07:26:43 +0000
(07:26 +0000)
digitiz-xfer
patch
|
blob
|
history
diff --git
a/digitiz-xfer
b/digitiz-xfer
index
e5b79d3
..
3fb0caf
100755
(executable)
--- a/
digitiz-xfer
+++ b/
digitiz-xfer
@@
-223,12
+223,17
@@
sub docopy { #copies a file to the remote host
_logmsg("copying $source_directory/$file to ".
"$destination_host:$dest_file with $protocol");
_logmsg("copying $source_directory/$file to ".
"$destination_host:$dest_file with $protocol");
+ #so close
+ if ( $protocol eq 'ftp' ) { #so close
+ $xfer->cwd(dirname($dest_file));
+ $dest_file = basename($dest_file);
+ }
$xfer->put("$source_directory/$file", $dest_file);
my $localsize = -s "$source_directory/$file";
my $remotesize = $xfer->size($dest_file);
$xfer->put("$source_directory/$file", $dest_file);
my $localsize = -s "$source_directory/$file";
my $remotesize = $xfer->size($dest_file);
- if ( $localsize
== $remotesize
) {
+ if ( $localsize
&& ( $localsize == $remotesize )
) {
logsuccess($file);
archive($file);
} else {
logsuccess($file);
archive($file);
} else {