#!/usr/bin/perl

use DBI;
use IO::File;
#use strict;

my $db = "CAMDPAMS";
my $host = "192.168.9.10";
my $sth;
$dbh = DBI ->connect("dbi:Pg:dbname=$db;host=$host","olegk","4Q2073gl",{AutoCommit=>0,RaiseError=>1,ChopBlanks=>1});
$sth = $dbh->prepare("select * from \"WhiteListing\".check_sha1_by_sign()");
$sth->execute;
$sth->finish;
$dbh->commit;
$dbh->disconnect;
print "1\n";