#!/usr/bin/perl -w
use strict;
use warnings;

#use lib ("Classes");
#use lib ("Core");

#use LocalConfiguration;

#use TargetsManager;

my $target_link = "/local/CASP13/TARGETS/T0655-D1.pdb";
if (-l $target_link && -f readlink($target_link)){
   print "O.K.\n";
}
if (-l $target_link){
  print "link\n";
}
if (-f readlink($target_link)){
   print "i can read\n";
}

=head
my $target = "T0681";
my $target_manager = new TargetsManager();
print $target_manager->are_expired_all_associated_targets($target, 'human')."\n";
=cut
=head

use RRResultsManager;
use RRResultsUploadManager;

my $rrresults_manager = new RRResultsManager();
my $rrresults_upload_manager = new RRResultsUploadManager();
my $refmodel = $rrresults_manager->get_new_model();

($refmodel,$refmodel,$refmodel,$refmodel) = $rrresults_upload_manager->parse_file("/local/CASPROL/RESULTS/RR_CONTS/R0001-D1/R0001RR081_1.conts_0.1",$refmodel,$refmodel,$refmodel,$refmodel);

$refmodel = $rrresults_manager->complete_model_parameters($refmodel);
#$refmodel->{TARGET_NAME} = 'R0001';
#$refmodel->{GROUP_CODE} = 81;
#$refmodel->{range} = 'L';
#$refmodel->{checksize} = 0.1;
#$refmodel->{model_index} = 1;
#$refmodel->{domain_index} = 0;

#$refmodel = $rrresults_manager->complete_model_parameters($refmodel);

foreach my $key (keys %{$refmodel}){
print "$key\t$refmodel->{$key}\n";
}

print "\n\n+++++++++++++++++++++++\n\n";

my $id = $rrresults_manager->exist_by_parameters($refmodel);
print $id."\n";
=cut