# -*-perl-*-

$ftp_site = "";
$ftp_dir = "";
$ftp_configured = 0;
$ftp_series_file = "/tmp/series";
@ftp_spec = ();

require "/usr/lib/rhs/rpm/rpmftp.pl";

sub ftp_init {

    $ftp_configured = 0;

    if (! &configure_ftp) {
	return 0;
    }
    while (! &test_ftp) {
	if (! &rhs_menu("FTP Configuration",
<<EOM
>
FTP initialization failed.
>
The following error was returned:
>
$ftp_error
>
EOM
			, 60, 2,
			"Configure", "Reconfigure FTP",
			"Give Up", "Just forget it")) {
	    return 0;
	}
	if ($dialog_result eq "Give Up") {
	    return 0;
	}
	&configure_ftp;
    }

    $ftp_configured = 1;
    return 1;
}

sub test_ftp {

    &rhs_infobox("FTP Configuration",
<<EOM
>
Testing ftp://$ftp_site$ftp_dir
>
EOM
		 , 60);

    if (! &get_ftp_file("RedHat/base/series", $ftp_series_file)) {
	return 0;
    }

    return 1;
}

sub get_ftp_file {
    local ( $remote, $local ) = @_;

    return &ftp_file("ftp://$ftp_site$ftp_dir/$remote", $local);
}

sub get_ftp_dir {
    local ( $dir ) = @_;
    local ( @result );

    @result = &ftp_dir("ftp://$ftp_site$ftp_dir/$dir");
    return @result;
}

sub configure_ftp {

    if (! &rhs_menu("FTP Configuration",
<<EOM
Choose one of the following Official Red Hat Mirror sites.
EOM
		    , 75, 6,
		    "ftp://ftp.pht.com/pub/linux/redhat/ftp-install", "",
		    "ftp://ftp.caldera.com/pub/mirrors/redhat/ftp-install", "",
		    "ftp://ftp.cms.uncwil.edu/linux/redhat/ftp-install", "",
		    "ftp://ftp.wilmington.net/linux/redhat/ftp-install", "",
		    "ftp://ftp.lasermoon.co.uk/pub/distributions/RedHat/ftp-install", "",
		    "Other", ""
		    )) {
	return 0;
    }

    if ($dialog_result ne "Other") {
	$dialog_result =~ m|ftp://([^/]*)(.*)|;
	
	$ftp_site = $1;
	$ftp_dir = $2;
    } else {
	if (! &rhs_inputbox ( "FTP Configuration",
<<EOM
Enter the FTP host name.
EOM
			     , 60, $ftp_site)) {
	    return 0;
	}
	$ftp_site = $dialog_result;
	if (! &rhs_inputbox ( "FTP Configuration",
<<EOM
Enter the path to the Red Hat files on $ftp_site.
EOM
			     , 60, $ftp_dir)) {
	    return 0;
	}
	$ftp_dir = $dialog_result;
    }

    return 1;
}


###########
1;