*** mirror.pl.org	1999-01-29 22:27:47.000000000 +0000
--- mirror.pl	2003-01-30 00:22:35.000000000 +0000
***************
*** 3173,3183 ****
  				rmdir( "$cwd/$del" ) ||
  					&msg( $log, "rmdir $cwd/$del failed: $!\n" );
  			}
  			else {
  				&msg( $log, "delete DIR $del\n" );
! 				&ftp'delete( "$del" ) ||
  					&msg( $log, "ftp delete DIR $del failed\n" );
  			}
  		}
  		else {
  			if( $get_file ){
--- 3173,3183 ----
  				rmdir( "$cwd/$del" ) ||
  					&msg( $log, "rmdir $cwd/$del failed: $!\n" );
  			}
  			else {
  				&msg( $log, "delete DIR $del\n" );
! 				&ftp'deldir( "$del" ) ||
  					&msg( $log, "ftp delete DIR $del failed\n" );
  			}
  		}
  		else {
  			if( $get_file ){
*** ftp.pl.org	2003-01-28 23:02:52.000000000 +0000
--- ftp.pl	2003-01-30 00:20:16.000000000 +0000
***************
*** 921,934 ****
  	return $ret == 1;
  }
  
  sub deldir
  {
!     local( $fname ) = @_;
  
!     # not yet implemented
!     # RMD
  }
  
  # &ftp'put( local filename, remote filename, restart where left off )
  # Similar to get but sends file to the remote site.
  sub ftp'put
--- 921,951 ----
  	return $ret == 1;
  }
  
  sub deldir
  {
! 	local( $rem_fname ) = @_;
! 	local( $ret );
! 
! 	if( ! $service_open ){
! 		return 0;
! 	}
! 
! 	if( $mapunixout ){
! 		$rem_fname = eval "&$mapunixout( \$rem_fname, 'f' )";
! 	}
  
! 	&send( "RMD $rem_fname" );
! 
! 	$ret = &expect( $timeout, 
! 		2, 1 ); # Deleted $rem_fname
! 	if( $ret == 99 ){
! 		&service_closed();
! 		$ret = 0;
! 	}
! 
! 	return $ret == 1;
  }
  
  # &ftp'put( local filename, remote filename, restart where left off )
  # Similar to get but sends file to the remote site.
  sub ftp'put