You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

36 lines
686 B

--- ftp.pl~ Fri Jun 5 11:10:27 1998
+++ ftp.pl Sat Feb 3 13:59:12 2001
@@ -270,6 +270,13 @@
$SIG{ 'PIPE' } = "ftp'ftp__sighandler";
}
+# Setup a signal handler for user interrupts.
+sub ftp'set_user_signals
+{
+ $ftp_logger = @_;
+ $SIG{ 'INT' } = "ftp'ftp__sighandler";
+}
+
# &ftp'set_namemap( function to map outgoing name, function to map incoming )
sub ftp'set_namemap
{
@@ -581,6 +588,9 @@
return 0;
}
+ # shut down our end of the socket
+ &close_data_socket;
+
# read the close
#
$ret = &expect($timeout,
@@ -589,9 +599,6 @@
&service_closed();
$ret = 0;
}
-
- # shut down our end of the socket
- &close_data_socket;
if( ! $ret ){
return 0;