home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / modperl.pl < prev    next >
Encoding:
Text File  |  2004-07-13  |  958 b   |  27 lines
  1. use CGI::Carp qw(fatalsToBrowser);
  2. use English;
  3.  
  4. $module = $ENV{'MOD_PERL'};
  5.  
  6. print "Content-Type: text/html\n\n";
  7.  
  8. print '<html>';
  9. print '<head>';
  10. print '<meta name="author" content="Kay Vogelgesang">';
  11. print '<link href="../xampp/xampp.css" rel="stylesheet" type="text/css">';
  12. print '</head>';
  13.  
  14. print '<body>';
  15. print " <p><h1>PERL $] + $module</h1><br>\n";
  16. print 'Directory for MOD PERL => [..] \xampp\htdocs\modperl => <a href=/perl/modperl.pl>http://localhost/perl/modperl.pl</a><br><br>';
  17. print 'Directory for PERL ASP => [..] \xampp\htdocs\perlasp =>  <a href=/asp/loop.asp>http://localhost/asp/loop.asp</a><br><br> <br> <br>';
  18. use DBI;
  19.  
  20. @drivers = DBI ->available_drivers;
  21. print "<b>Available drivers are:</b><p>";
  22. foreach (@drivers) {
  23. print "$_<br>";
  24. }
  25. print '<br> <br> <br>[<a href=/perl/testgd.pl>http://localhost/perl/testgd.pl</a>]<br><br> <br> <br>';
  26. print "</body>";
  27. print "</html>";