Changeset 24722

Timestamp:

11/24/08 06:21:02 (4 years ago)

Author:

drry

Message:

• &unescape_html の正規表現を修正しました。
  
• ほか。
  

Location:

lang/perl/MENTA/trunk

Files:

• Changes (modified) (1 diff)
• MODULES (modified) (3 diffs)
• README (modified) (1 diff)
• TODO (modified) (1 diff)
• bin/install-lib.pl (modified) (5 diffs)
• lib/MENTA.pm (modified) (2 diffs)

lang/perl/MENTA/trunk/Changes

@@ -5 +5 @@
     - use CGI::ExceptionManager
     - Digest::SHA::PurePerl を追加。
-    -- hmac/sha1 の生成用
+    -- HMAC/SHA-1 の生成用
 
 0.04

lang/perl/MENTA/trunk/MODULES

@@ -2 +2 @@
 ========================
 
-ウェブアプリケーション開発に必要な CPAN モジュールを厳選して extlib/ の下に格納しています。
+Web アプリケーション開発に必要な CPAN モジュールを厳選して extlib/ の下に格納しています。
 
 CGI::Simple
@@ -45 +45 @@
 ---------------------
 
-CSRF 対策に HMAC を処理したり、SHA1 を生成したり、さまざまな場面で使われます。
+CSRF 対策に HMAC を処理したり、SHA-1 を生成したり、さまざまな場面で使われます。
 
 Email::MIME
@@ -60 +60 @@
 -----------
 
-SQL を直接 perl のソースコードに埋め込むことができます。id:kazuhooku さんの推薦により導入されました。
+SQL を直接 Perl のソースコードに埋め込むことができます。id:kazuhooku さんの推薦により導入されました。
 
 HTML::FillInForm

lang/perl/MENTA/trunk/README

@@ -5 +5 @@
 ----------------
 
-プログラミング初心者がロリポや XREA などで気軽に使えるウェブアプリケーションフレームワーク。
+プログラミング初心者がロリポや XREA などで気軽に使える Web アプリケーションフレームワーク。
 高速に動作し、CGI でも軽快に動作します。
 
 昔ながらの素の CGI と違い、MVC にもとづいた近代的なプログラミングが楽しめます。
 
-詳細は http://gp.ath.cx/menta/ をご覧ください
+詳細は http://gp.ath.cx/menta/ をご覧ください。

lang/perl/MENTA/trunk/TODO

@@ -17 +17 @@
     はてな認証をサポートする
     コンテナ志向について考える
+    counter プラグインで「SEEK_SET」が文字列(?)
+        1回目:     Argument "SEEK_SET" isn't numeric in seek at plugins/counter.pl line 15.
+        2回目以降: Argument "SEEK_SET" isn't numeric in seek at plugins/counter.pl line 15, <$fh> line 1.
 

lang/perl/MENTA/trunk/bin/install-lib.pl

@@ +1 @@
+#!/usr/bin/perl
 use strict;
 use warnings;
@@ -6 +7 @@
 use FindBin;
 use Cwd;
-use Data::Dumper;
+#use Data::Dumper;
 use Module::CoreList;
 use Getopt::Long;
@@ -24 +25 @@
     'HTML::Tagset',   # ditto
     'HTTP::Headers',  # ditto
-    'DBI',            # maybe you have this.
+    'DBI',            # ditto
     'WWW::MobileCarrierJP', # only for building
 );
@@ -72 +73 @@
     my $outlibdir = catfile($outdir, 'lib', 'perl5') . '/';
     print "sync $outlibdir => $dstdir\n";
-    system qw/rsync --verbose --recursive/,  $outlibdir, $dstdir;
+    system qw/rsync --verbose --recursive/, $outlibdir, $dstdir;
 }
 
@@ -80 +81 @@
     return unless should_install($pkg);
     $installed{$pkg}++;
-    local $CPAN::Config->{histfile}   = tempfile(CLEANUP => 1);
-    local $CPAN::Config->{makepl_arg} = "INSTALL_BASE=$outdir " . ($optional_args{$pkg} ? $optional_args{$pkg} : '');
+    local $CPAN::Config->{histfile}     = tempfile(CLEANUP => 1);
+    local $CPAN::Config->{makepl_arg}   = "INSTALL_BASE=$outdir " . ($optional_args{$pkg} ? $optional_args{$pkg} : '');
     local $CPAN::Config->{mbuildpl_arg} = "--install_base=$outdir";
 
-    my $mod = CPAN::Shell->expand("Module", $pkg) or die "cannot find $pkg";
+    my $mod = CPAN::Shell->expand("Module", $pkg) or die "cannot find $pkg\n";
     my $dist = $mod->distribution;
     $dist->make;

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

@@ -60 +60 @@
     s/&lt;/</g;
     s/&quot;/"/g;
-    s/&#39;/'/g;
+    s/&#0*39;/'/g;
     s/&amp;/&/g;
     return $_;
@@ -232 +232 @@
     my $ma = mobile_agent();
     return 'utf-8' if $ma->is_non_mobile;
-    return 'utf-8' if $ma->is_docomo && $ma->xhtml_compliant; # docomo の 3G 端末では utf8 の表示が保障されている
-    return 'utf-8' if $ma->is_softbank && $ma->is_type_3gc;   # softbank 3G の一部端末は cp932 だと絵文字を送ってこない不具合がある
-    return 'cp932';                                           # au は https のときに utf8 だと文字化ける場合がある
+    return 'utf-8' if $ma->is_docomo && $ma->xhtml_compliant; # docomo の 3G 端末では UTF-8 の表示が保障されている
+    return 'utf-8' if $ma->is_softbank && $ma->is_type_3gc;   # SoftBank 3G の一部端末は CP932 だと絵文字を送ってこない不具合がある
+    return 'cp932';                                           # au は HTTPS のときに UTF-8 だと文字化ける場合がある
 }
 
 # charset に設定する文字列を生成
 sub charset {
-    +{ 'utf-8' => 'utf-8', cp932 => 'Shift_JIS'}->{_mobile_encoding()};
+    +{ 'utf-8' => 'UTF-8', cp932 => 'Shift_JIS' }->{_mobile_encoding()};
 }