#!/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) = split '::', $ARGV[0];

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