head	1.5;
access;
symbols
	RELEASE_8_3_0:1.5
	RELEASE_9_0_0:1.5
	RELEASE_7_4_0:1.3
	RELEASE_8_2_0:1.3
	RELEASE_6_EOL:1.3
	RELEASE_8_1_0:1.3
	RELEASE_7_3_0:1.3
	RELEASE_8_0_0:1.3
	RELEASE_7_2_0:1.3
	RELEASE_7_1_0:1.3
	RELEASE_6_4_0:1.3
	RELEASE_5_EOL:1.3
	RELEASE_7_0_0:1.3
	RELEASE_6_3_0:1.3
	PRE_XORG_7:1.3
	RELEASE_4_EOL:1.3
	RELEASE_6_2_0:1.3
	RELEASE_6_1_0:1.3
	RELEASE_5_5_0:1.3
	RELEASE_6_0_0:1.3
	RELEASE_5_4_0:1.3
	RELEASE_4_11_0:1.3
	RELEASE_5_3_0:1.3
	RELEASE_4_10_0:1.3
	RELEASE_5_2_1:1.3
	RELEASE_5_2_0:1.3
	RELEASE_4_9_0:1.3
	RELEASE_5_1_0:1.3
	RELEASE_4_8_0:1.3
	RELEASE_5_0_0:1.3
	RELEASE_4_7_0:1.3
	RELEASE_4_6_2:1.3
	RELEASE_4_6_1:1.3
	RELEASE_4_6_0:1.3
	RELEASE_5_0_DP1:1.3
	RELEASE_4_5_0:1.3
	RELEASE_4_4_0:1.3
	RELEASE_4_3_0:1.3
	RELEASE_4_2_0:1.3
	RELEASE_4_1_1:1.3
	RELEASE_4_1_0:1.3
	RELEASE_3_5_0:1.3
	RELEASE_4_0_0:1.3
	RELEASE_3_4_0:1.3
	RELEASE_3_3_0:1.3
	RELEASE_3_2_0:1.2
	RELEASE_3_1_0:1.2
	RELEASE_2_2_8:1.2
	RELEASE_3_0_0:1.2
	RELEASE_2_2_7:1.2
	RELEASE_2_2_6:1.1;
locks; strict;
comment	@# @;


1.5
date	2011.07.18.07.03.14;	author cy;	state Exp;
branches;
next	1.4;

1.4
date	2011.05.02.09.11.32;	author bapt;	state dead;
branches;
next	1.3;

1.3
date	99.09.10.11.45.21;	author torstenb;	state Exp;
branches;
next	1.2;

1.2
date	98.06.08.12.41.14;	author torstenb;	state Exp;
branches;
next	1.1;

1.1
date	97.11.25.08.23.52;	author torstenb;	state Exp;
branches;
next	;


desc
@@


1.5
log
@Resurrect this port. Adjust master sites and assume maintainership.
@
text
@*** ftp.pl.orig	Fri Jun  5 11:10:27 1998
--- ftp.pl	Fri Sep 10 10:40:50 1999
***************
*** 150,156 ****
  # (Normally set elsewhere - this is just a sensible default.)
  # Is expected to take count and code as arguments and prompt
  # for the secret key  with 'password:' on stdout and then print the password.
! $ftp'keygen_prog = '/usr/local/bin/key';
  
  # Uncomment to turn on lots of debugging.
  # &debug( 10 );
--- 150,156 ----
  # (Normally set elsewhere - this is just a sensible default.)
  # Is expected to take count and code as arguments and prompt
  # for the secret key  with 'password:' on stdout and then print the password.
! $ftp'keygen_prog = '/usr/bin/key';
  
  # Uncomment to turn on lots of debugging.
  # &debug( 10 );
***************
*** 486,492 ****
  		return 0;
  	}
  	if( $ret == 1 ) {
! 		if( $response =~ m/^227 Entering Passive Mode \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){
  			$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
  			$newport = $5 * 256 + $6;
  		}
--- 486,492 ----
  		return 0;
  	}
  	if( $ret == 1 ) {
! 		if( $response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){
  			$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
  			$newport = $5 * 256 + $6;
  		}
@


1.4
log
@Remove unmaintained expired ports from ftp

2011-05-01 ftp/axyftp: Upstream disapear and distfile is no more available
2011-05-01 ftp/emacs-wget: Upstream disapear and distfile is no more available
2011-05-01 ftp/llnlxdir: Upstream disapear and distfile is no more available
2011-05-01 ftp/llnlxftp: Upstream disapear and distfile is no more available
2011-05-01 ftp/mirror: Upstream disapear and distfile is no more available
2011-05-01 ftp/moftpd: Upstream disapear and distfile is no more available
2011-05-01 ftp/wu-ftpd: Upstream disapear and distfile is no more available
2011-05-01 ftp/xrmftp: Upstream disapear and distfile is no more available
2011-05-01 ftp/yale-tftpd: Upstream disapear and distfile is no more available
@
text
@@


1.3
log
@Fix some paths
@
text
@@


1.2
log
@- Upgrade to 2.9
- Use perl5
@
text
@d1 19
a19 2
*** ftp.pl.orig	Mon Jun  8 14:11:39 1998
--- ftp.pl	Mon Jun  8 14:11:42 1998
@


1.1
log
@fix passive mode ftp

PR:		3955
Submitted by:	Ernest Hua <hua@@chromatic.com>
@
text
@d1 2
a2 2
*** ftp.pl.orig	Tue May 23 23:53:25 1995
--- ftp.pl	Tue Nov 25 09:20:17 1997
d4 1
a4 1
*** 430,436 ****
d8 5
a12 5
! 		$response =~ m/^227 Entering Passive Mode \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)$/;
  		$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
  		$newport = $5 * 256 + $6;
  	}
--- 430,436 ----
d16 4
a19 4
! 		$response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)$/;
  		$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
  		$newport = $5 * 256 + $6;
  	}
@
