#/usr/local/bin/perl

#----------------------------------------------------------------------
# variables you should change:

$FTPhost = "ashpool.micro.umn.edu";
$FTPport = 70;

#----------------------------------------------------------------------

sub ftphack_main {
    local($_) = @_;
    
    if (/^$/) {
	&Greply("7Query a specific ftp site\t$Ggw\t$Ghost\t$Gport");
	&Greply(".");
	exit(0);
    }
    else {
	&Greply("1Link to ftp server $_\tftp:$_@/\t$FTPhost\t$FTPport");
	&Greply(".");
    }
    exit(0);

}




1; # for require