--- ftpmirror-1.96/Fan/FTP/FTP.pm-ooo	Thu Oct 28 19:32:19 1999
+++ ftpmirror-1.96/Fan/FTP/FTP.pm	Mon Jun  5 16:56:27 2000
@@ -297,6 +297,8 @@
 	my $passive = $self->{ftp_passive};
 	my $idle = $self->{ftp_idle};
 	my $dir = $self->{ftp_directory};
+	my $netid = $self->{netid};
+	my $netpass = $self->{netpass};
 
 	# check default values.
 	if ($user eq '') {
@@ -326,6 +328,20 @@
 		$self->quit;
 		return undef;
 	}
+# ------------------------------
+	if ( defined($netid) ) {
+	    unless ($self->putln("USER $netid")) {	    
+		carp("do_login: putln ".$self->error) if $LOG > 5;
+		$self->quit;
+		return undef;}
+	    # check response for USER command
+	    if ($self->getres == 331) {
+		unless ($self->putln("PASS $netpass")) {
+		    carp("do_login: putln ".$self->error) if $LOG > 5;
+		    $self->quit;
+		    return undef; }
+		$self->getres; } # to catch response code.
+	} # end $netid special
 
 	# try to send USER command
 	unless ($self->putln("USER $user")) {
--- ftpmirror-1.96/Fan/Fan.pm-ooo	Sun Nov 21 17:24:27 1999
+++ ftpmirror-1.96/Fan/Fan.pm	Mon Jun  5 16:33:43 2000
@@ -57,6 +57,8 @@
 	'todo'				=> '',
 	'load_config'			=> '',
 	'username'			=> '',
+	'netid'			=> '',
+	'netpass'			=> '',
 	'hostname'			=> '',
 	'create_directory'		=> 'BOOLEAN',
 	'alternate_package'		=> '',
@@ -720,6 +722,8 @@
 			ftp_user => $p->ftp_user,
 			ftp_pass => $p->ftp_pass,
 			ftp_directory => $p->remote_directory,
+			netid => $p->netid,
+			netpass => $p->netpass,
 		);
 		$param{ftp_gateway} = $p->ftp_gateway
 			if $p->ftp_gateway ne '';