#!/usr/athena/bin/perl # Zlocate Gateway # $Id: zlocate,v 1.9 2004/07/29 19:24:44 root Exp $ # Matthew Gray (mkgray@mit.edu) June '93 # Matthew Gray (mkgray@mit.edu) June '94 Converted to CGI $query=$ENV{'QUERY_STRING'}; print("Content-Type: text/html\n\n"); $query =join(' ', @ARGV) if $ARGV[0]; print("\n"); &do_zlocate($query); sub do_zlocate { local($name, $zl, *ZL) = @_; if($name =~ /[A-Za-z0-9_+\s]{2,}/){ open(ZL, "-|") || (open(STDERR, ">&STDOUT"), exec '/usr/athena/bin/zlocate', '-d', split(/[\+\s]+/,$name)); while($_ = ) {$zl .= $_;} ($host, @rest) =split(' ', $zl); $zl =~ s/^([^ \tH]+)/\1<\/a>/; $zl =~ s/>deathtongue/>deathtöngue/i; print <<"end_msg"; Zlocate $name

Zlocate $name

$zl

end_msg } else{ print <<"end_msg"; Zlocate (information)

Zlocate Gateway

Zlocate is a program used by MIT's Zephyr message system. You can use it to find out where someone is logged in. However, if they wish to be hidden, it is not possible to locate them.

Click here to see if any of the Webmasters are on line.

In order to be locateable by the web zlocate gateway, you must set your zephyr exposure to be net-announced using the command

zctl set exposure net-visible

Note: This will make you realm-announced as well, so you will appear in the znols of people who have you in their .anyone file. For more information on exposure and other aspects of zephyr, check Inessential Zephyr.

end_msg } } 1;