Changeset 25292 for lang/perl/MENTA

Timestamp:

11/29/08 01:44:58 (4 years ago)

Author:

drry

Message:

• ファイル消す！
  

Location:

lang/perl/MENTA/trunk

Files:

• MODULES (modified) (5 diffs)
• TODO (modified) (1 diff)
• extlib/i486-linux-gnu-thread-multi/auto/Object/Tiny/.packlist (deleted)
• lib/MENTA/Dispatch.pm (modified) (1 diff)

lang/perl/MENTA/trunk/MODULES

@@ -45 +45 @@
 ---------------------
 
-CSRF 対策に HMAC を処理したり、SHA-1 を生成したり、さまざまな場面で使われます。
+CSRF 対策に HMAC を処理したり、SHA-1 ハッシュを生成したり、さまざまな場面で使われます。
 
 Email::MIME
 -----------
 
-メールのパースをするのに使います。
+メールを処理するのに使います。
 
 Email::Send
@@ -65 +65 @@
 ----------------
 
-HTML の中から <form> を見つけ出して、その中にデータを埋め込みます。validator などで便利です。
+HTML の中から form 要素を見つけ出して、その中にデータを追加します。Validator などで便利です。
 
 HTML::TreeBuilder, HTML::TreeBuilder::XPath
@@ -95 +95 @@
 ----------------
 
-引数のチェックを行います。防衛的プログラミングを行うための一助として便利です
+引数のチェックを行います。防衛的プログラミングを行うための一助として便利です。
 
 Path::Class
@@ -105 +105 @@
 ---------
 
-CSV の処理にはこちらをご利用ください
+CSV の処理にはこちらをご利用ください。
 
 Text::Hatena
@@ -133 +133 @@
 ----
 
-YAML ファイルの読み込み/書き出しにご利用ください。
+YAML の読み込み/書き出しにご利用ください。
 
 Cache::Cache

lang/perl/MENTA/trunk/TODO

@@ -24 +24 @@
       - bookmark つくる
       - wiki つくる
-      - tinyurl
+      - TinyURL
         - see http://naoya.dyndns.org/~naoya/mt/archives/001682.html
     - Module::CoreList をやっぱりつかうのやめようかなー

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

@@ -69 +69 @@
 sub guess_mime_type {
     my $ext = shift;
-    $ext =~ s/.+\.(.+)$/$1/;
+    $ext =~ s/.+\.([^.]+)$/$1/;
 
     # TODO should be moved to other.
     my $mime_map = {
-        css => 'text/css',
-        js  => 'application/javascript',
-        jpg => 'image/jpeg',
-        gif => 'image/gif',
-        png => 'image/png',
-        txt => 'text/plain',
+        css  => 'text/css',
+        gif  => 'image/gif',
+        jpeg => 'image/jpeg',
+        jpg  => 'image/jpeg',
+        js   => 'application/javascript',
+        png  => 'image/png',
+        txt  => 'text/plain',
     };
     $mime_map->{$ext} || 'application/octet-stream';