Changeset 23559

Show
Ignore:
Timestamp:
11/13/08 19:40:17 (5 years ago)
Author:
drry
Message:
  • favicon.ico うっさい。
Location:
lang/perl/MENTA/trunk
Files:
9 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/MENTA/trunk/MANIFEST.SKIP

    r23260 r23559  
    1818^\.shipit$ 
    1919\.sw[po]$ 
     20out 

  • lang/perl/MENTA/trunk/NOTE

    r23531 r23559  
    66    Perl 5.8.0 以後をサポート対象とする 
    77    CGI 環境でも高速である 
    8     よくない習慣を身につけさせない(use strict 必須) 
     8    use strict を強制して悪い習慣を身につけさせない 
    99    Windows でも動く 
    1010    UTF-8 で書く 
    1111    use strict; use warnings; use utf8; を強制する 
    12     テストを書く習慣をつけさせる 
     12    テストを書く習慣を身につけさせる 
    1313    Perl::Critic しまくる 
    14     スタンドアローンサーバーでも動くようにしたい 
     14    スタンドアローンサーバーでも動く 
    1515 
    1616依存モジュール 
    … …  
    1818 
    1919    実行時、コンパイル時ともに標準添付モジュールのみを利用する 
     20    ただし、コンパイル時においては vendor/ 以下に小さなライブラリを保存してよい 
    2021 
    21     ただし、コンパイル時においては vendor/ 以下に小さなライブラリを保存してよい 
     22        HTTP::Server::Simple 
    2223 
    2324使い方 

  • lang/perl/MENTA/trunk/README

    r23336 r23559  
    4040    FTP でいちいちアップロードするのが面倒な場合に、環境によっては付属の HTTP サーバーで試すこともできます。 
    4141    % perl bin/cgi-server.pl 
    42     で実行することができます。実行すると URL が表示されますので、ブラウザでアクセスしてください。 
     42    を実行すると URL が表示されますので、ウェブブラウザでアクセスしてください。 
    4343 

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

    r23521 r23559  
    1313        kcatch_mode => 1, 
    1414        # 最大表示文字数 
    15         max_post_body => 1000000, 
     15        max_post_body => 1_024_000, 
    1616        # テンプレートファイルディレクトリへのパス 
    1717        tmpl_dir => 'tmpl/', 

  • lang/perl/MENTA/trunk/app/static/style-sites.css

    r23367 r23559  
    1 body { font-family: monospace; } 
    2 h1 { padding: 0.5em; } 
     1body { font-family: monospace } 
     2h1   { padding: 0.5em } 
     3 
     4table { 
     5    border-style: solid; 
     6    border-width: 1px 0; 
     7} 
     8 
     9th { 
     10    border-style: solid; 
     11    border-width: 0 0 1px; 
     12} 
     13 
     14td { 
     15    padding: .5em; 
     16    border-style: solid; 
     17    border-width: 0 1px; 
     18} 

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

    r23419 r23559  
    88$(function() { 
    99    var $this = $('h1'); 
    10     $this.css({background : 'orange'}).text($this.text().replace('MENTA', 'めんた')); 
     10    $this.css({background : 'orange'}) 
     11         .text($this.text().replace('MENTA', 'めんた')); 
    1112}); 
    1213//--></script> 

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

    r23419 r23559  
    66 
    77<h1><%= $title %></h1> 
    8 <table border="1"> 
    9 % for my $a (@{$_[0]}) { 
    10  <tr> 
    11   <td><%= $a->{id} %></td><td><%= $a->{name} %></td> 
    12  </tr> 
     8<table> 
     9 <caption>Users</caption> 
     10 <thead> 
     11  <tr><th>ID</th><th>name</th></tr> 
     12 </thead> 
     13 <tbody> 
     14% for my $c (@{$_[0]}) { 
     15  <tr><td><%= $c->{id} %></td><td><%= $c->{name} %></td></tr> 
    1316% } 
     17 <tbody> 
    1418</table> 

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

    r23526 r23559  
    5454                die "ファイルが開きません"; 
    5555            } 
     56        } elsif ($path =~ /^(?:crossdomain\.xml|favicon\.ico|robots\.txt)$/) { 
     57            print "status: 404\r\ncontent-type: text/plain\r\n\r\n"; 
    5658        } else { 
    5759            die "$path を処理する方法がわかりません"; 
    … …  
    6971            if ($config->{menta}->{kcatch_mode}) { 
    7072                $err = escape_html($err); 
    71                 qq{<!doctype html><title>HACKED BY MENTA INTERNAL SERVER ERROR!!!</title><body style="background: red; color: white; font-weight: bold"><marquee behavior="alternate" scrolldelay="66"><span style="font-size: xx-large; color: black">&#x2620;</span> <span style="color: green">500</span> Internal Server Error <span style="font-size: xx-large; color: black">&#x2620;</span></marquee><p><span style="color: blue">$err</span></p><p style="text-align: right; color: black"><strong>Regards, MENTA</strong></p>\n}; 
     73                qq{<!doctype html><title>INTERNAL SERVER ERROR!!! HACKED BY MENTA</title><body style="background: red; color: white; font-weight: bold"><marquee behavior="alternate" scrolldelay="66" style="text-transform: uppercase"><span style="font-size: xx-large; color: black">&#x2620;</span> <span style="color: green">500</span> Internal Server Error <span style="font-size: xx-large; color: black">&#x2620;</span></marquee><p><span style="color: blue">$err</span></p><p style="text-align: right; color: black"><strong>Regards,<br>MENTA</strong></p>\n}; 
    7274            } else { 
    7375                qq{<html><body><p style="color: red">500 Internal Server Error</p></body></html>\n}; 

  • lang/perl/MENTA/trunk/plugins/mail.pl

    r23361 r23559  
    3838} 
    3939 
     401;