home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / pod2htmltree.bat < prev    next >
Encoding:
DOS Batch File  |  2003-11-25  |  887 b   |  37 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. if "%OS%" == "Windows_NT" goto WinNT
  4. perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. :WinNT
  7. perl -x -S %0 %*
  8. if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
  9. if %errorlevel% == 9009 echo You do not have Perl in your PATH.
  10. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
  11. goto endofperl
  12. @rem ';
  13. #!/usr/bin/perl
  14. #line 15
  15. ###########################################
  16. # Mike Schilli, 2002 (m@perlmeister.com)
  17. ###########################################
  18. use warnings;
  19. use strict;
  20.  
  21. use Pod::HtmlTree qw(pod2htmltree);
  22. use File::Spec;
  23.  
  24. die "usage: $0 http_root" unless @ARGV;
  25.  
  26. pod2htmltree(@ARGV);
  27.  
  28. $ARGV[0] =~ s#^/+##;
  29.  
  30. print Pod::HtmlTree::banner(
  31.     "Please make sure http://" . 
  32.     File::Spec->catfile("localhost", $ARGV[0]) .
  33.     " points to ", `pwd`);
  34.  
  35. __END__
  36. :endofperl
  37.