#!/usr/bin/perl -Tw -I. -I/usr/local/positive/Perl

use strict;
use Pos::Webtop::Web::ModuleLoader;
use CGI qw/:standard/;
use CGI::Cookie ();
use Digest::MD5();
use Pos::WebService::Modules::MyCalls;
use Pos::WebService::Modules::ParseServerXmlResponse;
use LWP::UserAgent;
use HTTP::Request;
use Config::General;
use URI::Escape;
use HTML::Entities;
use MIME::Base64;

my $conf = new Config::General("/usr/local/positive/conf/WebService.conf");
my %config = $conf->getall;

my $tb = Pos::Webtop::Toolbox->new();
my $client = $tb->getClient();
my $cgi = $tb->getCgi();
my $myCallsObj = Pos::WebService::Modules::MyCalls->new();
my $xmlResponseParserObj = Pos::WebService::Modules::ParseServerXmlResponse->new();
my $err;
$err = undef unless $cgi->param('err') and $err = $cgi->param('err');

sub getSharedSecretId {
	my $wtDb = $_[0];
   my ($id) = $wtDb->query( sql => "
		select
			security_key_id
		from
			osx_security_keys
		where
			status=1
		order by security_key_id desc limit 1
	");

	return $id;
}

my $db = $tb->getWebtopDbReader();
my $ssId = getSharedSecretId($db);
###if(!$ssId) {
#	$ssId = 0;
#}
$ssId = 0 unless( defined( $ssId ) && length( $ssId ) > 0 );
print "Content-type: text/plain\n\n$ssId";


1;