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 < prev    next >
Encoding:
Text File  |  2002-10-01  |  449 b   |  21 lines
  1. #!/usr/bin/perl
  2. ###########################################
  3. # Mike Schilli, 2002 (m@perlmeister.com)
  4. ###########################################
  5. use warnings;
  6. use strict;
  7.  
  8. use Pod::HtmlTree qw(pod2htmltree);
  9. use File::Spec;
  10.  
  11. die "usage: $0 http_root" unless @ARGV;
  12.  
  13. pod2htmltree(@ARGV);
  14.  
  15. $ARGV[0] =~ s#^/+##;
  16.  
  17. print Pod::HtmlTree::banner(
  18.     "Please make sure http://" . 
  19.     File::Spec->catfile("localhost", $ARGV[0]) .
  20.     " points to ", `pwd`);
  21.