end0tknr's kipple - web写経開発

太宰府天満宮の狛犬って、妙にカワイイ

webアプリのサーバにPOST/GETされた内容を記録し、回帰テストに利用したい

↓こんな感じで十分かと

html + javascript

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<script src="//ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js">
</script>
<script>
function submit_method(method){

   var data = {
     scalar_1 : 'scalar_val',
     scalar_2 : 'これは文字列です',
     array_1  : [1,2,3,4,5],
     array_2  : ['あ','い','う','え','お'],
     hash_1   : {1:'A',2:'B'},
     hash_2   : {1:'あ',2:'い'}
   };
   
   var this_obj = this;
   $.ajax({url: 'hello.pl',
           type: method,
           data: data,
           success: function(ret_json,txt_status,xhr){
       alert('REQUEST DONE:'+ method);
     },
           error: function(ret_json,txt_status,xhr){
       alert('REQUEST ERROR');
     }
           });
   
}
</script>

</head>
<body>

  <button type="button"
	  onClick="submit_method('GET')"
	  >SUBMIT GET</button>
  <button type="button"
	  onClick="submit_method('POST')"
	  >SUBMIT POST</button>
</body>
</html>

サーバ (.pl)

#!/usr/local/bin/perl
use strict;
use CGI;
use Data::Dumper;

main();

sub main {
    #↓これをアプリケーションログに残すと、回帰テストに利用できるのでは?
    my $url = join('',$ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'});
    print STDERR "URL: $url\n";
    my $q = CGI->new();
    print STDERR Dumper($q);
}