0byt3m1n1

Path: /data/0/0/6/46/6861/user/7034/cgi-bin/tools/ [ Home ]
File: sig-validate
#!/usr/bin/perl -w

use lib 'lib';

use MT::App::Comments;

use MT;

$mt = new MT;

$ARGV[0] =~ s/^[(.*)]$/$1/;
$ARGV[1] =~ s/^[(.*)]$/$1/;

my ($email, $name, $nick, $ts, $token) = split '::', $ARGV[0];

my $validation = MT::App::Comments::_validate_signature($mt, 
                                                        $ARGV[1],
                                                        email => $email,
                                                        name => $name,
                                                        nick => $nick,
                                                        ts => $ts,
                                                        token => $token);
print "The signature with timestamp together are: ",
    $validation ? "VALID" : "invalid", "\n";