CGI::SessionがGET呼び出しでは動作するが、POST呼び出しで動作しない

すべての返信

• 

  

  0

  サインインして投票

  追加情報
  
  下記環境でも同様でした。
  Perl：ActivePerl 5.24.1.2402
  
  また、コードのDirectoryを下記に修正しても症状は変わりませんでした。
  
  'session' #元のコード
  './session'
  'c:/cgi-local/sessin' #フルパス
  
  

  2017年5月9日 5:31
• 

  

  0

  サインインして投票

  さらに追加情報として、関連しそうなIISの現在の設定です。
  
  ■サイトの詳細設定
  ・バインド：https:*:443:
  ・物理パス資格情報のログオンの種類：ClearText
  ・有効化されたプリロード：False
  ・接続
  　- 最大 URL セグメント：32
  　- 最大帯域幅（バイト/秒）：4294967295 (デフォルト)
  　- 最大同時接続数：4294967295 (デフォルト)
  　- 接続のタイムアウト(秒)：1200
  ・有効なプロトコル：http
  ■CGI
  ・偽装ユーザー：True
  ・タイムアウト：00:15:00
  ・起動ごとに新しいコンソールを使用する：False
  ■SSL設定
  ・SSLが必要：チェックあり
  ・クライアント証明書：無視
  ■ハンドラーマッピング
  （CgiModule）
  要求の制限：
  ・要求のマップ左記が次の場合のみハンドラーを呼び出す：チェックあり
  ・ファイルまたはフォルダーを選択
  ・すべての動詞を選択
  ・スクリプトを選択
  ■認証
  ・ASP.NET 偽装：無効
  ・Windows 認証：無効
  ・フォーム認証：無効
  ・基本認証：無効
  ・匿名認証：有効
  ■要求フィルター
  ・特に追加要素なし
  
  修正：

  タイムアウト時間の値が実際に指定している値と異なっていました。

  00:00:00ではなく、00:15:00(デフォルト)でした。

  • 編集済み 千住水 2017年5月11日 2:12

  2017年5月9日 6:14
• 

  

  0

  サインインして投票

  すみません、現象が発生原因になるコードが間違っていました。
  正しくは、POSTで呼び出したからではなく、CGI::Session->newより前に
  POSTのデータを読み出すため、STDINからreadした場合に発生していました。
  
  つまり、現象が発生するコードは、下記になります。
  
  #!c:/strawberry/perl/bin/perl
  use CGI::Session;
  $chdir = $0;
  $chdir =~ s/[^\\]*$//;
  chdir($chdir);
  read( STDIN, $PostData, $ENV{'CONTENT_LENGTH'} );
  $_SESSION=CGI::Session->new(undef,undef,{Directory=>'session'}); # POSTでは、ここで処理が止まる
  print "Content-type: text/html \n\nHello";
  exit;
  
  これについて、現象の発生原因(readとCGI::Sessionの因果関係)または
  改善策をご存知の方はいらっしゃらないでしょうか。
  尚、Session開始前にPOSTで渡されるIDとパスワードのチェックをしたいため、
  上記の順番で処理を行いたいと考えています。
  

  2017年5月10日 10:04
• 

  

  0

  サインインして投票

  単純な質問なんですが、readから制御が返った時、$PostData にはデータが入っているんでしょうか？
  readの戻り値は $ENV{'CONTENT_LENGTH'} になっているんでしょうか？

  どうも read でタイムアウトしている感じに見受けられるのですが・・・。
  IISでCGIを扱ったことはないので詳しくは分かりませんが、ちゃんと標準入力にリダイレクトされているんでしょうか？？？

  追記：

  ↓なので、コンソールなしで動いちゃっているんじゃないでしょうか？

  CreateCGIWithNewConsole 起動ごとに新しいコンソールを使用する
  
  このプロパティは、CGI アプリケーションがそれ自体のコンソール内で動作するかどうかを示します。この値が TRUE の場合、各CGI アプリケーションは起動時に新しいコンソールを作成します。この値が FALSE の場合、CGI アプリケーションはコンソールなしで動作することを示します。

  
  

  • 編集済み nk8 2017年5月10日 14:29
  • 回答としてマーク 千住水 2017年5月11日 7:31

  2017年5月10日 11:57
