#!/usr/athena/bin/perl # Zlocate Gateway # $Id: zl,v 1.5 2004/08/03 19:47:17 root Exp $ # Matthew Gray (mkgray@mit.edu) June '93 # Matthew Gray (mkgray@mit.edu) June '94 Converted to CGI # Rex Min (rmin@mit.edu) & Kevin Fu (fubob@mit.edu) Dec '99 HDML support $query=$ENV{'QUERY_STRING'}; ### Send HDML code to wireless phones with UP.Browser $hdml= ($ENV{'HTTP_USER_AGENT'} =~ /UP\.Link/); if ($hdml) { print("Content-Type: text/x-hdml\n\n"); } else { 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); if ($hdml) { ### add HDML link to finger machine $zl =~ s/^([^ \tH]+)/\1<\/a>/; } else { ### original, HTML link $zl =~ s/^([^ \tH]+)/\1<\/a>/; } $zl =~ s/>deathtongue/>deathtöngue/i; if ($hdml) { ############ HDML CODE ############ print <<"end_msg"; Zlocate $name
$zl end_msg } else { ########### HTML CODE ########## print <<"end_msg"; Zlocate $name

Zlocate $name

$zl

end_msg } } else{ if ($hdml) { print <<"end_msg"; ########## HDML CODE ############## User to locate: end_msg } else { ########## HTML CODE ######### 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;