


#!/usr/local/bin/perl

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

$Alexhost = "genie.lut.ac.uk";
$Alexport = 8001;

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

sub alexhack_main {
    local($_) = @_;
    
    if (/^$/) {
	&Greply("7Go to any point in the Alex filesystem\t$Ggw\t$Ghost\t$Gport");
	&Greply(".");
	exit(0);
    }
    else {
	$_ =~ s/^\/alex\///;
	&Greply("1Link to /alex/$_\t$_\t$Alexhost\t$Alexport");
	&Greply(".");
    }
    exit(0);

}




1; # for require
