test script
This commit is contained in:
parent
e0657a82e0
commit
4f7a29de5e
|
@ -0,0 +1,39 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use IPC::Run qw( run );
|
||||
use ESL;
|
||||
|
||||
if(!$ARGV[0]) {
|
||||
print "$0 [licensecode]\n";
|
||||
exit 0;
|
||||
}
|
||||
|
||||
my $code = $ARGV[0];
|
||||
|
||||
chdir("/data/tmp");
|
||||
|
||||
my $UNZIP;
|
||||
$UNZIP = "/usr/bin/unzip" if !(-x $UNZIP);
|
||||
$UNZIP = "/usr/local/bin/unzip" if !(-x $UNZIP);
|
||||
|
||||
my $in = "$code\n\nY\n";
|
||||
my $err;
|
||||
my $out;
|
||||
|
||||
my $activator = run ( ['/usr/bin/validator'],
|
||||
'<pty<', \$in, '>pty>', \$output );
|
||||
|
||||
if($output =~ m/Success/) {
|
||||
if(-f "licences.zip") {
|
||||
run( [ $UNZIP, '-o', "-d", "/etc/freeswitch", 'licences.zip'], \$in, \$out, \$err );
|
||||
run( [ '/usr/bin/pkill', '-HUP', 'freeswitch_licence_server'], \$in, \$out, \$err );
|
||||
my $c = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
||||
my $e = $c->sendRecv('api g729_count');
|
||||
my $count = $e->getBody();
|
||||
print "Success, License count: $count\n";
|
||||
exit 0;
|
||||
}
|
||||
} else {
|
||||
print "Failed to activate.";
|
||||
exit 1;
|
||||
}
|
Loading…
Reference in New Issue