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 / tpage.bat < prev    next >
Encoding:
DOS Batch File  |  2004-03-20  |  4.0 KB  |  155 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 -w
  14. #line 15
  15. #========================================================================
  16. #
  17. # tpage
  18. #
  19. # DESCRIPTION
  20. #   Script for processing and rendering a template document using the 
  21. #   Perl Template Toolkit. 
  22. #
  23. # AUTHOR
  24. #   Andy Wardley   <abw@kfs.org>
  25. #
  26. # COPYRIGHT
  27. #   Copyright (C) 1996-2000 Andy Wardley.  All Rights Reserved.
  28. #   Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
  29. #
  30. #   This module is free software; you can redistribute it and/or
  31. #   modify it under the same terms as Perl itself.
  32. #
  33. #------------------------------------------------------------------------
  34. #
  35. # $Id: tpage.bat,v 1.3 2004/03/20 23:00:29 joker Exp $
  36. #
  37. #========================================================================
  38.  
  39. use strict;
  40. use Template;
  41.  
  42. # look for -h or --help option, print usage and exit
  43. if (grep /^--?h(elp)?/, @ARGV) {
  44.     print "usage: tpage file [ file [...] ]\n";
  45.     exit 0;
  46. }
  47. my $vars = { };
  48. my ($var, $val);
  49.  
  50. while ($ARGV[0] && $ARGV[0] =~ /^--?d(efine)?/) {
  51.     shift(@ARGV);
  52.     die "--define expect a 'variable=value' argument\n" 
  53.     unless defined ($var = shift(@ARGV));
  54.     ($var, $val) = split(/\s*=\s*/, $var, 2);
  55.     $vars->{ $var } = $val;
  56. }
  57.  
  58. # read from STDIN if no files specified
  59. push(@ARGV, '-') unless @ARGV;
  60.  
  61. # create a template processor 
  62. my $template = Template->new({
  63.     ABSOLUTE => 1,
  64.     RELATIVE => 1,
  65. });
  66.  
  67. # process each input file 
  68. foreach my $file (@ARGV) {
  69.     $file = \*STDIN if $file eq '-';
  70.     $template->process($file, $vars)
  71.     || die $template->error();
  72. }
  73.  
  74. __END__
  75.  
  76.  
  77. #------------------------------------------------------------------------
  78. # IMPORTANT NOTE
  79. #   This documentation is generated automatically from source
  80. #   templates.  Any changes you make here may be lost.
  81. # 
  82. #   The 'docsrc' documentation source bundle is available for download
  83. #   from http://www.template-toolkit.org/docs.html and contains all
  84. #   the source templates, XML files, scripts, etc., from which the
  85. #   documentation for the Template Toolkit is built.
  86. #------------------------------------------------------------------------
  87.  
  88. =head1 NAME
  89.  
  90. Template::Tools::tpage - Process templates from command line
  91.  
  92. =head1 USAGE
  93.  
  94.     tpage [ --define var=value ] file(s)
  95.  
  96. =head1 DESCRIPTION
  97.  
  98. The B<tpage> script is a simple wrapper around the Template Toolkit processor.
  99. Files specified by name on the command line are processed in turn by the 
  100. template processor and the resulting output is sent to STDOUT and can be 
  101. redirected accordingly.  e.g.
  102.  
  103.     tpage myfile > myfile.out
  104.     tpage header myfile footer > myfile.html
  105.  
  106. If no file names are specified on the command line then B<tpage> will read
  107. STDIN for input.
  108.  
  109. The C<--define> option can be used to set the values of template variables.
  110. e.g.
  111.  
  112.     tpage --define author="Andy Wardley" skeleton.pm > MyModule.pm
  113.  
  114. See L<Template> for general information about the Perl Template 
  115. Toolkit and the template language and features.
  116.  
  117. =head1 AUTHOR
  118.  
  119. Andy Wardley E<lt>abw@andywardley.comE<gt>
  120.  
  121. L<http://www.andywardley.com/|http://www.andywardley.com/>
  122.  
  123.  
  124.  
  125.  
  126. =head1 VERSION
  127.  
  128. 2.69, distributed as part of the
  129. Template Toolkit version 2.13, released on 30 January 2004.
  130.  
  131. =head1 COPYRIGHT
  132.  
  133.   Copyright (C) 1996-2004 Andy Wardley.  All Rights Reserved.
  134.   Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
  135.  
  136. This module is free software; you can redistribute it and/or
  137. modify it under the same terms as Perl itself.
  138.  
  139. =head1 SEE ALSO
  140.  
  141. L<ttree|Template::Tools::ttree>
  142.  
  143. =cut
  144.  
  145. # Local Variables:
  146. # mode: perl
  147. # perl-indent-level: 4
  148. # indent-tabs-mode: nil
  149. # End:
  150. #
  151. # vim: expandtab shiftwidth=4:
  152.  
  153. __END__
  154. :endofperl
  155.