Test/test.html

   1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
   2 <HTML>
   3
   4 <HEAD>
   5
   6 <TITLE>Test</TITLE>
   7 <META CONTENT="text/testperl; CGI='$REMOTE_ADDR $REMOTE_HOST $CGI_Date'">
   8
   9
  10 </HEAD>
  11
  12 <BODY>
  13 <p><SCRIPT TYPE="text/ssperl">
  14 $REMOTE_HOST = SAFEqx("host $REMOTE_ADDR");
  15 $REMOTE_HOST =~ m!Name:\s+(\w+)!s;
  16 $REMOTE_HOST = $1 ? $1 : $REMOTE_ADDR;
  17 "";
  18 </script></p>
  19
  20 <h2>Start All</h2>
  21
  22 <p><SCRIPT TYPE="text/testperl">
  23 print "Perl says: Hello $REMOTE_HOST\n";"";
  24 </script></p>
  25
  26 <p><SCRIPT TYPE='text/sspython'>
  27 print "Python says: Hello", REMOTE_HOST, "\n";
  28 </script></p>
  29
  30 <p><SCRIPT TYPE='text/ssruby'>
  31 print "Ruby says: Hello ", @REMOTE_HOST, "\n";
  32 </script></p>
  33
  34 <p><%= print "Ruby Rails says: Hello ", @REMOTE_HOST, "\n"; %></p>
  35
  36 <p><SCRIPT TYPE='text/sstcl'>
  37 puts -nonewline "TCL says: Hello ";
  38 puts $REMOTE_HOST;
  39 </script></p>
  40
  41 <p><SCRIPT TYPE='text/sslisp'>
  42 (princ (concat "Lisp (rep) says: Hello " REMOTE_HOST) standard-output)
  43 </script></p>
  44
  45 <p><SCRIPT TYPE='text/xlispstat'>
  46 (print "Xlispstat says: Hello " *standard-output*)
  47 (print REMOTE_HOST *standard-output*)
  48 </script></p>
  49
  50 <p><SCRIPT TYPE='text/ssprolog'>
  51 write('Prolog says: Hello $REMOTE_HOST').
  52 </script></p>
  53
  54 <p><SCRIPT TYPE='text/ssm4'>
  55 M4 says: Hello " REMOTE_HOST
  56 </script></p>
  57
  58 <p><SCRIPT TYPE='text/bash'>
  59 echo "Bash says: Hello $REMOTE_HOST"
  60 </script></p>
  61
  62 <p><SCRIPT TYPE='text/sspraat'>
  63 printline Praat says: Hello $REMOTE_HOST
  64 </script></p>
  65
  66 <p><SCRIPT TYPE='text/ssawk'>
  67 print "Awk says: Hello ", REMOTE_HOST;
  68 </script></p>
  69
  70 <p><SCRIPT TYPE='text/ssr'>
  71 cat("R says: Hello ", REMOTE_HOST, "\n");
  72 </script></p>
  73
  74 <p><SCRIPT TYPE='text/ssrebol'>
  75 print append "REBOL says: Hello " REMOTE_HOST
  76 </script></p>
  77
  78 <p><SCRIPT TYPE='text/postgresql'>
  79 \\! echo 'PostgreSQL says: Hello $REMOTE_HOST'
  80 </script></p>
  81
  82 <SCRIPT TYPE='text/ssdisplay'>
  83 <PRE>
  84 <h3>Display $REMOTE_HOST ($REMOTE_ADDR) on screen on $CGI_Date</h3>
  85 </PRE>
  86 </script>
  87
  88
  89 <h2>Ready</h2>
  90
  91 </BODY>
  92
  93 </HTML>