home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / admin / logview.cgi < prev    next >
Encoding:
Text File  |  2004-07-05  |  1.6 KB  |  56 lines
  1. #!perl/bin/perl.exe
  2.  
  3. require "../inc/config.inc.cgi";
  4. require "../lang/$lang/logview.cgi";
  5.  
  6.  
  7. print "Content-type: text/html\n\n";
  8. print "<html><head><link rel=stylesheet href=../css/style.css><title></title><META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\"><META HTTP-EQUIV=\"Expires\" CONTENT=\"-1\"></head>\n"; 
  9. print "<body>\n";
  10. print "<hr>";
  11.  
  12. open (LOG1, "$log1")|| die "$log1 $cant_open\n";
  13. @log1 = <LOG1>;
  14. close (LOG1);
  15. @log1=reverse(@log1);
  16. splice @log1, 50;
  17. print "<b><center><span class=tdinfotitle>$err_log$tsw_env</span></center></b><br>\n";
  18. foreach $log1 (@log1) {
  19. print "<span class=tdinfored>$log1</span><br>\n";
  20. }
  21. print "<hr>";
  22.  
  23. open (LOG2, "$log2")|| die "$log2 $cant_open\n";
  24. @log2 = <LOG2>;
  25. close (LOG2);
  26. @log2=reverse(@log2);
  27. splice @log2, 50;
  28. print "<b><center><span class=tdinfotitle>$err_log$tsw_env_ssl</span></center></b><br>\n";
  29. foreach $log2 (@log2) {
  30. print "<span class=tdinfored>$log2</span><br>\n";
  31. }
  32. print "<hr>";
  33.  
  34. open (LOG3, "$log3")|| die "$log3 $cant_open\n";
  35. @log3 = <LOG3>;
  36. close (LOG3);
  37. @log3=reverse(@log3);
  38. splice @log3, 50;
  39. print "<b><center><span class=tdinfotitle>$acc_log$tsw_env</span></center></b><br>\n";
  40. foreach $log3 (@log3) {
  41. print "<span class=tdinfo>$log3</span><br>\n";
  42. }
  43. print "<hr>";
  44.  
  45. open (LOG4, "$log4")|| die "$log4 $cant_open\n";
  46. @log4 = <LOG4>;
  47. close (LOG4);
  48. @log4=reverse(@log4);
  49. splice @log4, 50;
  50. print "<b><center><span class=tdinfotitle>$acc_log$tsw_env_ssl</span></center></b><br>\n";
  51. foreach $log4 (@log4) {
  52. print "<span class=tdinfo>$log4</span><br>\n";
  53. }
  54. print "<hr>";
  55. print "</body></html>\n";
  56. exit;