• 

  

  0

  サインインして投票

  knakagawa1971さん
  
  ご返信ありがとうございます。
  
  $PostDataには、読み込んだデータが入っており、
  readの戻り値と、$ENV{'CONTENT_LENGTH'}は等しく、
  $PostDataに格納した文字列長と等しい値でした。
  
  readのみ確認したコードは、下記の通りです。
  
  #!c:/strawberry/perl/bin/perl
  use CGI::Session;
  $chdir = $0;
  $chdir =~ s/[^\\]*$//;
  chdir($chdir);
  $ret = read( STDIN, $PostData, $ENV{'CONTENT_LENGTH'} );
  #$_SESSION=CGI::Session->new(undef,undef,{Directory=>'session'}); # POSTでは、ここで処理が止まる
  print "Content-type: text/html \n\nHello ";
  $contentlen = $ENV{'CONTENT_LENGTH'};
  print "PostData = '$PostData' ";
  print "Content Length = $contentlen ";
  print "Read Return = $ret ";
  exit;
  
  > CreateCGIWithNewConsole 起動ごとに新しいコンソールを使用する
  については、Trueにしてみましたが、残念ながら症状は変わりませんでした。
  この場合でも$PostDataの取得状況は上記と同様で、正常に取得できておりました。
  

  追記：
  
  状況をもう少し判別しやすくするため
  コードを下記に修正しました。
  
  #!c:/strawberry/perl/bin/perl
  use CGI::Session;
  $chdir = $0;
  $chdir =~ s/[^\\]*$//;
  chdir($chdir);
  $ret = read( STDIN, $PostData, $ENV{'CONTENT_LENGTH'} );
  print "Content-type: text/html \n\nHello ";
  $contentlen = $ENV{'CONTENT_LENGTH'};
  print "PostData = '$PostData' ";
  print "Content Length = $contentlen ";
  print "Read Return = $ret ";
  $_SESSION=CGI::Session->new(undef,undef,{Directory=>'session'}); # POSTでは、ここで処理が止まる
  if($_SESSION) {
      print "Session Create Succeeded! ";
  } else {
      print "Session Create Failed! ";
  }
  exit;
  
  

  • 編集済み 千住水 2017年5月11日 2:10

  2017年5月11日 1:48
• 

  

  0

  サインインして投票

  違いましたか。

  GETメソッドで正常でしたら スクリプト自体に問題はないと思います。
  ちょっと検索してみたら、同じようなIIS CGI/PerlでPOSTメソッドの時、405エラーが出る、というような記事もありますが、今回とは状況が違うみたいですね。

  的外れな返信ですみませんでした。

  2017年5月11日 4:18
• 

  

  0

  サインインして投票

  いえ、ありがとうございます。
  
  さらに試しているところとしては、同じPOST呼び出しでも
  渡すデータ長が0であれば動作しているようです。
  つまり、現状の現象としては、
  「readでSTDINから1文字以上の文字列を読み出した場合、
  　次に実行するCGI::Session->newで停止する」
  となっています。
  

  2017年5月11日 5:08
• 

  

  0

  サインインして投票

  解決できました。
  
  現象との因果関係までは分かりませんが、CGI::Session->newで第二引数であるSIDに
  undefではなく空文字列を指定する事でundefと同様の動作ができるようになりました。
  
  $_SESSION=CGI::Session->new(undef,undef,{Directory=>'session'});
  ↓
  $sid = "";
  $_SESSION=CGI::Session->new(undef,$sid,{Directory=>'session'});
  
  
  以上の事をまとめると、下記になります。
  
  【現象】
  readでSTDINから1文字以上の文字列を読み出した場合、
  次に実行するCGI::Session->newで第二引数であるSIDに
  undefを入れると動作が止まる。
  
  【対策】
  CGI::Session->newの第二引数には、空文字列を指定する。
  
  【サンプルコード】
  #!c:/strawberry/perl/bin/perl
  use CGI::Session;
  $chdir = $0;
  $chdir =~ s/[^\\]*$//;
  chdir($chdir);
  $ret = read( STDIN, $PostData, $ENV{'CONTENT_LENGTH'} );
  print "Content-type: text/html \n\nHello ";
  $sid = "";
  $_SESSION=CGI::Session->new(undef,$sid,{Directory=>'session'});
  if($_SESSION) {
      $sid = $_SESSION->id();
      print "Session Create Succeeded! SID = $sid ";
  } else {
      print "Session Create Failed! ";
  }
  exit;
  
  
  
  knakagawa1971さん、回答協力ありがとうございました。
  
  

  • 回答としてマーク 千住水 2017年5月11日 7:31

  2017年5月11日 7:29