¡@¡@¡@¡@¡@¡@¡@ $browser=="My S" ||¡@// unknown Ericsson devkit browser ?
$browser=="WAPJ" || // Virtual WAPJAG www.wapjag.de
$browser=="fetc" || // fetchpage.cgi Perl script from www.wapcab.de
$browser=="ALAV" || // yet another unknown UP based browser ?
¡@¡@¡@¡@¡@¡@¡@ $browser=="Wapa") // another unknown browser (Web based "Wapalyzer"?)
¡@¡@¡@¡@¡@¡@¡@ {
¡@¡@¡@¡@¡@¡@¡@ $br = "WML";
¡@¡@¡@¡@ }
¡@¡@¡@¡@ else {
¡@¡@¡@¡@¡@¡@ $br = "HTML";
¡@¡@¡@¡@ }
¡@¡@ }
¡@¡@ if($br == "WML") {
// Force the browser to load the WML file instead
¡@¡@¡@ header("302 Moved Temporarily");
¡@¡@¡@ header("Location: ".$wmlredirect);
¡@¡@¡@ exit;
¡@¡@ }
¡@¡@ else {
// Force the browser to load the HTML file instead
¡@¡@¡@ header("302 Moved Temporarily");
¡@¡@¡@ header("Location: ".$htmlredirect);
¡@¡@¡@ exit;
¡@¡@ }
¡@ ?>¡@
¡@¡@¡@×@Öv¡@¡@¥z¬½¡@£K¡@¡@ PHP¡@Úò¡@¡@¡@Ú¨¡@çS»ÔÖv¡@¾X£Otext/vnd.wap.vml MIMEºN¡@¡@¡@ÏÄ¡@Öv¡@¡@®ö¥NÍg¡@¡@¡@¤~¡@Ú¨¡@Öv¡@¡@WML¡@¾®³º¡@¡@ÏÄ¡@¤~¡@¡@¡@¡@âò¦w¡@¡@HTML¡@¾®³º¡@¡@ÏÄ£V¡@¡@WML¡@¾®³º¡@¡@¡@ID¡@¤~¡{¡@ðE¡@¡@¡@
¡@¡@¡@Úò»H¡@Robert Whitinger¡@robert@wapsight.com¡@¡@¡@Úò¡@£~¡@¡@Don Amaro¡@donamaro.concepcion@nl.unisys.com¡@Å÷£¢¡@¡@¡@¡@
¡@ºØ¡@¡@¡@¡@´fðE¡@¡@¡@¤~¡{âò¡@¡@»û¡@¡@¡@¡@££¡@¡@"WapIDE-SDK/2.0;(R320s(Arial))" ¡@¡@£~¡@¡@WapI¡²£¤¡@ÄøÖv¡@¡o¡@·tÚu¡@¡@Öv¡@Âé¡@¡@
¡@§²¡@¡@¡@¡@¡@¡@¡@¡@ASP£¤µz¢A¡@¡@¡@×@¥s¡@¡@Öv¡@/index.wml¡² ¡@¡@ ¡@/index.html¡² ¢Q¡@´fðE¡@MIMEºN¡@¡@¡@¡@¡@¡@¡@¡@¡@»û¡@¡@¡@£D¢Q¡@¡@¡@¡@§²¡@¡@¡@Á{´fðEçS»Ô¡@ã@¡@¥z³º¡@¡@¾X£O ¡@text/vnd.wap.wml MIMEºN¡@¡@ÆB££¡@¡@¡@¡@¡@¡@
<%
Response.Buffer = TRUE
¡@ Dim IsWap
¡@ httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT"))
¡@ if Instr(httpAccept,"wap") then
¡@ IsWap=1
¡@ Else Response.Redirect "/index.html" : Response.Flush : Response.End
End if
%>
<%Response.ContentType = "text/vnd.wap.wml"%><?xml version="1.0"?>
<%Response.Flush%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
¡@ <wml>
¡@ <card id="redirect">
¡@ <onevent type="onenterforward">
¡@ <go href="/index.wml"/>
¡@ </onevent>
¡@ <p>
¡@ <a href="/index.wml">enter</a>
¡@ </p>
¡@ </card>
¡@ </wml>
¡@ <%Response.Flush:Response.End%>
30. ¡@¡@¡@×@Ïî«ô¡@Öv£¤¡@¡@¡@¡@¾®³º¡@¡@ﯹ¡@§þ¡@
¡@¡@¡@¡@®öÚ¨HTTP_USER_AGENT§¨´U£¤¡@×@¡@££¡@è«Ò£~¡@Microsoft Internet ExplorerÏî«ô¡@¡@¡@íå¡@¡@¡@¡@HTTP_USER_AGENT¡@¡@¡@¡@Mozilla/4.0 ¡@compatible¡@MSIE 5.0¡@ Windows 98¡@¡@¡@¡@§²¡@Á¡Úx¡@£~¡@Nokia 7110Ïî«ô¡@¡@¡@íå¡@HTTP_USER_AGENTâò¡@Öv¡@Nokia7110/1.0¡@04.73¡@¡@½Ú¡@¡@¡@¡@×@¡@¡@¡@í~Öv¡@¡@ºN¡@¡@¡@
31. ¡@¡@¡@¡@¡@¡@¡@í~¡@¡@§þ¸¡Úò¬Þ¡@
¡@¡@¡@¡@®JïþçS»Ô¡@¡@¡@¡@¡@íå¡@WAP¡é£V§ÖÚu¡@ÖË¡@¡@¡@¡@§þ¸¡Úò¡@
32. ¡@¡@¡@¡@WML£~¡@¡@¡@¡@WAP¡@ºÙªÄ¡oÀ½¸¡¬Þ¡@
WAP¡@¡@§þ¡@¡@¡@¡@£~¡@Wireless Telephony Application Interface¡@WTAI¡@¡@
££¡@¡@
WMLScript: WTAPublic.MakeCall("9287787");¡@
¡@Öv§÷¡@¡@¡@WAP¡@ºÙ¡@¡@¡@¡@¡@¡@¡@¡@
33. ¡@Âé¡@WAP¡@ºÙ¡@§Ë¡@p½Ú¬Þ¡@££¡@¡@¡@§þ¸¡Úò¡@
¡@¡@£V¡@£v¡@¡@HTTP¡@á¡@¡@¡@Öv¡@¡@£V¡@¡@¡@ò~¡@£VçS»Ô¬é¡@¡@£¤¡@Ïü¡@á¡@¡@¹_WAP¡@ºÙ¡@¸¡Úò¡@¡@¡@Úu§Ë¡@¡@¡@¡@¡@¡@¡@£vä²£¡@Á{¡@¡@¡@¡@¡@¯dùá¡@«ô¡@¡@
»H¡@¡@¡@Ùy¡@¡@¡@âòÖvWAPçS»Ô¨{¡@ËHTTP¡@¥z³º¡@¡@¡@¡@¡@¡@¡@¡@WAPçS»Ô¡@çS»Ô¡@Phone.com¡@UP.LinkçS»ÔÖv¡@¡@µ{¡@¡@££¡@¡@¡@¡@¡@¡@HTTPò³¡@¡@¡@¡@¡@¡@¤~¡{¡@·t UP_X_SUBNO¡@¡@¡@¡@¡@¡@¡@§þ¸¡Úò¡@EricssonçS»Ô¡@¨{¡@¡@¡@»û¡@¡@ºÙ¡@¡@¡@¤~¡{¡@¡@Öv¡@¡@¡@¡@¡é£V¡@§þ¸¡Úò¡@
¡V£[WAP¡@ºÙ¡@HTTP¡@¥z³º¥s¡@¡@¡@URL¡@WAPçS»Ôâò¡@¡@á¡@¨{¡@ËHTTP¡@¥z³º¡@
¡@¡@¡@PHP¡@¡@³¡@¡@¡@çS»Ô¡@£¤¡@¡@£VHTTPò³¡@á¡@¡@¡@¡@£~¡@WML¡@¾®³ºªÄ¡o¥Nè¡@(http://wap.colorline.no/clientinfo.html)¡@£µ¡@¡@££¡@¡@¡@¡@¡@¡@¡@¡@UTL¡@¡@¡@¡@http://wap.colorline.no/demos.html
§÷¡@¡@³õ¡@Öv¡@¡@¡@£V¡@§¨¡@HTTPò³Ã¡¡@¡@§÷¡@¡@³õ¡@ÖvÅ÷¡@¡@¡@¡@¡@¡@
<?
¡@ header("Content-type: text/vnd.wap.wml");
¡@ echo("<?xml version=\"1.0\"?>\n");
echo("<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\"
\"http://www.wapforum.org/DTD/wml_1.1.xml\">\n\n");
¡@ echo("<!¡@Code written in Microsoft NOTEPAD.EXE \n");
?>
<wml>
¡@ <card id="init" title="Client Info">
¡@¡@¡@ <p>
¡@¡@¡@¡@¡@ <?
¡@¡@¡@¡@¡@¡@¡@ // First part ¡@ standard HTTP stuff
¡@¡@¡@¡@¡@¡@¡@ $headers = getallheaders();
¡@¡@¡@¡@¡@¡@¡@ while (list($header, $value) = each($headers)) {
¡@¡@¡@¡@¡@¡@¡@¡@¡@ echo strtoupper($header). ": ". $value. "<br/>\n";¡@¡@¡@¡@¡@¡@¡@
¡@¡@¡@¡@¡@¡@¡@ }
¡@¡@¡@¡@¡@¡@¡@ // Second part
// IP address of the client side
¡@¡@¡@¡@¡@¡@¡@ echo("REMOTE_ADDR: ".$REMOTE_ADDR. "<br/>\n");
// Port at the client side
¡@¡@¡@¡@¡@¡@¡@ echo("REMOTE_PORT: ".$REMOTE_PORT. "<br/>\n");
// Name of authenticated user
¡@¡@¡@¡@¡@¡@¡@ echo("REMOTE_USER: ".$REMOTE_USER. "<br/>\n");
// Gateway Interface type
¡@¡@¡@¡@¡@¡@¡@ echo("GATEWAY_INTERFACE: ".$GATEWAY_INTERFACE. "<br/>\n");
// Protocol used by the server
¡@¡@¡@¡@¡@¡@¡@ echo("SERVER_PROTOCOL: ".$SERVER_PROTOCOL. "<br/>\n");
// Request Method
¡@¡@¡@¡@¡@¡@¡@ echo("REQUEST_METHOD: ".$REQUEST_METHOD. "<br/>\n");
// Connection type
¡@¡@¡@¡@¡@¡@¡@ echo("HTTP_CONNECTION: ".$HTTP_CONNECTION. "<br/>\n");
// Host it connected via (proxy)
¡@¡@¡@¡@¡@¡@¡@ echo("HTTP_VIA: ".$HTTP_VIA. "<br/>\n");
¡@¡@¡@¡@¡@ ?>
¡@¡@¡@ </p>
¡@ </card>
</wml>¡@
Henrik Gemal ¡@gemal@dk.net¡@¡@£V¡@¡@¡@¡@¡@»H¡@WML¡@¡@£´BrowserSpy¡@£¤³¡@¡@¡@»Ô¡@HTTPò³¡@á¡@¡@¡@¥z³º¦O¬E¢Q¡@¡@¡@¡@¾®³º³æ³æ¡@£V»Ô¡@¡@¡@£´¡@©£ÀéÁ¡Úx¡@¡@¡@¾®http://wap.gemal.dk/
Werner Forkel Å÷¡@¡@¡@¡@Perl¡@¡@¡@¡@¡@¡@³¡@¡@§þ¸¡Úò¡@¡@ÏÄ£V¡@¡@¡@¡@¡@¡@¡@¡@¡@¥Nè¡@http://wap.colorline.no/wap-faq/apps/subnotest.wml¡@¡@§²¡@£O´É¡@¡@http://wap.colorline.no/demos.html.
¡@£v¡@¡@¡@À¬¡@¡@¡@çS»Ô¡@¡@ÏÄðE¥N裵¡@¡@çS»Ô¡@¡@¡@âò³¡@¡@¡@¡@§þ¸¡Úò¡@¡@¡@¡@§þ¸¡Úò¡@¡@¡@¡@ID¸¡£¤¡@í~¡@¡@¡@¡@¡@¡@Öv¡@¡@¡@í¡¡@§¨¡@¡@¡@¡@¡@¡@ 8¡@,¿ØÍg¡@§÷ 4¡@ 1 2 3 4 5 6 7 8 |
