펄을 php로좀 바꿔주세요
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use Data::Dumper;
use Verotel::Purchase qw(validate_signature);
my $secret = 'aaB';
my $q = CGI->new;
my $params = $q->Vars();
my $result = validate_signature($secret, %{$params});
if ($result == 1) {
print "OK";
} else {
print "Validation FAILURE!\n" . Dumper($params);
}
use strict;
use warnings;
use CGI;
use Data::Dumper;
use Verotel::Purchase qw(validate_signature);
my $secret = 'aaB';
my $q = CGI->new;
my $params = $q->Vars();
my $result = validate_signature($secret, %{$params});
if ($result == 1) {
print "OK";
} else {
print "Validation FAILURE!\n" . Dumper($params);
}
|
댓글을 작성하시려면 로그인이 필요합니다.
댓글 3개
없는 소스코드를 바꿀수는 없습니다.