#!/usr/athena/bin/perl
# Top-level HDML File generator
# $Id: i.hdml,v 1.2 2000/02/26 16:46:07 fubob Exp $
# Rex Min Dec. 99
### 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");
}
if ($hdml) {
print <<"end_msg"; ########## HDML CODE ##############
MIT Web Demo
Zlocate
Zwrite
MIT Directory
(Finger/Ping)
(Sendmail)
MIT/SIPB PCS Demo
Welcome to our PCS Services Demo! These pages are under
development by Rex Min for SIPB. Our goal is to provide useful,
MIT-related information services to those in the MIT community who wield
Web-browsing cellular phones. Services in parens denote gateways
to non-MIT HDML services.
SendMail
(webcab.de)
To: [\$t]
Su: [\$s]
Bd: [\$b]
Cc: [\$c]
Fr: [\$f]
Clear
To:
Subject:
Body:
Cc:
From:
Finger/Ping
(hdmlworld)
Usr: [\$u]
Hst: [\$h]
Ping...
Finger...
Username:
Host name/IP:
end_msg
} else { ########## HTML CODE #########
print <<"end_msg";
Zlocate (information)
MIT/SIPB HDML Demo Services
You appear not to be using an HDML-capable browser. This is the
home page for HDML wireless phone services from www.mit.edu. If you
have a wireless phone which can read HDML web pages, please point the
phone's browser to this site, http://www.mit.edu/cgi/i.hdml,
and enjoy a sneak preview of what HDML can offer the MIT community!
This page is of very little use when viewed with a standard web browser.
When viewed on an appropriate wireless phone, this page offers the following services:
- Zlocating a user via the SIPB zlocate gateway
- Zwriting a user via the SIPB zephyr gateway
- Queries to the MIT directory, with an enhanced interface for phones
- Gateways to external services for sendmail, finger, and ping
Please feel free to send comments and suggestions to
webmaster\@mit.edu. Enjoy the demo!
end_msg
}
1;