home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / OS2WWW42 / SYS402.R4 / CGI-BIN / SHOWPERL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-01  |  655b  |  35 lines
  1. extproc perl -x
  2. #!perl
  3.  
  4. print "Content-type: text/html\n";
  5. print "\n";
  6.  
  7. @local = localtime();
  8. @gmt = gmtime();
  9. @cs = @gmt;
  10. $cs[2] = $cs[2] + 2;
  11.  
  12. if ($cs[2] > 23)
  13. {
  14.     $cs[2] = $cs[2] - 24;
  15. }
  16.  
  17. print "<html>";
  18. print "<table border=1>";
  19.  
  20. print "<tr>";
  21. print "<th colspan=3><h2>Time Zones</h2>";
  22. print "<tr>";
  23. print "<td><b>Local</b>";
  24. print "<td><b>GMT</b>";
  25. print "<td><b>CompuSource</b>";
  26.  
  27. print "<tr>";
  28. printf("<td>%02d:%02d:%02d\n", $local[2],    $local[1],    $local[0]);
  29. printf("<td>%02d:%02d:%02d\n", $gmt[2],    $gmt[1],        $gmt[0]);
  30. printf("<td>%02d:%02d:%02d\n", $cs[2],        $cs[1],        $cs[0]);
  31.  
  32. print "</table>";
  33. print "</html>";
  34.  
  35.