| Perlpoint :: Sjabloon :: TT2 PERLPOINT :: Template :: TT2 is een bèta van een PERLPOINT-sjabloonprocessor voor sjabloon Toolkit 2-lay-outs. |
Download nu |
Perlpoint :: Sjabloon :: TT2 Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Jochen Stenzel
- Uitgever website:
- http://search.cpan.org/~jstenzel/Getopt-ArgvFile-1.11/ArgvFile.pm
Perlpoint :: Sjabloon :: TT2 Tags
Perlpoint :: Sjabloon :: TT2 Beschrijving
PERLPOINT :: Template :: TT2 is een bèta van een PercoPoint-sjabloonprocessor voor sjabloon Toolkit 2 lay-outs. PERLPOINT :: Template :: TT2 is een bèta van een PERLPOINT-sjabloonprocessor voor sjabloon Toolkit 2 Layouts.methodsnew () Parameters: Classhe Class Name.Returns: het nieuwe object.Example: # Startpagina $ resultaat. = "NNNN"; # begin koptekst $ resultaat. = "NNNN"; # Header-inhoud: dit is toegevoegd aan de traditionele lijst van sjabloonbestanden $ resultaat. = $ me -> _ processtemplate (join ('/', $ tdir, $ opties -> {$ toc? 'Header_toc_template': 'header_template'}) , $ toc? 1: $ params {pagina}); # Voltooi header $ resultaat. = "nnnn"; # begin lichaam $ resultaat. = "nnnn"; # Nu de inhoud van het lichaam: begin met het bovenste deel $ resultaat. = $ me -> _ processtemplate (join ('/', $ tdir, $ opties -> {$ toc? 'Top_toc_template': 'Top_template'}), $ TOC? 1: $ Params {pagina}); # Voeg indien nodig navigatie toe, indien nodig $. = $ me -> _ processtemplate (join ('/', $ tdir, $ opties -> {$ toc? 'Nav_toc_template': 'Nav_template'}), $ TOC? 1: $ Params {pagina}) Indien bestaat $ opties -> {$ toc? 'NAV_TOC_TEMPLATE': 'NAV_TEMPLATE'}; # Voeg gegevens toe (voor TOS, zorg ervoor dat u niet een standaard TOC toevoegt Als de Tree Applet wordt gebruikt # - dit zou meer generiek moeten zijn in het geval gebruikers andere methoden gebruiken ...) $ resultaat. = $ TOC? $ resultaat = ~ / _toc (): $ params {data}; # Bodemnavigatie toevoegen, indien nodig $ resultaat. = $ me -> _ processtemplate (join ('/', $ tdir, $ opties -> {$ toc? 'Nav_toc_template': 'Nav_template'}), $ TOC? 1: $ Params {pagina}) Indien bestaat $ opties -> {$ toc? 'NAV_TOC_TEMPLATE': 'NAV_TEMPLATE'}; # Ten slotte, voeg het onderste deel $ resultaat toe. = $ me -> _ processtemplate (join ('/', $ tdir, $ opties -> {$ toc? 'Bottom_toc_template': 'Bottom_template'}), $ TOC? 1: $ Params {pagina}); # Sluit het lichaam $ resultaat. = "nnnn"; # en voltooi het pagina $ resultaat. = "NNNN"; # Build File Name My $ FileBame = Join ('', "$ Opties -> {TargetDir} / $ -opties -> {Prefix} -", (Fileparse ($ sjabloon, QR (. +))) , "- $ params {pagina} $ opties -> {suffix}"); Waarschuw "= Page Supplement =====> $ Filenamen"; # Schrijf bestand open (suppfile, "> $ Bestandsnaam") of Die QQ ( kon geen uitvoerbestand openen "$ Bestandsnaam": $! N); Print suppfile $ string; sluiten (suppfile); }} Vereisten: · PERL-vereisten: · Perl
Perlpoint :: Sjabloon :: TT2 Gerelateerde software