Show
Ignore:
Timestamp:
11/17/08 23:29:07 (5 years ago)
Author:
tokuhirom
Message:

menta.cgi をルートにもってきた
template file の拡張子を *.mt に変更(NanoA にあわせた)

Location:
lang/perl/MENTA/trunk
Files:
2 modified
13 moved

Legend:

Unmodified
Added
Removed

  • lang/perl/MENTA/trunk/app/tmpl/bbs.mt

    r23973 r23986  
    11? my ($entries, $pager) = @_ 
    22? my $title = 'SQLite をつかった一行掲示板' 
    3 ?=r render_partial('header.html', $title) 
     3?=r render_partial('header.mt', $title) 
    44<h1><?= $title ?></h1> 
    55<form method="post" action="<?= uri_for('bbs_sqlite') ?>"> 
    … …  
    1313? } 
    1414</ul> 
    15 ?=r render_partial('pager.html', $pager, 'bbs_sqlite') 
    16 ?=r render_partial('footer.html') 
     15?=r render_partial('pager.mt', $pager, 'bbs_sqlite') 
     16?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/app/tmpl/counter.mt

    r23973 r23986  
    11? my $title = 'カウンターのデモ' 
    22? load_plugin('counter') 
    3 ?=r render_partial('header.html', $title) 
     3?=r render_partial('header.mt', $title) 
    44<h1><?= $title ?></h1> 
    55現在の訪問者数は: <?= counter_increment() ?>人です。 
    6 ?=r render_partial('footer.html') 
     6?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/app/tmpl/form.mt

    r23977 r23986  
    1 ?=r render_partial('header.html', 'フォームを使った例') 
     1?=r render_partial('header.mt', 'フォームを使った例') 
    22? my $r = param('r') || '' 
    33<h1>フォームを使った例</h1> 
    … …  
    99<h2>POST</h2> 
    1010<form method="post" action="<?= uri_for('form') ?>"><input type="text" name="r"><input type="submit" value="送信"></form> 
    11 ?=r render_partial('footer.html') 
     11?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/app/tmpl/hello.mt

    r23973 r23986  
    1 ?=r render_partial('header.html', "PHP style") 
     1?=r render_partial('header.mt', "PHP style") 
    22Hello to <?= param('user') ?> 
    3 ?=r render_partial('footer.html') 
     3?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/app/tmpl/index.mt

    r23973 r23986  
    11? my $title = config()->{application}->{title} 
    2 ?=r render_partial('header.html') 
     2?=r render_partial('header.mt') 
    33<script type="text/javascript" src="<?= docroot ?>static/jquery.js"></script> 
    44<script type="text/javascript"><!-- 
    … …  
    3333    <li><a href="<?= uri_for('hello', { user => 'kazuhooku' }) ?>">PHP っぽくそのままテンプレート表示しちゃう</a></li> 
    3434</ul> 
    35 ?=r render_partial('footer.html') 
     35?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/app/tmpl/mobile.mt

    r23958 r23986  
    11? my $title = 'ケータイ対応' 
    2 ?=r render_partial('header.html', $title) 
     2?=r render_partial('header.mt', $title) 
    33<h1><?= $title ?></h1> 
    44<p>あなたのブラウザは <?= mobile_carrier_longname ?> です</p> 
    5 ?=r render_partial('footer.html') 
     5?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/app/tmpl/users.mt

    r23973 r23986  
    11? my $title = 'DBI' 
    2 ?=r render_partial('header.html', $title) 
     2?=r render_partial('header.mt', $title) 
    33<h1><?= $title ?></h1> 
    44<table> 
    … …  
    1313 <tbody> 
    1414</table> 
    15 ?=r render_partial('footer.html') 
     15?=r render_partial('footer.mt') 

  • lang/perl/MENTA/trunk/bin/cgi-server.pl

    r23566 r23986  
    5858            waitpid($pid, POSIX::WNOHANG); 
    5959        } elsif ($pid == 0) { 
    60             chdir 'app'; 
    6160            my $out = bind_stdout(sub { 
    6261                package main; 

  • lang/perl/MENTA/trunk/lib/MENTA.pm

    r23982 r23986  
    121121                    } 
    122122                } else { 
    123                     my $tmplfname = ($MENTA::BUILT ? config->{menta}->{tmpl_cache_dir} : config->{menta}->{tmpl_dir}) . "/${mode}.html"; 
     123                    my $tmplfname = ($MENTA::BUILT ? config->{menta}->{tmpl_cache_dir} : config->{menta}->{tmpl_dir}) . "/${mode}.mt"; 
    124124                    if (-f $tmplfname) { 
    125                         render("${mode}.html"); 
     125                        render("${mode}.mt"); 
    126126                    } else { 
    127127                        die "「${mode}」というモードは存在しません。別コントローラファイルもありません(${controller})。テンプレートファイルもありません(${tmplfname})"; 
    … …  
    131131                die "「${mode}」というモードは存在しません。別コントローラ用ディレクトリは設定されていません"; 
    132132            } 
    133         } elsif ($path ne 'menta.cgi' && -f $path) { 
     133        } elsif ($path ne 'menta.cgi' && -f "app/$path") { 
     134            $path = "app/$path"; 
    134135            if (open my $fh, '<', $path) { 
    135136                printf "Content-Type: %s\r\n\r\n", guess_mime_type($path); 

  • lang/perl/MENTA/trunk/menta.cgi

    r23980 r23986  
    1111        # 最大表示文字数 
    1212        max_post_body => 1_024_000, 
    13         # コントローラーをいれるディレクトリ 
    14         controller_dir => 'controller/', 
    1513        # テンプレートファイルディレクトリへのパス 
    16         tmpl_dir => 'tmpl/', 
     14        tmpl_dir => 'app/tmpl/', 
     15        controller_dir => 'app/controller/', 
    1716        # テンプレートファイルのキャッシュディレクトリへのパス 
    18         tmpl_cache_dir => 'tmpl_cache/', 
     17        tmpl_cache_dir => 'app/tmpl_cache/', 
    1918    }, 
    2019    # あなたのアプリの設定 
    … …  
    2221        docroot => '', 
    2322        title => 'MENTA サンプルアプリ', 
    24         sqlitefile => 'data/data.sqlite', 
     23        sqlitefile => 'app/data/data.sqlite', 
    2524        sql => { 
    26             dsn => 'dbi:SQLite:data/data.sqlite', 
     25            dsn => 'dbi:SQLite:app/data/data.sqlite', 
    2726        }, 
    2827        counter => { 
    29             file => 'data/counter.txt' 
     28            file => 'app/data/counter.txt' 
    3029        }, 
    3130    },