Changeset 9145

Timestamp:

04/08/08 21:28:52 (5 years ago)

Author:

yappo

Message:

lang/perl/HTML-StickyQuery?-DoCoMoGUID: * post の時に disable_guid しても guid が出るバグ直した

• pod 書いた
  
• test 追加した
  

Location:

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/HTML/StickyQuery/DoCoMoGUID.pm (modified) (3 diffs)
• t/05_param.t (added)
• t/06_disable_guid.t (added)
• t/06_disable_guid_param.t (added)
• t/97_podspell.t (modified) (1 diff)

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/MANIFEST

@@ -27 +27 @@
 t/03_form_post.t
 t/04_mix.t
+t/05_param.t
+t/06_disable_guid.t
+t/06_disable_guid_param.t

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/lib/HTML/StickyQuery/DoCoMoGUID.pm

@@ -76 +76 @@
                 }
             }
-            $u->query_form(%original, guid => 'ON');
+            $u->query_form( %original, (exists $self->{param}->{guid} ? (guid => $self->{param}->{guid}) : ()) );
         } else {
             $u->query_form(%{$self->{param}});
@@ -126 +126 @@
   print $guid->sticky( scalarref => \$html );
 
+add sessionid
+
+  my $guid = HTML::StickyQuery::DoCoMoGUID->new;
+  print $guid->sticky(
+      scalarref => \$html,
+      param     => { sessionid => 'SID' },
+  );
+
+guid=ON を出さない
+
+  my $guid = HTML::StickyQuery::DoCoMoGUID->new;
+  print $guid->sticky(
+      scalarref    => \$html,
+      param        => { sessionid => 'SID' },
+      disable_guid => 1,
+  );
+
+FORM タグの時の INPUT タグを XHTML じゃ無くする
+
+  my $guid = HTML::StickyQuery::DoCoMoGUID->new;
+  print $guid->sticky(
+      scalarref    => \$html,
+      param        => { sessionid => 'SID' },
+      disable_guid => 1,
+      xhtml        => 0,
+  );
+
+
 =head1 DESCRIPTION
 
 主に HTML::StickyQuery を使って DoCoMo用の guid=ON をつけるフィルタリングをするよ。
+FORM タグがある場合には、 get method の時には input タグを追加して、 post method の時には action の中に guid=ON を追加します。
+
+sticky method への引数に param => { key => value } を追加すると HTML::StickyQuery へそのまま処理が引き継がれるよ。
+ただし、 FORM タグの場合は <input type="hidden" name="key" value="value" /> のような HTML が出力されます。
+
+どんな感じでフィルタリングされるかは t ディレクトリの中のテストコードを参考にしてくださいね。
 
 =head1 AUTHOR
@@ -136 +170 @@
 =head1 SEE ALSO
 
-L<HTML::StickyQuery>
+L<HTML::StickyQuery>, L<http://www.nttdocomo.co.jp/service/imode/make/content/ip/index.html#imodeid>
 
 =head1 REPOSITORY

lang/perl/HTML-StickyQuery-DoCoMoGUID/trunk/t/97_podspell.t

@@ -1 +1 @@
 use Test::More;
 eval q{ use Test::Spelling };
+plan skip_all => "日本語があると死ぬ";
 plan skip_all => "Test::Spelling is not installed." if $@;
 add_stopwords(map { split /[\s\:\-]/ } <DATA>);