char *PerlScriptName[]={"rec_sum.pl","count.pl","p\
rocess_list.pl","make_license.pl","CCsed.script","\
msa2bootstrap.pl","t_coffee_dpa","t_coffee_dpa2","\
tc_generic_method.pl","generic_method.tc_method","\
clustalw_method.tc_method","extract_from_pdb","ins\
tall.pl","clean_cache.pl","nature_protocol.pl","mo\
cca","dalilite.pl","wublast.pl","blastpgp.pl","ncb\
iblast_lwp.pl","wublast_lwp.pl","RNAplfold2tclib.p\
l","fasta_seq2RNAplfold_templatefile.pl","fasta_se\
q2hmmtop_fasta.pl","fasta_seq2consan_aln.pl","clus\
talw_aln2fasta_aln.pl","msf_aln2fasta_aln.pl","bla\
st_aln2fasta_aln.pl","blast_xml2fasta_aln.pl","fas\
ta_aln2fasta_aln_unique_name.pl","newick2name_list\
.pl","excel2fasta.pl","any_file2unix_file.pl","End\
List"};char *PerlScriptFile[]={"use File::Copy;\nu\
se Env qw(HOST);\nuse Env qw(HOME);\nuse Env qw(US\
ER);\n$x_field=0;\n$y_field=1;\n$interval=0;\n$fil\
e=\"stdin\";\n$print_avg=1;\n$print_sd=0;\n$print_\
sum=0;\n$print_n=0;\nforeach $value ( @ARGV)\n    \
{\n	if ($value ne $ARGV[$np]) \n	    {\n	    ;\n	 \
   }\n	elsif($value eq \"-print_all\")\n	    {\n	 \
   $print_sd=$print_avg=$print_n=$print_sum=1;\n	 \
   $np++;\n	    }\n	elsif($value eq \"-print_sum\"\
)\n	    {\n	    $print_sum=1;\n	    $print_avg=0;\\
n	    $np++;\n	    }\n	elsif($value eq \"-print_n\\
")\n	    {\n	    $print_n=1;\n	    $print_avg=0;\n\
	    $np++;\n	    }\n	elsif($value eq \"-print_avg\
\")\n	    {\n	    $print_avg=1;\n	    $print_avg=0\
;\n	    $np++;\n	    }\n	elsif($value eq \"-sd\")\\
n	    {\n	    $print_sd=1;\n	    $print_avg=0;\n	 \
   $np++;\n	    }\n	elsif($value eq \"-h\")\n	    \
{\n	    $header=1;\n	    $np++;\n	    }\n	elsif ($\
value eq \"-i\")\n	    {\n	    $interval= $ARGV[++\
$np];\n	    $np++;\n    	    }\n	elsif ($value eq \
\"-r\")\n	    {\n	    $min= $ARGV[++$np];\n	    $m\
ax= $ARGV[++$np];\n	    $np++;\n    	    }\n	\n	el\
sif ($value eq \"-x\")\n	    {\n	    $x_field= $AR\
GV[++$np]-1;\n	    $np++;\n    	    }\n	elsif ($va\
lue eq \"-y\")\n	    {\n	      \n	    while ($ARGV\
[$np+1] && !($ARGV[$np+1]=~/\\-/))\n	      {\n		$y\
_field[$nyf++]=$ARGV[++$np]-1;\n		$y_field_set=1;\\
n	      }\n\n	    $np++;\n    	    }\n	elsif ($val\
ue eq \"-file\")\n	    {\n	    $file= $ARGV[++$np]\
;\n	    $file_set=1;\n	    $np++;\n    	    }     \
  \n	elsif ( $value eq \"h\" ||  $value eq \"-h\" \
|| $value eq \"-H\" || $value eq \"-help\" || $val\
ue eq \"help\")\n	  {\n	    print STDOUT \"data_an\
alyse: Analyse and discretization of data\\n\";\n	\
    print STDOUT \"       -file:    <file containi\
ng the data to analyze>,.<def=STDIN>\\n\";\n	    p\
rint STDOUT \"       -x: <field containing the X>,\
...............<Def=0>\\n\";\n	    print STDOUT \"\
       -y: <field containing the Y>,..............\
.<Def=1>\\n\";\n	    print STDOUT \"       -i:<Int\
erval size on the X>,...............<Def=0>\\n\";\\
n	    print STDOUT \"       -i:<0:only one interva\
l>\\n\";\n	    print STDOUT \"       -r:<Range of \
the X>\\n\";\n	    print STDOUT \"       -sd: prin\
t standard deviation on the Y\";\n	    print STDOU\
T \"       -h  : print column header \\n\";\n	    \
exit (0);\n	  }\n	elsif ($value=~/-/)\n	  {\n	    \
print \"$value is not a valid FLAG[FATAL]\\n\";\n	\
    exit (0);\n	   } \n	elsif ($list eq \"\") \n	 \
   {\n	    $file=$ARGV[$np];\n	    $np++;\n	    }\\
n	\n	\n      }\n\n\n\n\n\nif ($file eq \"stdin\")\\
n	{\n	$remove_file=1;\n	$file=\"tmp$$\";\n	open (F\
, \">$file\");\n	while (<STDIN>)\n		{\n		print F $\
_;\n		}\n	close (F);\n	 \n	;}\n\n\nopen(F,$file);\\
n\nif ($interval)\n  {\n    $interval_size=($max-$\
min)/$interval;\n  }\nwhile (<F>)\n  {\n    $line=\
$_;\n    if (!/\\S/){next;}\n    @list=($line=~/(\\
\S+)/g);\n    \n    if ($interval==0){$bin=0;}\n  \
  else{$bin=int (($list[$x_field]-$min)/($interval\
_size));}\n\n    \n    if ($bin && $bin==$interval\
){$bin--;}\n    for ( $a=0; $a<$nyf; $a++)\n      \
{\n	$sum{$a}{$bin}+=$list[$y_field[$a]];\n	$sum2{$\
a}{$bin}+=$list[$y_field[$a]]*$list[$y_field[$a]];\
\n	$n{$a}{$bin}++;\n      }\n  }\n\nif (!$interval\
){$interval=1;}\nfor ( $a=0; $a<$interval; $a++)\n\
  {\n    printf ( \"%3d %3d \", $interval_size*$a,\
 $interval_size*($a+1));\n    for ( $b=0; $b<$nyf;\
 $b++)	\n      {\n	$i=$interval*$a;\n	if ( $n{$b}{\
$a}==0)\n	  {\n	    $avg=0;\n	    $sd=0;\n	  }\n	e\
lse\n	  {\n	    $avg=$sum{$b}{$a}/$n{$b}{$a};\n	  \
  $sd=sqrt($sum2{$b}{$a}*$n{$b}{$a}-$sum{$b}{$a}*$\
sum{$b}{$a})/($n{$b}{$a}*$n{$b}{$a});\n	  }\n	if (\
$print_n) {printf \"%10.4f \", $n{$b}{$a};}\n	if (\
$print_sum){printf \"%10.4f \", $sum{$b}{$a};}\n	i\
f ($print_avg){printf \"%10.4f \", $avg}\n	if ($pr\
int_sd) {printf \"%10.4f \", $sd;}\n      }\n    p\
rintf (\"\\n\");\n  }\n\n\nif ( $remove_file){unli\
nk $file;}\n","use File::Copy;\nuse Env qw(HOST);\\
nuse Env qw(HOME);\nuse Env qw(USER);\n\nforeach $\
v (@ARGV){$cl.=$v;}\n\n\nif ( $cl=~/-k(\\d+)/){$k=\
$1;}\nelse {$k=1;}\nif ( $cl=~/-w(\\d+)/){$w=$1;}\\
nelse {$w=-1;}\nif ( $cl=~/-p(\\d+)/){$p=$1;}\nels\
e {$p=-1;}\n\nwhile (<STDIN>)\n  {\n    @l=($_=~/(\
\\S+)/g);\n    $v=$l[$k-1];\n    if ( !$h{$v}){@ll\
=($v, @ll);}\n    \n    if ( $w==-1)\n      {$h{$v\
}++;}\n    else\n      {$h{$v}+=$l[$w-1];}\n\n    \
if ($p!=-1){$print{$v}=$l[$p-1];}\n\n  }\nforeach \
$v (@ll)\n  {\n    print \"$v $print{$v} $h{$v}\\n\
\";\n  }\n","\nuse Env qw(HOST);\nuse Env qw(HOME)\
;\nuse Env qw(USER);\n$random_tag=int (rand 10000)\
+1;\n$unique_prefix=\"$$.$HOST.$random_tag\";\n$qu\
eue=\"distillery.and.mid\";\n$monitor=0;\n$stderr_\
file=\"/dev/null\";\n$stdio_file=\"/dev/null\";\n$\
log_file=\"/dev/null\";\n$pause_time=0;\n$max_sub_\
jobs=60;\n$min_sub_jobs=30;\n$output_all=0;\n$var=\
'\\$';\n\nforeach $value ( @ARGV)\n    {\n	if ($va\
lue ne $ARGV[$np]) \n	    {\n	    ;\n	    }\n	elsi\
f ($value eq \"-max_sub_jobs\")\n	    {\n	    $max\
_sub_jobs= $ARGV[++$np];\n	    $np++;\n    	    }	\
\n	elsif ($value eq \"-min_sub_jobs\" )\n	    {\n	\
    $min_sub_jobs= $ARGV[++$np];\n	    $np++;\n   \
 	    }\n	elsif ($value eq \"-para\")\n	    {\n	  \
  $para=1;\n	    $monitor=1;\n	    $np++;\n    	  \
  }\n	elsif ($value eq \"-monitor\") \n	    {\n	  \
  $monitor=1;\n	    $np++;\n	    }\n	elsif ($value\
 eq \"-no_monitor\") \n	    {\n	    $monitor=0;\n	\
    $np++;\n	    }\n	elsif ($value eq \"-queue\")\\
n	    {\n	    $queue=$ARGV[++$np];\n	    $np++;\n	\
    }	\n	elsif ($value eq \"-stderr_file\")\n	    \
{\n	    $stderr_file=$ARGV[++$np];\n	    $np++;\n	\
    }\n	elsif ($value eq \"-stdio_file\")\n	    {\\
n	    $stdio_file=$ARGV[++$np];\n	    $np++;\n	   \
 }\n	elsif ($value eq \"-output_all\")\n	    {\n	 \
   $output_all=1;\n	    $np++;\n	    }\n	elsif ($v\
alue eq \"-pause\") \n	    {\n	    $pause_time=$AR\
GV[++$np];\n	    $np++;\n	    }\n	elsif ($value eq\
 \"-log\")\n	      {\n	       $log=1;\n	       \n	\
       if ($ARGV[$np+1]=~/\\-\\S+/) \n	          {\
\n		  $log_file=\"stderr\";\n	          }\n	      \
 else \n	          {\n		  $log_file=$ARGV[++$np]; \
\n		  ++$np;\n		 \n	          }\n	      }\n	elsif \
( $value eq \"-com\")\n	    {\n		\n		if (!$ARGV[$n\
p+1]=~/^\\'/) { $com=$ARGV[++$np];}\n		else {$com=\
$ARGV[++$np];}\n\n	     $np++;\n	    }\n	elsif ( $\
value eq \"-check\")\n	  {\n	    \n	    if (!$ARGV\
[$np+1]=~/^\\'/) { $check=$ARGV[++$np];}\n	    els\
e {$check=$ARGV[++$np];}\n	    $np++;\n	  }\n	elsi\
f ($com eq \"\") \n	    {\n	    $com_set=1;\n	    \
$com=$ARGV[$np];\n	    \n	    $np++;\n	    }\n	els\
if ($list eq \"\") \n	    {\n	    $list_set=1;\n	 \
   $list=$ARGV[$np];\n	    $np++;\n	    }\n	elsif \
( $var_set eq \"\")\n	    {\n	    $var_set=1;\n	  \
  $var=$ARGV[$np];\n	    $np++;\n	    }\n	}\n\n\n\\
n\nif ( $com eq \"\"){print \"You Need to Provide \
a Command [FATAL]\\n\";\n	      die;\n	     }\n\n\\
n\nif ($list_set==0) \n    {\n    $x= int (rand 10\
0000)+1;\n    $tmp_file_name=\"tmp_file_$x\";\n   \
 open ( TMP, \">$tmp_file_name\");\n    while (<ST\
DIN>)\n      {\n	print TMP $_;\n      }\n    close\
 (TMP);\n    open (F, $tmp_file_name);\n    }\nels\
e \n    {\n    open (F, $list);\n    }\n\nif ($par\
a==0) \n    {\n\n     @tc_list= <F>;\n     close (\
F); \n     \n     foreach $val(@tc_list) \n	    {\\
n	      \n	      \n	      \n	      $loc_com=$com;\\
n	      if ($check){$loc_check=$check;}\n	      \n\
	      @i_val=($val=~/([^\\s]+)/g);\n	      \n	   \
   if ( $#i_val==0)\n		{\n		  if ($check){$loc_che\
ck=~s/$var/$i_val[0]/g;}\n		  $loc_com=~s/$var/$i_\
val[0]/g;\n		}\n	      else\n		{\n		  for ($n=1; $\
n<=$#i_val+1;$n++ )\n		    {\n		      \n		      $s\
ub=\"$var$n\";\n		      \n		      $loc_com=~s/$sub\
/$i_val[$n-1]/g;\n		      if ($check){$loc_check=~\
s/$var/$i_val[0]/g;}\n		    }\n		}\n	      if ( $c\
heck && -e $loc_check)\n		{\n		  print STDERR \"sk\
ipping $loc_com...\\n\";\n		  }\n	      else\n		{\\
n		  system \"$loc_com\";\n		}\n	    }\n    exit;\\
n    }\n\nelsif ($para==1) \n    {\n    print STDE\
RR \"do parallel execution of: \\\"$com $list\\\"\\
\n\";\n    \n    if ($log==1) \n	{\n	if ($log_file\
 eq \"stdout\" || $log_file eq \"stderr\" ) \n		{\\
n		$log_file=\"\";\n	        }\n\n        else \n	\
	{\n		system \"echo LOG FILE> $log_file\";\n		\n	 \
       }\n	}\n    else	\n	{\n	open ( OUT, \">/dev/\
null\");\n	}\n	\n    \n    $id=0;\n    $n_sub=0;\n\
    while ($val=<F>) \n	    {	    	    \n	    $job\
_log[$id]=\"$HOME/tmp/$unique_prefix.$id.log_file\\
";\n	    \n	    $job=$unique_prefix.\"_$id\";\n	  \
  open (JOB, \">$job\");\n	    \n	    $loc_com=$co\
m;\n	    chop $val;\n\n	    $loc_com=~s/\\$/$val/g\
;\n	 \n	    print JOB \"#!/bin/csh\\n\";\n	    pri\
nt JOB \"#\\$ -cwd\\n\";\n	    print JOB \"#\\$ -N\
 $unique_prefix\\n\";\n	    if ($queue && !($queue\
 eq \" \")) {print JOB \"#\\$ -l $queue\\n\";}\n	 \
   print JOB \"#\\n\";	    \n            print JOB\
 \"$loc_com\\n\";\n	    print JOB \"echo FINISHED \
 >> $job_log[$id]\\n\";\n	    print JOB \"pwd\\n\"\
;\n	    \n	    close (JOB);\n	    if ( $output_all\
==1)\n		{\n		system \"qsub $job >  $unique_prefix\\
";		\n	        }\n	    else\n		{system \"qsub $job\
 -e $stderr_file -o $stdio_file >$unique_prefix\";\
	        \n	        } \n\n\n\n	    print STDERR \"\
$id: $output_all\\n\";\n	    $n_sub++;\n	    if ( \
$max_sub_jobs && $n_sub==$max_sub_jobs) \n		{\n		$\
n_sub=monitor_process($min_sub_jobs,@job_log); 		 \
\n		\n	        }	\n	   \n            unlink $uniqu\
e_prefix;\n	    sleep $pause_time;\n	    $id++;\n	\
    }\n\n    close (OUT);\n    close (F);\n\n    p\
rint STDERR \"Your $id Jobs Have Been Submited (NA\
ME=$unique_prefix)\\n\";\n    monitor_process (0, \
@job_log);\n    foreach $file(@job_log) {if (-e $f\
ile) {unlink($file);}}\n    \n    }\n\nsub monitor\
_process ( @job_list)\n    {\n    my (@job_list)=@\
_;\n    my $min_sub_jobs=shift (@job_list);\n    m\
y $n_sub_jobs;\n    my $finished;\n    my $n=0;\n\\
n    $n_sub_jobs=-1;\n    $finished=0;\n    print \
STDERR \"\\nMonitor Batch: [$min_sub_jobs]\";\n   \
    \n    while (!$finished && (($n_sub_jobs>$min_\
sub_jobs)|| $n_sub_jobs==-1) ) \n	{\n	$finished=1;\
\n	$n_sub_jobs=0;\n	$n=0;\n	foreach $file (@job_li\
st)\n	        {\n	\n		if (-e $file){;}\n		else \n	\
	    {\n		    $finished=0; $n_sub_jobs++;\n	      \
      }\n	        }\n	system \"sleep 1\";\n       \
 }\n    \n    return $n_sub_jobs;\n    }\n    \n  \
  \nif ($tmp_file_name){unlink($tmp_file_name);}\n\
","\n\nforeach ($np=0; $np<=$#ARGV; $np++)\n    {\\
n    $value=$ARGV[$np];\n\n    if ($value eq \"-fi\
le\")\n      {\n      $file= $ARGV[++$np];\n      \
}\n    elsif ($value eq \"-type\")\n      {\n     \
   $type= $ARGV[++$np];\n      }\n    elsif ($valu\
e eq \"-institute\")\n      {\n        $institute=\
 $ARGV[++$np];\n      }\n    elsif ($value eq \"-a\
uthor\")\n      {\n        $author= $ARGV[++$np];\\
n      }\n    elsif ($value eq \"-date\")\n      {\
\n        $date= $ARGV[++$np];\n      }\n     elsi\
f ($value eq \"-program\")\n      {\n        $prog\
ram= $ARGV[++$np];\n      }\n    elsif ($value eq \
\"-email\")\n      {\n        $email= $ARGV[++$np]\
;\n      }\n    else\n      {\n	print \"$value is \
an unkown argument[FATAL]\\n\";\n	exit (1);\n     \
 }\n  }\n\n\n\nopen F, $file || die;\nprint $INSTI\
TUTE;\nif ( $type eq \"c\"){print \"/*************\
*****************COPYRIGHT NOTICE*****************\
**************/\\n\";}\nif ( $type eq \"perl\"){pr\
int \"##############################COPYRIGHT NOTI\
CE##############################/\\n\";}\nif ( $ty\
pe eq \"txt\"){print \"---------------------------\
----COPYRIGHT NOTICE------------------------------\
/\\n\";}\n\n\nwhile (<F>)\n  {\n  s/\\$INSTITUTE/$\
institute/g;\n  s/\\$AUTHOR/$author/g;\n  s/\\$DAT\
E/$date/g;\n  s/\\$PROGRAM/$program/g;  \n  s/\\$E\
MAIL/$email/g;  \n  if ( $type eq \"txt\"){print $\
_;}\n  elsif ($type eq \"c\"){chop $_; print \"\\/\
*$_*\\/\\n\";}\n  elsif ($type eq \"perl\"){print \
\"\\#$_\";}\n}\nclose (F);\nif ( $type eq \"c\"){p\
rint \"/******************************COPYRIGHT NO\
TICE*******************************/\\n\";}\nif ( \
$type eq \"perl\"){print \"#######################\
#######COPYRIGHT NOTICE###########################\
###/\\n\";}\nif ( $type eq \"txt\"){print \"------\
-------------------------COPYRIGHT NOTICE---------\
---------------------/\\n\";}\n\n","\nwhile (<>)	\\
n	{\n	s/\\=cc/123456789/g;\n	s/\\bcc/\\$\\(CC\\)/g\
;\n	s/123456789/\\=cc/g;\n	print $_;\n	}\n\n","$ve\
rsion=\"1.00\";\n$rseed= int(rand(100000))+1;\n\n\\
nif ( $#ARGV==-1)\n  {\n    print \"msa2bootstrap \
-i <input_file> -input <seq|msa|matrix|tree> -n <N\
-Boostrap> -o <outtree> -tmode <nj|upgma|parsimony\
|ml> -dmode <kimura> -alignpg <t_coffee | muscle |\
 clustalw> -rtree <file> -stype <prot|cdna|dna> -r\
ecompute -system <cygwin|unix>\";\n    print \"\\n\
\\t-i: input file, can be sequneces, msa, matrix, \
trees, type is specified via -input\";\n    print \
\"\\n\\t-input: Type of input data\";\n    print \\
"\\n\\t\\tmsa: msa in fasta format\";\n    print \\
"\\n\\t\\tseq: compute an msa with -alignpg\";\n  \
  print \"\\n\\t\\tmatrix: phylipp distance matrix\
 fed directly to method -tmode [caveat: tmode=nj o\
r upgma]\";\n    print \"\\n\\t\\ttree: list of ne\
wick trees directly fed to consence in order to ge\
nerate a bootstraped tree\";\n    \n    print \"\\\
n\\t-n: number of bootstrap replicates\";\n    pri\
nt \"\\n\\t-o: name of the output tree. Files are \
not overwritten. Use -recompute to overwrite exist\
ing file\";\n    print \"\\n\\t-tmode: tree mode: \
nj|upgma|parsimony|ml\";\n    print \"\\n\\t-dmode\
: distance mode\";\n    print \"\\n\\t-alignpg: pr\
ogram for aligning sequences (t_coffee=default)\";\
\n    print \"\\n\\t-rtree: replicate tree file (d\
efault: no file)\";\n    print \"\\n\\t-rmsa: repl\
icate msa file (default: no file)\";\n    print \"\
\\n\\t-rmat: replicate matrix file (default: no fi\
le)\";\n    print \"\\n\\t-stype: sequence type: p\
rotein, dna or cdna\";\n    print \"\\n\\t-recompu\
te: force files to be overwritten\";\n    print \"\
\\n\\t-system: cygwin|unix\";\n      \n\n    \n   \
 &my_exit (EXIT_FAILURE);\n  }\nforeach $arg (@ARG\
V){$command.=\"$arg \";}\n\nprint \"CLINE: $comman\
d\\n\";\n$threshold=100;\n$trim_msa=0;\n$stype=\"p\
rot\";\nprint \"msa2bootstrap \";\n\n$system=\"cyg\
win\";\nif(($command=~/\\-system (\\S+)/))\n  {\n \
   $system=$1;\n    if ( $system eq \"cygwin\")\n \
     {\n	$exec_extension=\".exe\";\n      }\n    e\
lsif ( $system eq \"unix\")\n      {\n	$exec_exten\
sion=\"\";\n	print \"system=Unix\";die;\n      }\n\
    else\n      {\n	print \"msa2boostrap: -system=\
$system is an unknown mode [FATAL]\\n\"; die;\n   \
   }\n    \n    print \"-system $system \";\n  }\n\
if(($command=~/\\-stype (\\S+)/))\n  {\n    $stype\
=$1;\n  }\nprint \"-stype=$stype \";\n\n\n\nif(($c\
ommand=~/\\-i (\\S+)/))\n  {\n    $msa=$1;\n    pr\
int \"-i $msa \";\n  }\n\nif(($command=~/\\-rtree \
(\\S+)/))\n  {\n    $rtree=$1;\n    print \"-rtree\
=$rtree \";\n  }\n\nif(($command=~/\\-rmsa (\\S+)/\
))\n  {\n    $rmsa=$1;\n  }\nif(($command=~/\\-rma\
t (\\S+)/))\n  {\n    $rmat=$1;\n  }\n$input=\"seq\
\";\nif(($command=~/\\-input (\\S+)/))\n  {\n    $\
input=$1;\n  }\nprint \"-input=$input \";\n\n$dmod\
e=\"kimura\";\nif(($command=~/\\-dmode (\\S+)/))\n\
  {\n    $dmode=$1;\n  }\nprint \"-dmode=$dmode \"\
;\n$alignpg=\"muscle\";\nif(($command=~/\\-alignpg\
 (\\S+)/))\n  {\n    $alignpg=$1;\n  }\nprint \"-a\
lignpg=$dmode \";\n\n$tmode=\"nj\";\nif(($command=\
~/\\-tmode (\\S+)/))\n  {\n    $tmode=$1;\n  }\npr\
int \"-tmode=$tmode \";\n$recompute=0;\nif(($comma\
nd=~/\\-recompute/))\n  {\n    $recompute=1;\n    \
print \"-recompute \";\n  }\n\n$out=$msa;\n$out=~s\
/\\..*//;\n$out.=\".bph\";\nif(($command=~/\\-o (\\
\S+)/))\n  {\n    $out=$1;\n    \n  }\nprint \"-ou\
t=$out \";\nif (-e $out && !$recompute)\n  {\n    \
print \"\\nNo Computation Required $out already ex\
ists\\n\";\n    &my_exit (EXIT_SUCCESS);\n    \n  \
}\n\n$n=100;\nif(($command=~/\\-n (\\d+)/))\n  {\n\
    $n=$1;\n  }\nprint \"-n=$n \";\n$seed=3;\nif((\
$command=~/\\-s (\\d+)/))\n  {\n    $seed=$1;\n  }\
\nprint \"-s=$seed \";\n\nif(($command=~/\\-run_na\
me (\\d+)/))\n  {\n    $suffix=$1;\n  }\nelse\n  {\
\n    $msa=~/([^.]+)/;\n    $suffix=$1;\n  }\nprin\
t \"-run_name=$suffix\\n\";\n\n\nif ( $input eq \"\
seq\")\n  {\n    $seq=$msa;\n    $msa=\"$suffix.pr\
ot_msa\";\n    \n    if ($stype eq \"cdna\")\n    \
  {\n	$cdna_seq=$seq;\n	$clean_cdna_seq=&vtmpnam()\
;\n	$seq=&vtmpnam();\n	`t_coffee -other_pg seq_ref\
ormat -in $cdna_seq -action +clean_cdna >$clean_cd\
na_seq`;\n	`t_coffee -other_pg seq_reformat -in $c\
lean_cdna_seq -action +translate >$seq`;\n	\n     \
 }\n\n    if (!-e $msa || $recompute)\n      {\n	p\
rint \"\\n#####   Compute an MSA With $alignpg\\n\\
";\n	\n	if ( $alignpg eq \"t_coffee\")\n	  {`$alig\
npg $seq -outfile=$msa >/dev/null 2>/dev/null`;}\n\
	elsif ( $alignpg eq \"muscle\")\n	  {\n	    `$ali\
gnpg -in $seq > $msa 2>/dev/null`;\n	  }\n	elsif (\
 $alignpg eq \"clustalw\")\n	  {\n	    `$alignpg -\
infile=$seq -outfile=$msa -quicktree >/dev/null 2>\
/dev/null`;\n	  }\n	elsif ( $align eq \"mafft\")\n\
	  {\n	    `$alignpg $seq > $msa >/dev/null 2>/dev\
/null`;\n	  }\n	else\n	  {\n	    `$alignpg -in=$se\
q -outfile=$msa`;\n	  }\n      }\n    if (!-e $msa\
)\n      {\n	print \"\\nError: $alignpg Could Not \
produce the MSA $msa [FATAL]\\n\";\n      }\n\n   \
 if ($stype eq \"cdna\")\n      {\n	$msa2=\"$suffi\
x.cdna_msa\";\n	`t_coffee -other_pg seq_reformat -\
in $clean_cdna_seq -in2 $msa -action +thread_dna_o\
n_prot_aln -output fasta_aln  >$msa2`;\n	$msa=$msa\
2;\n      }\n    \n    $input=\"msa\";\n  }\n\n\n\\
n$seqboot_o=&vtmpnam();\n$seqboot_c=&vtmpnam();\n\\
n$protdist_o=&vtmpnam();\n$protdist_c=&vtmpnam();\\
nif ( $input eq \"msa\")\n  {\n    if ($tmode eq \\
"nj\" || $tmode eq \"upgma\"){$input=\"matrix\";}\\
n    \n    $lmsa= &vtmpnam ();\n    `t_coffee -oth\
er_pg seq_reformat -in $msa -output phylip_aln > $\
lmsa`;\n    \n    if ( -e \"outfile\"){unlink (\"o\
utfile\");}\n    # run seqboot\n  \n    if ( $n>1)\
\n      {\n	print \"Run SeqBoot .....\";\n	open (F\
, \">$seqboot_c\");\n	print F \"$lmsa\\nR\\n$n\\nY\
\\n$seed\\n\";\n	close (F);\n	`seqboot$exec_extens\
ion  < $seqboot_c`;\n	if ( -e \"outfile\"){ print \
\"[OK]\\n\";}\n	else { print \"[FAILED]\\n\";&my_e\
xit (EXIT_FAILURE);}\n	`mv outfile $seqboot_o`;\n \
     }\n    else\n      {\n	`cp $lmsa $seqboot_o`;\
\n      }\n\n    if ($rmsa){`cp $seqboot_o $rmsa`;\
}\n    \n    if ($tmode eq \"nj\" || $tmode eq \"u\
pgma\")\n      {\n	if ( $stype eq \"prot\")\n	  {\\
n	    # run protdist\n	    print \"Run Protdist [d\
mode=$dmode]\";\n	    if ($dmode eq \"kimura\")\n	\
      {\n		$dmode=\"P\\nP\\nP\";\n	      }\n	    e\
lse\n	      {\n		print \"\\n$dmode is an unknown m\
ode for Protdist [FATAL:msa2bootstrap.pl]\\n\";\n	\
	&my_exit (EXIT_FAILURE);\n	      }\n	    open (F,\
 \">$protdist_c\");\n	    if ($n>1){print F \"$seq\
boot_o\\n$dmode\\nM\\nD\\n$n\\nY\\n\";}\n	    else\
 {printf F \"$seqboot_o\\n$dmode\\nY\\n\";}\n	    \
close (F);\n	    `protdist$exec_extension  < $prot\
dist_c`;\n	    if ( -e \"outfile\"){ print \"[OK]\\
\n\";}\n	    else { print \"[FAILED]\\n\";&my_exit\
 (EXIT_FAILURE);}\n	    `mv outfile $protdist_o`;\\
n	 \n	  }\n	elsif ( $stype eq \"cdna\" || $stype e\
q \"dna\")\n	  {\n	    print \"Run dnadist [dmode=\
default\";\n	    open (F, \">$protdist_c\");\n	   \
 if ($n>1){print F \"$seqboot_o\\nM\\nD\\n$n\\nY\\\
n\";}\n	    else {printf F \"$seqboot_o\\nY\\n\";}\
\n	    close (F);\n	    `protdist$exec_extension  \
< $protdist_c`;\n	    if ( -e \"outfile\"){ print \
\"[OK]\\n\";}\n	    else { print \"[FAILED]\\n\";&\
my_exit (EXIT_FAILURE);}\n	    `mv outfile $protdi\
st_o`;\n	  }\n      }\n  }\nelsif ( $input eq \"ma\
trix\")\n  {\n    $protdist_o=&vtmpnam();\n    pri\
nt \"MSA: $msa\\n\";\n    `cp $msa $protdist_o`;\n\
    $n=1;\n  }\n\n\n\n\n\n$nb_o=&vtmpnam();\n$nb_c\
=&vtmpnam();\nif ($input eq \"matrix\" && $tmode n\
e \"parsimony\" && $tmode ne \"ml\")\n  {\n    pri\
nt \"Run neighbor [tmode=$tmode]\";\n\n    if ($tm\
ode eq \"nj\")\n      {\n	$tmode=\"\\nN\\nN\";\n  \
    }\n    elsif ( $tmode eq \"upgma\")\n      {\n\
	$tmode = \"\\nN\";\n      }\n    else\n      {\n	\
print \"\\n ERROR: $tmode is an unknown tree compu\
tation mode\\n\";\n	&my_exit (EXIT_FAILURE);\n    \
  }\n\n    open (F, \">$nb_c\");\n    if ($n>1){pr\
int F \"$protdist_o$tmode\\nM\\n$n\\n$seed\\nY\\n\\
";}\n    else {print F \"$protdist_o$tmode\\nY\\n\\
";}\n    close (F);\n\n    `neighbor$exec_extensio\
n  < $nb_c`;\n    if ( -e \"outtree\"){ print \"[N\
eighbor OK]\\n\";}\n    else { print \"[FAILED]\\n\
\";&my_exit (EXIT_FAILURE);}\n    `mv outtree $nb_\
o`;\n    unlink (\"outfile\");\n  }\nelsif ($input\
 eq \"msa\" && $tmode eq \"parsimony\")\n  {\n    \
if ( -e \"outfile\"){unlink (\"outfile\");}\n    i\
f ( -e \"outtree\"){unlink (\"outtree\");}\n    \n\
    if ($stype eq \"prot\")\n      {\n	print \"Run\
 protpars [tmode=$tmode]\";\n	open (F, \">$nb_c\")\
;\n	if ($n>1){print F \"$seqboot_o\\nM\\nD\\n$n\\n\
$seed\\n10\\nY\\n\";}\n	else {print F \"$seqboot_o\
\\nY\\n\";}\n	close (F);\n	`protpars$exec_extensio\
n  < $nb_c`;\n      }\n    elsif ( $stype eq \"dna\
\" || $stype eq \"cdna\")\n      {\n	print \"Run d\
napars [tmode=$tmode]\";\n	open (F, \">$nb_c\");\n\
	if ($n>1){print F \"$seqboot_o\\nM\\nD\\n$n\\n$se\
ed\\n10\\nY\\n\";}\n	else {print F \"$seqboot_o\\n\
Y\\n\";}\n	close (F);\n	`dnapars$exec_extension  <\
 $nb_c`;\n      }\n    if ( -e \"outtree\"){ print\
 \"[OK]\\n\";}\n    else { print \"[FAILED]\\n\";&\
my_exit (EXIT_FAILURE);}\n    `mv outtree $nb_o`;\\
n   unlink (\"outfile\");\n  }\nelsif ($input eq \\
"msa\" && $tmode eq \"ml\")\n  {\n    if ( -e \"ou\
tfile\"){unlink (\"outfile\");}\n    if ( -e \"out\
tree\"){unlink (\"outtree\");}\n    \n    if ($sty\
pe eq \"prot\")\n      {\n	print \"Error: ML impos\
sible with Protein Sequences [ERROR]\";\n	&my_exit\
 (EXIT_FAILURE);\n      }\n    elsif ( $stype eq \\
"dna\" || $stype eq \"cdna\")\n      {\n	print \"R\
un dnaml [tmode=$tmode]\";\n	open (F, \">$nb_c\");\
\n	if ($n>1){print F \"$seqboot_o\\nM\\nD\\n$n\\n$\
seed\\n10\\nY\\n\";}\n	else {print F \"$seqboot_o\\
\nY\\n\";}\n	close (F);\n	`dnaml$exec_extension  <\
 $nb_c`;\n      }\n    if ( -e \"outtree\"){ print\
 \"[OK]\\n\";}\n    else { print \"[FAILED]\\n\";&\
my_exit (EXIT_FAILURE);}\n    `mv outtree $nb_o`;\\
n   unlink (\"outfile\");\n  }\n\n\nelse\n  {\n   \
 `cp $msa $nb_o`;\n    $n=2;\n  }\n\nif ($rmsa && \
-e $seqboot_o){print \"\\nOutput List of $n Replic\
ate MSA: $rmsa\\n\";`cp $seqboot_o $rmsa`;}\nif ($\
rmat && -e $protdist_o){print \"\\nOutput List of \
$n Replicate MATRICES: $rmat\\n\";`cp $protdist_o \
$rmat`;}\nif ($rtree && -e $nb_o){print \"\\nOutpu\
t List of $n Replicate TREES: $rtree\\n\";`cp $nb_\
o $rtree`;}\n\n\n\n$con_o=&vtmpnam();\n$con_c=&vtm\
pnam();\nif ($n >1)\n  {\n    print \"Run Consense\
.....\";\n    open (F, \">$con_c\");\n    print F \
\"$nb_o\\nY\\n\";\n    close (F);\n    `consense$e\
xec_extension  < $con_c`;\n    if ( -s \"outtree\"\
  > 0) { print \"[OK]\\n\";}\n    else { print \"[\
FAILED]\\n\";&my_exit (EXIT_FAILURE);}\n    `mv ou\
ttree $con_o`;\n    unlink (\"outfile\");\n  }\nel\
se\n  {\n    `cp $nb_o $con_o`;\n  }\n\n\n`cp $con\
_o $out`;\nif ( !-e $out)\n  {\n    print \"Tree C\
omputation failed [FAILED]\\n\";\n    &my_exit (EX\
IT_FAILURE);\n  }\nelsif ($n>1)\n  {\n    print \"\
\\nOutput Bootstrapped Tree: $out\\n\";\n    $avg=\
`t_coffee -other_pg seq_reformat -in $out -action \
+avg_bootstrap`;\n    $avg=~s/\\n//g;\n    print \\
"$avg\\n\";\n  }\nelse\n  {\n    print \"\\nOutput\
 Tree: $out\\n\";\n  }\n\nopen (F, \"$out\");\nwhi\
le (<F>)\n  {\n    \n    $tree.=$_;\n  }\nclose (F\
);\n$tree=~s/\\n//g;\nprint \"BPH: $tree\\n\";\n\n\
\n&my_exit (EXIT_SUCCESS);\n\nsub my_exit \n  {\n \
   my $m=@_[0];\n    &clean_vtmpnam();\n    exit (\
$m);\n  }\nsub vtmpnam \n  {\n    my $file;\n\n\n \
   $ntmp++;\n    $file=\"tmp4msa2bootstrap.$rseed.\
$$.$ntmp\";\n    \n    push (@tmpfile, $file);\n  \
  return $file;\n  }\nsub clean_vtmpnam \n  {\n   \
 my $t;\n    foreach $t (@tmpfile)\n      {\n	if (\
 -e $t){unlink ($t)};\n      }\n  }\n","use Env;\n\
$seq_reformat=\"t_coffee -other_pg seq_reformat \"\
;\n$VersionTag=\"1.00\";\n$step=1;\n$unset=\"\";\n\
$scoreT1=$scoreT2=$nseqT=$dp_limit=$unset;\n@tl=()\
;\nchomp($tc_version=`t_coffee -version`);$tc_vers\
ion=~s/PROGRAM: //;\n\n\nprint STDERR \"\\n*******\
**************************************************\
********\";\nprint STDERR \"\\n*           HIGH LE\
VEL PROGRAM: T-COFFEE_DPA Version $VersionTag\";\n\
print STDERR \"\\n*           LOW  LEVEL PROGRAM: \
$tc_version \";\nprint STDERR \"\\n***************\
**************************************************\
\";\n\nif (!@ARGV)\n  {\n    print \"t_coffee_dpa \
accepts every t_coffee_flag.\\nType t_coffee to ob\
tain a list\\n\";\n    print \"Requires $TC_VERSIO\
N\\n\";\n    print \"Requires \";\n    print \"t_c\
offee_dpa specific flags:\\n\";\n    print \"\\t-d\
pa_master_aln....................Master alignment:\
 provided OR computed\\n\";\n    print \"\\t-dpa_m\
aster_aln....................By default, Computed \
with t_coffee -very_fast\\n\";\n    print \"\\t-dp\
a_master_aln=<file>.............Use file, (must be\
 an aln in Fasta or ClustalW\\n\";\n    print \"\\\
t-dpa_master_aln=<program>..........Compute aln wi\
th pg -in seq -out aln`\\n\";\n    print \"\\t-dpa\
_maxnseq.......................Maximum number of s\
equences in subgroups\\n\";\n    print \"\\t-dpa_m\
in_score1....................Minimum Id for two se\
quences to be grouped in ref_aln\\n\";\n    print \
\"\\t-dpa_min_score2....................Minimum Id\
 within a subgroup\\n\";\n    print \"\\t-dpa_debu\
g.........................Keep Tmp File (for debug\
 purpose)\\n\\n\";\n    \n    exit (0);\n  }\nfore\
ach $arg (@ARGV)\n  {\n    $arg_list.=\" $arg\";\n\
  }\n$arg_list=~s/[=,;]/ /g;\n\n\n($seq0, $arg_lis\
t)=&extract_val_from_arg_list(\"^\",$arg_list, \"S\
PLICE\",\"unset\");\n($seq1, $arg_list)=&extract_v\
al_from_arg_list(\"-seq\",$arg_list, \"SPLICE\",\"\
unset\");\n($seq2, $arg_list)=&extract_val_from_ar\
g_list(\"-in\",$arg_list, \"KEEP\",\"unset\");\n($\
seq3, $arg_list)=&extract_val_from_arg_list(\"-inf\
ile\",$arg_list, \"SPLICE\",\"unset\");\n($prf,  $\
arg_list)=&extract_val_from_arg_list(\"-profile\",\
$arg_list, \"SPLICE\",\"unset\");\n\n$gl{'Seq'}=$s\
eq=&vtmpnam();#file containing all the sequences\n\
\n   #1-remove sequences from -in\nif ( $arg_list \
=~/\\-in\\b/)\n  {\n    my $save, $name;\n    whil\
e($arg_list=~/\\-in\\b[^-]+(\\bS[\\w.]+)/)\n      \
{\n	$name=$1;$name=~s/^.//;\n	if ( !-e $name){$sav\
e.=\" S$name \";}\n\n	$arg_list=~s/S$name/ /;\n   \
   }\n    $arg_list=~s/\\-in\\b/\\-in $save /;\n  \
}\n   #2-prepare \n\nif (!($arg_list=~/\\-outorder\
/))\n  {\n    \n    $output_cl .=\" -outorder=$seq\
\";\n  }\n@output_flag=(\"-output\",\"-outfile\", \
\"-run_name\", \"-outorder\"); \nforeach $v1 (@out\
put_flag)\n  {\n    ($v2, $arg_list)=&extract_val_\
from_arg_list($v1,$arg_list, \"SPLICE\",\"unset\")\
;\n    if ($v2 ne \"\")\n      {\n\n	if ($v1 eq \"\
-run_name\"){$run_name=$v2;$output_cl .=\" $v1 $v2\
 \";}\n	elsif ( $v1 eq \"-outorder\")\n	  {\n	    \
if ( $v2 eq \"input\"){$v2=$seq;}\n	    $outorder=\
$v2;$output_cl .=\" $v1 $v2 \";\n	  }\n	else\n	  {\
\n	    $output_cl .=\" $v1 $v2 \";\n	  }\n      }\\
n }\n\n\n($dpa_master_aln, $arg_list)  =&extract_v\
al_from_arg_list(\"-dpa_master_aln\",$arg_list, \"\
SPLICE\", \"t_coffee\");\n$dpa_master_aln=~s/\\s//\
g;\n($nseqT, $arg_list)           =&extract_val_fr\
om_arg_list(\"-dpa_maxnseq\",$arg_list, \"SPLICE\"\
, 30);\n($scoreT1, $arg_list)         =&extract_va\
l_from_arg_list(\"-dpa_min_score1\",$arg_list, \"S\
PLICE\", 80);\n($scoreT2, $arg_list)         =&ext\
ract_val_from_arg_list(\"-dpa_min_score2\"    ,$ar\
g_list, \"SPLICE\", 30);\n($dpa_limit, $arg_list) \
      =&extract_val_from_arg_list(\"-dpa_limit\"  \
      ,$arg_list, \"SPLICE\", 0);\n($dpa_delta_id,\
 $arg_list)    =&extract_val_from_arg_list(\"-dpa_\
delta_id\"        ,$arg_list, \"SPLICE\", 1);\n($d\
pa_debug, $arg_list)       =&extract_val_from_arg_\
list(\"-dpa_debug\"           ,$arg_list, \"SPLICE\
\", 0);\n\n\n$in_seq=$seq0.\" \".$seq1.\" \".$seq2\
.\" \".$seq3;\n$in_prf=(($prf ne $unset)?\"$prf \"\
:\"\");\n&exit_dpa (($in_seq eq \"\" && $in_prf eq\
 \"\")?1:0, \"ERROR: You did not Provide any seque\
nces. Use the -seq flag [FATAL: t_coffee_dpa]\\n\"\
, EXIT_FAILURE);\n\n\nprint STDERR \"\\nSTART DPA \
COMPUTATION\";\n\n\n\nif ($in_seq=~/\\S+/)\n  {\n \
   \n    print STDERR \"\\n Step $step: Gather all\
 the sequences into the tmp file: [$seq]\";$step++\
;	\n    &my_system (\"t_coffee $in_seq -convert -q\
uiet -output fasta_seq -outfile=$seq -maxnseq 0\")\
;\n  }\n\nif ( !-e $seq){$seq=\"\";}\n\nif ($in_pr\
f=~/\\S+/)\n  {\n    $seq_in_type=\"profile\"; \n \
   $seq.= $in_prf; \n  }\nif ($seq eq \"\"){ &exit\
_dpa (1, \"\\nERROR: No Sequence FOund. Provide Se\
quences with the -seq flag [FATAL: t_coffee_dpa]\"\
, EXIT_FAILURE);}\n\n \n\nif ( $run_name)\n  {\n  \
  $suffix=$run_name;\n  }\nelsif ($in_seq=~/\\b(S[\
\\w.]+\\b)/)\n  {\n    my $suffix1, $sufffix2;\n  \
  $suffix1=$suffix2=$1;\n    $suffix2=~s/^S//;\n  \
  if ( -e $suffix1){$suffix=$suffix1;}\n    elsif \
( -e $suffix2){$suffix=$suffix2;}\n    else\n     \
 {\n	$suffix=&vtmpnam();	\n      }\n    $suffix=~s\
/\\.\\w+//;\n  }\n\nelse\n  {\n    $suffix=&vtmpna\
m();\n  }\n\n\nif (!$run_name){$output_cl.=\" -run\
_name $suffix \";}\n\n\n$gl{'Tree'}=&seq2dpa_tree \
($seq, \"$suffix.dpadnd\");\n\nprint STDERR \"\\n \
Step $step: Prepare guide tree: $gl{'Tree'}\";$ste\
p++;\n\nprint STDERR \"\\n Step $step: Identify an\
d Align Closely Related Groups\";$step++;\n%gl=&ma\
ke_one_pass (0, $scoreT1,\"Align\",%gl);\n\nprint \
STDERR \"\\n Step $step: Make Multiple Group Align\
ment\";$step++;\nwhile (!%gl ||$gl{'Ng'}>$nseqT)\n\
  {\n    %gl=&make_one_pass ($nseqT, $scoreT2,\"t_\
coffee\",%gl);\n    if ( $gl{'Newgroups'}==0){$sco\
reT2--;}    \n  }\nprint STDERR \"\\n Step $step: \
Make The Final Alignment\";$step++;\n\n\n$arg_list\
 .=$output_cl;\n\n\n%gl=&tree2group (0,0, %gl);\n$\
gl{$gl{'0'}{'File'}}{'Output'}=\"\";\n$a=0;\n&alig\
n_groups (\"t_coffee\",'0', $arg_list, \" \", %gl)\
;\n\n\n\nif ( !$dpa_keep_tmpfile){&clean_tmp_file \
(@tl);}\n\n\n\nsub seq2dpa_tree \n  {\n    my $seq\
=@_[0];\n    my $newtree=@_[1];\n    my $aln=&vtmp\
nam ();\n\n    &my_system (\"t_coffee -special_mod\
e quickaln -in $seq -outfile $aln -quiet\");\n    \
&my_system (\"$seq_reformat -in $aln -action +aln2\
tree +tree2dpatree -output newick >$newtree\");\n \
   return $newtree;\n  }	\nsub seq2dpa_tree_old \n\
  {\n    my $aln=@_[0];\n    my $newtree=@_[1];\n \
   \n    \n    &my_system(\"$seq_reformat -in $aln\
 -action +seq2dpatree -output newick > $newtree\")\
;\n    return $newtree;\n  }\nsub aln2dpa_tree \n \
 {\n    my $aln=@_[0];\n    my $newtree=&vtmpnam()\
;\n    \n    &my_system(\"$seq_reformat -in $aln -\
action +aln2tree +tree2dpatree -output newick > $n\
ewtree\");\n    return $newtree;\n  }\nsub group_f\
ile2ngroups\n  {\n    my $file=@_[0];\n    my $n;\\
n    \n    open ( F, $file);\n    while (<F>)\n   \
   {\n	$n+=/\\>/;\n      }\n    close (F);\n    re\
turn $n;\n  }\n\nsub make_one_pass\n  {\n    my ($\
N, $ID,$pg, %gl)=@_;\n    my $a;\n\n    %gl=&tree2\
group ($N,$ID,%gl);\n    if (!$gl{'Newgroups'}){re\
turn %gl;}\n    else\n      {\n	for ( $a=0; $a< $n\
g; $a++)\n	  {\n	    if ($gl{$gl{$a}{'File'}}{'Ng'\
}>1){&display_group($a, %gl);}\n	    &align_groups\
 ($pg, $a, $arg_list, \" -quiet=quiet \", %gl);\n	\
  }\n	return %gl;\n      }\n  }\n\nsub tree2group \
\n  {\n    my ($N, $ID, %gl)=@_;\n    my $prefix=&\
vtmpnam();\n    my $group_file=&vtmpnam();\n    my\
 $file;\n    my $oldtree=&vtmpnam();\n    my $n;\n\
    my $tree;\n\n\n    if ( $gl{'Ng'}==1){return %\
gl;}\n    $tree=$gl{'Tree'}; \n    \n    #1 extrac\
t the groups\n    &my_system (\"$seq_reformat -in \
$tree -action +tree2group $N $ID $prefix > $group_\
file\");\n    $n=group_file2ngroups($group_file);\\
n    \n    \n    $gl{'Newgroups'}=1;\n    if ( $n=\
=$gl{'Ng'})\n      {\n	$gl{'Newgroups'}=0;\n	retur\
n %gl;\n      }\n    $gl{'Iteration'}++;\n    $gl{\
'MaxNseq'}=$N;$gl{'MinID'}=$ID;\n    $gl{'GroupFil\
e'}=$group_file;$gl{'Ng'}=$ng=0;\n    #2 Process t\
he group list into the hash\n    open (F, $group_f\
ile);\n    while (<F>)\n      {\n	$gl{'File'}.=$_;\
\n	if (/\\>/)\n	  {\n	    $line=$_;\n	    $line=~s\
/\\>//;\n	    @list=($line=~/(\\S+)/g);\n	    $fil\
e=$gl{$ng}{'File'}=shift @list;\n	    $gl{$file}{'\
Output'}=$file;\n	    \n	    $gl{$file}{'Ng'}=$#li\
st+1;\n	    if ($gl{$file}{'Ng'}>1){ $gl{$file}{'T\
list'}=$gl{$file}{'Alist'}=\"(\";}\n	    foreach $\
l (@list)\n	      {\n	\n		$gl{$file}{'List'}.=\" $\
l \";\n		\n		if (!$gl{$l}{'Tlist'})\n		  {\n		    \
$gl{$l}{'Tlist'}=\"$l\";\n		    $gl{$l}{'Alist'}=\\
"$l\";\n		    $gl{$l}{'Nseq'}=1;\n		    $gl{$l}{'N\
g'}=1;\n		  }\n		$gl{$file}{'Tlist'}.=\"$gl{$l}{'T\
list'},\";\n		$gl{$file}{'Alist'}.=\"$gl{$l}{'Tlis\
t'}|\";\n		$gl{$file}{'Nseq'}+=$gl{$l}{'Nseq'};\n	\
      }\n	    \n\n	    chop($gl{$file}{'Tlist'});c\
hop($gl{$file}{'Alist'});\n	    if ($gl{$file}{'Ng\
'}>1){$gl{$file}{'Tlist'}.=\")\"; $gl{$file}{'Alis\
t'}.=\");\";}\n	    $ng++;\n	  }	\n      }\n    $g\
l{'Ng'}=$ng;\n    close (F);\n    \n    #3 Update \
the old tree with the new groups\n    $gl{'Tree'}=\
&vtmpnam();\n    &my_system (\"$seq_reformat -in $\
tree -action +collapse_tree $group_file -output ne\
wick > $gl{'Tree'}\");\n    \n    return %gl;\n  }\
\n\nsub display_group \n  {\n    my ($g,%gl)=@_;\n\
    my $f;\n    \n    if ( $g==-1)\n      {\n	prin\
t STDERR \"\\nIteration $gl{'Iteration'} [MaxN=$gl\
{'MaxNseq'}][MinID=$gl{'MinID'}]\";\n      }\n    \
else\n      {\n\n	$f=$gl{$g}{'File'};\n	$action=($\
gl{$f}{'Ng'}==1 || $gl{'Iteration'}==1)?\"KEEP  \"\
:\"ALIGN \";\n        print STDERR \"\\n\\t[$actio\
n][MaxN=$gl{'MaxNseq'}][MinID=$gl{'MinID'}][File $\
f][Nseq=$gl{$f}{'Nseq'}][Ngroups=$gl{$f}{'Ng'}][$g\
l{$f}{'Alist'}]\";\n      }\n  }\n      \n\n\nsub \
align_groups\n  {\n    my ($pg, $g, $arg, $extra_a\
rg,%gl)=@_;\n    my $f;\n    my $Output,$Outflag;\\
n    \n    \n    $f=$gl{$g}{'File'};\n    $Output=\
($gl{$f}{'Output'});\n    \n    if ( $pg eq \"Alig\
n\")\n      {\n	if ( !-e $f)\n	  {\n	    $command=\
\"$seq_reformat -in $gl{'Seq'}  -action +extract_a\
ln $gl{'GroupFile'}\";\n	    if ($gl{$f}{'Ng'}>1)\\
n	      {\n		&my_system ($command);\n		$command=\"\
t_coffee -special_mode quick_aln  S$f -outfile=$Ou\
tput -quiet\";\n	      }\n	  }\n	else \n	  {$comma\
nd=\"\";}\n      }\n    elsif ( -e $f)\n      {	\n\
	$Outflag=($Output)?\"-outfile=$Output\":\"\";\n	$\
command=\"$pg -infile $f $Outflag -quiet stdout $a\
rg $extra_arg -maxnseq 0 -convert -quiet stdout\";\
\n      }\n    elsif ( $gl{$f}{'Ng'}==1)\n      {\\
n	$action=($dpa_debug)?\"cp\":\"mv\";\n	$command=\\
"$action $gl{$f}{'List'} $Output\";\n      }\n    \
else\n      {\n	$Outflag=($Output)?\"-outfile=$Out\
put\":\"\";\n	$command=\"$pg -profile $gl{$f}{'Lis\
t'} $Outflag $arg $extra_arg -maxnseq 0\";\n      \
}\n    \n    &my_system ($command);\n    return $o\
utfile;\n  }\n    \nsub my_system \n  {\n    my $c\
ommand=@_[0];\n    my $force=@_[1];\n    my $statu\
s;\n\n    if ( $dpa_debug) {print STDERR \"\\nCOMM\
AND: $command\";}\n    $status=system ($command);\\
n\n    if (!$force)\n       {\n	 &exit_dpa (($stat\
us==1), \"Failed in Command:\\n$command\\n[FATAL: \
t_coffee_dpa]\\n\", EXIT_FAILURE);\n       }\n    \
\n    return $status;\n  }\n\nsub vtmpnam\n  {\n  \
  my $prefix=@_[0];\n    my $tmp_file_name;\n\n   \
 $tmp_prefix=($prefix)?$prefix:\"dpa_tmp_file_$$\"\
;\n   \n    $tmp_count++;\n    $tmp_file_name=\"$t\
mp_prefix\".\"$tmp_count\";\n    $tl[$#tl+1]=$tmp_\
file_name;\n    return $tmp_file_name;\n  }\n\nsub\
 clean_tmp_file\n  {\n\n    my $list;\n    my $fil\
e;\n    \n    if ($dpa_debug){return;}\n    $list=\
vtmpnam();\n    `ls -1 | grep $tmp_prefix>$list`;\\
n    \n    open (F,$list);\n    while ( <F>)\n    \
  {\n	$file=$_;\n	chop $file;\n	if ( -e $file){unl\
ink $file;}\n      }\n    close (F);\n    unlink $\
list;\n  }\n\n\nsub exit_dpa\n  {\n  my $condition\
=@_[0];\n  my $error_msg=@_[1];\n  my $exit_value=\
@_[2];\n  if ( $condition)\n    {\n      print \"$\
error_msg\\n\";\n      exit ($exit_value);\n    }\\
n  else\n    {\n      return;\n    }\n  \n}\nsub e\
xtract_val_from_arg_list\n  {\n    my $arg=@_[0];\\
n    my $arg_list=@_[1];\n    my $keep_flag=@_[2];\
\n    my $default_value=@_[3];\n    my $val=\"\";\\
n    \n    #protect\n    $arg_list=~s/\\s-/ \\@/g;\
\n    $arg=~s/-/\\@/g;\n    \n    #search\n    if \
($arg eq \"^\")\n      {\n	$arg_list=~/^([^@]*)/;\\
n	$val=$1;\n      }\n    else\n      {$arg_list=~/\
$arg ([^@]*)/;$val=$1;}\n    \n    #remove trailin\
g spaces\n    $val=~s/\\s*$//;\n    \n    #remove \
the parsed sequence if needed\n    if (($val ne \"\
\") && $keep_flag ne \"KEEP\")\n      {\n	if ( $ar\
g eq \"^\"){$arg_list=~s/$val/ /;}\n	else {$arg_li\
st=~s/($arg [^@]*)/ /;}\n      }\n	\n    #unprotec\
t\n    $arg_list=~s/\\@/-/g;\n    $arg=~s/\\@/-/g;\
\n    \n    if (($val eq \"\") && $default_value n\
e \"unset\"){$val=$default_value;}\n    \n    retu\
rn $val, $arg_list;\n  }\n$program=\"T-COFFEE (r25\
3)\";\n\n","\n$DEBUG=1;\n$dpa_nseq=10;\n$dpa_sim=0\
;\nif (!@ARGV)\n  {\n    `t_coffee`;\n    exit (0)\
;\n  }\nforeach $arg (@ARGV)\n  {\n    $arg_list.=\
\" $arg\";\n  }\n$max_nseq=10;\n($seq0, $arg_list)\
=&extract_val_from_arg_list(\"^\",$arg_list);\n($s\
eq1, $arg_list)=&extract_val_from_arg_list(\"-seq\\
",$arg_list);\n($seq2, $arg_list)=&extract_val_fro\
m_arg_list(\"-in\",$arg_list, \"KEEP\");\n($seq3, \
$arg_list)=&extract_val_from_arg_list(\"-infile\",\
$arg_list);\n$in_seq=$seq0.\" \".$seq1.\" \".$seq2\
.\" \".$seq3;\n\n$seq=vtmpnam();\n`t_coffee $in_se\
q -convert -output fasta_seq -outfile=$seq`;\n\n\n\
($dpa_nseq, $arg_list)=&extract_val_from_arg_list(\
\"-dpa_nseq\",$arg_list);\n($master_aln, $arg_list\
)=&extract_val_from_arg_list(\"-master_aln\",$arg_\
list);\n($sim_matrix, $arg_list)=&extract_val_from\
_arg_list(\"-sim_matrix\",$arg_list);\n($core_seq,\
 $arg_list)=&extract_val_from_arg_list(\"-core_seq\
\",$arg_list);\n($dpa_sim, $arg_list)=&extract_val\
_from_arg_list(\"-dpa_sim\",$arg_list);\n($run_nam\
e, $arg_list)=&extract_val_from_arg_list(\"-run_na\
me\",$arg_list);\n($output, $arg_list)=&extract_va\
l_from_arg_list(\"-output\",$arg_list);\n\n\n\nif \
(!$sim_mat && !$master_aln)#Compute the fast align\
ment\n  {\n    $ref_aln=vtmpnam();\n    `t_coffee \
-seq=$seq -very_fast -outfile=$ref_aln -quiet`;\n \
   \n  }\n\nif (!$sim_mat)\n  {\n    $sim_mat=vtmp\
nam();\n    `seq_reformat -in $ref_aln -output sim\
 > $sim_mat`;\n  }\n\nif ( !$core_seq)\n  {\n    $\
core_seq=vtmpnam();\n    `seq_reformat -in $ref_al\
n -action +trimTC N$max_nseq -output fasta_seq > $\
core_seq`;\n  }\n@core_name=`seq_reformat -in $cor\
e_seq -output name `; \n\n@tot_name=`seq_reformat \
-in $seq -output name `;\n\nforeach $s (@core_name\
){$s=~s/\\s//g;$hcore{$s}=1;}\nforeach $s (@tot_na\
me){$s=~s/\\s//g;}\nprint STDERR \"T-Coffee_dpa:\\\
n\";\nprint STDERR \"\\tTOTAL  SEQ: @tot_name\\n\"\
;\nprint STDERR \"\\tCHOSEN SEQ: @core_name\\n\";\\
n\n\n\nopen (F, $sim_mat);\nwhile ( <F>)\n  {\n   \
 @l=($_=~/(\\b[\\S]+\\b)/g);\n    if (($l[0] eq \"\
TOP\" || $l[0] eq \"BOT\"))\n      {\n	$s1=$l[1];$\
s2=$l[2];$v=$l[3];\n	if ($hcore{$s1} && !$hcore{$s\
2})\n	  {\n	    if (!$hseq{$s2}{\"sim\"} || $v>$hs\
eq{$s2}{\"sim\"})\n	      {\n		$hseq{$s2}{\"sim\"}\
=$v;$hseq{$s2}{\"seq\"}=$s1;\n	      }\n	  }\n    \
  }\n  }\nclose (F);\nforeach $s (@tot_name)\n  {\\
n\n    if ( !$hseq{$s}{\"seq\"}){;}\n    else\n   \
   {\n	$s2=$hseq{$s}{\"seq\"};\n	$v=$hseq{$s}{\"si\
m\"};\n		\n	if ($v>$dpa_sim)\n	  {\n	    $hseq{$s}\
{'used'}=1;\n	    $seq_list{$s2}{$seq_list{$s2}{'n\
seq'}++}=$s;\n	  }\n      }\n  }\nforeach $s (@cor\
e_name){$seq_list{$s}{$seq_list{$s}{'nseq'}++}=$s;\
$hseq{$s}{'used'}=1;}\nforeach $s (@tot_name){if (\
!$hseq{$s}{'used'}){$seq_list{'unused'}{$seq_list{\
'unused'}{'nseq'}++}=$s;}}\n\n\n$n=0;\nforeach $s \
(@core_name)\n  {\n    $ng++;\n    $n=$seq_list{$s\
}{'nseq'};\n    for (@g_list=(), $a=0; $a<$n; $a++\
){@g_list=(@g_list,$seq_list{$s}{$a});}\n\n    $g_\
seq=vtmpnam();\n    $g_aln=vtmpnam();\n    \n    p\
rint STDERR \"Group $ng: $#g_list Seq: @g_list: \"\
;\n    \n    \n    `seq_reformat -in $seq -action \
+lower +keep_name +extract_seq  @g_list -output fa\
sta_seq > $g_seq`;\n    \n    \n    if ( $#g_list=\
=0)\n      {\n	print STDERR \"[No aln]\\n\";\n	$g_\
aln=$g_seq;\n      }\n    elsif ($#g_list<$max_nse\
q) \n      {\n	print STDERR \"[t_coffee]\\n\";\n	`\
t_coffee $g_seq -outfile=$g_aln -quiet $arg_list`;\
\n      }\n    else\n      {\n	print STDERR \"[t_c\
offee_dpa]\\n\";\n	`t_coffee_dpa2 $g_seq -outfile=\
$g_aln $arg_list -sim_matrix $sim_matrix -dpa_nseq\
 $dpa_nseq`;\n      }\n    @profile_list=(@profile\
_list, $g_aln);\n  }\n\n\nprint \"UNUSED $seq_list\
{'unused'}{'nseq'}\";\n\nif ($seq_list{'unused'}{'\
nseq'})\n    {\n      $prf=vtmpnam();\n      \n   \
   `t_coffee -profile @profile_list $arg_list -out\
file=$prf -quiet`;\n      $n=$seq_list{\"unused\"}\
{'nseq'};\n      $new_seq=vtmpnam();\n      $new_p\
rf=vtmpnam();\n      for ($a=0; $a<$n-1; $a++)\n	{\
\n	  $s=$seq_list{\"unused\"}{$a};\n	  print STDER\
R \"\\nADD Sequence $s\";\n	  \n	  `seq_reformat -\
in $seq -action +lower +keep_name +extract_seq $s \
 -output fasta_seq > $new_seq`;\n	  `t_coffee -pro\
file $prf $new_seq $arg_list -outfile=$new_prf`;\n\
	  `cp $new_prf $prf`;\n	}\n      $s=$seq_list{\"u\
nused\"}{$a};\n      `seq_reformat -in $seq -actio\
n +lower +keep_name +extract_seq $s  -output fasta\
_seq > $new_seq`;\n      @profile_list=($prf, $new\
_seq);\n    }\n    \n      \nif ($run_name){$arg_l\
ist.=\" -run_name $run_name\";}\nelse \n  {\n    $\
in_seq=~/([\\w-]+)/;\n    $arg_list.=\" -run_name \
$1\";\n  }\nif ( $output){$arg_list.=\" -output $o\
utput \";}\n\n`t_coffee -profile @profile_list $ar\
g_list`;\n\n\n&clean (@tmp_file_list);\n\n\nsub vt\
mpnam\n  {\n    my $tmp_file_name;\n    $tmp_name_\
counter++;\n    $tmp_file_name=\"tmp_file_$tmp_nam\
e_counter\\_Pid$$\";\n    $tmp_file_list[$ntmp_fil\
e++]=$tmp_file_name;\n    return $tmp_file_name;\n\
  }\nsub clean\n  {\n  my @fl=@_;\n  my $file;\n  \
return;\n\n  foreach $file ( @fl)\n    {\n      if\
 ( -e $file){unlink($file);}\n    }\n}\nsub extrac\
t_val_from_arg_list\n  {\n    my $arg=@_[0];\n    \
my $arg_list=@_[1];\n    my $keep_flag=@_[2];\n   \
 #protect\n    $arg_list=~s/\\s-/ \\@/g;\n    $arg\
=~s/-/\\@/g;\n    \n    #search\n    if ($arg eq \\
"^\")\n      {\n	$arg_list=~/^([^@]*)/;\n	$val=$1;\
\n      }\n    else\n      {$arg_list=~/$arg ([^@]\
*)/;$val=$1;}\n    \n    #remove the parsed sequen\
ce if needed\n    if ($val && $keep_flag ne \"KEEP\
\")\n      {\n	if ( $arg eq \"^\"){$arg_list=~s/$v\
al/ /;}\n	else {$arg_list=~s/($arg [^@]*)/ /;}\n  \
    }\n	\n    #unprotect\n    $arg_list=~s/\\@/-/g\
;\n    $arg=~s/\\@/-/g;\n    \n    return $val, $a\
rg_list;\n  }\n\n","use Env;\nuse FileHandle;\nuse\
 Cwd;\nuse File::Path;\nuse Sys::Hostname;\n\nour \
$PIDCHILD;\nour $ERROR_DONE;\nour @TMPFILE_LIST;\n\
our $EXIT_FAILURE=1;\nour $EXIT_SUCCESS=0;\n\nour \
$REFDIR=getcwd;\nour $EXIT_SUCCESS=0;\nour $EXIT_F\
AILURE=1;\n\nour $PROGRAM=\"tc_generic_method.pl\"\
;\nour $CL=$PROGRAM;\n\nour $CLEAN_EXIT_STARTED;\n\
our $debug_lock=$ENV{\"DEBUG_LOCK\"};\nour $debug_\
cmd_exec=$ENV{\"DEBUG_CMD_EXEC\"};\nour $LOCKDIR=$\
ENV{\"LOCKDIR_4_TCOFFEE\"};\nif (!$LOCKDIR){$LOCKD\
IR=getcwd();}\nour $ERRORDIR=$ENV{\"ERRORDIR_4_TCO\
FFEE\"};\nour $ERRORFILE=$ENV{\"ERRORFILE_4_TCOFFE\
E\"};\n&set_lock ($$);\nif (isshellpid(getppid()))\
{lock4tc(getppid(), \"LLOCK\", \"LSET\", \"$$\\n\"\
);}\n      \n\n\n\n\nour $BLAST_MAX_NRUNS=2;\nour \
$COMMAND;\nour $PIDCHILD;\n\n$REF_EMAIL=\"\";\n$tm\
p_dir=\"\";\n$init_dir=\"\";\n\n\n$test=0;\nif ($t\
est==1)\n  {\n    $SERVER=\"NCBI\";\n    $query=$A\
RGV[0];\n    $hitf=$ARGV[1];\n    %s=read_fasta_se\
q($query);\n    @sl=keys(%s);\n    &blast_xml2prof\
ile (\"xx\", $s{$sl[0]}{seq},$maxid,$minid,$mincov\
, $hitf);\n    myexit ($EXIT_FAILURE);\n  }\n\nfor\
each $v(@ARGV){$cl.=\"$v \";}\n$COMMAND=$cl;\n($mo\
de)=&my_get_opt ( $cl, \"-mode=\",1,0);\n\n($A)=(&\
my_get_opt ( $cl, \"-name1=\",0,0));\n($B)=(&my_ge\
t_opt ( $cl, \"-name2=\",0,0));\n($TMPDIR)=(&my_ge\
t_opt ( $cl, \"-tmpdir=\",0,0));\n($CACHE)=(&my_ge\
t_opt ( $cl, \"-cache=\",0,0));\n($SERVER)=((&my_g\
et_opt ( $cl, \"-server=\",0,0)));\n($EMAIL)=((&my\
_get_opt ( $cl, \"-email=\",0,0)));\n\nif (!$A){$A\
=\"A\";}\nif (!$B){$B=\"B\";}\n\n\nif (!$TMPDIR)\n\
  {\n    $HOME=$ENV{HOME};\n    if ($ENV{TMP_4_TCO\
FFEE}){$TMPDIR=$ENV{TMP_4_TCOFFEE};}\n    else{$TM\
PDIR=\"$HOME/.t_coffee/tmp/\";}\n  }\nif ( ! -d $T\
MPDIR)\n  {\n    mkdir $TMPDIR;\n  }\nif ( ! -d $T\
MPDIR)\n  {\n    print \"ERROR: Could not create t\
emporary dir: $TMPDIR\\n\";\n    myexit ($EXIT_FAI\
LURE);\n  }\n\n$EMAIL=~s/XEMAILX/\\@/g;\nif (!$EMA\
IL)\n  {\n    if ($ENV{EMAIL_4_TCOFFEE}){$EMAIL=$E\
NV{EMAIL_4_TCOFFEE};}\n    elsif ($ENV{EMAIL}){$EM\
AIL=$ENV{EMAIL};}\n    else {$EMAIL=$REF_EMAIL;}\n\
  }\n\n($maxid,$minid,$mincov)=(&my_get_opt ( $cl,\
 \"-maxid=\",0,0, \"-minid=\",0,0,\"-mincov=\",0,0\
));\nif (!$cl=~/\\-maxid\\=/){$maxid=95;}\nif (!$c\
l=~/\\-minid\\=/){$minid=35;}\nif (!$cl=~/\\-minco\
v\\=/){$mincov=80;}\n\n\n\n\nif ($mode eq \"seq_ms\
a\")\n  {\n    &seq2msa($mode,&my_get_opt ( $cl, \\
"-infile=\",1,1, \"-method=\",1,2, \"-param=\",0,0\
,\"-outfile=\",1,0, \"-database=\",0,0));\n  }\nel\
sif ( $mode eq \"tblastx_msa\")\n  {\n    &seq2tbl\
astx_lib ($mode,&my_get_opt ( $cl, \"-infile=\",1,\
1, \"-outfile=\",1,0));\n  }\nelsif ( $mode eq \"t\
blastpx_msa\")\n  {\n    &seq2tblastpx_lib ($mode,\
&my_get_opt ( $cl, \"-infile=\",1,1, \"-outfile=\"\
,1,0));\n  }\nelsif ( $mode eq \"thread_pair\")\n \
 {\n    &seq2thread_pair($mode,&my_get_opt ( $cl, \
\"-infile=\",1,1, \"-pdbfile1=\",1,1, \"-method=\"\
,1,2,\"-param=\",0,0, \"-outfile=\",1,0, ));\n  }\\
nelsif ( $mode eq \"pdbid_pair\")\n  {\n    &seq2p\
dbid_pair($mode,&my_get_opt ( $cl, \"-pdbfile1=\",\
1,0, \"-pdbfile2=\",1,0, \"-method=\",1,2,\"-param\
=\",0,0, \"-outfile=\",1,0, ));\n  }\nelsif ( $mod\
e eq \"pdb_pair\")\n  {\n    &seq2pdb_pair($mode,&\
my_get_opt ( $cl, \"-pdbfile1=\",1,1, \"-pdbfile2=\
\",1,1, \"-method=\",1,2,\"-param=\",0,0, \"-outfi\
le=\",1,0, ));\n  }\nelsif ( $mode eq \"profile_pa\
ir\")\n  {\n     &seq2profile_pair($mode,&my_get_o\
pt ( $cl, \"-profile1=\",1,1, \"-profile2=\",1,1, \
\"-method=\",1,2,\"-param=\",0,0, \"-outfile=\",1,\
0 ));\n  }\nelsif ($mode eq \"pdb_template_test\")\
\n  {\n    &blast2pdb_template_test ($mode,&my_get\
_opt ( $cl, \"-infile=\",1,1));\n\n  }\nelsif ($mo\
de eq \"psi_template_test\")\n  {\n    &psiblast2p\
rofile_template_test ($mode,&my_get_opt ( $cl, \"-\
seq=\",1,1,\"-blast=\",1,1));\n\n  }\n\nelsif ( $m\
ode eq \"pdb_template\")\n  {\n    &blast2pdb_temp\
late ($mode,&my_get_opt ( $cl, \"-infile=\",1,1, \\
"-database=\",1,0, \"-method=\",1,0, \"-outfile=\"\
,1,0,\"-pdb_type=\",1,0));\n  }\n\nelsif ( $mode e\
q \"profile_template\")\n  {\n    \n    &psiblast2\
profile_template ($mode,&my_get_opt ( $cl, \"-infi\
le=\",1,1, \"-database=\",1,0, \"-method=\",1,0, \\
"-outfile=\",1,0));\n  }\nelsif ( $mode eq \"psipr\
ofile_template\")\n  {\n    &psiblast2profile_temp\
late ($mode,&my_get_opt ( $cl, \"-infile=\",1,1, \\
"-database=\",1,0, \"-method=\",1,0, \"-outfile=\"\
,1,0));\n  }\nelsif ( $mode eq \"RNA_template\")\n\
  {\n    &seq2RNA_template ($mode,&my_get_opt ( $c\
l, \"-infile=\",1,1, \"-outfile=\",1,0));\n  }\nel\
sif ( $mode eq \"tm_template\")\n  {\n    &seq2tm_\
template ($mode, \"\", &my_get_opt ( $cl, \"-infil\
e=\",1,1,\"-arch=\",1,1,\"-psv=\",1,1, \"-outfile=\
\",1,0,));\n  }\nelsif ( $mode eq \"psitm_template\
\")\n  {\n    &seq2tm_template ($mode,&my_get_opt \
( $cl, \"-database=\",1,0, \"-infile=\",1,1, \"-ar\
ch=\",1,1,\"-psv=\",1,1, \"-outfile=\",1,0,));\n  \
}\nelsif ( $mode eq \"ssp_template\")\n  {\n    &s\
eq2ssp_template ($mode,&my_get_opt ( $cl, \"-infil\
e=\",1,1,\"-seq=\",1,1,\"-obs=\",1,1, \"-outfile=\\
",1,0));\n  }\nelsif ( $mode eq \"psissp_template\\
")\n  {\n    &seq2ssp_template ($mode,&my_get_opt \
( $cl, \"-infile=\",1,1,\"-seq=\",1,1,\"-obs=\",1,\
1, \"-outfile=\",1,0));\n  }\n\nelsif ( $mode eq \\
"rna_pair\")\n{\n    &seq2rna_pair($mode,&my_get_o\
pt ( $cl, \"-pdbfile1=\",1,1, \"-pdbfile2=\",1,1, \
\"-method=\",1,2,\"-param=\",0,0, \"-outfile=\",1,\
0, ));\n}\nelsif ( $mode eq \"calc_rna_template\")\
\n{\n    &calc_rna_template($mode,&my_get_opt ( $c\
l, \"-infile=\",1,1,\"-pdbfile=\",1,1, \"-outfile=\
\",1,0));\n}\nelse\n  {\n    myexit(flush_error( \\
"$mode is an unknown mode of tc_generic_method.pl\\
"));\n  }\nmyexit ($EXIT_SUCCESS);\n\n\nsub seq2ss\
p_template\n  {\n  my ($mode, $infile,$gor_seq,$go\
r_obs,$outfile)=@_;\n  my %s, %h;\n  my $result;\n\
  my (@profiles);\n  &set_temporary_dir (\"set\",$\
infile,\"seq.pep\");\n  %s=read_fasta_seq (\"seq.p\
ep\");\n\n  \n  open (R, \">result.aln\");\n  \n  \
#print stdout \"\\n\";\n  foreach $seq (keys(%s))\\
n    {\n      \n      open (F, \">seqfile\");\n   \
   $s{$seq}{seq}=uc$s{$seq}{seq};\n      print (F \
\">$s{$seq}{name}\\n$s{$seq}{seq}\\n\");\n      cl\
ose (F);\n      $lib_name=\"$s{$seq}{name}.ssp\";\\
n      $lib_name=&clean_file_name ($lib_name);\n  \
    \n      if ($mode eq \"ssp_template\"){&seq2go\
r_prediction ($s{$seq}{name},$s{$seq}{seq}, \"seqf\
ile\", $lib_name,$gor_seq, $gor_obs);}\n      elsi\
f ($mode eq \"psissp_template\")\n	{\n	  &seq2msa_\
gor_prediction ($s{$seq}{name},$s{$seq}{seq},\"seq\
file\", $lib_name,$gor_seq, $gor_obs);\n	}\n    \n\
      if ( !-e $lib_name)\n	{\n	  myexit(flush_err\
or(\"GORIV failed to compute the secondary structu\
re of $s{$seq}{name}\"));\n	  myexit ($EXIT_FAILUR\
E);\n	}\n      else\n	{\n	  print stdout \"\\tProc\
ess: >$s{$seq}{name} _E_ $lib_name \\n\";\n	  prin\
t R \">$s{$seq}{name} _E_ $lib_name\\n\";\n	}\n   \
   unshift (@profiles, $lib_name);\n    }\n  close\
 (R);\n  &set_temporary_dir (\"unset\",$mode, $met\
hod,\"result.aln\",$outfile, @profiles);\n}\n\nsub\
 seq2tm_template\n  {\n  my ($mode, $db, $infile,$\
arch,$psv,$outfile)=@_;\n  my %s, %h;\n  my $resul\
t;\n  my (@profiles);\n  &set_temporary_dir (\"set\
\",$infile,\"seq.pep\");\n  %s=read_fasta_seq (\"s\
eq.pep\");\n\n  \n  open (R, \">result.aln\");\n  \
\n  #print stdout \"\\n\";\n  foreach $seq (keys(%\
s))\n    {\n      open (F, \">seqfile\");\n      p\
rint (F \">$s{$seq}{name}\\n$s{$seq}{seq}\\n\");\n\
      close (F);\n      $lib_name=\"$s{$seq}{name}\
.tmp\";\n      $lib_name=&clean_file_name ($lib_na\
me);\n\n      if ($mode eq \"tm_template\")\n	{\n	\
  &safe_system (\"t_coffee -other_pg fasta_seq2hmm\
top_fasta.pl -in=seqfile -out=$lib_name -arch=$arc\
h -psv=$psv\");\n	}\n      elsif ( $mode eq \"psit\
m_template\")\n	{\n	  &seq2msa_tm_prediction ($s{$\
seq}{name},$s{$seq}{seq}, $db, \"seqfile\", $lib_n\
ame,$arch, $psv);\n	}\n      if ( !-e $lib_name)\n\
	{\n	  myexit(flush_error(\"RNAplfold failed to co\
mpute the secondary structure of $s{$seq}{name}\")\
);\n	  myexit ($EXIT_FAILURE);\n	}\n      else\n	{\
\n	  print stdout \"\\tProcess: >$s{$seq}{name} _T\
_ $lib_name\\n\";\n	  print R \">$s{$seq}{name} _T\
_ $lib_name\\n\";\n	}\n      unshift (@profiles, $\
lib_name);\n    }\n  close (R);\n  &set_temporary_\
dir (\"unset\",$mode, $method,\"result.aln\",$outf\
ile, @profiles);\n}\n\nsub seq2RNA_template\n  {\n\
  my ($mode, $infile,$outfile)=@_;\n  my %s, %h, ;\
\n  my $result;\n  my (@profiles);\n  &set_tempora\
ry_dir (\"set\",$infile,\"seq.pep\");\n  %s=read_f\
asta_seq (\"seq.pep\");\n\n  \n  open (R, \">resul\
t.aln\");\n  \n  #print stdout \"\\n\";\n  foreach\
 $seq (keys(%s))\n    {\n      open (F, \">seqfile\
\");\n      print (F \">$s{$seq}{name}\\n$s{$seq}{\
seq}\\n\");\n      close (F);\n      $lib_name=\"$\
s{$seq}{name}.rfold\";\n      $lib_name=&clean_fil\
e_name ($lib_name);\n      &safe_system (\"t_coffe\
e -other_pg RNAplfold2tclib.pl -in=seqfile -out=$l\
ib_name\");\n      \n      if ( !-e $lib_name)\n	{\
\n	 myexit(flush_error(\"RNAplfold failed to compu\
te the secondary structure of $s{$seq}{name}\"));\\
n	  myexit ($EXIT_FAILURE);\n	}\n      else\n	{\n	\
  print stdout \"\\tProcess: >$s{$seq}{name} _F_ $\
lib_name\\n\";\n	  print R \">$s{$seq}{name} _F_ $\
lib_name\\n\";\n	}\n      unshift (@profiles, $lib\
_name);\n    }\n  close (R);\n  &set_temporary_dir\
 (\"unset\",$mode, $method,\"result.aln\",$outfile\
, @profiles);\n}\nsub psiblast2profile_template_te\
st\n  {\n  my ($mode, $seq,$blast)=@_;\n  my %s, %\
h, ;\n  my ($result,$psiblast_output,$profile_name\
,@profiles);\n  my $trim=0;\n  my $maxid=100;\n  m\
y $minid=0;\n  my $mincov=0;\n  my $maxcov=100;\n \
 \n  %s=read_fasta_seq ($seq);\n  open (R, \">resu\
lt.aln\");\n  \n  #print stdout \"\\n\";\n  foreac\
h $seq (keys(%s))\n    {\n      \n      open (F, \\
">seqfile\");\n      print (F \">$A\\n$s{$seq}{seq\
}\\n\");\n      close (F);\n      $psiblast_output\
=$blast;\n      if ( -e $psiblast_output)\n	{\n	  \
%profile=blast_xml2profile($s{$seq}{name}, $s{$seq\
}{seq},$maxid, $minid,$mincov,$psiblast_output);\n\
\n\n	  \n	  $profile_name=\"$s{$seq}{name}.prf\";\\
n	  $profile_name=&clean_file_name ($profile_name)\
;\n	  unshift (@profiles, $profile_name);\n	  outp\
ut_profile ($profile_name, \\%profile, $trim);\n	 \
 print stdout \"\\tProcess: >$s{$seq}{name} _R_ $p\
rofile_name [$profile{n} Seq.] [$SERVER/blast/$db]\
[$CACHE_STATUS]\\n\";\n	  print R \">$s{$seq}{name\
} _R_ $profile_name\\n\";\n	}\n    }\n  close (R);\
\n  \n  die;\n}\nsub psiblast2profile_template \n \
 {\n  my ($mode, $infile, $db, $method, $outfile)=\
@_;\n  my %s, %h, ;\n  my ($result,$psiblast_outpu\
t,$profile_name,@profiles);\n  my $trim=0;\n  &set\
_temporary_dir (\"set\",$infile,\"seq.pep\");\n  %\
s=read_fasta_seq (\"seq.pep\");\n  open (R, \">res\
ult.aln\");\n  \n  #print stdout \"\\n\";\n  forea\
ch $seq (keys(%s))\n    {\n      open (F, \">seqfi\
le\");\n      print (F \">$A\\n$s{$seq}{seq}\\n\")\
;\n      close (F);\n      $psiblast_output=&run_b\
last ($s{$seq}{name},$method, $db, \"seqfile\",\"o\
utfile\");\n      \nif ( -e $psiblast_output)\n	{\\
n	  %profile=blast_xml2profile($s{$seq}{name}, $s{\
$seq}{seq},$maxid, $minid,$mincov,$psiblast_output\
);\n	  unlink ($psiblast_output);\n	  \n	  $profil\
e_name=\"$s{$seq}{name}.prf\";\n	  $profile_name=&\
clean_file_name ($profile_name);\n	  unshift (@pro\
files, $profile_name);\n	  output_profile ($profil\
e_name, \\%profile, $trim);\n	  print stdout \"\\t\
Process: >$s{$seq}{name} _R_ $profile_name [$profi\
le{n} Seq.] [$SERVER/blast/$db][$CACHE_STATUS]\\n\\
";\n	  print R \">$s{$seq}{name} _R_ $profile_name\
\\n\";\n	}\n    }\n  close (R);\n  &set_temporary_\
dir (\"unset\",$mode, $method,\"result.aln\",$outf\
ile, @profiles);\n}\nsub blast2pdb_template_test\n\
    {\n      my ($mode,$infile)=@_;\n      my ($ma\
xid,$minid,$mincov);\n      $maxid=100;\n      $mi\
nid=0;\n      $mincov=0;\n      \n      print \"$i\
nfile\\n\";\n      \n      %p=blast_xml2profile($s\
{$seq}{name}, $s{$seq}{seq},$maxid, $minid,$mincov\
,$infile);\n      $c=1;\n      print stdout \"\\tP\
rocess: >$s{$seq}{name} [$SERVER/blast/$db][$CACHE\
_STATUS]\\n\";\n      while (!$found && $c<$p{n})\\
n	{\n	  $pdbid=&id2pdbid($p{$c}{identifyer});\n	  \
if ( length ($pdbid)>5){$pdbid=id2pdbid($p{$c}{def\
inition});}\n	  \n	  if ( length ($pdbid)>5)\n	   \
 {\n	      myexit(add_error (EXIT_FAILURE,$$,$$,ge\
tppid(), \"BLAST_FAILURE::Could Not Parse PDBID ($\
p{$c}{identifyer},$p{$c}{definition})\"));\n	    }\
\n	  \n	  \n	  if (!&pdb_is_released($pdbid))\n	  \
  {\n	      print stdout \"\\t\\t**$pdbid [PDB NOT\
 RELEASED or WITHDRAWN]\\n\";\n	      $c++;\n	    \
}\n	  elsif (!&pdb_has_right_type ($pdbid,$type))\\
n	    {\n	      my $ptype=&pdb2type ($pdbid);\n	  \
    my $etype=&type2etype($type);\n	      \n	     \
 print stdout \"\\t\\t**$pdbid [$ptype cannot be u\
sed (expected: $etype)]\\n\";\n	      $c++;\n	    \
}\n	  else\n	    {\n	      $found=1;\n	    }\n	}\n\
\n      if ($found)\n	{\n	  print stdout \"\\t\\t \
>$s{$seq}{name} _P_ $pdbid\\n\";\n	}\n      else\n\
	{\n	  print stdout \"\\t\\t >$s{$seq}{name} No Te\
mplate Selected\\n\";\n	}\n      die;\n    }\nsub \
blast2pdb_template \n  {\n  my ($mode, $infile, $d\
b, $method, $outfile,$type)=@_;\n  my %s, %h, ;\n \
 my ($result,$blast_output);\n  &set_temporary_dir\
 (\"set\",$infile,\"seq.pep\");\n  %s=read_fasta_s\
eq (\"seq.pep\");\n  open (R, \">result.aln\");\n \
 \n \n  #print stdout \"\\n\";\n  foreach $seq (ke\
ys(%s))\n    {\n      my $c;\n      my $found;\n  \
    \n      open (F, \">seqfile\");\n      print (\
F \">$A\\n$s{$seq}{seq}\\n\");\n      close (F);\n\
     \n      $blast_output=&run_blast ($s{$seq}{na\
me},$method, $db, \"seqfile\",\"outfile\");\n     \
\n      %p=blast_xml2profile($s{$seq}{name}, $s{$s\
eq}{seq},$maxid, $minid,$mincov,$blast_output);\n \
     unlink ($blast_output);\n      \n      $c=1;\\
n      print stdout \"\\tProcess: >$s{$seq}{name} \
[$SERVER/blast/$db][$CACHE_STATUS]\\n\";\n      wh\
ile (!$found && $c<$p{n})\n	{\n	  $pdbid=&id2pdbid\
($p{$c}{identifyer});\n	  if ( length ($pdbid)>5){\
$pdbid=id2pdbid($p{$c}{definition});}\n\n	  if ( l\
ength ($pdbid)>5)\n	    {\n	      myexit(add_error\
 (EXIT_FAILURE,$$,$$,getppid(), \"BLAST_FAILURE::C\
ould Not Parse PDBID ($p{$c}{identifyer},$p{$c}{de\
finition})\"));\n	    }\n	  \n\n	  if (!&pdb_is_re\
leased($pdbid))\n	    {\n	      print stdout \"\\t\
\\t**$pdbid [PDB NOT RELEASED or WITHDRAWN]\\n\";\\
n	      $c++;\n	    }\n	  elsif (!&pdb_has_right_t\
ype ($pdbid,$type))\n	    {\n	      my $ptype=&pdb\
2type ($pdbid);\n	      my $etype=&type2etype($typ\
e);\n	      \n	      print stdout \"\\t\\t**$pdbid\
 [$ptype cannot be used (expected: $etype)]\\n\";\\
n	      $c++;\n	    }\n	  else\n	    {\n	      $fo\
und=1;\n	    }\n	}\n\n      if ($found)\n	{\n	  pr\
int R \">$s{$seq}{name} _P_ $pdbid\\n\";\n	  print\
 stdout \"\\t\\t >$s{$seq}{name} _P_ $pdbid\\n\";\\
n	}\n      else\n	{\n	  print R \">$s{$seq}{name}\\
\n\";\n	  print stdout \"\\t\\t >$s{$seq}{name} No\
 Template Selected\\n\";\n	}\n    }\n  close (R);\\
n  &set_temporary_dir (\"unset\",$mode, $method,\"\
result.aln\",$outfile);\n}\nsub type2etype\n  {\n \
   my $type=shift;\n    my $etype;\n    \n    if (\
 $type=~/n/){$etype.=\"NMR \";}\n    if ( $type=~/\
d/){$etype.=\"diffraction \";}\n    if ( $type=~/m\
/){$etype.=\"model \";}\n    return $etype;\n  }\n\
sub pdb2type\n  {\n     my $pdb=shift;\n     my $f\
=vtmpnam();\n     \n     my $value= &safe_system (\
\"t_coffee -other_pg extract_from_pdb -model_type \
$pdb > $f\");\n     my $r=&file2string ($f);\n    \
 chomp($r);\n     return $r;\n   }\nsub pdb_has_ri\
ght_type\n  {\n    my $pdb=shift;\n    my $type=sh\
ift;\n    \n    my $f=vtmpnam();\n    \n    my $va\
lue= &safe_system (\"t_coffee -other_pg extract_fr\
om_pdb -model_type $pdb > $f\");\n    my $r=&file2\
string ($f);\n    chomp($r);\n\n        \n    if (\
 $r eq \"NMR\" && $type=~/n/){return 1;}\n    elsi\
f ( $r eq \"diffraction\" && $type=~/d/){return 1;\
}\n    elsif ( $r eq \"model\" && $type=~/m/){retu\
rn 1;}\n    else {return 0;}\n  }\nsub pdb_is_rele\
ased\n  {\n    my $pdb=shift;\n    my $f=vtmpnam()\
;\n    \n    $value= &safe_system (\"t_coffee -oth\
er_pg extract_from_pdb -is_released_pdb_name $pdb \
> $f\");\n    my $r=&file2string ($f);\n    chomp(\
$r);\n    return $r;\n  }\nsub blast_msa\n  {\n   \
 my ($infile,$db,$outfile)=@_;\n    my ($a, %seq);\
\n    my $seqfile;\n    my $SEQ=new FileHandle;\n \
   my $seqfile=\"seqfile\";\n    my @txt;\n    \n \
   \n    %s1=&read_fasta_seq ($db);\n    \n    for\
each $s (keys (%s1))\n      {\n	$i=$s1{$s}{order};\
\n	$s{$i}{name}=$s;\n	$s{$i}{seq}=$s1{$s}{seq};\n	\
$s{$i}{len}=length( $s{$i}{seq});\n	$s{n}++;\n    \
  }\n    \n    &safe_system (\"formatdb -i $db\");\
\n    &safe_system  (\"blastall -i $infile -d $db \
-m7 -p blastp -o io\");\n    &set_blast_type (\"io\
\");\n    \n    %FB=&xml2tag_list (\"io\", \"Itera\
tion\");\n    open (F, \">$outfile\");\n    print \
F \"! TC_LIB_FORMAT_01\\n\";\n    print F \"$s{n}\\
\n\";\n    for ( $a=0; $a<$s{n}; $a++)\n      {\n	\
print F \"$s{$a}{name} $s{$a}{len} $s{$a}{seq}\\n\\
";\n      }\n\n\n    for ( $a=0; $a<$FB{n}; $a++)\\
n      {\n	%p=blast_xml2profile ($s{$a}{name}, $s{\
$a}{seq},100, 0, 0, $FB{$a}{body});\n	my $query=$p\
{0}{name};\n	my $i= $s1{$query}{order}+1;\n	for ($\
b=1; $b<$p{n}; $b++)\n	  {\n	    my $l=length ($p{\
$b}{Qseq});\n	    my $hit=$p{$b}{definition};\n	  \
  my $Qstart=$p{$b}{Qstart};\n	    my $Hstart=$p{$\
b}{Hstart};\n	    my $identity=$p{$b}{identity};\n\
	    my @lrQ=split (//,$p{$b}{Qseq});\n	    my @lr\
H=split (//,$p{$b}{Hseq});\n	    \n	    my $j= $s1\
{$hit}{order}+1;\n	    #if ( $j==$i){next;}\n	    \
printf F \"# %d %d\\n\", $i, $j;\n	    #  print  F\
 \"\\n$p{$b}{Qseq} ($Qstart)\\n$p{$b}{Hseq} ($Hsta\
rt)\";\n	    for ($c=0; $c<$l; $c++)\n	      {\n		\
my $rQ=$lrQ[$c];\n		my $rH=$lrH[$c];\n		my $n=0;\n\
		\n		if ($rQ ne \"-\"){$n++, $Qstart++;}\n		if ($\
rH ne \"-\"){$n++; $Hstart++;}\n		\n		if ( $n==2)\\
n		  {\n		    printf F \"\\t%d %d %d\\n\", $Qstart\
-1, $Hstart-1,$identity;\n		  }\n	      }\n	  }\n \
     }\n    print F \"! SEQ_1_TO_N\\n\";\n    clos\
e (F);\n    return $output;\n  \n  }\n\nsub blast_\
msa_old\n  {\n    my ($infile,$outfile)=@_;\n    m\
y ($a, %seq);\n    %s1=&read_fasta_seq ($infile);\\
n    foreach $s (keys (%s1))\n      {\n	$i=$s1{$s}\
{order};\n	$s{$i}{name}=$s;\n	$s{$i}{seq}=$s1{$s}{\
seq};\n	$s{$i}{len}=length( $s{$i}{seq});\n	$s{n}+\
+;\n      }\n    &safe_system (\"formatdb -i $infi\
le\");\n    &safe_system (\"blastall -i $infile -d\
 $infile -m7 -o io\");\n    &set_blast_type (\"io\\
");\n    \n    %FB=&xml2tag_list (\"io\", \"Iterat\
ion\");\n    \n    open (F, \">$outfile\");\n    p\
rint F \"! TC_LIB_FORMAT_01\\n\";\n    print F \"$\
s{n}\\n\";\n    for ( $a=0; $a<$s{n}; $a++)\n     \
 {\n	print F \"$s{$a}{name} $s{$a}{len} $s{$a}{seq\
}\\n\";\n      }\n    for ( $a=0; $a<$FB{n}; $a++)\
\n      {\n	%p=blast_xml2profile ($s{$a}{name}, $s\
{$a}{seq},100, 0, 0, $FB{$a}{body});\n	for ($b=1; \
$b<$p{n}; $b++)\n	  {\n	    my $l=length ($p{$b}{Q\
seq});\n	    my $hit=$p{$b}{definition};\n	    my \
$Qstart=$p{$b}{Qstart};\n	    my $Hstart=$p{$b}{Hs\
tart};\n	    my $identity=$p{$b}{identity};\n	    \
my @lrQ=split (//,$p{$b}{Qseq});\n	    my @lrH=spl\
it (//,$p{$b}{Hseq});\n	    my $i= $s1{$s{$a}{name\
}}{order}+1;\n	    my $j= $s1{$hit}{order}+1;\n	  \
  #if ( $j==$i){next;}\n	    printf F \"# %d %d\\n\
\", $i, $j;\n	    #  print  F \"\\n$p{$b}{Qseq} ($\
Qstart)\\n$p{$b}{Hseq} ($Hstart)\";\n	    for ($c=\
0; $c<$l; $c++)\n	      {\n		my $rQ=$lrQ[$c];\n		m\
y $rH=$lrH[$c];\n		my $n=0;\n		\n		if ($rQ ne \"-\\
"){$n++, $Qstart++;}\n		if ($rH ne \"-\"){$n++; $H\
start++;}\n		\n		if ( $n==2)\n		  {\n		    printf \
F \"\\t%d %d %d\\n\", $Qstart-1, $Hstart-1,$identi\
ty;\n		  }\n	      }\n	  }\n      }\n    print F \\
"! SEQ_1_TO_N\\n\";\n    close (F);\n    return $o\
utput;\n  \n  }\n\nsub seq2msa\n  {\n    my ($mode\
, $infile, $method, $param, $outfile,$database)=@_\
;\n    &set_temporary_dir (\"set\",$infile,\"seq.p\
ep\", $database, \"db.pep\");\n    $param.=\" >/de\
v/null 2>&1 \";\n    \n    \n    #make sure test.p\
ep is in FASTA\n    &safe_system (\"t_coffee -othe\
r_pg seq_reformat -in seq.pep -output fasta_seq > \
x\");\n    `mv x seq.pep`;\n    \n    if ( $method\
 eq \"blastp\")\n      {\n	&blast_msa (\"seq.pep\"\
, \"db.pep\",\"result.aln\");\n      }\n    elsif \
( $method eq \"muscle\")\n      {\n	`muscle -in se\
q.pep -out result.aln $param`;\n      }\n    elsif\
 ( $method eq \"probcons\")\n      {\n	`probcons s\
eq.pep >result.aln 2>/dev/null`;\n      }\n    els\
if ( $method eq \"mafft\")\n      {\n	`mafft --qui\
et --localpair --maxiterate 1000 seq.pep> result.a\
ln  2>/dev/null`\n      }\n    elsif ( $method=~/p\
rank/)\n      {\n	`$method -d=seq.pep -o=result.al\
n -quiet 2>/dev/null`;\n	`mv result.aln.1.fas resu\
lt.aln`;\n      }\n    else\n      {\n	`$method -i\
nfile=seq.pep -outfile=result.aln`;\n      }\n    \
\n    &set_temporary_dir (\"unset\",$mode, $method\
,\"result.aln\",$outfile);\n    myexit ($EXIT_SUCC\
ESS);\n  }\n\nsub seq2thread_pair\n  {\n    my ($m\
ode, $infile, $pdbfile1, $method, $param, $outfile\
)=@_;\n    &set_temporary_dir (\"set\",$infile,\"s\
eq.pep\",$pdbfile1,\"struc.pdb\");\n    if ($metho\
d eq \"fugueali\")\n      {\n	#Env Variable that n\
eed to be defined for Fugue\n	if (!$ENV{FUGUE_LIB_\
LIST}){$ENV{FUGUE_LIB_LIST}=\"DUMMY\";}\n	if (!$EN\
V{HOMSTRAD_PATH})  {$ENV{HOMSTRAD_PATH}=\"DUMMY\";\
}\n	if (!$ENV{HOMS_PATH}){$ENV{HOMS_PATH}=\"DUMMY\\
";}\n	\n	`joy struc.pdb >x 2>x`;\n	&check_file(\"s\
truc.tem\", \"Joy failed [FATAL:$PROGRAM/$method]\\
");\n	`melody -t struc.tem >x 2>x`;\n	&check_file(\
\"struc.tem\", \"Melody failed [FATAL:$PROGRAM/$me\
thod]\");\n	`fugueali -seq seq.pep -prf struc.fug \
-print > tmp_result.aln`;\n	\n	&check_file(\"tmp_r\
esult.aln\", \"Fugue failed [FATAL:$PROGRAM/$metho\
d]\");\n	&safe_system (\"t_coffee -other_pg seq_re\
format -in tmp_result.aln -output fasta_aln >resul\
t.aln\");\n      }\n    elsif ( $method eq \"t_cof\
fee\")\n      {\n	&safe_system (\"t_coffee -in Pst\
ruc.pdb Sseq.pep Mslow_pair -outfile result.aln -q\
uiet\");\n      }\n    else\n      {\n	&safe_syste\
m (\"$method -infile=seq.pep -pdbfile1=struc.pdb -\
outfile=result.aln $param>x 2>x\");\n      }\n    \
&set_temporary_dir (\"unset\",$mode,$method,\"resu\
lt.aln\",$outfile);\n    myexit ($EXIT_SUCCESS);\n\
  }\nsub seq2pdbid_pair\n  {\n    my ($mode, $pdbf\
ile1, $pdbfile2, $method, $param, $outfile)=@_;\n \
   my ($name);\n\n    \n    &set_temporary_dir (\"\
set\");\n    $name=$pdbfile1.\" \".$pdbfile2;\n\n \
   if (    &cache_file(\"GET\",\"\",\"$name\",\"$m\
ethod\",\"dali\",$outfile,\"EBI\"))\n      {return\
 $outfile;}\n    else\n      {\n	if ($method eq \"\
daliweb\")\n	  {\n	    $pdbfile1=~/(....)(.)/;\n	 \
   $id1=$1; $c1=$2;\n	    \n	    $pdbfile2=~/(....\
)(.)/;\n	    $id2=$1; $c2=$2;\n	    \n	    $comman\
d=\"t_coffee -other_pg dalilite.pl --pdb1 $id1 --c\
hainid1 $c1 --pdb2 $id2 --chainid2 $c2 --email=$EM\
AIL  >dali_stderr 2>dali_stderr\";\n	    $dali=`$c\
ommand`;\n	    \n	    open (F, \"dali_stderr\");\n\
	    while (<F>)\n	      {\n		if ( /JobId: dalilit\
e-(\\S+)/)\n		{\n		  $jobid=$1;\n		}\n	      }\n	 \
   close (F);\n	    unlink (\"dali_stderr\");\n	  \
  \n	    $output1=\"dalilite-$jobid.txt\";\n	    i\
f ( -e $output1)\n	      {\n		unlink ($output1);\n\
		&url2file (\"http://www.ebi.ac.uk/Tools/es/cgi-b\
in/jobresults.cgi/dalilite/dalilite-$jobid/aln.htm\
l\", \"output2\");\n		\n		if ( -e \"output2\")\n		\
  {\n		    my ($seq1, $seq2);\n		    $seq1=$seq2=\\
"\";\n		    \n		    open (F, \"output2\");\n		    \
while (<F>)\n		      {\n			$l=$_;\n			if ( $l=~/Qu\
ery\\s+(\\S+)/)\n			  {\n			    $seq1.=$1;\n			  }\
\n			elsif ( $l=~/Sbjct\\s+(\\S+)/)\n			  {\n			  \
  $seq2.=$1;\n			  }\n		      }\n		    close (F);\\
n		    unlink (\"output2\");\n		    if ($seq1 ne \\
"\" && $seq2 ne \"\")\n		      {\n			$output3=\">$\
A\\n$seq1\\n>$B\\n$seq2\\n\";\n			$output3=~s/\\./\
-/g;\n			open (F, \">result.aln\");\n			print F \"\
$output3\";\n			close (F);\n		      }\n		  }\n	   \
   }\n	  }\n      }\n    &cache_file(\"SET\",\"\",\
\"$name\",\"$method\",\"dali\",\"result.aln\",\"EB\
I\");\n    &set_temporary_dir (\"unset\",$mode, $m\
ethod, \"result.aln\",$outfile);\n    myexit ($EXI\
T_SUCCESS);\n  }\nsub seq2pdb_pair\n  {\n    my ($\
mode, $pdbfile1, $pdbfile2, $method, $param, $outf\
ile)=@_;\n    \n    &set_temporary_dir (\"set\",$p\
dbfile1,\"pdb1.pdb\",$pdbfile2,\"pdb2.pdb\");\n   \
 if ($method eq \"t_coffee\")\n      {\n	&safe_sys\
tem (\"t_coffee -in Ppdb1.pdb Ppdb2.pdb -quiet -ou\
tfile=result.aln\");\n      }\n    elsif ( $method\
 eq \"DaliLite\")\n      {\n	if ( &safe_system (\"\
DaliLite -pairwise pdb1.pdb pdb2.pdb >tmp1\")==$EX\
IT_SUCCESS)\n	  {\n	     my ($seq1, $seq2);\n	    \
 $seq1=$seq2=\"\";\n		    \n	     open (F, \"tmp1\\
");\n	     while (<F>)\n	       {\n		 $l=$_;\n		 i\
f ( $l=~/Query\\s+(\\S+)/)\n		   {\n		     $seq1.=\
$1;\n		   }\n		 elsif ( $l=~/Sbjct\\s+(\\S+)/)\n		\
   {\n		     $seq2.=$1;\n		   }\n	       }\n	     \
close (F);\n	     unlink (\"tmp1\");\n	     if ($s\
eq1 ne \"\" && $seq2 ne \"\")\n	       {\n		 my $o\
utput3=\">$A\\n$seq1\\n>$B\\n$seq2\\n\";\n		 $outp\
ut3=~s/\\./-/g;\n		 open (F, \">result.aln\");\n		\
 print F \"$output3\";\n		 close (F);\n	       }\n\
	   }\n	else\n	  {\n	    print \"ERROR: DalLite fa\
iled to align the considered structures[tc_generic\
_method.pl]\\n\";\n	  }    \n      }\n    elsif ( \
$method eq \"TMalign\")\n      {\n	if ( &safe_syst\
em (\"TMalign pdb1.pdb pdb2.pdb >tmp1\")==$EXIT_SU\
CCESS)\n	  {\n	    `tail -4 tmp1 > tmp2`;\n	    \n\
	    open (F, \"tmp2\");\n	    while (<F>)\n	     \
 {\n		unshift(@l, $_);\n	      }\n	    close (F);\\
n	    open (F, \">result.aln\");\n	    $l[3]=~s/[^\
a-zA-Z0-9-]/\\-/g;\n	    $l[1]=~s/[^a-zA-Z0-9-]/\\\
-/g;\n	    print F \">$A\\n$l[3]\\n>$B\\n$l[1]\\n\\
";\n	    close (F);\n	  }\n	else\n	  {\n	    print\
 \"ERROR: TMalign failed to align the considered s\
tructures[tc_generic_method.pl]\\n\";\n	    `rm re\
sult.aln >/dev/null 2>/dev/null`;\n	  }\n      }\n\
    elsif ( $method eq \"mustang\")\n      {\n	if \
( &safe_system (\"mustang -i pdb1.pdb pdb2.pdb -F \
fasta >/dev/null 2>/dev/null\")==$EXIT_SUCCESS)\n	\
  {\n	    `mv results.afasta result.aln`;\n	  }\n	\
else\n	  {\n	    print \"ERROR: mustang failed to \
align the considered structures[tc_generic_method.\
pl]\\n\";\n	    `rm result.aln >/dev/null 2>/dev/n\
ull`;\n	  }\n      }\n    else\n      {\n	if ( &sa\
fe_system (\"$method -pdbfile1=pdb1.pep -pdbfile2=\
pdb2.pdb -outfile=result.aln $param>x 2>x\")==$EXI\
T_SUCCESS)\n	  {\n	    `mv results.afasta result.a\
ln`;\n	  }\n	else\n	  {\n	    print \"ERROR: $meth\
od failed to align the considered structures[tc_ge\
neric_method.pl]\\n\";\n	    `rm result.aln >/dev/\
null 2>/dev/null`;\n	  }\n      }\n    &set_tempor\
ary_dir (\"unset\",$mode, $method, \"result.aln\",\
$outfile);\n    myexit ($EXIT_SUCCESS);\n  }\n\nsu\
b seq2profile_pair\n  {\n    my ($mode, $profile1,\
 $profile2, $method, $param, $outfile)=@_;\n    \n\
    \n    if ($method eq \"clustalw\")\n      {\n	\
&set_temporary_dir (\"set\",$profile1,\"prf1.aln\"\
,$profile2,\"prf2.aln\");\n	`clustalw -profile1=pr\
f1.aln -profile2=prf2.aln -outfile=result.aln`;\n	\
&set_temporary_dir (\"unset\",$mode, $method, \"re\
sult.aln\",$outfile);\n      }\n    elsif ( $metho\
d eq \"hhalign\")\n      {\n	hhalign ( $profile1,$\
profile2,$outfile,$param);\n      }\n    else\n   \
   {\n	\n	`$method -profile1=prf1.aln -profile2=pr\
f2.aln -outfile=result.aln $param>x 2>x`;\n      }\
\n   \n    myexit ($EXIT_SUCCESS);\n  }\n\nsub pg_\
is_installed\n  {\n    my @ml=@_;\n    my ($r, $p,\
 $m);\n    my $supported=0;\n    \n    my $p=shift\
 (@ml);\n    if ($p=~/::/)\n      {\n	if (safe_sys\
tem (\"perl -M$p -e 1\")==$EXIT_SUCCESS){return 1;\
}\n	else {return 0;}\n      }\n    else\n      {\n\
	$r=`which $p 2>/dev/null`;\n	if ($r eq \"\"){$r=0\
;}\n	else {$r=1;}\n	\n	if ($r==0 && is_blast_packa\
ge ($p)){return pg_is_installed (\"legacy_blast.pl\
\");}\n	else {return $r;}\n      }\n  }\n\nsub is_\
blast_package\n  {\n    my $p=shift;\n    if ( $p=\
~/blastp/){return 1;}\n    elsif ($p=~/blastall/){\
return 1;}\n    elsif ($p=~/blastn/){return 1;}\n \
   elsif ($p=~/blastx/){return 1;}\n    elsif ($p=\
~/formatdb/){return 1;}\n    else {return 0;}\n  }\
\n    \nsub check_internet_connection\n  {\n    my\
 $internet;\n    my $tmp;\n    &check_configuratio\
n ( \"wget\"); \n    \n    $tmp=&vtmpnam ();\n    \
\n    if     (&pg_is_installed    (\"wget\")){`wge\
t www.google.com -O$tmp >/dev/null 2>/dev/null`;}\\
n    elsif  (&pg_is_installed    (\"curl\")){`curl\
 www.google.com -o$tmp >/dev/null 2>/dev/null`;}\n\
    \n    if ( !-e $tmp || -s $tmp < 10){$internet\
=0;}\n    else {$internet=1;}\n    if (-e $tmp){un\
link $tmp;}\n\n    return $internet;\n  }\nsub che\
ck_pg_is_installed\n  {\n    my @ml=@_;\n    my $r\
=&pg_is_installed (@ml);\n    if (!$r && $p=~/::/)\
\n      {\n	print STDERR \"\\nYou Must Install the\
 perl package $p on your system.\\nRUN:\\n\\tsudo \
perl -MCPAN -e 'install $pg'\\n\";\n      }\n    e\
lsif (!$r)\n      {\n	myexit(flush_error(\"\\nProg\
ram $p Supported but Not Installed on your system\\
"));\n      }\n    else\n      {\n	return 1;\n    \
  }\n  }\nsub set_temporary_dir\n  {\n    my @list\
=@_;\n    my $dir_mode, $a, $mode, $method;\n  \n \
   $dir_mode=shift (@list);\n\n    \n    if ( $dir\
_mode eq \"set\")\n      {\n	$initial_dir=cwd();\n\
	if ( !$tmp_dir)\n	  {\n	    $rand=rand (100000);\\
n	    $tmp_dir=\"$TMPDIR/tmp4tcoffee_profile_pair_\
dir_$$\\_P_$rand\";\n	  }\n	if ( !-d $tmp_dir)\n	 \
 {\n	    push (@TMPDIR_LIST, $tmp_dir);\n	    `mkd\
ir $tmp_dir`;\n	  }\n	\n	for ( $a=0; $a<=$#list; $\
a+=2)\n	      {\n		if (-e $list[$a]){ `cp $list[$a\
] $tmp_dir/$list[$a+1]`;}\n	      }\n	chdir $tmp_d\
ir;\n      }\n    elsif ( $dir_mode eq \"unset\")\\
n      {\n	$mode=shift (@list);\n	$method=shift (@\
list);\n	\n	if (!-e $list[0])\n	  {\n	   myexit(fl\
ush_error(\"Program $method failed to produce $lis\
t[1]\" ));\n	    myexit ($EXIT_FAILURE);\n	  }\n	e\
lse\n	  {\n	    chdir $initial_dir;\n	    # `t_cof\
fee -other_pg seq_reformat -in $tmp_dir/$list[0] -\
output fasta_aln -out $tmp_dir/result2.aln`;\n	   \
 `cp $tmp_dir/$list[0] $tmp_dir/result2.aln`;\n	  \
  if ( $list[1] eq \"stdout\")\n	      {\n		open (\
F, \"$tmp_dir/result2.aln\");\n		while (<F>){print\
 $_;}close(F);\n	      }\n	    else\n	      {\n		`\
mv $tmp_dir/result2.aln $list[1]`;\n	      }\n	   \
 shift (@list); shift (@list);\n	    foreach $f (@\
list)\n	      {\n		if (-e (\"$tmp_dir/$f\")){`mv $\
tmp_dir/$f .`;}\n	      }\n	  }\n      }\n  }\n\n\\
n\n\nsub my_get_opt\n  {\n    my @list=@_;\n    my\
 $cl, $a, $argv, @argl;\n    \n    @argl=();\n    \
$cl=shift @list;\n    for ( $a=0; $a<=$#list; $a+=\
3)\n      {\n	$option=$list[$a];\n	$optional=$list\
[$a+1];\n	$status=$list[$a+2];\n	$argv=\"\";\n	if \
($cl=~/$option(\\S+)/){$argv=$1;}\n	@argl=(@argl,$\
argv);\n	\n	\n	#$optional:0=>optional\n	#$optional\
:1=>must be set\n	#$status: 0=>no requirement\n	#$\
status: 1=>must be an existing file\n	#$status: 2=\
>must be an installed package\n	\n\n	if ($optional\
==0){;}\n	elsif ( $optional==1 && $argv eq \"\")\n\
	  {\n	    myexit(flush_error( \"ERROR: Option $op\
tion must be set\"));\n	    myexit ($EXIT_FAILURE)\
;\n	  }\n	if ($status==0){;}\n	elsif ($status ==1 \
&& $argv ne \"\" && !-e $argv)\n	  {\n	    myexit(\
flush_error( \"File $argv must exist\"));\n	    my\
exit ($EXIT_FAILURE);\n	  }\n	elsif ( $status==2 &\
& $argv ne \"\" && &check_pg_is_installed ($argv)=\
=0)\n	  {\n	    myexit(flush_error( \" $argv is no\
t installed\"));\n	    myexit ($EXIT_FAILURE);\n	 \
 }\n      }\n\n    return @argl;\n    }\n\nsub che\
ck_file \n  {\n    my ($file, $msg)=@_;\n\n    if \
( !-e $file)\n      {\n	myexit(flush_error(\"$msg\\
"));\n      }\n    }\nsub hhalign\n  {\n    my ($a\
ln1, $aln2, $outfile, $param)=@_;\n    my $h1, $h2\
;\n    \n    $h{0}{index}=0;\n    $h{1}{index}=1;\\
n    \n    $h{0}{aln}=$aln1;\n    $h{1}{aln}=$aln2\
;\n\n   \n\n    %{$h{0}}=aln2psi_profile (%{$h{0}}\
);\n    %{$h{1}}=aln2psi_profile (%{$h{1}});\n\n  \
  $param=~s/#S/ /g;\n    $param=~s/#M/\\-/g;\n    \
$param=~s/#E/\\=/g;\n    \n\n    \n    $command=\"\
hhalign -i $h{0}{a3m} -t $h{1}{a3m} -tc $outfile.t\
mp -rank 1 -mapt 0 $param\";\n    `$command`;\n   \
 \n  #  `hhalign -i $h{0}{a3m} -t $h{1}{a3m} -tc $\
outfile.tmp -rank 1 -mapt 0 -gapf 0.8 -gapg 0.8`;\\
n    \n\n    # To run global use the following\n  \
  \n    open (I, \"$outfile.tmp\");\n    open (O, \
\">$outfile\");\n    $h{0}{cons}=s/\\./x/g;\n    $\
h{1}{cons}=s/\\./x/g;\n\n    print O \"! TC_LIB_FO\
RMAT_01\\n2\\n$h{0}{name} $h{0}{len} $h{0}{seq}\\n\
$h{1}{name} $h{1}{len} $h{1}{seq}\\n#1 2\\n\";\n  \
  \n    while (<I>)\n      {\n	if (/(\\d+)\\s+(\\d\
+)\\s+(\\d+)/)\n	  {\n	    print O \"\\t$h{0}{$1}\\
\t$h{1}{$2}\\t$3\\n\";\n	  }\n      }\n    print O\
 \"! SEQ_1_TO_N\\n\";\n\n    close (O);\n    close\
 (I);\n  }\n\nsub aln2psi_profile\n  {\n    my (%h\
)=@_;\n    my ($aln,$i,$hv, $a, @c, $n);\n   \n   \
 $i=$h{index};\n    $aln=$h{aln};\n\n    `cp $aln \
$$.hhh_aln`;\n    $command=\"t_coffee -other_pg se\
q_reformat -in $aln -output hasch\";\n    $hv=`$co\
mmand`;chomp ($hv);\n    \n    $h{a2m}=\"$tmp/$hv.\
tmp4hhpred.a2m\";\n    $h{a3m}=\"$tmp/$hv.tmp4hhpr\
ed.a3m\";\n    if ( -e $h{a3m}){;}\n    else\n    \
  {\n	`hhconsensus  -M 50 -i $h{aln} -oa2m $h{a2m}\
`;\n	if (!-e $h{a2m})\n	  {\n	    print STDERR \"P\
rogram tc_generic_method.pl FAILED to run:\\n\\thh\
consensus  -M 50 -i $h{aln} -oa2m $h{a2m}\";\n	   \
 myexit ($EXIT_FAILURE);\n	  }\n	\n	`hhconsensus  \
-M 50 -i $h{aln} -oa3m $h{a3m}`;\n	if (!-e $h{a3m}\
)\n	  {\n	    print STDERR \"Program tc_generic_me\
thod.pl FAILED to run:\\n\\thhconsensus  -M 50 -i \
$h{aln} -oa3m $h{a3m}\";\n	    myexit ($EXIT_FAILU\
RE);\n	  }\n       `buildali.pl $h{a3m} -n 1`;\n  \
    }\n    \n    \n    $h{a2m_seq}=`head -n 2 $h{a\
2m} | grep -v \">\"`;chomp ($h{a2m_seq});\n    $h{\
a3m_seq}=`head -n 2 $h{a3m} | grep -v \">\"`;chomp\
 ($h{a3m_seq});\n    $h{cons}=$h{a2m_seq};\n    $h\
{seq}=`head -n 2 $h{aln} | grep -v \">\"`;chomp ($\
h{seq});\n    \n    \n\n    @c=split (//, $h{cons}\
);\n    $h{len}=$#c+1;\n    for ($n=0,$a=0, $b=0; \
$a<$h{len};$a++)\n      {\n	if ( $c[$a]=~/[A-Z]/)\\
n	  {\n	    $h{++$n}=++$b;\n\n	  }\n	elsif ( $c[$a\
]=~/[a-z\\.]/)\n	  {\n	    ++$b;\n	  }\n      }\n \
   \n    $name=`head -n 2 $h{aln} | grep \">\"`;\n\
    $name=~/\\>(\\S+)/;\n    $h{name}=$1;\n    \n \
   `cp $h{a2m} $i.a2m`;\n    `cp $h{a3m} $i.a3m`;\\
n    `cp $h{aln} $i.hh_aln`;\n    \n    return %h;\
\n  }\n\nsub read_fasta_seq \n  {\n    my $f=@_[0]\
;\n    my %hseq;\n    my (@seq, @com, @name);\n   \
 my ($a, $s,$nseq);\n\n    open (F, $f);\n    whil\
e (<F>)\n      {\n	$s.=$_;\n      }\n    close (F)\
;\n\n    \n    @name=($s=~/>(\\S*).*\\n[^>]*/g);\n\
    \n    @seq =($s=~/>.*.*\\n([^>]*)/g);\n    @co\
m =($s=~/>\\S*(.*)\\n([^>]*)/g);\n\n    \n    $nse\
q=$#name+1;\n    \n    for ($a=0; $a<$nseq; $a++)\\
n      {\n	my $s;\n	my $n=$name[$a];\n	$hseq{$n}{n\
ame}=$n;\n	$seq[$a]=~s/[^A-Za-z]//g;\n	$hseq{$n}{o\
rder}=$a;\n	$hseq{$n}{seq}=$seq[$a];\n	$hseq{$n}{c\
om}=$com[$a];\n	\n      }\n    return %hseq;\n  }\\
n\nsub file_contains \n  {\n    my ($file, $tag, $\
max)=(@_);\n    my ($n);\n    $n=0;\n    \n    if \
( !-e $file && ($file =~/$tag/)) {return 1;}\n    \
elsif ( !-e $file){return 0;}\n    else \n      {\\
n	open (FC, \"$file\");\n	while ( <FC>)\n	  {\n	  \
  if ( ($_=~/$tag/))\n	      {\n		close (FC);\n		r\
eturn 1;\n	      }\n	    elsif ($max && $n>$max)\n\
	      {\n		close (FC);\n		return 0;\n	      }\n	 \
   $n++;\n	  }\n      }\n    close (FC);\n    retu\
rn 0;\n  }\n	    \n	  \nsub file2string\n  {\n    \
my $f=@_[0];\n    my $string, $l;\n    open (F,\"$\
f\");\n    while (<F>)\n      {\n\n	$l=$_;\n	#chom\
p ($l);\n	$string.=$l;\n      }\n    close (F);\n \
   $string=~s/\\r\\n//g;\n    $string=~s/\\n//g;\n\
    return $string;\n  }\n\n\nsub my_get_opt\n  {\\
n    my @list=@_;\n    my $cl, $a, $argv, @argl;\n\
    \n    @argl=();\n    $cl=shift @list;\n    for\
 ( $a=0; $a<=$#list; $a+=3)\n      {\n	$option=$li\
st[$a];\n	$optional=$list[$a+1];\n	$status=$list[$\
a+2];\n	$argv=\"\";\n	if ($cl=~/$option(\\S+)/){$a\
rgv=$1;}\n	@argl=(@argl,$argv);\n	\n	\n	#$optional\
:0=>optional\n	#$optional:1=>must be set\n	#$statu\
s: 0=>no requirement\n	#$status: 1=>must be an exi\
sting file\n	#$status: 2=>must be an installed pac\
kage\n	\n\n	if ($optional==0){;}\n	elsif ( $option\
al==1 && $argv eq \"\")\n	  {\n\n	    myexit(flush\
_error(\"Option $option must be set\"));\n	   \n	 \
 }\n	if ($status==0){;}\n	elsif ($status ==1 && $a\
rgv ne \"\" && !-e $argv)\n	  {\n	     myexit(flus\
h_error(\"File $argv must exist\"));\n	   \n	  }\n\
	elsif ( $status==2 && $argv ne \"\" && &check_pg_\
is_installed ($argv)==0)\n	  {\n	    myexit(flush_\
error(\"$argv is not installed\"));\n	   \n	  }\n \
     }\n\n    return @argl;\n    }\n\nsub tag2valu\
e \n  {\n    \n    my $tag=(@_[0]);\n    my $word=\
(@_[1]);\n    my $return;\n    \n    $tag=~/$word=\
\"([^\"]+)\"/;\n    $return=$1;\n    return $retur\
n;\n  }\n      \nsub hit_tag2pdbid\n  {\n    my $t\
ag=(@_[0]);\n    my $pdbid;\n       \n    $tag=~/i\
d=\"(\\S+)\"/;\n    $pdbid=$1;\n    $pdbid=~s/_//;\
\n    return $pdbid;\n  }\nsub id2pdbid\n  {\n    \
my $in=@_[0];\n    my $id;\n    \n    $in=~/(\\S+)\
/;\n    $id=$in;\n    $id=~s/PDB/pdb/g;\n    \n   \
 if ($id =~/pdb(.*)/){$id=$1;}\n    elsif ( $id=~/\
(\\S+)\\s+mol:protein/){$id=$1;}\n    $id=~s/[:|ï¿\
½ï¿½_]//g;\n    return $id;\n  }\nsub set_blast_ty\
pe \n  {\n    my $file =@_[0];\n    if (&file_cont\
ains ($file,\"EBIApplicationResult\",100)){$BLAST_\
TYPE=\"EBI\";}\n    elsif (&file_contains ($file,\\
"NCBI_BlastOutput\",100)) {$BLAST_TYPE=\"NCBI\";}\\
n    else\n      {\n	$BLAST_TYPE=\"\";\n      }\n \
   return $BLAST_TYPE;\n  }\nsub is_valid_blast_xm\
l\n    {\n      my $file=shift;\n      my $line;\n\
      \n      \n      if ( !-e $file) {return 0;}\\
n      $line=&file2tail ($file,100);\n      if ( $\
line=~/<\\/EBIApplicationResult/ || $line=~/<\\/NC\
BI_BlastOutput/ || $line=~/<\\/BlastOutput/ ){retu\
rn 1;}\n      return 0;\n    }\nsub file2blast_fla\
vor\n      {\n	my $file=shift;\n	if (&file_contain\
s ($file,\"EBIApplicationResult\",100)){return \"E\
BI\";}\n	elsif (&file_contains ($file,\"NCBI_Blast\
Output\",100)){return \"NCBI\";}\n	else {return \"\
UNKNOWN\";}\n      }\nsub blast_xml2profile \n  {\\
n    my ($name,$seq,$maxid, $minid, $mincov, $file\
)=(@_);\n    my (%p, $a, $string, $n);\n    \n    \
\n\n    if ($BLAST_TYPE eq \"EBI\" || &file_contai\
ns ($file,\"EBIApplicationResult\",100)){%p=ebi_bl\
ast_xml2profile(@_);}\n    elsif ($BLAST_TYPE eq \\
"NCBI\" || &file_contains ($file,\"NCBI_BlastOutpu\
t\",100)){%p=ncbi_blast_xml2profile(@_);}\n    els\
e \n      {\n	myexit(add_error ( $$,$$,getppid(), \
\"BLAST_FAILURE::unkown XML\",$CL));\n      }\n   \
 for ($a=0; $a<$p{n}; $a++)\n      {\n	my $name=$p\
{$a}{name};\n	$p{$name}{seq}=$p{$a}{seq};\n	$p{$na\
me}{index}=$a;\n      }\n    return %p;\n  }\nsub \
ncbi_tblastx_xml2lib_file \n  {\n    my  ($outlib,\
$string)=(@_);\n    my ($L,$l, $a,$b,$c,$d,$i,$nhi\
ts,@identifyerL);\n    my (%ITERATION);\n      \n \
   open (F, \">>$outlib\");\n    \n    $seq=~s/[^a\
-zA-Z]//g;\n    $L=length ($seq);\n    \n    %ITER\
ATION=xml2tag_list ($string, \"Iteration\");\n    \
for ($i=0; $i<$ITERATION{n};$i++)\n      {\n	my ($\
qindex, $qlen, %hit, $string);\n	$string=$ITERATIO\
N{$i}{body};\n\n	$qindex=xmltag2value($string,\"It\
eration_iter-num\");\n	$qlen  =xmltag2value($strin\
g,\"Iteration_query-len\");\n	%hit=&xml2tag_list  \
($string, \"Hit\");\n\n	for ($a=0; $a<$hit{n}; $a+\
+)\n	  {\n	    my ($string);\n	    $string=$hit{$a\
}{body};\n	 \n	    $hindex=xmltag2value($string,\"\
Hit_accession\")+1;\n	    if ($hindex<=$qindex){ne\
xt;}\n	    else  {print F  \"# $qindex $hindex\\n\\
";}\n		   \n	   \n	    $hlen=xmltag2value  ($strin\
g,\"Hit_len\");\n	    %HSP=&xml2tag_list  ($string\
, \"Hsp\");\n	   \n	    for ($b=0; $b<$HSP{n}; $b+\
+)\n	      {\n		my ($string, $qs,$qe,$qf,$hs,$he,$\
hf,$s, $d, $e);\n		$string=$HSP{$b}{body};\n	\n		$\
qs=xmltag2value  ($string,\"Hsp_query-from\");\n		\
$qe=xmltag2value  ($string,\"Hsp_query-to\");\n		$\
qf=xmltag2value  ($string,\"Hsp_query-frame\");\n\\
n		$hs=xmltag2value  ($string,\"Hsp_hit-from\");\n\
		$he=xmltag2value  ($string,\"Hsp_hit-to\");\n		$\
hf=xmltag2value  ($string,\"Hsp_hit-frame\");\n		\\
n		$s=xmltag2value  ($string,\"Hsp_identity\");\n	\
	$l=xmltag2value  ($string,\"Hsp_align-len\");\n		\
$s=int(($s*100)/$l);\n		\n		if ($qf>0)\n		  {$rqs=\
$qs; $rqe=$qe;}\n		else\n		  {\n		    $rqe=($qlen-\
$qs)+1;\n		    $rqs=($qlen-$qe)+1;\n		  }\n		\n		i\
f ($hf>0)\n		  {$rhs=$hs; $rhe=$he;}\n		else\n		  \
{\n		    $rhe=($hlen-$hs)+1;\n		    $rhs=($hlen-$h\
e)+1;\n		  }\n		for ($d=0,$e=$rqs; $e<$rqe; $e++,$\
d++)\n		  {\n		    my ($r1,$r2);\n		    $r1=$e;\n	\
	    $r2=$rhs+$d;\n		    print F \" $r1 $r2 $s 0\\\
n\";\n		  }\n	      }\n	  }\n      }\n    print F \
\"! SEQ_1_TO_N\\n\";\n    \n    close (F);\n    re\
turn %lib;\n  }\n\nsub ncbi_tblastpx_xml2lib_file \
\n  {\n    my  ($outlib,$string,%s)=(@_);\n    my \
($L,$l, $a,$b,$c,$d,$i,$nhits,@identifyerL);\n    \
my (%ITERATION,%hdes, %qdes);\n      \n    open (F\
, \">>$outlib\");\n    \n    $seq=~s/[^a-zA-Z]//g;\
\n    $L=length ($seq);\n    \n    %ITERATION=xml2\
tag_list ($string, \"Iteration\");\n    for ($i=0;\
 $i<$ITERATION{n};$i++)\n      {\n	my ($qindex, $q\
len, %hit, $string);\n	$string=$ITERATION{$i}{body\
};\n\n	$qdef=xmltag2value($string,\"Iteration_quer\
y-def\");\n	%qdes=&tblastpx_name2description($qdef\
,%s);\n	$qlen  =xmltag2value($string,\"Iteration_q\
uery-len\");\n	%hit=&xml2tag_list  ($string, \"Hit\
\");\n\n	for ($a=0; $a<$hit{n}; $a++)\n	  {\n	    \
my ($string);\n	    $string=$hit{$a}{body};\n	    \
$hdef=xmltag2value($string,\"Hit_def\");\n	    %hd\
es=&tblastpx_name2description($hdef,%s);\n	    if \
($hdes{index}<=$qdes{index}){next;}\n	    else  {p\
rint F  \"# $qdes{index} $hdes{index}\\n\";}\n		  \
 \n	   \n	    $hlen=xmltag2value  ($string,\"Hit_l\
en\");\n	    %HSP=&xml2tag_list  ($string, \"Hsp\"\
);\n	   \n	    for ($b=0; $b<$HSP{n}; $b++)\n	    \
  {\n		my ($string, $l,$qs,$qe,$qf,$hs,$he,$hf,$s,\
 $d, $e, @s1, @s2);\n		$string=$HSP{$b}{body};\n	\\
n		$qs=xmltag2value  ($string,\"Hsp_query-from\");\
\n		$qe=xmltag2value  ($string,\"Hsp_query-to\");\\
n		$qf=$qdes{frame};\n		$qseq=xmltag2value  ($stri\
ng,\"Hsp_qseq\");\n		\n		$hs=xmltag2value  ($strin\
g,\"Hsp_hit-from\");\n		$he=xmltag2value  ($string\
,\"Hsp_hit-to\");\n		$hf=$hdes{frame};\n		$hseq=xm\
ltag2value  ($string,\"Hsp_hseq\");\n		\n		$s=xmlt\
ag2value  ($string,\"Hsp_identity\");\n		$l=xmltag\
2value  ($string,\"Hsp_align-len\");\n		$s=int(($s\
*100)/$l);\n		@s1=tblastpx_hsp2coordinates($qseq,$\
qs,$qe,%qdes);\n		@s2=tblastpx_hsp2coordinates($hs\
eq,$hs,$he,%hdes);\n		\n		\n		for ($f=0; $f<=$#s1;\
 $f++)\n		  {\n		    if ($s1[$f]==-1 || $s2[$f]==-\
1){next;}\n		    else \n		      {\n			print F \" $\
s1[$f] $s2[$f] $s 0\\n\";\n		      }\n		  }\n	    \
  }\n	  }\n      }\n    print F \"! SEQ_1_TO_N\\n\\
";\n    \n    close (F);\n    return %lib;\n  }\ns\
ub tblastpx_hsp2coordinates\n  {\n    my ($seq, $s\
, $e, %des)=@_;\n    my @list;\n    my @sa;\n    m\
y @gap=(-1,-1,-1);\n    \n    $s=$des{start}+3*($s\
-1);\n  \n    if ($des{strand} eq \"d\"){;}\n    e\
lse {$s=($des{length}-$s)+1;}\n    \n    foreach $\
c (split (//,$seq))\n      {\n	if ( $c eq '-'){pus\
h (@list,@gap);}\n	elsif ($des{strand} eq \"d\")\n\
	  {\n	    push(@list,$s++,$s++,$s++);\n	  }\n	els\
e\n	  {\n	    push(@list, $s--,$s--,$s--);\n	  }\n\
      }\n    return @list;\n  }\n\nsub tblastpx_na\
me2description\n  {\n    my ($name, %s)=@_;\n    m\
y @at=split(\"__\", $name);\n    my %des;\n\n    $\
des{name}=$at[0];\n    $des{strand}=$at[1];\n    \\
n    $des{start}=$at[2];\n    $des{end}=$at[3];\n \
   $des{length}=$at[4];\n    $des{index}=$s{$at[0]\
}{order}+1;\n    return %des;\n  }  \nsub ncbi_bla\
st_xml2profile \n  {\n    my ($name,$seq,$maxid, $\
minid, $mincov, $string)=(@_);\n    my ($L,$l, $a,\
$b,$c,$d,$nhits,@identifyerL);\n    \n    \n    $s\
eq=~s/[^a-zA-Z]//g;\n    $L=length ($seq);\n   \n \
   #This is causing the NCBI parser to fail when I\
teration_query-def is missing \n    #%query=&xml2t\
ag_list ($string, \"Iteration_query-def\");\n    #\
$name=$query{0}{body};\n    \n    %hit=&xml2tag_li\
st ($string, \"Hit\");\n    \n    \n    for ($nhit\
s=0,$a=0; $a<$hit{n}; $a++)\n      {\n	my ($ldb,$i\
d, $identity, $expectation, $start, $end, $coverag\
e, $r);\n	my (%ID,%DE,%HSP);\n	\n	$ldb=\"\";\n\n	%\
ID=&xml2tag_list ($hit{$a}{body}, \"Hit_id\");\n	$\
identifyer=$ID{0}{body};\n	\n	%DE=&xml2tag_list ($\
hit{$a}{body}, \"Hit_def\");\n	$definition=$DE{0}{\
body};\n	\n	%HSP=&xml2tag_list ($hit{$a}{body}, \"\
Hsp\");\n	for ($b=0; $b<$HSP{n}; $b++)\n	  {\n	   \
 my (%START,%END,%E,%I,%Q,%M);\n\n	 \n	    %START=\
&xml2tag_list ($HSP{$b}{body}, \"Hsp_query-from\")\
;\n	    %HSTART=&xml2tag_list ($HSP{$b}{body}, \"H\
sp_hit-from\");\n	    \n	    %LEN=  &xml2tag_list \
($HSP{$b}{body}, \"Hsp_align-len\");\n	    %END=  \
&xml2tag_list ($HSP{$b}{body}, \"Hsp_query-to\");\\
n	    %HEND=  &xml2tag_list ($HSP{$b}{body}, \"Hsp\
_hit-to\");\n	    %E=&xml2tag_list     ($HSP{$b}{b\
ody}, \"Hsp_evalue\");\n	    %I=&xml2tag_list     \
($HSP{$b}{body}, \"Hsp_identity\");\n	    %Q=&xml2\
tag_list     ($HSP{$b}{body}, \"Hsp_qseq\");\n	   \
 %M=&xml2tag_list     ($HSP{$b}{body}, \"Hsp_hseq\\
");\n	    \n	    for ($e=0; $e<$Q{n}; $e++)\n\n	  \
    {\n		$qs=$Q{$e}{body};\n		$ms=$M{$e}{body};\n	\
	\n		$expectation=$E{$e}{body};\n		$identity=($LEN\
{$e}{body}==0)?0:$I{$e}{body}/$LEN{$e}{body}*100;\\
n		$start=$START{$e}{body};\n		$end=$END{$e}{body}\
;\n		$Hstart=$HSTART{$e}{body};\n		$Hend=$HEND{$e}\
{body};\n	\n		$coverage=($L)?(($end-$start)*100)/$\
L:0;\n	\n		if ($identity>$maxid || $identity<$mini\
d || $coverage<$mincov){next;}\n		@lr1=(split (//,\
$qs));\n		@lr2=(split (//,$ms));\n		$l=$#lr1+1;\n	\
	for ($c=0;$c<$L;$c++){$p[$nhits][$c]=\"-\";}\n		f\
or ($d=0,$c=0; $c<$l; $c++)\n		  {\n		    $r=$lr1[\
$c];\n		    if ( $r=~/[A-Za-z]/)\n		      {\n			\n\
			$p[$nhits][$d + $start-1]=$lr2[$c];\n			$d++;\n\
		      }\n		  }\n		$Qseq[$nhits]=$qs;\n		$Hseq[$n\
hits]=$ms;\n		$QstartL[$nhits]=$start;\n		$HstartL\
[$nhits]=$Hstart;\n		$identityL[$nhits]=$identity;\
\n		$endL[$nhits]=$end;\n		$definitionL[$nhits]=$d\
efinition;\n		$identifyerL[$nhits]=$identifyer;\n	\
	$comment[$nhits]=\"$ldb|$identifyer [Eval=$expect\
ation][id=$identity%][start=$Hstart end=$Hend]\";\\
n		$nhits++;\n	      }\n	  }\n      }\n    \n    \\
n    $profile{n}=0;\n    $profile{$profile{n}}{nam\
e}=$name;\n    $profile{$profile{n}}{seq}=$seq;\n \
   $profile {n}++;\n    \n    for ($a=0; $a<$nhits\
; $a++)\n      {\n	$n=$a+1;\n	\n	$profile{$n}{name\
}=\"$name\\_$a\";\n	$profile{$n}{seq}=\"\";\n	$pro\
file{$n}{Qseq}=$Qseq[$a];\n	$profile{$n}{Hseq}=$Hs\
eq[$a];\n	$profile{$n}{Qstart}=$QstartL[$a];\n	$pr\
ofile{$n}{Hstart}=$HstartL[$a];\n	$profile{$n}{ide\
ntity}=$identityL[$a];\n	$profile{$n}{definition}=\
$definitionL[$a];\n	$profile{$n}{identifyer}=$iden\
tifyerL[$a];\n	$profile{$n}{comment}=$comment[$a];\
\n\n	for ($b=0; $b<$L; $b++)\n	  {\n	    if ($p[$a\
][$b])\n	      {\n		$profile{$n}{seq}.=$p[$a][$b];\
\n	      }\n	    else\n	      {\n		$profile{$n}{se\
q}.=\"-\";\n	      }\n	  }\n      }\n    \n    $pr\
ofile{n}=$nhits+1;\n    return %profile;\n  }\nsub\
 ebi_blast_xml2profile \n  {\n    my ($name,$seq,$\
maxid, $minid, $mincov, $string)=(@_);\n    my ($L\
,$l, $a,$b,$c,$d,$nhits,@identifyerL,$identifyer);\
\n    \n\n    \n    $seq=~s/[^a-zA-Z]//g;\n    $L=\
length ($seq);\n    %hit=&xml2tag_list ($string, \\
"hit\");\n    \n    for ($nhits=0,$a=0; $a<$hit{n}\
; $a++)\n      {\n	my ($ldb,$id, $identity, $expec\
tation, $start, $end, $coverage, $r);\n	my (%Q,%M,\
%E,%I);\n	\n	$ldb=&tag2value ($hit{$a}{open}, \"da\
tabase\");\n	$identifyer=&tag2value ($hit{$a}{open\
}, \"id\");\n\n	$description=&tag2value ($hit{$a}{\
open}, \"description\");\n	\n	%Q=&xml2tag_list ($h\
it{$a}{body}, \"querySeq\");\n	%M=&xml2tag_list ($\
hit{$a}{body}, \"matchSeq\");\n	%E=&xml2tag_list (\
$hit{$a}{body}, \"expectation\");\n	%I=&xml2tag_li\
st ($hit{$a}{body}, \"identity\");\n	\n\n	for ($b=\
0; $b<$Q{n}; $b++)\n	  {\n\n	    $qs=$Q{$b}{body};\
\n	    $ms=$M{$b}{body};\n	    \n	    $expectation\
=$E{$b}{body};\n	    $identity=$I{$b}{body};\n	   \
 \n	    	    \n	    $start=&tag2value ($Q{$b}{open\
}, \"start\");\n	    $end=&tag2value ($Q{$b}{open}\
, \"end\");\n	    $startM=&tag2value ($M{$b}{open}\
, \"start\");\n	    $endM=&tag2value ($M{$b}{open}\
, \"end\");\n	    $coverage=(($end-$start)*100)/$L\
;\n	    \n	   # print \"$id: ID: $identity COV: $c\
overage [$start $end]\\n\";\n	    \n	    if ($iden\
tity>$maxid || $identity<$minid || $coverage<$minc\
ov){next;}\n	    # print \"KEEP\\n\";\n\n	    \n	 \
   @lr1=(split (//,$qs));\n	    @lr2=(split (//,$m\
s));\n	    $l=$#lr1+1;\n	    for ($c=0;$c<$L;$c++)\
{$p[$nhits][$c]=\"-\";}\n	    for ($d=0,$c=0; $c<$\
l; $c++)\n	      {\n		$r=$lr1[$c];\n		if ( $r=~/[A\
-Za-z]/)\n		  {\n		    \n		    $p[$nhits][$d + $st\
art-1]=$lr2[$c];\n		    $d++;\n		  }\n	      }\n	 \
 \n	    $Qseq[$nhits]=$qs;\n	    $Hseq[$nhits]=$ms\
;\n	    $QstartL[$nhits]=$start;\n	    $HstartL[$n\
hits]=$Hstart;\n	    $identityL[$nhits]=$identity;\
\n	    $endL[$nhits]=$end;\n	    $definitionL[$nhi\
ts]=$definition;\n	    $identifyerL[$nhits]=$ident\
ifyer;\n	    $comment[$nhits]=\"$ldb|$identifyer [\
Eval=$expectation][id=$identity%][start=$startM en\
d=$endM]\";\n	    $nhits++;\n	  }\n      }\n    \n\
    $profile{n}=0;\n    $profile{$profile{n}}{name\
}=$name;\n    $profile{$profile{n}}{seq}=$seq;\n  \
  $profile {n}++;\n    \n    for ($a=0; $a<$nhits;\
 $a++)\n      {\n	$n=$a+1;\n	$profile{$n}{name}=\"\
$name\\_$a\";\n	$profile{$n}{seq}=\"\";\n	$profile\
{$n}{Qseq}=$Qseq[$a];\n	$profile{$n}{Hseq}=$Hseq[$\
a];\n	$profile{$n}{Qstart}=$QstartL[$a];\n	$profil\
e{$n}{Hstart}=$HstartL[$a];\n	$profile{$n}{identit\
y}=$identityL[$a];\n	$profile{$n}{definition}=$def\
initionL[$a];	\n	$profile{$n}{identifyer}=$identif\
yerL[$a];\n	$profile{$n}{comment}=$comment[$a];\n\\
n	for ($b=0; $b<$L; $b++)\n	  {\n	    if ($p[$a][$\
b])\n	      {\n		$profile{$n}{seq}.=$p[$a][$b];\n	\
      }\n	    else\n	      {\n		$profile{$n}{seq}.\
=\"-\";\n	      }\n	  }\n      }\n    $profile{n}=\
$nhits+1;\n    \n    return %profile;\n  }\nsub ou\
tput_profile\n  {\n    my ($outfile,$profileR, $tr\
im)=(@_);\n    my ($a);\n    my %profile=%$profile\
R;\n    my $P= new FileHandle;\n    my $tmp=vtmpna\
m();\n    \n    open ($P, \">$tmp\");\n    for ($a\
=0; $a<$profile{n}; $a++)\n      {\n	print $P \">$\
profile{$a}{name} $profile{$a}{comment}\\n$profile\
{$a}{seq}\\n\";\n      }\n    close ($P);\n\n    i\
f ( $trim)\n      {\n	&safe_system (\"t_coffee -ot\
her_pg seq_reformat -in $tmp -action +trim _aln_%%\
$trim\\_K1 -output fasta_aln -out $outfile\");\n  \
    }\n    else\n      {\n	&safe_system (\"mv $tmp\
 $outfile\");\n      }\n    return;\n  }\nsub blas\
t_xml2hit_list\n  {\n    my $string=(@_[0]);\n    \
return &xml2tag_list ($string, \"hit\");\n  }\nsub\
 xmltag2value\n  {\n    my ($string_in, $tag)=@_;\\
n    my %TAG;\n    %TAG=xml2tag_list ($string_in, \
$tag);\n    return $TAG{0}{body};\n  }\n      \nsu\
b xml2tag_list  \n  {\n    my ($string_in,$tag)=@_\
;\n    my $tag_in, $tag_out;\n    my %tag;\n    \n\
    if (-e $string_in)\n      {\n	$string=&file2st\
ring ($string_in);\n      }\n    else\n      {\n	$\
string=$string_in;\n      }\n    $tag_in1=\"<$tag \
\";\n    $tag_in2=\"<$tag>\";\n    $tag_out=\"/$ta\
g>\";\n    $string=~s/>/>##1/g;\n    $string=~s/</\
##2</g;\n    $string=~s/##1/<#/g;\n    $string=~s/\
##2/#>/g;\n    @l=($string=~/(\\<[^>]+\\>)/g);\n  \
  $tag{n}=0;\n    $in=0;$n=-1;\n  \n \n\n    forea\
ch $t (@l)\n      {\n\n	$t=~s/<#//;\n	$t=~s/#>//;\\
n	\n	if ( $t=~/$tag_in1/ || $t=~/$tag_in2/)\n	  {\\
n	 \n	    $in=1;\n	    $tag{$tag{n}}{open}=$t;\n	 \
   $n++;\n	    \n	  }\n	elsif ($t=~/$tag_out/)\n	 \
 {\n	    \n\n	    $tag{$tag{n}}{close}=$t;\n	    $\
tag{n}++;\n	    $in=0;\n	  }\n	elsif ($in)\n	  {\n\
	   \n	    $tag{$tag{n}}{body}.=$t;\n	  }\n      }\
\n  \n    return %tag;\n  }\n\n\nsub seq2gor_predi\
ction \n  {\n    my ($name, $seq,$infile, $outfile\
, $gor_seq, $gor_obs)=(@_);\n    my ($l);\n    \n \
   `gorIV -prd $infile -seq $gor_seq -obs $gor_obs\
 > gor_tmp`;\n    open (GR, \">$outfile\");\n    o\
pen (OG, \"gor_tmp\");\n\n    while (<OG>)\n      \
{\n	\n	$l=$_;\n	if ($l=~/\\>/){print GR \"$l\";}\n\
	elsif ( $l=~/Predicted Sec. Struct./)\n	  {\n	   \
 $l=~s/Predicted Sec. Struct\\.//;\n	    print GR \
\"$l\";\n	  }\n      }\n    close (GR);\n    close\
 (OG);\n    return;\n  }\nsub seq2msa_tm_predictio\
n \n  {\n    my ($name, $seq, $db, $infile, $outfi\
le, $arch, $psv)=(@_);\n    my (%p,%gseq,%R, $blas\
t_output, %s, $l);\n    my $R2=new FileHandle;\n  \
  my $db=\"uniprot\";\n    my $method=\"psitm\";\n\
    my $SERVER=\"EBI\";\n    \n    $blast_output=&\
run_blast ($name,\"blastp\", $db, $infile, \"outfi\
le\");\n    \n    if (&cache_file(\"GET\",$infile,\
$name,$method,$db,$outfile,$SERVER))\n      {\n	pr\
int \"\\tPSITM: USE Cache\\n\";\n	return $outfile;\
\n      }\n    else\n      {\n	$CACHE_STATUS=\"COM\
PUTE CACHE\";\n	%p=blast_xml2profile($name,$seq,$m\
axid, $minid,$mincov,$blast_output);\n	\n	\n	open \
(F, \">tm_input\");\n	for (my $a=0; $a<$p{n}; $a++\
)\n	  {\n	    my $s;\n	    \n	    $s=$p{$a}{seq};\\
n	    $s=uc($s);\n	    print F \">$p{$a}{name}\\n$\
s\\n\";\n	    #print stdout \">$p{$a}{name}\\n$s\\\
n\";\n	  }\n	close (F);\n	print \"\\tPSITM: kept  \
$p{n} Homologues for Sequence $p{0}{name}\\n\";\n	\
&safe_system (\"t_coffee -other_pg fasta_seq2hmmto\
p_fasta.pl -in=tm_input -out=$outfile -output=cons\
 -cov=70 -trim=95 -arch=$arch -psv=$psv\");\n	unli\
nk (\"tm_input\");\n	&cache_file(\"SET\",$infile,$\
name,$method,$db,$outfile,$SERVER);\n	return;\n   \
   }\n  }\n\n\nsub seq2msa_gor_prediction \n  {\n \
   my ($name, $seq,$infile, $outfile, $gor_seq, $g\
or_obs)=(@_);\n    my (%p,%gseq,%R, $blast_output,\
 %s, $l);\n    my $R2=new FileHandle;\n    my $db=\
\"uniprot\";\n    my $method=\"psigor\";\n    my $\
SERVER=\"EBI\";\n    \n    $blast_output=&run_blas\
t ($name,\"blastp\", \"uniprot\", $infile, \"outfi\
le\");\n    \n    if (&cache_file(\"GET\",$infile,\
$name,$method,$db,$outfile,$SERVER))\n      {\n	pr\
int \"\\tPSIGOR: USE Cache\\n\";\n	return $outfile\
;\n      }\n    else\n      {\n	$CACHE_STATUS=\"CO\
MPUTE CACHE\";\n	%p=blast_xml2profile($name,$seq,$\
maxid, $minid,$mincov,$blast_output);\n	\n	\n	open\
 (F, \">gor_input\");\n	for (my $a=0; $a<$p{n}; $a\
++)\n	  {\n	    my $s;\n	    \n	    $s=$p{$a}{seq}\
;\n	    $s=uc($s);\n	    print F \">$p{$a}{name}\\\
n$s\\n\";\n	    #print stdout \">$p{$a}{name}\\n$s\
\\n\";\n	  }\n	close (F);\n	print \"\\tGORTM: kept\
  $p{n} Homologues for Sequence $p{0}{name}\\n\";\\
n	&safe_system (\"t_coffee -other_pg fasta_seq2hmm\
top_fasta.pl -in=gor_input -out=$outfile -output=c\
ons -cov=70 -trim=95 -gor_seq=$gor_seq -gor_obs=$g\
or_obs -mode=gor\");\n	unlink (\"tm_input\");\n	&c\
ache_file(\"SET\",$infile,$name,$method,$db,$outfi\
le,$SERVER);\n	return;\n      }\n  }\n\n\n\nsub ru\
n_blast\n  {\n    my ($name, $method, $db, $infile\
, $outfile, $run)=(@_);\n    if (!$run){$run=1;}\n\
    \n    \n    if (&cache_file(\"GET\",$infile,$n\
ame,$method,$db,$outfile,$SERVER) && is_valid_blas\
t_xml ($outfile))\n      {return $outfile;}\n    e\
lse\n      {\n	$CACHE_STATUS=\"COMPUTE CACHE\";\n	\
if ( $SERVER eq \"EBI_SOAP\")\n	  {\n	    &check_c\
onfiguration (\"EMAIL\",\"SOAP::Light\",\"INTERNET\
\");\n	    \n	    $cl_method=$method;\n	    if ($c\
l_method =~/wu/)\n	      {\n		$cl_method=~s/wu//;\\
n		if ( $cl_method eq \"psiblast\")\n		  {\n		    \
add_warning($$,$$,\"PSI BLAST cannot be used with \
the wuBLAST Client. Use server=EBI Or server=LOCAL\
. blastp will be used instead\");\n		    $cl_metho\
d=\"blastp\";\n		  }\n		\n		$command=\"t_coffee -o\
ther_pg wublast.pl --email $EMAIL $infile -D $db -\
p $cl_method --outfile $outfile -o xml>/dev/null 2\
>/dev/null\";\n		&safe_system ( $command);\n		if (\
-e \"$outfile.xml\") {`mv $outfile.xml $outfile`;}\
\n	      }\n	    else\n	      {\n		if ($cl_method \
eq \"psiblast\"){$cl_method =\"blastp -j5\";}\n		\\
n		$command=\"t_coffee -other_pg blastpgp.pl --ema\
il $EMAIL $infile -d $db --outfile $outfile -p $cl\
_method --mode PSI-Blast>/dev/null 2>/dev/null\";\\
n		&safe_system ( $command);\n		\n		if (-e \"$outf\
ile.xml\") {`mv $outfile.xml $outfile`;}\n	      }\
\n	  }\n	elsif ($SERVER eq \"EBI_REST\" || $SERVER\
 eq \"EBI\")\n	  {\n	   \n	    $cl_method=$method;\
\n	    &check_configuration(\"EMAIL\",\"XML::Simpl\
e\", \"INTERNET\");\n	    if ($db eq \"uniprot\"){\
$db1=\"uniprotkb\";}\n	    else {$db1=$db;}\n	    \
\n\n	    if ($cl_method =~/wu/)\n	      {\n		$cl_m\
ethod=~s/wu//;\n		if ( $cl_method eq \"psiblast\")\
{$cl_method=\"blastp\";}\n		\n		$command=\"t_coffe\
e -other_pg wublast_lwp.pl --email $EMAIL -D $db1 \
-p $cl_method --outfile $outfile --align 7 --stype\
 protein $infile>/dev/null 2>/dev/null\";\n		\n	  \
    }\n	    else\n	      {\n		if ( $cl_method =~/p\
siblast/){$cl_method =\"blastp -j5\";}\n		$command\
=\"t_coffee -other_pg ncbiblast_lwp.pl --email $EM\
AIL -D $db1 -p $cl_method --outfile $outfile --ali\
gn 7 --stype protein $infile>/dev/null 2>/dev/null\
\";\n	      }\n	    &safe_system ( $command,5);\n	\
    if (-e \"$outfile.out.xml\") {`mv $outfile.out\
.xml $outfile`;}\n	    elsif (-e \"$outfile.xml.xm\
l\"){`mv $outfile.xml.xml $outfile`;}\n	    elsif \
(-e \"$outfile.out..xml\") {`mv $outfile.out..xml \
$outfile`;}\n	    elsif (-e \"$outfile.xml..xml\")\
{`mv $outfile.xml..xml $outfile`;}\n	  }\n	elsif (\
$SERVER eq \"NCBI\")\n	  {\n	    &check_configurat\
ion (\"blastcl3\",\"INTERNET\");\n	    if ($db eq \
\"uniprot\"){$cl_db=\"nr\";}\n	    else {$cl_db=$d\
b;}\n	    \n	    if ( $method eq \"psiblast\")\n	 \
     {\n		add_warning($$,$$,\"PSI BLAST cannot be \
used with the NCBI BLAST Client. Use server=EBI Or\
 server=LOCAL. blastp will be used instead\");\n		\
$cl_method=\"blastp\";\n	      }\n	    else\n	    \
  {\n		$cl_method=$method;\n	      }\n	    $comman\
d=\"blastcl3 -p $cl_method -d $cl_db -i $infile -o\
 $outfile -m 7\";\n	    &safe_system ($command);\n\
	  }\n	elsif ($SERVER =~/CLIENT_(.*)/)\n	  {\n	   \
 my $client=$1;\n	    $command=\"$client -p $metho\
d -d $db -i $infile -o $outfile -m 7\";\n	    &saf\
e_system ($command);\n	  }\n	elsif ( $SERVER eq \"\
LOCAL_blastall\")\n	  {\n	    &check_configuration\
 (\"blastall\");\n	    if ($method eq \"blastp\")\\
n	      {\n		$command=\"blastall -d $db -i $infile\
 -o $outfile -m7 -p blastp\";\n	      }\n	    &saf\
e_system ($command);\n	  }\n	elsif ( $SERVER eq \"\
LOCAL\")\n	  {\n	    \n	    if ($ENV{\"BLAST_DB_DI\
R\"})\n	      {\n		$x=$ENV{\"BLAST_DB_DIR\"};\n		$\
cl_db=\"$x$db\";\n	      }\n	    else\n	      {\n	\
	$cl_db=$db;\n	      }\n	    \n	    if ($method eq\
 \"blastp\")\n	      {\n		&check_configuration(\"b\
lastpgp\");\n		$command=\"blastpgp -d $cl_db -i $i\
nfile -o $outfile -m7 -j1\";\n	      }\n	    elsif\
 ($method eq \"psiblast\")\n	      {\n		&check_con\
figuration(\"blastpgp\");\n		$command=\"blastpgp -\
d $cl_db -i $infile -o $outfile -m7 -j5\";\n	     \
 }\n	    elsif ($method eq \"blastn\")\n	      {\n\
		&check_configuration(\"blastall\");\n		$command=\
\"blastall -p blastn -d $cl_db -i $infile -o $outf\
ile -m7 -W6\";\n	      }	\n	    &safe_system ($com\
mand);\n	  }\n	else\n	  {\n	    \n	    myexit(add_\
error (EXIT_FAILURE,$$,$$,getppid(), \"BLAST_FAILU\
RE::UnknownServer\",$CL));\n	  }\n	\n	if ( !-e $ou\
tfile || !&is_valid_blast_xml($outfile))\n	  {\n	 \
   \n	    if ( -e $outfile)\n	      {\n		add_warni\
ng ($$,$$,\"Corrupted Blast Output (Run $run)\");\\
n		unlink($outfile);\n	      }\n	    \n	    if ( $\
run==$BLAST_MAX_NRUNS)\n	      {\n	\n		myexit(add_\
error (EXIT_FAILURE,$$,$$,getppid(), \"BLAST_FAILU\
RE::UnknownReason\", \"$command\"));\n	      }\n	 \
   else\n	      {\n		my $out;\n		if ($SERVER eq \"\
NCBI\") {$SERVER=\"EBI\"; }\n		elsif ($SERVER eq \\
"EBI\"){$SERVER=\"NCBI\";}\n		add_warning ($$,$$,\\
"Blast for $name failed (Run: $run out of $BLAST_M\
AX_NRUNS. Use $SERVER)\");\n		$out=&run_blast ($na\
me, $method, $db,$infile, $outfile, $run+1);\n		if\
 ($SERVER eq \"NCBI\") {$SERVER=\"EBI\"; }\n		elsi\
f ($SERVER eq \"EBI\"){$SERVER=\"NCBI\";}\n		retur\
n $out;\n	      }\n	  }\n	\n	&cache_file(\"SET\",$\
infile,$name,$method,$db,$outfile,$SERVER);\n	#sys\
tem (\"cp $outfile ~/Dropbox/tmp/cedric.out\");\n	\
#die;\n	return $outfile;\n      }\n  }\n\nsub cach\
e_file\n  {\n    my ($cache_mode,$infile,$name,$me\
thod,$db, $outfile,$server)=(@_);\n    my $cache_f\
ile;\n    #Protect names so that they can be turne\
d into legal filenames\n    $name=&clean_file_name\
 ($name);\n\n    if ($db=~/\\//)\n      {\n	$db=~/\
([^\\/]+)$/;\n	$db=$1;\n      }\n    $cache_file_s\
h=\"$name.$method.$db.$server.tmp\";\n    $cache_f\
ile=\"$CACHE/$name.$method.$db.$server.tmp\";\n   \
 \n    if ($infile ne \"\")\n      {\n	$cache_file\
_infile_sh=\"$name.$method.$db.$server.infile.tmp\\
";\n	$cache_file_infile=\"$CACHE/$name.$method.$db\
.$server.infile.tmp\";\n      }\n    \n    if ($ca\
che_mode eq \"GET\")\n      {\n	if ($CACHE eq \"\"\
 || $CACHE eq \"no\" || $CACHE eq \"ignore\"  || $\
CACHE eq \"local\" || $CACHE eq \"update\"){return\
 0;}\n	elsif ( !-d $CACHE)\n	  {\n	    print STDER\
R \"ERROR: Cache Dir: $CACHE Does not Exist\";\n	 \
   return 0;\n	  }\n	else\n	  {\n	    if ( -e $cac\
he_file && &fasta_file1_eq_fasta_file2($infile,$ca\
che_file_infile)==1)\n	      {\n		`cp $cache_file \
$outfile`;\n		$CACHE_STATUS=\"READ CACHE\";\n		ret\
urn 1;\n	      }\n	  }\n      }\n    elsif ($cache\
_mode eq \"SET\")\n      {\n	if ($CACHE eq \"\" ||\
 $CACHE eq \"no\" || $CACHE eq \"ignore\"  || $CAC\
HE eq \"local\" || $CACHE eq \"update\"){return 0;\
}\n	elsif ( !-d $CACHE)\n	  {\n	    print STDERR \\
"ERROR: Cache Dir: $CACHE Does not Exist\";\n	    \
return 0;\n	  }\n	elsif (-e $outfile)\n	  {\n	    \
`cp $outfile $cache_file`;\n	    if ($cache_file_i\
nfile ne \"\"){ `cp $infile $cache_file_infile`;}\\
n\n	    #functions for updating the cache\n	    #`\
t_coffee -other_pg clean_cache.pl -file $cache_fil\
e_sh -dir $CACHE`;\n	    #`t_coffee -other_pg clea\
n_cache.pl -file $cache_file_infile_sh -dir $CACHE\
`;\n	    return 1;\n	  }\n      }\n    $CACHE_STAT\
US=\"COMPUTE CACHE\";\n    return 0;\n  }\nsub fil\
e1_eq_file2\n  {\n    my ($f1, $f2)=@_;\n    if ( \
$f1 eq \"\"){return 1;}\n    elsif ( $f2 eq \"\"){\
return 1;}\n    elsif ( !-e $f1){return 0;}\n    e\
lsif ( !-e $f2){return 0;}\n    elsif ($f1 eq \"\"\
 || $f2 eq \"\" || `diff $f1 $f2` eq \"\"){return \
1;}\n    \n    return 0;\n  }\nsub clean_file_name\
 \n  {\n    my $name=@_[0];\n    \n    $name=~s/[^\
A-Za-z1-9.-]/_/g;\n    return $name;\n  }\nsub url\
2file\n  {\n    my ($address, $out)=(@_);\n    \n \
   if (&pg_is_installed (\"wget\"))\n	{\n	  return\
 &safe_system (\"wget $address -O$out >/dev/null 2\
>/dev/null\");\n	}\n    elsif (&pg_is_installed (\\
"curl\"))\n      {\n	return &safe_system (\"curl $\
address -o$out >/dev/null 2>/dev/null\");\n      }\
\n    else\n      {\n	myexit(flus_error(\"neither \
curl nor wget are installed. Imnpossible to fectch\
 remote file\"));\n	exit ($EXIT_FAILURE);\n      }\
\n  }\nsub fasta_file1_eq_fasta_file2\n  {\n    my\
 ($f1, $f2)=@_;\n    my (%s1, %s2);\n    my @names\
;\n    %s1=read_fasta_seq ($f1);\n    %s2=read_fas\
ta_seq ($f2);\n\n    @names=(keys (%s1));\n    \n \
   foreach $n (keys(%s1))\n      {\n	if ($s1{$n}{s\
eq} ne $s2{$n}{seq}){return 0;}\n      } \n    \n \
   foreach $n (keys(%s2))\n      {\n	if ($s1{$n}{s\
eq} ne $s2{$n}{seq}){return 0;}\n      }\n    retu\
rn 1;\n  }\n	\n\n\nsub read_template_file\n{\n	my \
$pdb_templates = @_[0];\n	open (TEMP, \"<$pdb_temp\
lates\");\n	my %temp_h;\n	while (<TEMP>)\n{\n		$li\
ne = $_;\n 		$line =~/(\\S+)\\s(\\S+)/;\n 		$temp_\
h{$1}= $2;\n}\n	close(TEMP);\n	return %temp_h;\n}\\
n\nsub calc_rna_template\n{\n	my ($mode, $infile, \
$pdbfile, $outfile)=@_;\n	my %s, %h ;\n	my $result\
;\n	my (@profiles);\n	&set_temporary_dir (\"set\",\
$infile,\"seq.pep\");\n	%s=read_fasta_seq (\"seq.p\
ep\");\n	\n	%pdb_template_h = &read_template_file(\
$pdbfile);\n	my $pdb_chain;\n	open (R, \">result.a\
ln\");\n\n\n	#print stdout \"\\n\";\n	foreach $seq\
 (keys(%s))\n	{\n		if ($pdb_template_h{$seq} eq \"\
\")\n		{\n			next;\n		}\n		open (F, \">seqfile\");\
\n		print (F \">$s{$seq}{name}\\n$s{$seq}{seq}\\n\\
");\n		close (F);\n		$pdb_chain = $pdb_template_h{\
$seq};\n		$lib_name=\"$s{$seq}{name}.rfold\";\n		$\
lib_name=&clean_file_name ($lib_name);\n		\n 		saf\
e_system (\"secondary_struc.py seqfile $CACHE$pdb_\
chain  $lib_name\");\n		\n		if ( !-e $lib_name)\n	\
	{\n		myexit(flush_error(\"RNAplfold failed to com\
pute the secondary structure of $s{$seq}{name}\"))\
;\n			myexit ($EXIT_FAILURE);\n		}\n		else\n		{\n	\
		print stdout \"\\tProcess: >$s{$seq}{name} _F_ $\
lib_name\\n\";\n			print R \">$s{$seq}{name} _F_ $\
lib_name\\n\";\n		}\n		unshift (@profiles, $lib_na\
me);\n	}\n	close (R);\n	&set_temporary_dir (\"unse\
t\",$mode, $method,\"result.aln\",$outfile, @profi\
les);\n}\n\n\n\nsub seq2rna_pair{\n	my ($mode, $pd\
bfile1, $pdbfile2, $method, $param, $outfile)=@_;\\
n	\n	if ($method eq \"runsara.py\")\n	{\n		open(TM\
P,\"<$pdbfile1\");\n		my $count = 0;\n		my $line;\\
n		while (<TMP>)\n		{\n			$line = $_;\n			if ($cou\
nt ==1)\n			{\n				last;\n			}\n			$count += 1;\n	\
	}\n\n		\n		$chain1 = substr($line,length($line)-3\
,1);\n\n		close TMP;\n		open(TMP,\"<$pdbfile2\");\\
n		my $count = 0;\n		while (<TMP>)\n		{\n			$line \
= $_;\n			if ($count ==1)\n			{\n				last;\n			}\n\
			$count += 1;\n		}\n		$chain2 = substr($line,len\
gth($line)-3,1);\n		close TMP;\n\n		$tmp_file=&vtm\
pnam();\n	\n		safe_system(\"runsara.py $pdbfile1 $\
chain1 $pdbfile2 $chain2 -s -o $tmp_file --limitat\
ion 5000 > /dev/null 2> /dev/null\") == 0 or die \\
"sara did not work $!\\n\";\n		open(TMP,\"<$tmp_fi\
le\") or die \"cannot open the sara tmp file:$!\\n\
\";\n		open(OUT,\">$outfile\") or die \"cannot ope\
n the $outfile file:$!\\n\";\n\n		my $switch = 0;\\
n		my $seqNum = 0;\n		foreach my $line (<TMP>)\n		\
{\n			next unless ($line=~/SARAALI/);\n			if ($lin\
e=~/>/)\n			{\n				$switch =0;\n				print OUT \">s\
eq$seqNum\\n\";\n				$seqNum++;				\n			}\n			if (\
$switch < 2){\n				$switch++;\n				next;\n			}\n	\\
n			if ($line =~/REMARK\\s+SARAALI\\s+([^\\*]+)\\*\
/)\n			{\n				my $string = $1;\n				print OUT \"$s\
tring\\n\";\n			}\n		}\n		close TMP; \n		close OUT\
;\n		unlink($tmp_file);\n	}\n}\n\nsub seq2tblastx_\
lib\n  {\n    my ($mode, $infile, $outfile)=@_;\n \
   my (%s, $method,$nseq);\n\n    $method=$mode;\n\
    &set_temporary_dir (\"set\",$infile,\"infile\"\
);\n    %s=read_fasta_seq(\"infile\");\n    \n    \
\n    foreach $seq (keys(%s))\n      {\n	$slist[$s\
{$seq}{order}]=$s{$seq}{seq};\n	$sname[$s{$seq}{or\
der}]=$s{$seq}{name};\n	$slen[$s{$seq}{order}]=len\
gth ($s{$seq}{seq});\n      }\n    $nseq=$#sname+1\
;\n    open (F, \">outfile\");\n    print F \"! TC\
_LIB_FORMAT_01\\n\";\n    print F \"$nseq\\n\";\n \
   for ($a=0; $a<$nseq;$a++)\n      {\n	print F \"\
$sname[$a] $slen[$a]  $slist[$a]\\n\"\n      }\n  \
  close (F);\n    &safe_system (\"formatdb -i infi\
le -p F\");\n    &safe_system (\"blastall -p tblas\
tx -i infile -d infile -m 7 -S1>blast.output\");\n\
    \n    ncbi_tblastx_xml2lib_file (\"outfile\", \
file2string (\"blast.output\"));\n    &set_tempora\
ry_dir (\"unset\",$mode, $method, \"outfile\",$out\
file);\n    myexit ($EXIT_SUCCESS);\n    }\nsub se\
q2tblastpx_lib\n  {\n    my ($mode, $infile, $outf\
ile)=@_;\n    my (%s, $method,$nseq);\n    $method\
=$mode;\n    &set_temporary_dir (\"set\",$infile,\\
"infile\");\n    %s=read_fasta_seq(\"infile\");\n \
   \n    foreach $seq (keys(%s))\n      {\n	$slist\
[$s{$seq}{order}]=$s{$seq}{seq};\n	$sname[$s{$seq}\
{order}]=$s{$seq}{name};\n	$slen[$s{$seq}{order}]=\
length ($s{$seq}{seq});\n      }\n    $nseq=$#snam\
e+1;\n    open (F, \">outfile\");\n    print F \"!\
 TC_LIB_FORMAT_01\\n\";\n    print F \"$nseq\\n\";\
\n    for ($a=0; $a<$nseq;$a++)\n      {\n	print F\
 \"$sname[$a] $slen[$a]  $slist[$a]\\n\"\n      }\\
n    close (F);\n    &safe_system(\"t_coffee -othe\
r_pg seq_reformat -in infile -output tblastx_db1 >\
 tblastxdb\");\n    &safe_system (\"formatdb -i tb\
lastxdb -p T\");\n    &safe_system (\"blastall -p \
blastp -i tblastxdb -d tblastxdb -m7 >blast.output\
\");\n    ncbi_tblastpx_xml2lib_file (\"outfile\",\
 file2string (\"blast.output\"), %s);\n    &set_te\
mporary_dir (\"unset\",$mode, $method, \"outfile\"\
,$outfile);\n    myexit ($EXIT_SUCCESS);\n    }\n\\
n\n    \n\n\n\nsub file2head\n      {\n	my $file =\
 shift;\n	my $size = shift;\n	my $f= new FileHandl\
e;\n	my $line;\n	open ($f,$file);\n	read ($f,$line\
, $size);\n	close ($f);\n	return $line;\n      }\n\
sub file2tail\n      {\n	my $file = shift;\n	my $s\
ize = shift;\n	my $f= new FileHandle;\n	my $line;\\
n	\n	open ($f,$file);\n	seek ($f,$size*-1, 2);\n	r\
ead ($f,$line, $size);\n	close ($f);\n	return $lin\
e;\n      }\n\n\nsub vtmpnam\n      {\n	my $r=rand\
(100000);\n	my $f=\"file.$r.$$\";\n	while (-e $f)\\
n	  {\n	    $f=vtmpnam();\n	  }\n	push (@TMPFILE_L\
IST, $f);\n	return $f;\n      }\n\nsub myexit\n  {\
\n    my $code=@_[0];\n    if ($CLEAN_EXIT_STARTED\
==1){return;}\n    else {$CLEAN_EXIT_STARTED=1;}\n\
    ### ONLY BARE EXIT\n    exit ($code);\n  }\nsu\
b set_error_lock\n    {\n      my $name = shift;\n\
      my $pid=$$;\n\n      \n      &lock4tc ($$,\"\
LERROR\", \"LSET\", \"$$ -- ERROR: $name $PROGRAM\\
\n\");\n      return;\n    }\nsub set_lock\n  {\n \
   my $pid=shift;\n    my $msg= shift;\n    my $p=\
getppid();\n    &lock4tc ($pid,\"LLOCK\",\"LRESET\\
",\"$p$msg\\n\");\n  }\nsub unset_lock\n   {\n    \
 \n    my $pid=shift;\n    &lock4tc ($pid,\"LLOCK\\
",\"LRELEASE\",\"\");\n  }\nsub shift_lock\n  {\n \
   my $from=shift;\n    my $to=shift;\n    my $fro\
m_type=shift;\n    my $to_type=shift;\n    my $act\
ion=shift;\n    my $msg;\n    \n    if (!&lock4tc(\
$from, $from_type, \"LCHECK\", \"\")){return 0;}\n\
    $msg=&lock4tc ($from, $from_type, \"LREAD\", \\
"\");\n    &lock4tc ($from, $from_type,\"LRELEASE\\
", $msg);\n    &lock4tc ($to, $to_type, $action, $\
msg);\n    return;\n  }\nsub isshellpid\n  {\n    \
my $p=shift;\n    if (!lock4tc ($p, \"LLOCK\", \"L\
CHECK\")){return 0;}\n    else\n      {\n	my $c=lo\
ck4tc($p, \"LLOCK\", \"LREAD\");\n	if ( $c=~/-SHEL\
L-/){return 1;}\n      }\n    return 0;\n  }\nsub \
isrootpid\n  {\n    if(lock4tc (getppid(), \"LLOCK\
\", \"LCHECK\")){return 0;}\n    else {return 1;}\\
n  }\nsub lock4tc\n	{\n	  my ($pid,$type,$action,$\
value)=@_;\n	  my $fname;\n	  my $host=hostname;\n\
	  \n	  if ($type eq \"LLOCK\"){$fname=\"$LOCKDIR/\
.$pid.$host.lock4tcoffee\";}\n	  elsif ( $type eq \
\"LERROR\"){ $fname=\"$LOCKDIR/.$pid.$host.error4t\
coffee\";}\n	  elsif ( $type eq \"LWARNING\"){ $fn\
ame=\"$LOCKDIR/.$pid.$host.warning4tcoffee\";}\n	 \
 \n	  if ($debug_lock)\n	    {\n	      print STDER\
R \"\\n\\t---lock4tc(tcg): $action => $fname =>$va\
lue (RD: $LOCKDIR)\\n\";\n	    }\n\n	  if    ($act\
ion eq \"LCHECK\") {return -e $fname;}\n	  elsif (\
$action eq \"LREAD\"){return file2string($fname);}\
\n	  elsif ($action eq \"LSET\") {return string2fi\
le ($value, $fname, \">>\");}\n	  elsif ($action e\
q \"LRESET\") {return string2file ($value, $fname,\
 \">\");}\n	  elsif ($action eq \"LRELEASE\") \n	 \
   {\n	      if ( $debug_lock)\n		{\n		  my $g=new\
 FileHandle;\n		  open ($g, \">>$fname\");\n		  pr\
int $g \"\\nDestroyed by $$\\n\";\n		  close ($g);\
\n		  safe_system (\"mv $fname $fname.old\");\n		}\
\n	      else\n		{\n		  unlink ($fname);\n		}\n	  \
  }\n	  return \"\";\n	}\n	\nsub file2string\n	{\n\
	  my $file=@_[0];\n	  my $f=new FileHandle;\n	  m\
y $r;\n	  open ($f, \"$file\");\n	  while (<$f>){$\
r.=$_;}\n	  close ($f);\n	  return $r;\n	}\nsub st\
ring2file \n    {\n    my ($s,$file,$mode)=@_;\n  \
  my $f=new FileHandle;\n    \n    open ($f, \"$mo\
de$file\");\n    print $f  \"$s\";\n    close ($f)\
;\n  }\n\nBEGIN\n    {\n      srand;\n    \n      \
$SIG{'SIGUP'}='signal_cleanup';\n      $SIG{'SIGIN\
T'}='signal_cleanup';\n      $SIG{'SIGQUIT'}='sign\
al_cleanup';\n      $SIG{'SIGILL'}='signal_cleanup\
';\n      $SIG{'SIGTRAP'}='signal_cleanup';\n     \
 $SIG{'SIGABRT'}='signal_cleanup';\n      $SIG{'SI\
GEMT'}='signal_cleanup';\n      $SIG{'SIGFPE'}='si\
gnal_cleanup';\n      \n      $SIG{'SIGKILL'}='sig\
nal_cleanup';\n      $SIG{'SIGPIPE'}='signal_clean\
up';\n      $SIG{'SIGSTOP'}='signal_cleanup';\n   \
   $SIG{'SIGTTIN'}='signal_cleanup';\n      $SIG{'\
SIGXFSZ'}='signal_cleanup';\n      $SIG{'SIGINFO'}\
='signal_cleanup';\n      \n      $SIG{'SIGBUS'}='\
signal_cleanup';\n      $SIG{'SIGALRM'}='signal_cl\
eanup';\n      $SIG{'SIGTSTP'}='signal_cleanup';\n\
      $SIG{'SIGTTOU'}='signal_cleanup';\n      $SI\
G{'SIGVTALRM'}='signal_cleanup';\n      $SIG{'SIGU\
SR1'}='signal_cleanup';\n\n\n      $SIG{'SIGSEGV'}\
='signal_cleanup';\n      $SIG{'SIGTERM'}='signal_\
cleanup';\n      $SIG{'SIGCONT'}='signal_cleanup';\
\n      $SIG{'SIGIO'}='signal_cleanup';\n      $SI\
G{'SIGPROF'}='signal_cleanup';\n      $SIG{'SIGUSR\
2'}='signal_cleanup';\n\n      $SIG{'SIGSYS'}='sig\
nal_cleanup';\n      $SIG{'SIGURG'}='signal_cleanu\
p';\n      $SIG{'SIGCHLD'}='signal_cleanup';\n    \
  $SIG{'SIGXCPU'}='signal_cleanup';\n      $SIG{'S\
IGWINCH'}='signal_cleanup';\n      \n      $SIG{'I\
NT'}='signal_cleanup';\n      $SIG{'TERM'}='signal\
_cleanup';\n      $SIG{'KILL'}='signal_cleanup';\n\
      $SIG{'QUIT'}='signal_cleanup';\n      \n    \
  our $debug_lock=$ENV{\"DEBUG_LOCK\"};\n      \n \
     \n      \n      \n      foreach my $a (@ARGV)\
{$CL.=\" $a\";}\n      if ( $debug_lock ){print ST\
DERR \"\\n\\n\\n********** START PG: $PROGRAM ****\
*********\\n\";}\n      if ( $debug_lock ){print S\
TDERR \"\\n\\n\\n**********(tcg) LOCKDIR: $LOCKDIR\
 $$ *************\\n\";}\n      if ( $debug_lock )\
{print STDERR \"\\n --- $$ -- $CL\\n\";}\n      \n\
	     \n      \n      \n    }\nsub flush_error\n  \
{\n    my $msg=shift;\n    return add_error ($EXIT\
_FAILURE,$$, $$,getppid(), $msg, $CL);\n  }\nsub a\
dd_error \n  {\n    my $code=shift;\n    my $rpid=\
shift;\n    my $pid=shift;\n    my $ppid=shift;\n \
   my $type=shift;\n    my $com=shift;\n    \n    \
$ERROR_DONE=1;\n    lock4tc ($rpid, \"LERROR\",\"L\
SET\",\"$pid -- ERROR: $type\\n\");\n    lock4tc (\
$$, \"LERROR\",\"LSET\", \"$pid -- COM: $com\\n\")\
;\n    lock4tc ($$, \"LERROR\",\"LSET\", \"$pid --\
 STACK: $ppid -> $pid\\n\");\n   \n    return $cod\
e;\n  }\nsub add_warning \n  {\n    my $rpid=shift\
;\n    my $pid =shift;\n    my $command=shift;\n  \
  my $msg=\"$$ -- WARNING: $command\\n\";\n    pri\
nt STDERR \"$msg\";\n    lock4tc ($$, \"LWARNING\"\
, \"LSET\", $msg);\n  }\n\nsub signal_cleanup\n  {\
\n    print dtderr \"\\n**** $$ (tcg) was killed\\\
n\";\n    &cleanup;\n    exit ($EXIT_FAILURE);\n  \
}\nsub clean_dir\n  {\n    my $dir=@_[0];\n    if \
( !-d $dir){return ;}\n    elsif (!($dir=~/tmp/)){\
return ;}#safety check 1\n    elsif (($dir=~/\\*/)\
){return ;}#safety check 2\n    else\n      {\n	`r\
m -rf $dir`;\n      }\n    return;\n  }\nsub clean\
up\n  {\n    #print stderr \"\\n----tc: $$ Kills $\
PIDCHILD\\n\";\n    #kill (SIGTERM,$PIDCHILD);\n  \
  my $p=getppid();\n    $CLEAN_EXIT_STARTED=1;\n  \
  \n    \n    \n    if (&lock4tc($$,\"LERROR\", \"\
LCHECK\", \"\"))\n      {\n	my $ppid=getppid();\n	\
if (!$ERROR_DONE) \n	  {\n	    &lock4tc($$,\"LERRO\
R\", \"LSET\", \"$$ -- STACK: $p -> $$\\n\");\n	  \
  &lock4tc($$,\"LERROR\", \"LSET\", \"$$ -- COM: $\
CL\\n\");\n	  }\n      }\n    my $warning=&lock4tc\
($$, \"LWARNING\", \"LREAD\", \"\");\n    my $erro\
r=&lock4tc($$,  \"LERROR\", \"LREAD\", \"\");\n   \
 #release error and warning lock if root\n    \n  \
  if (isrootpid() && ($warning || $error) )\n     \
 {\n	\n	print STDERR \"**************** Summary **\
***********\\n$error\\n$warning\\n\";\n\n	&lock4tc\
($$,\"LERROR\",\"RELEASE\",\"\");\n	&lock4tc($$,\"\
LWARNING\",\"RELEASE\",\"\");\n      } \n    \n   \
 \n    foreach my $f (@TMPFILE_LIST)\n      {\n	if\
 (-e $f){unlink ($f);} \n      }\n    foreach my $\
d (@TMPDIR_LIST)\n      {\n	clean_dir ($d);\n     \
 }\n    #No More Lock Release\n    #&lock4tc($$,\"\
LLOCK\",\"LRELEASE\",\"\"); #release lock \n\n    \
if ( $debug_lock ){print STDERR \"\\n\\n\\n*******\
*** END PG: $PROGRAM ($$) *************\\n\";}\n  \
  if ( $debug_lock ){print STDERR \"\\n\\n\\n*****\
*****(tcg) LOCKDIR: $LOCKDIR $$ *************\\n\"\
;}\n  }\nEND \n  {\n    \n    &cleanup();\n  }\n  \
 \nsub blast_com2new_blast_com\n    {\n      my $c\
om=shift;\n      if ($ENV{\"NCBI_BLAST_4_TCOFFEE\"\
} eq \"OLD\"){return $com;}\n      elsif (!&pg_is_\
installed(\"legacy_blast.pl\")){return $com;}\n   \
   else \n	{\n	  if ($com=~/formatdb/)\n	    {\n	 \
     $com=~s/formatdb/makeblastdb/;\n	      $com=~\
s/\\-i/\\-in/;\n	      if ($com =~/pF/){$com=~s/\\\
-pF/\\-dbtype nucl/;}\n	      if ($com =~/p F/){$c\
om=~s/\\-p F/\\-dbtype nucl/;}\n	      $com=\"$com\
 -logfile /dev/null\";\n	      return $com;\n	    \
}\n	  elsif (&is_blast_package($com))\n	    {\n	  \
    my $path;\n	      \n	      if ( $ENV{\"NCBI_BI\
N_4_TCOFFEE\"}){$path=$ENV{\"NCBI_BLAST_4_TCOFFEE\\
"};}\n	      else\n		{\n		  $path=`which legacy_bl\
ast.pl`;\n		  $path=~s/\\/legacy_blast\\.pl//;\n		\
  chomp ($path);\n		}\n	      $path=\"--path $path\
\";\n	      if ( $com=~/\\>\\>/){$com=~s/\\>\\>/ $\
path \\>\\>/;}\n	      elsif ( $com=~/\\>/){$com=~\
s/\\>/ $path \\>/;}\n	      else {$com.=\" $path\"\
;}\n	      $com=\"legacy_blast.pl $com\";\n	      \
\n	      return $com;\n	    }\n	}\n    }\nsub safe\
_system \n{\n  my $com=shift;\n  my $ntry=shift;\n\
  my $ctry=shift;\n  my $pid;\n  my $status;\n  my\
 $ppid=getppid();\n  if ($com eq \"\"){return 1;}\\
n  \n  if ( ($com=~/^blast/) ||($com=~/^formatdb/)\
){$com=&blast_com2new_blast_com($com);} \n\n  if (\
($pid = fork ()) < 0){return (-1);}\n  if ($pid ==\
 0)\n    {\n      set_lock($$, \" -SHELL- $com (tc\
g)\");\n      if( $debug_cmd_exec ) { printf \"exe\
c: %s\\n\", $com; } \n      exec ($com);\n    }\n \
 else\n    {\n      lock4tc ($$, \"LLOCK\", \"LSET\
\", \"$pid\\n\");#update parent\n      $PIDCHILD=$\
pid;\n    }\n  if ($debug_lock){printf STDERR \"\\\
n\\t .... safe_system (fasta_seq2hmm)  p: $$ c: $p\
id COM: $com\\n\";}\n\n  waitpid ($pid,WTERMSIG);\\
n\n  shift_lock ($pid,$$, \"LWARNING\",\"LWARNING\\
", \"LSET\");\n\n  if ($? == $EXIT_FAILURE || lock\
4tc($pid, \"LERROR\", \"LCHECK\", \"\"))\n    {\n \
     if ($ntry && $ctry <$ntry)\n	{\n\n	  add_warn\
ing ($$,$$,\"$com failed [retry: $ctry out of $ntr\
y]\");\n	  lock4tc ($pid, \"LRELEASE\", \"LERROR\"\
, \"\");\n	  #if ($com=~/EBI/){$com=~s/EBI/NCBI/;}\
\n	  #elsif ($com=~/NCBI/){$com=~s/NCBI/EBI/;}\n	 \
 \n	  return safe_system ($com, $ntry, ++$ctry);\n\
	}\n      elsif ($ntry == -1)\n	{\n	  if (!shift_l\
ock ($pid, $$, \"LERROR\", \"LWARNING\", \"LSET\")\
)\n	    {\n	      add_warning ($$,$$,\"$com failed\
\");\n	    }\n	  else\n	    {\n	      lock4tc ($pi\
d, \"LRELEASE\", \"LERROR\", \"\");\n	    }\n	  re\
turn $?;}\n      else\n	{\n	  if (!shift_lock ($pi\
d,$$, \"LERROR\",\"LERROR\", \"LSET\"))\n	    {\n	\
      myexit(add_error ($EXIT_FAILURE,$$,$pid,getp\
pid(), \"UNSPECIFIED system\", $com));\n	    }\n	}\
\n    }\n  return $?;\n}\n\nsub check_configuratio\
n \n    {\n      my @l=@_;\n      my $v;\n      fo\
reach my $p (@l)\n	{\n	  \n	  if   ( $p eq \"EMAIL\
\")\n	    { \n	      if ( !($EMAIL=~/@/))\n		{\n		\
add_warning($$,$$,\"Could Not Use EMAIL\");\n		mye\
xit(add_error ($EXIT_FAILURE,$$,$$,getppid(),\"EMA\
IL\",\"$CL\"));\n	      }\n	    }\n	  elsif( $p eq\
 \"INTERNET\")\n	    {\n	      if ( !&check_intern\
et_connection())\n		{\n		  myexit(add_error ($EXIT\
_FAILURE,$$,$$,getppid(),\"INTERNET\",\"$CL\"));\n\
		}\n	    }\n	  elsif( $p eq \"wget\")\n	    {\n	 \
     if (!&pg_is_installed (\"wget\") && !&pg_is_i\
nstalled (\"curl\"))\n		{\n		  myexit(add_error ($\
EXIT_FAILURE,$$,$$,getppid(),\"PG_NOT_INSTALLED:wg\
et\",\"$CL\"));\n		}\n	    }\n	  elsif( !(&pg_is_i\
nstalled ($p)))\n	    {\n	      myexit(add_error (\
$EXIT_FAILURE,$$,$$,getppid(),\"PG_NOT_INSTALLED:$\
p\",\"$CL\"));\n	    }\n	}\n      return 1;\n    }\
\n\n$program=\"T-COFFEE (r550)\";\n\n","*TC_METHOD\
_FORMAT_01\n******************generic_method.tc_me\
thod*************\n*\n*       Incorporating new me\
thods in T-Coffee\n*       Cedric Notredame 26/08/\
08\n*\n*******************************************\
************\n*This file is a method file\n*Copy i\
t and adapt it to your need so that the method \n*\
you want to use can be incorporated within T-Coffe\
e\n***********************************************\
********\n*                  USAGE                \
              *\n*********************************\
**********************\n*This file is passed to t_\
coffee via -in:\n*\n*	t_coffee -in Mgeneric_method\
.method\n*\n*	The method is passed to the shell us\
ing the following\n*call:\n*<EXECUTABLE><PARAM1><I\
N_FLAG><seq_file><PARAM2><OUT_FLAG><outname><PARAM\
>\n*\n*Conventions:\n*<FLAG_NAME> 	<TYPE>		<VALUE>\
\n*<VALUE>:	no_name 	<=> Replaced with a space\n*<\
VALUE>:	&nbsp	<=> Replaced with a space\n*\n******\
*************************************************\\
n*                  ALN_MODE                      \
     *\n******************************************\
*************\n*pairwise   ->all Vs all (no self )\
[(n2-n)/2aln]\n*m_pairwise ->all Vs all (no self)[\
n^2-n]^2\n*s_pairwise ->all Vs all (self): [n^2-n]\
/2 + n\n*multiple   ->All the sequences in one go\\
n*\nALN_MODE		pairwise\n*\n***********************\
********************************\n*               \
   OUT_MODE                           *\n*********\
**********************************************\n* \
mode for the output:\n*External methods: \n* aln -\
> alignmnent File (Fasta or ClustalW Format)\n* li\
b-> Lib file (TC_LIB_FORMAT_01)\n*Internal Methods\
:\n* fL -> Internal Function returning a List (Lib\
rairie)\n* fA -> Internal Function returning an Al\
ignmnent\n*\nOUT_MODE		aln\n**********************\
*********************************\n*              \
    SEQ_TYPE                           *\n********\
***********************************************\n*\
G: Genomic, S: Sequence, P: PDB, R: Profile\n*Exam\
ples:\n*SEQTYPE	S	sequences against sequences (def\
ault)\n*SEQTYPE	S_P	sequence against structure\n*S\
EQTYPE	P_P	structure against structure\n*SEQTYPE	P\
S	mix of sequences and structure	\n*\nSEQ_TYPE	S\n\
*\n\n*********************************************\
**********\n*                COMMAND LINE         \
                *\n*EXECUTABLE PARAM1 IN_FLAG OUT_\
FLAG PARAM             *\n************************\
*******************************\n*****************\
**************************************\n*         \
         EXECUTABLE                         *\n***\
**************************************************\
**\n*name of the executable\n*passed to the shell:\
 executable\n*	\nEXECUTABLE	tc_generic_method.pl\n\
*\n***********************************************\
********\n*                  IN_FLAG              \
               *\n********************************\
***********************\n*IN_FLAG\n*flag indicatin\
g the name of the in coming sequences\n*IN_FLAG S \
no_name ->no flag\n*IN_FLAG S &bnsp-in&bnsp -> \" \
-in \"\n*\nIN_FLAG		-infile=\n*\n*****************\
**************************************\n*         \
         OUT_FLAG                           *\n***\
**************************************************\
**\n*OUT_FLAG\n*flag indicating the name of the ou\
t-coming data\n*same conventions as IN_FLAG\n*OUT_\
FLAG	S no_name ->no flag\n*if you want to redirect\
, pass the parameters via PARAM1\n*set OUT_FLAG to\
 >\n*\nOUT_FLAG		-outfile=\n*\n*******************\
************************************\n*           \
       PARAM_1                              *\n***\
**************************************************\
**\n*<EXECUTABLE><PARAM1><IN_FLAG><seq_file><PARAM\
2><OUT_FLAG><outname><PARAM>\n*Parameters sent to \
the EXECUTABLE and specified *before* IN_FLAG \n*I\
f there is more than 1 PARAM line, the lines are\n\
*concatenated\n*Command_line: @EP@PARAM@-gapopen%e\
10%s-gapext%e20\n*	%s white space\n*	%e equal sign\
\n*\n*PARAM1	\n*\n*\n*\n**************************\
*****************************\n*                  \
PARAM_2                              *\n**********\
*********************************************\n*<E\
XECUTABLE><PARAM1><IN_FLAG><seq_file><PARAM2><OUT_\
FLAG><outname><PARAM>\n*Parameters sent to the EXE\
CUTABLE and specified \n*after* IN_FLAG and *befor\
e* OUT_FLAG\n*If there is more than 1 PARAM line, \
the lines are\n*concatenated\n*\n*PARAM1	\n*\n*\n*\
**************************************************\
****\n*                  PARAM                    \
          *\n*************************************\
******************\n*<EXECUTABLE><PARAM1><IN_FLAG>\
<seq_file><PARAM2><OUT_FLAG><outname><PARAM>\n*Par\
ameters sent to the EXECUTABLE and specified *afte\
r* OUT_FLAG\n*If there is more than 1 PARAM line, \
the lines are\n*concatenated\n*\nPARAM	-mode=seq_m\
sa -method=clustalw\nPARAM   -OUTORDER=INPUT -NEWT\
REE=core -align -gapopen=-15\n*\n*****************\
**************************************\n*         \
         END                                *\n***\
**************************************************\
**\n","*TC_METHOD_FORMAT_01\n***************clusta\
lw_method.tc_method*********\nEXECUTABLE	clustalw\\
nALN_MODE		pairwise\nIN_FLAG		-INFILE=\nOUT_FLAG		\
-OUTFILE=\nOUT_MODE		aln\nPARAM		-gapopen=-10\nSEQ\
_TYPE		S\n****************************************\
*********\n","$VersionTag =                       \
                                                  \
                                                  \
        2.43;\nuse Env;\nuse FileHandle;\nuse Cwd;\
\nuse File::Path;\nuse Sys::Hostname;\nour $PIDCHI\
LD;\nour $ERROR_DONE;\nour @TMPFILE_LIST;\nour $EX\
IT_FAILURE=1;\nour $EXIT_SUCCESS=0;\n\nour $REFDIR\
=getcwd;\nour $EXIT_SUCCESS=0;\nour $EXIT_FAILURE=\
1;\n\nour $PROGRAM=\"extract_from_pdb\";\nour $CL=\
$PROGRAM;\n\nour $CLEAN_EXIT_STARTED;\nour $debug_\
lock=$ENV{\"DEBUG_LOCK\"};\nour $LOCKDIR=$ENV{\"LO\
CKDIR_4_TCOFFEE\"};\nif (!$LOCKDIR){$LOCKDIR=getcw\
d();}\nour $ERRORDIR=$ENV{\"ERRORDIR_4_TCOFFEE\"};\
\nour $ERRORFILE=$ENV{\"ERRORFILE_4_TCOFFEE\"};\n&\
set_lock ($$);\nif (isshellpid(getppid())){lock4tc\
(getppid(), \"LLOCK\", \"LSET\", \"$$\\n\");}\n   \
   \nour $SILENT=\" >/dev/null 2>/dev/null\";\nour\
 $INTERNET=-1;\n\n\n\n\n\n\n\nour $BLAST_MAX_NRUNS\
=2;\nour $EXIT_SUCCESS=0;\nour $EXIT_FAILURE=1;\no\
ur $CONFIGURATION=-1;\nour $REF_EMAIL=\"\";\nour $\
PROGRAM=\"extract_from_pdb\";\n\n\nmy %onelett_pro\
t=&fill_onelett_prot();\nmy %threelett_prot=&fill_\
threelett_prot();\nmy %onelett_RNA=&fill_onelett_R\
NA();\nmy %threelett_RNA=&fill_threelett_RNA();\nm\
y %onelett_DNA=&fill_onelett_DNA();\nmy %threelett\
_DNA=&fill_threelett_DNA();\n\n\n\n\n\nmy %onelett\
 = (\n'P' => \\%onelett_prot,\n'D' => \\%onelett_D\
NA,\n'R' => \\%onelett_RNA\n);\n\n\nmy %threelett \
= (\n'P' => \\%threelett_prot,\n'D' => \\%threelet\
t_DNA,\n'R' => \\%threelett_RNA\n);\n\n\n\n\n\n\n\\
nif($ARGV[0]=~/help/ ||$ARGV[0]=~/man/ || $ARGV[0]\
=~/HELP/ || $ARGV[0]=~/Man/ || $ARGV[0] eq \"-h\" \
 || $ARGV[0] eq \"-H\"  )\n{die \"SYNTAX: extract_\
from_pdb Version $VersionTag	\n	Minimum:          \
   [extract_from_pdb file] \n			   OR \n			     [.\
.. | extract_from_pdb]\n 	Flags (Default setting o\
n the first line)\n	   -version...................\
[Returns the Version Number]\n           -force...\
..................[Forces the file to be treated l\
ike a PDB file]\n                                 \
     [Regenerates the header and SEQRES fields]\n \
          -force_name................[Forces the f\
ile to be named after name]]\n           -infile..\
...file...........[Flag can be omited]\n			       \
       [File must be pdb or fro pgm]\n            \
                          [File can also be compre\
ssed Z or gz]\n                                   \
   [In the case of a compressed file, you can omit\
 the gz|Z extension]\n           -netfile.........\
..........[File will be fetch from the net using w\
get]\n                                      [wget \
or curl must be installed]\n                      \
                [ftp://ftp.gnu.org/pub/gnu/wget/]\\
n                                      [http://cur\
l.haxx.se/]\n                                     \
 [Must also be used to retrieve the file from a lo\
cal pdb copy (cf netaddress)]\n           -netaddr\
ess................[Address used for the retrievin\
g the netfile]\n                                  \
    [http://www.rcsb.org/pdb/cgi/export.cgi/%%.pdb\
.gz?format=PDB&pdbId=%%&compression=gz]\n         \
                             [http://www.expasy.ch\
/cgi-bin/get-pdb-entry.pl?%%]\n                   \
                   [local -> will get the file fro\
m pdb_dir (see pdb_dir)]\n           -netcompressi\
on............[Extension if the netfile comes comp\
ressed]\n                                      [gz\
]\n           -pdb_dir...................[address \
of the repertory where the pdb is installed]\n    \
                                  [Supports standa\
rd ftp style installation OR every stru in DIR]\n \
                                     [Give the ...\
./pdb/structure/ dir]\n                           \
           [If value omitted, the pg gets it from \
the env variable PDB_DIR]\n           -netcompress\
ion_pg.........[gunzip]\n           -is_pdb_name..\
........name.[Returns 1 if the name is a PDB ID, 0\
 otherwise]\n           -model_type...........name\
.[Returns the model type if valid PDB name]\n     \
      -is_released_pdb_name name.[Returns 1 if the\
 name corresponds to a released PDB file]\n       \
    -get_pdb_chains.....name...[Returns the list o\
f chains corresponding to the entry]\n           -\
get_pdb_id.........name...[Returns the PDB id with\
in the provided pdb file]\n           -get_fugue_n\
ame.....name...[Turns a name into a name valid for\
 fugue]\n                                      [Us\
es the netaddress to do so]\n	   -chain......FIRST\
..........[Extract the first chain only]\n		      \
 A B C..........[Extract Several chains if needed]\
\n		       ALL............[Extract all the chains]\
	\n           -ligand.....ALL............[Extract \
the ligands in the chain (HETATM)]\n              \
         <name1>,<name2>[Extract All the named lig\
nds]\n	   -ligand_only...............[Extract only\
 the ligands]\n           -ligand_list............\
...[Extract the list of ligands]\n	   -coor.......\
<start>..<end>.[Coordinates of the fragment to ext\
ract]\n			              [Omit end to include the C\
ter]\n           -num........absolute.......[absol\
ute: relative to the seq] \n                      \
 file...........[file: relative to file]\n        \
   -num_out....new............[new: start 1->L]\n \
                      old............[old: keep th\
e file coordinates]\n           -delete.....<start\
>..<end>.[Delete from residue start to residue end\
]\n	   -atom.......CA.............[Atoms to includ\
e, ALL for all of them]\n		       CA O N.........[\
Indicate several atoms if needed]\n	   -code......\
.3..............[Use the 1 letter code or the 3 le\
tters code]\n	   -mode.......raw............[Outpu\
t original pdb file]\n                       pdb..\
..........[Output something that looks like pdb]\n\
		       fasta..........[Output the sequences in f\
asta format]\n		       simple.........[Output a fo\
rmat easy to parse in C ]\n            -seq_field.\
.ATOM...........[Field used to extract the sequenc\
e]\n		       SEQRES.........[Use the complete sequ\
ence]\n	   -seq.......................[Equivalent \
to  -mode fasta]\n	   -model......1..............[\
Chosen Model in an NMR file]\n           -nodiagno\
stic..............[Switches Error Messages off]\n \
          -debug.....................[Sets the DEB\
UG ON]\n           -no_remote_pdb_dir.........[Do \
not look for a remote file]\n           -cache_pdb\
.................[Cache Value, default is $HOME/.t\
_coffee/cache, other values: NO<=> No cache]\n\n  \
    Environement Variables\n           These varia\
bles can be set from the environement\n           \
Command line values with the corresponding flag su\
perseed evironement value\n           NO_REMOTE_PD\
B_DIR..........[Prevents the program from searchin\
g remote file: faster]\n           PDB_DIR........\
............[Indicates where PDB file must be fetc\
hed (localy)]\n\n	 PROBLEMS: please contact cedric\
.notredame\\@europe.com\\n\";\n	 exit ($EXIT_SUCCE\
SS);\n}\n\n$np=0;\n$n_para=$#ARGV;\n$model=1;\n$pd\
b_dir=$ENV{'PDB_DIR'};if ($pdb_dir){$pdb_dir.=\"/\\
";}\n$debug=$ENV{'DEBUG_EXTRACT_FROM_PDB'};\n\n$no\
_remote_pdb_dir=$ENV{NO_REMOTE_PDB_DIR};\n$HOME=$E\
NV{'HOME'};\nif ( $ENV{CACHE_4_TCOFFEE})\n{$cache=\
$ENV{CACHE_4_TCOFFEE};}\nelse\n{\n    $cache=\"$HO\
ME/.t_coffee/cache/\";\n}\n\n   \n$netaddress=\"ht\
tp://www.rcsb.org/pdb/files/%%.pdb.gz\";\n$netcomp\
ression_pg=\"gunzip\";\n$netcompression=\"gz\";\n\\
nforeach ($np=0; $np<=$n_para; $np++)\n  {        \
\n    $value=$ARGV[$np];\n   \n    if  ($np==0 && \
!($value=~/^-.*/))\n      { \n	$pdb_file= $ARGV[$n\
p];\n      }\n    elsif ( !($value=~/^-.*/))\n    \
  {\n	print \"@ARGV\";\n	die;\n      } \n    \n   \
 elsif ($value eq \"-nodiagnostic\"){$nodiagnostic\
=1;}\n    elsif ($value eq \"-force\")\n      {\n	\
$force_pdb=1;\n      }\n    elsif ($value eq \"-fo\
rce_name\")\n      {\n	$force_name=$ARGV[++$np];\n\
	$force_pdb=1;\n      }\n    \n    elsif ($value e\
q \"-is_pdb_name\")\n      {\n	$pdb_file= $ARGV[++\
$np];	\n	$is_pdb_name=1;	\n      } \n    elsif ($v\
alue eq \"-is_released_pdb_name\")\n      {\n	$pdb\
_file= $ARGV[++$np];	\n	$is_released_pdb_name=1;\n\
      }\n    elsif ($value eq \"-model_type\")\n  \
    {\n	$pdb_file= $ARGV[++$np];	\n	$model_type=1;\
\n      }\n    elsif ($value eq \"-debug\")\n{\n	$\
debug=1;\n}\n    elsif ($value eq \"-get_pdb_chain\
s\")\n{\n	$pdb_file= $ARGV[++$np];\n	$get_pdb_chai\
ns=1;\n}\n    elsif ($value eq \"-get_pdb_ligands\\
")\n{\n	$get_pdb_ligands=1;\n}\n    \n    elsif ($\
value eq \"-get_pdb_id\")\n{\n	$pdb_file= $ARGV[++\
$np];\n	$get_pdb_id=1;\n	\n}\n    \n    elsif ( $v\
alue eq \"-get_fugue_name\")\n{\n	$pdb_file= $ARGV\
[++$np];\n	$get_fugue_name=1;\n}\n    elsif ( $val\
ue eq \"-infile\")\n{\n       $pdb_file= $ARGV[++$\
np];\n} \n    elsif ($value eq \"-netfile\")\n{\n	\
$netfile=1;\n	if ( !($ARGV[$np+1]=~/^-.*/)){$pdb_f\
ile= $ARGV[++$np];}\n}\n    elsif (  $value eq \"-\
num\")\n{\n       $numbering= $ARGV[++$np];\n}\n  \
  elsif (  $value eq \"-num_out\")\n{\n       $num\
bering_out= $ARGV[++$np];\n}\n    elsif ( $value e\
q \"-netaddress\")\n{\n	$netadress=$ARGV[++$np];\n\
}\n     \n    elsif ( $value eq \"-netcompression\\
")\n{\n	 $netcompression=$ARGV[++$np];\n}\n    els\
if ( $value eq \"-pdb_dir\")\n{\n	 if ( !($ARGV[$n\
p+1]=~/^-.*/)){$pdb_dir= \"$ARGV[++$np]/\";}\n}\n \
    elsif ( $value eq \"-no_remote_pdb_dir\")\n{\n\
	$no_remote_pdb_dir=1;\n	if ( !($ARGV[$np+1]=~/^-.\
*/)){$pdb_dir= \"$ARGV[++$np]/\";}\n}\n    elsif (\
 $value eq \"-cache\")\n{\n	$cache=$ARGV[++$np];\n\
}\n    \n    elsif ($value eq \"-netcompression_pg\
\")\n{\n	  $netcompression_pg=$ARGV[++$np];\n}\n  \
   elsif ($value eq \"-mode\")\n{\n       $MODE=$A\
RGV[++$np];\n}\n\n    elsif ( $value eq \"-model\"\
)\n{\n       $model= $ARGV[++$np];\n}\n    elsif (\
$value eq \"-seq_field\" )\n{\n       $seq_field= \
$ARGV[++$np];\n}   \n    elsif ($value eq \"-coor\\
" )\n{\n       $start= $ARGV[++$np];\n  \n       i\
f (($ARGV[$np+1] eq \"\") ||($ARGV[$np+1]=~/^-.*/)\
){$end=\"*\";} \n       else {$end=   $ARGV[++$np]\
;}     \n       $coor_set=1;\n}\n    elsif ($value\
 eq \"-delete\" )\n{\n       $delete_start= $ARGV[\
++$np];\n       $delete_end= $ARGV[++$np];\n      \
 $delete_set=1;\n}\n    elsif  ($value eq \"-code\\
")\n{\n       $code= $ARGV[++$np];\n}\n    elsif  \
($value eq \"-no_hetatm\")\n{\n       $no_hetatm=1\
;\n}\n    elsif ($value eq \"-chain\")\n{\n       \
while (!($ARGV[$np+1] eq \"\") &&!($ARGV[$np+1]=~/\
^-.*/))\n{\n	      ++$np;\n	      @c_chain=(@chain\
,  $ARGV[$np]);\n	      $hc_chain{$ARGV[$np]}=$#c_\
chain+1;\n}           \n}\n    elsif ($value eq \"\
-atom\")\n{\n\n       while (!($ARGV[$np+1] eq \"\\
") && !($ARGV[$np+1]=~/^-.*/))\n{\n	      ++$np;\n\
	      $atom[$n_atom++]=  $ARGV[$np];\n	      $ato\
m_list{$ARGV[$np]}=1;	      \n} \n       \n}\n    \
elsif ( $value eq \"-unfold\")\n{\n	$unfold=1;\n}\\
n    elsif ($value eq \"-seq\" ||$value eq \"-fast\
a\" )\n{\n       $MODE=\"fasta\";\n}\n    elsif ( \
$value eq \"-version\")\n{\n	print STDERR  \"\\nex\
tract_from_pdb: Version $VersionTag\\n\";\n	&myexi\
t ($EXIT_SUCCESS);\n}\n    elsif ( $value eq \"-li\
gand\")\n{\n	while (!($ARGV[$np+1] eq \"\") && !($\
ARGV[$np+1]=~/^-.*/))\n{\n	    ++$np;\n	    $ligan\
d=1;\n	    $ligand_list{$ARGV[$np]}=1;	      \n} \\
n	$hc_chain{'LIGAND'}=1;\n}\n    elsif ( $value eq\
 \"-ligand_only\")\n{\n	$ligand_only=1;\n}\n}\nif \
( $debug)\n{\n    print STDERR \"\\n[DEBUG:extract\
_from_pdb] NO_REMOTE_PDB_DIR: $no_remote_pdb_dir\\\
n\";\n    print STDERR \"\\n[DEBUG:extract_from_pd\
b] PDB_DIR: $pdb_dir\\n\";\n}\n\n\nif ( $is_pdb_na\
me)\n  {\n    if (&remote_is_pdb_name($pdb_file))\\
n      {\n	print \"1\";\n      }\n    else\n      \
{\n	print \"0\";\n      }\n    exit ($EXIT_SUCCESS\
);\n  }\n\nif ( $is_released_pdb_name)\n  {\n    \\
n    if (&is_released($pdb_file))\n      {\n	print\
 \"1\";\n      }\n    else\n      {\n	print \"0\";\
\n      }\n    exit ($EXIT_SUCCESS);\n  }\nif ($mo\
del_type)\n  {\n   \n    printf \"%s\", &pdb2model\
_type($pdb_file);\n    exit ($EXIT_SUCCESS);\n    \
\n  }\n    \n\nif (!$force_name)\n{\n    $pdb_file\
=~/([^\\/]*)$/;\n    $force_name=$1;\n}\n\n$local_\
pdb_file=$pdb_file;\n\nif ( $debug){print STDERR \\
"\\n[DEBUG: extract_from_pdb] Scan For $local_pdb_\
file\\n\";}\n\n$mem=$no_remote_pdb_dir;\n$no_remot\
e_pdb_dir=1;\n$tmp_pdb_file=get_pdb_file ($local_p\
db_file);\n\nif ( !-e $tmp_pdb_file || $tmp_pdb_fi\
le eq \"\")\n  {\n    $local_pdb_file=$pdb_file;\n\
    ($local_pdb_file, $suffix_chain)=&pdb_name2nam\
e_and_chain($local_pdb_file);\n\n    if ($local_pd\
b_file)\n      {\n	if ( $debug){print STDERR \"\\n\
Split $pdb_file into $local_pdb_file and $suffix_c\
hain \\n\";}\n	$tmp_pdb_file=get_pdb_file ($local_\
pdb_file);\n	if ( $tmp_pdb_file ne \"\")\n	  {\n	 \
   @c_chain=();\n	    @c_chain=($suffix_chain);\n	\
    %hc_chain=();\n	    $hc_chain{$suffix_chain}=1\
;\n	  }\n      }\n  }\n\n$no_remote_pdb_dir=$mem;\\
nif ($no_remote_pdb_dir==0)\n  {\n    \n    if ( !\
-e $tmp_pdb_file || $tmp_pdb_file eq \"\")\n      \
{\n	\n	$local_pdb_file=$pdb_file;\n	($local_pdb_fi\
le, $suffix_chain)=&pdb_name2name_and_chain($local\
_pdb_file);\n	if ($local_pdb_file)\n	  {\n	    \n	\
    if ( $debug){print STDERR \"\\nSplit $pdb_file\
 into $local_pdb_file and $suffix_chain \\n\";}\n	\
    \n	    $tmp_pdb_file=get_pdb_file ($local_pdb_\
file);    \n	    \n	    if ( $tmp_pdb_file ne \"\"\
)\n	      {\n		@c_chain=();\n		@c_chain=($suffix_c\
hain);\n		%hc_chain=();\n		$hc_chain{$suffix_chain\
}=1;\n	      }\n	  }\n      }\n  }\n\nif ( $debug)\
{print STDERR \"\\n$pdb_file copied into ##$tmp_pd\
b_file##\\n\";}\n\nif ( !-e $tmp_pdb_file || $tmp_\
pdb_file eq \"\")\n{\n	if ($is_pdb_name)\n{\n	    \
print \"0\\n\"; exit ($EXIT_SUCCESS);\n}\n	else\n{\
\n  \n	    print \"\\nEXTRACT_FROM_PDB: NO RESULT \
for $pdb_file\\n\";\n	    &myexit ($EXIT_SUCCESS);\
	\n}\n}\n\n\n\n\n%molecule_type=&pdbfile2chaintype\
($tmp_pdb_file);\nif ( $debug){print STDERR \"\\n\\
\tSequence Type determined\\n\";}\n\n$pdb_id=&get_\
pdb_id ($tmp_pdb_file);\nif ( $debug){print STDERR\
 \"\\n\\tID: $pdb_id (for $tmp_pdb_file)\\n\";}\n\\
nif ( $pdb_id eq \"\"){$pdb_id=$force_name;}\n\n@f\
_chain=&get_chain_list ($tmp_pdb_file);\nif ( $deb\
ug){print STDERR \"\\n\\tChain_list:@f_chain\\n\";\
}\n\nif ( $get_pdb_chains)\n{\n    print \"@f_chai\
n\\n\";\n    &myexit ($EXIT_SUCCESS);\n}\nif ( $ge\
t_pdb_ligands)\n{\n    %complete_ligand_list=&get_\
ligand_list ($tmp_pdb_file);\n    print $complete_\
ligand_list{\"result\"};\n    &myexit ($EXIT_SUCCE\
SS);\n}\n\nelsif ( $get_pdb_id ||$get_fugue_name )\
\n{\n    if    (@c_chain && $c_chain[0] eq \"FIRST\
\"){$pdb_id=$pdb_id.$f_chain[0];}\n    elsif (@c_c\
hain && $c_chain[0] ne \" \"){$pdb_id=$pdb_id.$c_c\
hain[0];}\n    \n    print \"$pdb_id\\n\";\n    &m\
yexit ($EXIT_SUCCESS);\n    \n}\nelsif ( $is_pdb_n\
ame)\n{\n    printf \"1\\n\";\n    &myexit ($EXIT_\
SUCCESS);\n}\n\n\n\n$structure_file=vtmpnam();\n\n\
if ( $debug){print STDERR \"\\n\\tCheck_point #1: \
$tmp_pdb_file  $structure_file\\n\";}\n\n$INFILE=v\
fopen (\"$tmp_pdb_file\", \"r\"); \n$TMP=vfopen (\\
"$structure_file\", \"w\");\n\n$print_model=1;\n$i\
n_model=0;\n\nif ( $debug){print STDERR \"\\n\\tCh\
eck_point #2\\n\";}\nwhile ( <$INFILE>)\n{\n  my $\
first_model=0;\n  $line=$_;\n\n  if ( !$first_mode\
l && ($line =~/^MODEL\\s*(\\d*)/))\n    {\n      $\
first_model=$1;\n      if ($model==1){$model=$firs\
t_model;}\n    }\n  \n  if (($line =~/^MODEL\\s*(\\
\d*)/))\n    {\n      if ($1==$model)\n	{\n	  $in_\
model=1;\n	  $print_model=1;\n	  $is_nmr=1;\n	}\n \
     elsif ( $in_model==0)\n	{\n	  $print_model=0;\
\n	}\n      elsif ( $in_model==1)\n	{\n	  last;\n	\
}\n    }\n  if ($print_model){print $TMP $line;}  \
\n}\nclose ($TMP);\nclose ($INFILE);\n\nif ( $debu\
g){print STDERR \"\\n\\tCheck_point #3\\n\";}	\n\n\
  if ($numbering eq \"\"){$numbering=\"absolute\";\
}\n  if ($numbering_out eq \"\"){$numbering_out=\"\
new\";}\n\n  if ( $delete_set && $coor_set) {die \\
"-delete and -coor are mutually exclusive, sorry\\\
n\";}\n  if ( $n_atom==0){$atom_list[$n_atom++]=\"\
ALL\";$atom_list{$atom_list[0]}=1;}\n  if ( $seq_f\
ield eq \"\"){$seq_field=\"ATOM\";}\n  \n  if ( $M\
ODE eq \"\"){$MODE=\"pdb\";}\n  elsif ( $MODE eq \\
"simple\" && $code==0){$code=1;}\n\n  if ( $code==\
0){$code=3;}\n\n\nif ($f_chain[0] eq \" \"){$hc_ch\
ain{' '}=1;$c_chain[0]=\" \";}\nelsif (!@c_chain){\
$hc_chain{FIRST}=1;$c_chain[0]=\"FIRST\";}#make su\
re the first chain is taken by default\n\nif    ($\
hc_chain{ALL}) \n{\n      @c_chain=@f_chain;\n    \
  foreach $e (@c_chain){$hc_chain{$e}=1;}\n}\nelsi\
f($hc_chain{FIRST})\n{\n	@c_chain=($f_chain[0]);\n\
	$hc_chain{$f_chain[0]}=1;\n}\n\n\n$MAIN_HOM_CODE=\
&get_main_hom_code ($structure_file);\n$INFILE=vfo\
pen ($structure_file, \"r\");\n\n\nif ( $MODE eq \\
"raw_pdb\" || $MODE eq \"raw\")\n{\n    while (<$I\
NFILE>)\n{	print \"$_\";}\n    close ( $INFILE);\n\
    &myexit($EXIT_SUCCESS);\n}    \nif ( $MODE eq \
\"raw4fugue\" )\n{\n    while (<$INFILE>)\n{	\n	$l\
=$_;\n	if ($l=~/^SEQRES/)\n{\n	    \n	    $c= subs\
tr($l,11,1);\n	    if ($hc_chain {$c}){print \"$l\\
";}\n}\n	elsif ( $l=~/^ATOM/)\n{\n	    $c=substr($\
l,21,1);\n	    if ($hc_chain {$c}){print \"$l\";}\\
n}\n}\n    close ( $INFILE);\n    &myexit($EXIT_SU\
CCESS);\n}    \n\nif ( $MODE eq \"pdb\")\n{\n\n   \
 $read_header=0;\n    while (<$INFILE>) \n{\n	    \
$line=$_;\n	    if    ($line =~ /^HEADER/){print \\
"$line\";$read_header=1;}\n}\n    close ($INFILE);\
\n\n    if (!$read_header)\n{\n	print \"HEADER    \
UNKNOWN                                 00-JAN-00 \
  $force_name\\n\";\n}\n\n    $INFILE=vfopen ($str\
ucture_file, \"r\");\n    \n    print \"COMPND   1\
 CHAIN:\";\n    $last=pop(@c_chain);\n    foreach \
$c ( @c_chain){ print \" $c,\";}\n    if ( $last e\
q \" \"){print \" NULL;\\n\";}\n    else \n{\n    \
  print \" $last;\\n\";\n}\n    @c_chain=(@c_chain\
, $last);\n    \n    print \"REMARK Output of the \
program extract_from_pdb (Version $VersionTag)\\n\\
";\n    print \"REMARK Legal PDB format not Guaran\
teed\\n\";\n    print \"REMARK This format is not \
meant to be used in place of the PDB format\\n\";\\
n    print \"REMARK The header refers to the origi\
nal entry\\n\";\n    print \"REMARK The sequence f\
rom the original file has been taken in the field:\
 $seq_field\\n\";\n    print \"REMARK extract_from\
_pdb, 2001, 2002, 2003, 2004, 2005 2006 (c) CNRS a\
nd Cedric Notredame\\n\";   \n    if ( $coor_set)\\
n{\n       print \"REMARK Partial chain: Start $st\
art End $end\\n\";\n}\n    if ( $is_nmr)\n{\n     \
  print \"REMARK NMR structure: MODEL $model\\n\";\
\n}\n   \n    if ( $n_atom!=0)\n{\n       print \"\
REMARK Contains Coordinates of: \";\n       foreac\
h $a (@atom){print \"$a \";}\n       print \"\\n\"\
;\n}  \n}\n\n\n\n\nmy $residue_index = -999;\nmy $\
old_c = \"TemporaryChain\";\n\nwhile (<$INFILE>) \\
n{\n	$line=$_;\n\n\n	if ($line =~ /^SEQRES/)\n{\n\\
n		@field=/(\\S*)\\s*/g;\n\n		$c= substr($_,11,1);\
\n\n		\n		$l=$#field;\n		for ($a=4; $a<$#field ;)\\
n{\n			if (!$onelett{$molecule_type{$c}}->{$field[\
$a]})\n{\n				splice @field, $a, 1;\n}\n			else \n\
{\n				$a++;\n}\n}\n	\n		if ( $c ne $in_chain)\n{\\
n			$pdb_chain_list[$n_pdb_chains]=$c;\n			$pdb_ch\
ain_len [$n_pdb_chains]=$len;\n			$in_chain=$c;\n	\
		$n_pdb_chains++;\n}\n	\n		for ( $a=4; $a<$#field\
;$a++)\n{\n			@{$complete_seq{$c}}->[$complete_seq\
_len{$c}++]=$field[$a];\n}\n}\n    elsif ( $line=~\
/^ATOM/ || ($line=~/^HETATM/ && &is_aa(substr($lin\
e,17,3),substr($line,21,1)) && !$no_hetatm))\n{\n\\
n	 \n    $RAW_AT_ID=$AT_ID=substr($line,12,4);\n	$\
RES_ID=&is_aa(substr($line,17,3),substr($line,21,1\
));\n	$CHAIN=substr($line,21,1);\n\n    $RES_NO=su\
bstr($line,22,4);\n	$HOM_CODE=substr ($line, 26, 1\
);\n	$TEMP=substr($line,60,6);\n	\n	$TEMP=~s/\\s//\
g;\n        $AT_ID=~s/\\s//g;\n	$RES_ID=~s/\\s//g;\
\n        $RES_NO=~s/\\s//g;\n		\n	if ( $HOM_CODE \
ne $MAIN_HOM_CODE){next;}\n	elsif ( $already_read2\
{$CHAIN}{$RES_ID}{$AT_ID}{$RES_NO}){next;}\n	else{\
$already_read2{$CHAIN}{$RES_ID}{$AT_ID}{$RES_NO}=1\
;}\n	\n	\n	if ($coor_set && $numbering eq \"file\"\
 && $residue_index ne $RES_NO)\n{\n	    \n	    if \
( $RES_NO<=$start){$real_start{$CHAIN}++;}\n	    i\
f ( $RES_NO<=$end){$real_end{$CHAIN}++;}\n}\n	elsi\
f ($numbering eq \"absolute\")\n{\n	    $real_star\
t{$CHAIN}=$start;\n	    $real_end{$CHAIN}=$end;\n}\
\n\n        $KEY=\"ALL\";\n        if ( $CHAIN ne \
$in_atom_chain)\n{\n	    \n	  $pdb_atom_chain_list\
[$n_pdb_atom_chains]=$c;\n	  $pdb_atom_chain_len [\
$n_pdb_atom_chains]=$len;\n	  $in_atom_chain=$c;\n\
	  $n_pdb_atom_chains++;\n}\n	\n	if ( $residue_ind\
ex ne $RES_NO)\n{\n	     $residue_index = $RES_NO;\
\n	     @{$atom_seq{$CHAIN}}->[$atom_seq_len{$CHAI\
N}++]=$RES_ID;;\n}\n}\n\n}\nclose ($INFILE);\n\n\n\
\n\n\n\n$INFILE=vfopen ($structure_file, \"r\");\n\
foreach $c (@c_chain)\n{\n\n	if    ( $seq_field eq\
 \"SEQRES\"){@pdb_seq=@{$complete_seq{$c}};}\n	els\
if ( $seq_field eq \"ATOM\")  {@pdb_seq=@{$atom_se\
q{$c}};}\n	\n\n	$full_length=$l=$#pdb_seq+1;\n		\n\
	if ( $real_end{$c}==\"*\"){$real_end{$c}=$full_le\
ngth;}\n	if ( $coor_set)\n{	   \n\n	   if ( $real_\
end{$c} < $l){splice @pdb_seq, $real_end{$c}, $l;}\
\n	   if ( $real_start{$c} < $l){splice @pdb_seq, \
0, $real_start{$c}-1;}	  	   \n	   $l=$#pdb_seq;\n\
}\n\n	elsif ( $delete_set)\n{\n	   splice @pdb_seq\
, $delete_start, $delete_end-$delete_start+1;\n	  \
 $l=$#pdb_seq;\n}\n	\n	$new_fasta_name=\"$pdb_id$c\
\";\n	if ( $coor_set)\n{\n	   if ( $n_pdb_chains==\
0){$new_fasta_name=\"$new_fasta_name$c\";}\n	   $n\
ew_fasta_name= $new_fasta_name.\"\\_$start\\_$end\\
";\n}\n	   \n	if ( $MODE eq \"pdb\")\n{\n	   $nl=1\
;\n	   $n=0;\n	   \n	   foreach $res ( @pdb_seq)\n\
		{\n		if ( !$n)\n		{\n		\n		 printf \"SEQRES %3d \
%1s %4d  \", $nl,$c, $l;\n		 $nl++;\n	}\n	     $re\
s=~s/\\s//g;\n	     \n	     if ($code==1){ printf \
\"%3s \",$onelett{$molecule_type{$c}}->{$res};}\n	\
     elsif  ($code==3){ printf \"%3s \",$res};\n	 \
    \n	     $n++;		  \n	     if ( $n==13){$n=0;pri\
nt \"\\n\";}\n}\n	  if ( $n!=0){print \"\\n\"; $n=\
0;}\n}\n	elsif ( $MODE eq \"simple\")\n{\n	  print\
 \"# SIMPLE_PDB_FORMAT\\n\";\n	  if ( $new_fasta_n\
ame eq \" \"){$new_fasta_name=\"dummy_name\";}\n	 \
 print \">$new_fasta_name\\n\";\n\n	  foreach $res\
 ( @pdb_seq)\n{\n	      print \"$onelett{$molecule\
_type{$c}}->{$res}\";\n}\n	  print \"\\n\";\n}\n	e\
lsif ( $MODE eq \"fasta\")\n{\n	  $n=0;\n	  print \
\">$new_fasta_name\\n\";\n	  \n	  foreach $res ( @\
pdb_seq)\n{\n\n	      print \"$onelett{$molecule_t\
ype{$c}}->{$res}\";\n              $n++;\n	      i\
f ( $n==60){print \"\\n\"; $n=0;}\n}\n	  print \"\\
\n\"; \n}\n}\n\nif ( $MODE eq \"fasta\")\n{\n     \
&myexit($EXIT_SUCCESS);\n  \n}\n\n  \n  $charcount\
=0;\n  $inchain=\"BEGIN\";\n  $n=0;\n  while (<$IN\
FILE>) \n{\n    $line=$_;\n     \n    if ($line =~\
/^ATOM/  ||  ($line=~/^HETATM/))\n{\n	$line_header\
=\"UNKNWN\";\n	$RES_ID=substr($line,17,3);\n	$chai\
n = substr($line,21,1);\n\n	if ($line =~/^ATOM/)\n\
{\n	    $line_header=\"ATOM\";\n	    $RES_ID=(&is_\
aa($RES_ID,$chain))?&is_aa($RES_ID,$chain):$RES_ID\
;\n}\n	elsif ($line=~/^HETATM/ && ($ligand_list {$\
RES_ID} ||$ligand_list {'ALL'} || !&is_aa($RES_ID,\
$chain)))\n{\n	    $line_header=\"HETATM\";\n}\n	e\
lsif ($line=~/^HETATM/ && (&is_aa($RES_ID,$chain) \
&& !$no_hetatm))\n{\n	    $line_header=\"ATOM\";\n\
	    $RES_ID=&is_aa($RES_ID,$chain);\n}\n	else\n{\\
n	    next;\n}\n\n	\n\n	$X=substr($line,30,8);    \
 \n	$Y=substr($line,38,8);\n	$Z=substr($line,46,8)\
;\n	$TEMP=substr($line,60,6);\n	\n	$RAW_AT_ID=$AT_\
ID=substr($line,12,4);\n	$CHAIN=substr($line,21,1)\
;\n	$RES_NO=substr($line,22,4);\n	$HOM_CODE=substr\
 ($line, 26, 1);\n	\n	$X=~s/\\s//g;\n	$Y=~s/\\s//g\
;\n	$Z=~s/\\s//g;\n	$TEMP=~s/\\s//g;\n	\n	$AT_ID=~\
s/\\s//g;\n	$RES_ID=~s/\\s//g;\n	$RES_NO=~s/\\s//g\
;\n\n	\n	if ( $HOM_CODE ne $MAIN_HOM_CODE){next;}\\
n	elsif ( $already_read{$CHAIN}{$RES_ID}{$AT_ID}{$\
RES_NO}){next;}\n	else{$already_read{$CHAIN}{$RES_\
ID}{$AT_ID}{$RES_NO}=1;}\n	\n	$KEY=\"ALL\";\n\n   \
   	if ( $RES_NO ==0){$start_at_zero=1;}\n\n	$RES_\
NO+=$start_at_zero;    \n	\n	if ( $current_chain n\
e $CHAIN)\n{\n	    $current_chain=$CHAIN;\n	    $p\
os=$current_residue=0;\n	    $offset=($coor_set)?(\
$real_start{$CHAIN}-1):0;\n	    if    ( $seq_field\
 eq \"SEQRES\"){@ref_seq=@{$complete_seq{$CHAIN}};\
}\n	    elsif ( $seq_field eq \"ATOM\")  {@ref_seq\
=@{$atom_seq{$CHAIN}};}\n}\n	\n	if ($current_resid\
ue != $RES_NO)\n{\n	    $current_residue=$RES_NO;\\
n	    if    ( $seq_field eq \"SEQRES\"){$pos=$curr\
ent_residue;}\n	    elsif ( $seq_field eq \"ATOM\"\
){$pos++;}\n}\n	\n	\n	if ($n_atom==0 || $atom_list\
{$AT_ID}==1 || $atom_list{$KEY}==1)\n{ 	\n	    \n	\
    $do_it=(!@c_chain || $hc_chain{$CHAIN} ||$hc_c\
hain{'LIGAND'} );\n	    \n	    $do_it= ($do_it==1)\
 && ($coor_set==0 ||($pos>=$real_start{$CHAIN} && \
$pos<=$real_end{$CHAIN}));\n	    $do_it= ($do_it==\
1) && ($delete_set==0 || $pos<$delete_start ||$pos\
>$delete_end );\n	    if ($ligand==0 && $line_head\
er eq \"HETATM\" ){$do_it=0;}\n	    if ($ligand_on\
ly==1 && $line_header eq \"ATOM\" ){$do_it=0;}\n	 \
   if ($ligand==1 && $line_header eq \"HETATM\" &&\
 $ligand_list{$RES_ID}==0 && $ligand_list{\"ALL\"}\
==0){$do_it=0;} \n	    \n	    \n	    if ( $do_it)\\
n{\n		$n++;\n		$out_pos=$pos;\n		\n	       if ( $d\
elete_set)\n{\n		  if ( $out_pos< $delete_start){;\
}\n		  else {$offset=$delete_end-$delete_start;}\n\
}       \n	       \n	       if ( $numbering_out eq\
 \"new\"){$out_pos-=$offset;}\n	       elsif ( $nu\
mbering_out eq \"old\"){$out_pos=$RES_NO;}\n	     \
  \n       \n	       \n	       if ( $code==1){$RES\
_ID=$onelett{$molecule_type{$c}}->{$RES_ID};}\n	  \
  \n	       if ($unfold)\n{\n		   $unfolded_x+=5;\\
n		   $X=$unfolded_x;\n		   $Y=0;\n		   $Z=0;\n		 \
  $float=1;\n}\n	       else\n{\n		   $float=3;\n}\
\n\n	       if ( $MODE eq \"pdb\")\n{\n		   printf\
 \"%-6s%5d %-4s %3s %s%4d    %8.3f%8.3f%8.3f  1.00\
 %5.2f\\n\",$line_header, $n, $RAW_AT_ID,$RES_ID,$\
CHAIN,$out_pos, $X, $Y, $Z,$TEMP;		  \n}\n	       \
elsif ( $MODE eq \"simple\")\n{\n		    if ( $RES_I\
D eq \"\"){$RES_ID=\"X\";}\n		  printf \"%-6s %5s \
%s %2s %4d    %8.3f %8.3f %8.3f\\n\",$line_header,\
 $AT_ID, $RES_ID,($CHAIN eq\"\" || $CHAIN eq \" \"\
)?\"A\":$CHAIN,$out_pos, $X, $Y, $Z,$TEMP;\n}\n\n}\
\n}\n}\n}\nprint \"\\n\";\nclose($INFILE);\n\n\nif\
 ( $error ne \"\") \n{$error=$error.\"\\nDiagnosti\
c:    SEQRES and the residues in ATOM are probably\
 Incompatible\\n\";\n    $error=$error.  \"Recomen\
dation: Rerun with '-fix 1' in order to ignore the\
 SEQRES sequences\\n\";\n}\nif (!$nodiagnostic){pr\
int STDERR $error;}\n&myexit ( $EXIT_SUCCESS);\n\n\
sub is_released \n  {\n    my ($r);\n    my $in=@_\
[0];\n    my $name=&remote_is_pdb_name ($in);\n   \
 my $hold=&remote_is_on_hold($in);\n    \n    $r=(\
$name && !$hold)?1:0;\n    return $r;\n  }\nsub re\
mote_is_pdb_name \n{\n    my $in=@_[0];\n    my ($\
ref_file, $pdb);\n    my ($value,$value1,$value2);\
\n\n    if ( $in=~/[^\\w\\d\\:\\_]/){return 0;}\n \
   $ref_file=\"$cache/pdb_entry_type.txt\";\n    \\
n    if ( !-e $ref_file || (-M $ref_file)>2 || -z \
$ref_file)\n      {\n	&url2file(\"ftp://ftp.wwpdb.\
org/pub/pdb/derived_data/pdb_entry_type.txt\", $re\
f_file);\n      }\n    $pdb=substr ($in,0, 4);\n  \
  chomp(($value1=`grep -c $pdb $ref_file`));\n    \
$pdb=lc($pdb);\n    chomp(($value2=`grep -c $pdb $\
ref_file`));\n    $value=($value1 || $value2)?1:0;\
\n    $value=($value>0)?1:0;\n    \n    return $va\
lue;\n  }\n\nsub pdb2model_type\n{\n    my $in=@_[\
0];\n    my ($ref_file, $pdb);\n    my ($value, $r\
et);\n\n    if ( $in=~/[^\\w\\d\\:\\_]/){return 0;\
}\n    $ref_file=\"$cache/pdb_entry_type.txt\";\n \
   \n    if ( !-e $ref_file || (-M $ref_file)>2 ||\
 -z $ref_file)\n      {\n	&url2file(\"ftp://ftp.ww\
pdb.org/pub/pdb/derived_data/pdb_entry_type.txt\",\
 $ref_file);\n      }\n    $pdb=substr ($in,0, 4);\
\n    $pdb=lc($pdb);\n    \n    chomp(($value=`gre\
p $pdb $ref_file`));\n    \n    $value=~/^\\S+\\s+\
\\S+\\s+(\\S+)/;\n    $ret=$1;\n    if ( $ret eq\"\
\"){return \"UNKNOWN\";}\n    \n    return $ret;\n\
  }\nsub remote_is_on_hold\n  {\n    my $in=@_[0];\
\n    my ($ref_file, $pdb);\n    my ($value1, $val\
ue2,$value);\n    \n    if ( $in=~/[^\\w\\d\\:\\_]\
/){return 0;}\n    $ref_file=\"$cache/unreleased.x\
ml\";\n    \n    if ( !-e $ref_file || (-M $ref_fi\
le)>2 || -z $ref_file)\n      {\n	&url2file(\"http\
://www.rcsb.org/pdb/rest/getUnreleased\",$ref_file\
);\n      }\n    \n    $pdb=substr ($in,0, 4);\n  \
  chomp(($value1=`grep -c $pdb $ref_file`));\n    \
$pdb=lc($pdb);\n    chomp(($value2=`grep -c $pdb $\
ref_file`));\n    $value=($value1 || $value2)?1:0;\
\n    $value=($value>0)?1:0;\n    return $value;\n\
  }\nsub is_pdb_file\n{\n    my @arg=@_;\n\n    if\
 ( !-e $arg[0]){return 0;}\n    \n    $F=vfopen ($\
arg[0], \"r\");\n    while ( <$F>)\n{\n	if (/^HEAD\
ER/)\n{\n	    close $F;\n	    return 1;\n}\n	elsif\
 ( /^SEQRES/)\n{\n	    close $F;\n	    return 1;\n\
}\n	elsif ( /^ATOM/)\n{\n	    close $F;\n	    retu\
rn 1;\n}\n}\n    return 0;\n}\nsub get_pdb_id\n{\n\
    my $header_file=@_[0];\n    my $id;\n    my $F\
= new FileHandle;\n    \n    \n    $F=vfopen (\"$h\
eader_file\", \"r\");\n\n    while ( <$F>)\n      \
{\n	if ( /HEADER/)\n	  {\n	    if ($debug){print \\
"$_\";}\n	    $id=substr($_,62,4 );\n	    return $\
id;\n	  }\n      }\n    close ($F);\n    \n    ret\
urn \"\";\n}\n\nsub get_ligand_list\n{\n    my $pd\
b_file=@_[0];\n    my $chain;\n    my $ligand;\n  \
  my %complete_ligand_list;\n    \n\n    $F=vfopen\
 ($pdb_file, \"r\");\n    while ( <$F>)\n{\n	if ( \
/^HETATM/)\n{\n	    $line=$_;\n	    $chain=substr(\
$line,21,1);\n	    $ligand=substr($line,17,3);\n	 \
   \n	    if (!$complete_ligand_list{$chain}{$liga\
nd})\n{\n		\n		$complete_ligand_list{\"result\"}.=\
\"CHAIN $chain LIGAND $ligand\\n\";\n		$complete_l\
igand_list{$chain}{$ligand}=1;\n}\n}\n}\n    close\
 ($F);\n    return %complete_ligand_list;\n}\n\nsu\
b get_chain_list \n{\n    my $header_file;\n    my\
 @chain_list;\n    my @list;\n    my $n_chains;\n \
   my %chain_hasch;\n    my $pdb_file=@_[0];\n    \
my $c;\n    my %hasch;\n    my $chain;\n  \n    \n\
    $F=vfopen ($pdb_file, \"r\");\n    while ( <$F\
>)\n{\n\n\n	if (/SEQRES\\s+\\d+\\s+(\\S+)/)\n	  {\\
n	    $chain = substr($_,11,1);$chain=~s/\\s//g;if\
 ( $chain eq \"\"){$chain=\" \";}\n	    if (!$hasc\
h{$chain}){$hasch{$chain}=1;push @chain_list, $cha\
in;}\n	  }\n	if (/^ATOM/ || /^HETATM/)\n	  {\n	   \
 $chain = substr($_,21,1); $chain=~s/\\s//g;if ( $\
chain eq \"\"){$chain=\" \";}\n	    if (!$hasch{$c\
hain}){$hasch{$chain}=1;push @chain_list, $chain;}\
\n	  }\n      }\n\n\nclose ($F);\nif (!@chain_list\
)\n  {\n    @chain_list=(\"A\");\n  }\n\n\nreturn \
@chain_list;\n}\n\nsub token_is_in_list\n{\n\n    \
my @list=@_;\n    my $a;\n    \n    for ($a=1; $a<\
=$#list; $a++)\n{\n	if ( $list[$a] eq $list[0]){re\
turn $a;}\n}\n}\n\nsub pdb_name2name_and_chain \n{\
\n    my $pdb_file=@_[0];\n    my $pdb_file_in;\n \
   my @array;\n    my $chain;\n    my $c;\n\n    $\
pdb_file_in=$pdb_file;\n\n    $pdb_file=~/^(.{4})/\
;$pdb_id=$1;\n    @array=($pdb_file=~/([\\w])/g);\\
n  \n  \n    $chain=uc ($array[4]);\n    $chain=($\
chain eq \"\")?\"FIRST\":$chain;\n    \n    return\
 ( $pdb_id, $chain);\n\n    if ( $#array==3){retur\
n ($pdb_id, \"FIRST\");}\n    elsif ( $#array<4){ \
return ($pdb_id, \"\");}\n    else {return ( $pdb_\
id, $chain);}\n      \n    \n    \n}\nsub get_main\
_hom_code \n{\n    my $pdb_file=@_[0];\n    my %ho\
m, $n, $best, $best_h;\n    open (F, $pdb_file);\n\
    while (<F>)\n{\n	if ( $_=~/^ATOM/)\n{\n	    $h\
=substr ($_,26, 1);\n	    $n=++$hom{$h};\n	    if \
($n>$best)\n{\n		$best=$n;\n		$best_h=$h;\n}\n}\n}\
\n    close (F);\n    return $best_h;\n}\n\n\nsub \
get_pdb_file \n{\n    my ($pdb_file_in)=(@_);\n   \
 my $result;\n    my @letter;\n    my @chain;\n   \
 my $v;\n    my $pdb_file=$pdb_file_in;\n\n    $pd\
b_file=($pdb_file_in=~/\\S+_S_(\\S+)/)?$1:$pdb_fil\
e_in;\n    \n    if ($no_remote_pdb_dir==0)\n     \
 {\n	$no_remote_pdb_dir=1;\n	$result=get_pdb_file3\
 ($pdb_file);\n	$no_remote_pdb_dir=0;\n	if ( $resu\
lt){return $result;}\n	else\n	  {\n	    \n	    lc \
($pdb_file);\n	    $result=get_pdb_file3($pdb_file\
);\n	    return  $result;\n	  }\n      }\n    else\
\n      {\n	return get_pdb_file3 ($pdb_file);\n   \
   }\n    \n  }\n\nsub get_pdb_file3 \n{\n    my $\
pdb_file_in=@_[0];\n    my $result;\n    my @lette\
r;\n    my @chain;\n    my $lcfile;\n    my $ucfil\
e;\n    my $pdb_file=$pdb_file_in;\n    \n    $lcf\
ile=lc $pdb_file;\n    $ucfile=uc $pdb_file;\n\n  \
  if ( ($result=get_pdb_file2 ($pdb_file))){return\
 $result;}\n    \n\n    if ($lcfile ne $pdb_file &\
& ($result=get_pdb_file2 ($lcfile))){return $resul\
t;}\n    if ($ucfile ne $pdb_file && ($result=get_\
pdb_file2 ($ucfile))){return $result;}\n    \n   \\
n    \n    return \"\";\n}\nsub get_pdb_file2\n{\n\
    my $pdb_file=@_[0];\n    my $return_value;\n  \
  \n    $return_value=\"\";\n    \n    if ( ($resu\
lt=get_pdb_file1 ($pdb_file))){$return_value=$resu\
lt;}\n    elsif ( !($pdb_file=~/\\.pdb/) && !($pdb\
_file=~/\\.PDB/))\n{\n	if ( ($result=get_pdb_file1\
 (\"$pdb_file.pdb\"))){$return_value=$result;}\n	e\
lsif ( ($result=get_pdb_file1 (\"$pdb_file.PDB\"))\
){$return_value=$result;}\n\n	elsif ( ($result=get\
_pdb_file1 (\"pdb$pdb_file.pdb\"))){$return_value=\
$result;}	\n	elsif ( ($result=get_pdb_file1 (\"pdb\
$pdb_file.PDB\"))){$return_value=$result;}\n	elsif\
 ( ($result=get_pdb_file1 (\"PDB$pdb_file.PDB\")))\
{$return_value=$result;}\n	elsif ( ($result=get_pd\
b_file1 (\"PDB$pdb_file.pdb\"))){$return_value=$re\
sult;}\n	\n	\n	elsif ( ($result=get_pdb_file1 (\"$\
pdb_file.ent\"))){$return_value=$result;}\n	elsif \
( ($result=get_pdb_file1 (\"pdb$pdb_file.ent\"))){\
$return_value=$result;}\n	elsif ( ($result=get_pdb\
_file1 (\"PDB$pdb_file.ent\"))){$return_value=$res\
ult;}\n\n	elsif ( ($result=get_pdb_file1 (\"$pdb_f\
ile.ENT\"))){$return_value=$result;}\n	elsif ( ($r\
esult=get_pdb_file1 (\"pdb$pdb_file.ENT\"))){$retu\
rn_value=$result;}\n	elsif ( ($result=get_pdb_file\
1 (\"PDB$pdb_file.ENT\"))){$return_value=$result;}\
\n	\n	\n	\n}\n    return $return_value;\n}\n    \n\
sub get_pdb_file1\n{\n    my ($pdb_file)=(@_);\n  \
  my $return_value;\n    \n\n    $return_value=\"\\
";\n    if ( ($result=get_pdb_file0 ($pdb_file))){\
$return_value=$result;}\n    elsif ( ($result=get_\
pdb_file0 (\"$pdb_file.Z\"))){$return_value=$resul\
t;}\n    elsif ( ($result=get_pdb_file0 (\"$pdb_fi\
le.gz\"))){$return_value=$result;}\n    elsif ( ($\
result=get_pdb_file0 (\"$pdb_file.GZ\"))){$return_\
value=$result;}\n    return $return_value;\n}\nsub\
 get_pdb_file0 \n{ \n    my ($pdb_file, $attempt)=\
(@_);\n    my $pdb_file=@_[0];\n    my $tmp_pdb_fi\
le;    \n    my $return_value;\n\n    if ( !$attem\
pt){$attempt=1;}\n    \n    $local_pdb_file=\"$pdb\
_file\";\n    if ( $local_pdb_file eq \"\")\n{\n	$\
tmp_pdb_file=vtmpnam();\n	open F, \">$tmp_pdb_file\
\";\n	\n	while (<STDIN>){print F \"$_\";}\n	close \
(F);\n	\n	if (-e $tmp_pdb_file && &is_pdb_file ( $\
local_pdb_file))\n{return $tmp_pdb_file;}\n}\n\n  \
  $local_pdb_file=\"$pdb_file\";\n    &debug_print\
 (\"\\nTry access local file: $local_pdb_file\");\\
n    \n    $local_pdb_file=&check_pdb_file4compres\
sion ($local_pdb_file);\n    if ( -e $local_pdb_fi\
le && (&is_pdb_file ($local_pdb_file) || $force_pd\
b))\n{\n	&debug_print ( \"\\n\\tIs in Current Dir\\
");\n	$tmp_pdb_file=vtmpnam();\n	`cp $local_pdb_fi\
le $tmp_pdb_file`;\n	return $tmp_pdb_file;\n}\n   \
 else\n{\n	&debug_print (\"\\n\\tFile Not in Curre\
nt Dir\");\n}\n\n    if ($pdb_file=~/^pdb/||$pdb_f\
ile=~/^PDB/){$pdb_div=substr ($pdb_file, 4, 2);}\n\
    else\n{\n	  $pdb_div=substr ($pdb_file, 1, 2);\
\n}\n    $local_pdb_file=\"$pdb_dir/$pdb_div/$pdb_\
file\";\n    $local_pdb_file=&check_pdb_file4compr\
ession ( $local_pdb_file);\n    &debug_print (\"\\\
nTry access file From PDB_DIR: $local_pdb_file\");\
\n    if ($pdb_dir && -e $local_pdb_file && &is_pd\
b_file ($local_pdb_file))\n{\n	&debug_print ( \"\\\
n\\tIs in Local PDB DIR\");\n	$tmp_pdb_file=vtmpna\
m();\n	`cp $local_pdb_file $tmp_pdb_file`;\n	retur\
n $tmp_pdb_file;\n}\n\n    $local_pdb_file=\"$pdb_\
dir/$pdb_file\";\n    $local_pdb_file=&check_pdb_f\
ile4compression ( $local_pdb_file);\n    &debug_pr\
int (\"\\nTry access file From PDB_DIR: local_pdb_\
file\");\n    if ($pdb_dir && -e $local_pdb_file &\
& &is_pdb_file ($local_pdb_file))\n{\n	&debug_prin\
t ( \"\\n\\tIs in Local PDB DIR\");\n	$tmp_pdb_fil\
e=vtmpnam();\n	`cp $local_pdb_file $tmp_pdb_file`;\
\n	return $tmp_pdb_file;\n}\n\n    $local_pdb_file\
=\"$pdb_dir$pdb_file\";\n    $local_pdb_file=&chec\
k_pdb_file4compression ( $local_pdb_file);\n    &d\
ebug_print (\"\\nTry access file From PDB_DIR: $lo\
cal_pdb_file\");\n    if ($pdb_dir && -e $local_pd\
b_file && &is_pdb_file ($local_pdb_file))\n{\n	&de\
bug_print ( \"\\n\\tIs in Local PDB DIR\");\n	$tmp\
_pdb_file=vtmpnam();\n	`cp $local_pdb_file $tmp_pd\
b_file`;\n	return $tmp_pdb_file;\n}\n    else\n{&d\
ebug_print ( \"\\n\\tNot In Local Pdb Dir\");}\n\n\
    if ($cache ne \"NO\" && $cache ne \"no\")\n{\n\
\n	$local_pdb_file=\"$cache/$pdb_file\";\n	$local_\
pdb_file=&check_pdb_file4compression ( $local_pdb_\
file);\n	&debug_print(\"\\nTry access file From Ca\
che: $local_pdb_file\");\n	if (-e $local_pdb_file \
&& &is_pdb_file ($local_pdb_file))\n{\n	    &debug\
_print ( \"\\n\\tIs in T-Coffee Cache\");\n	    $t\
mp_pdb_file=vtmpnam();\n	    `cp $local_pdb_file $\
tmp_pdb_file`;\n	    return $tmp_pdb_file;\n}\n	el\
se{&debug_print ( \"\\n\\tNot in Cache Dir\");}\n}\
\n\nif (!$no_remote_pdb_dir) \n  {\n    my $value=\
&is_released ($pdb_file);\n    my $return_value=\"\
\";\n    if ($value==1)\n      {\n	\n	&debug_print\
 (\"\\n*******************************************\
**********\\nTry Remote Access for $pdb_file\");\n\
	$tmp_pdb_file=vtmpnam();\n	$netcommand=$netaddres\
s;\n	$netcommand=~s/%%/$pdb_file/g;\n	&url2file(\"\
$netcommand\", \"$tmp_pdb_file.$netcompression\");\
\n	&debug_print(\"\\nREMOTE: $netcommand\\n\");\n	\
\n	$compressed_tmp_file_name=\"$tmp_pdb_file.$netc\
ompression\";\n	\n	if ($netcompression && -B $comp\
ressed_tmp_file_name)\n	  {\n	    my $r;\n	    &de\
bug_print (\"\\n\\tFile Found Remotely\");\n	    i\
f (($r=safe_system ( \"$netcompression_pg $compres\
sed_tmp_file_name\")!=$EXIT_SUCCESS) && $attempts<\
5)\n	      {\n		&debug_print (\"\\n\\tProper Downl\
oad Failed Try again\");\n		unlink $compressed_tmp\
_file_name;\n		print \"\\nFailed to Download $comp\
ressed_tmp_file_name. New Attempt $attempt/5\\n\";\
\n		return &get_pdb_file0($pdb_file, $attempt+1);\\
n	      }\n	    elsif ($r== $EXIT_SUCCESS)\n	     \
 {\n		&debug_print (\"\\n\\tProper Download Succee\
ded \");\n		$return_value=$tmp_pdb_file;\n	      }\
\n	    else\n	      {\n		&debug_print (\"\\n\\tPro\
per Download Failed \");\n		&debug_print (\"\\nFil\
e Not Found Remotely\");\n		unlink $compressed_tmp\
_file_name;\n	      }\n	  }\n	else\n	  {\n\n	    &\
debug_print (\"\\nFile Not Found Remotely\");\n	  \
  unlink $compressed_tmp_file_name;\n	  }\n	#Updat\
e cache if required\n	if ($cache ne \"no\" && $cac\
he ne \"update\" && -e $return_value)\n	  {\n	    \
`cp $return_value $cache/$pdb_file.pdb`;\n	    #`t\
_coffee -other_pg clean_cache.pl -file $pdb_file.p\
db -dir $cache`;\n	  }\n      }\n    &debug_print \
(\"\\nRemote Download Finished\");\n    return $re\
turn_value;\n  }\nreturn \"\";\n}\n\nsub check_pdb\
_file4compression \n{\n    my $file=@_[0];\n    my\
 $tmp;\n    my $r;\n    \n    $tmp=&vtmpnam();\n  \
  if (-e $tmp){unlink $tmp;}\n    \n    $file=~s/\\
\/\\//\\//g;\n    if    (-B $file && ($file=~/\\.Z\
/)) {`cp $file $tmp.Z`;`rm $tmp`;`gunzip $tmp.Z $S\
ILENT`;$r=$tmp;}\n    elsif (-B $file && ($file=~/\
\\.gz/)){`cp $file $tmp.gz`;`gunzip $tmp.gz $SILEN\
T`;return $r=$tmp;}\n    elsif (-B $file ){`cp $fi\
le $tmp.gz`;`gunzip $tmp.gz $SILENT`;$r=$tmp;}\n  \
  elsif ( -e $file ) {$r= $file;}\n    elsif ( -e \
\"$file.gz\" ){ `cp $file.gz $tmp.gz`;`gunzip     \
$tmp.gz $SILENT`;$r=$tmp;}    \n    elsif ( -e \"$\
file.Z\") {`cp $file.Z  $tmp.Z`; `gunzip $tmp.Z $S\
ILENT`;$r=$tmp;}\n    else  {$r= $file;}\n\n    if\
 ( -e \"$tmp.Z\"){unlink \"$tmp.Z\";}\n    if ( -e\
 \"$tmp.gz\"){unlink \"$tmp.gz\";}\n    \n    retu\
rn $r;\n    \n}\n\n\n\n\n\n    \n\n\n\n\n\n\n\nsub\
 vfopen \n{\n    my $file=@_[0];\n    my $mode=@_[\
1];\n    my $tmp;\n    my $F = new FileHandle;\n  \
  \n    \n    $tmp=$file;\n	\n    \n    if ( $mode\
 eq \"r\" && !-e $file){ myexit(flush_error (\"Can\
not open file $file\"));}\n    elsif ($mode eq \"w\
\"){$tmp=\">$file\";}\n    elsif ($mode eq \"a\"){\
$tmp=\">>$file\";}\n    \n    \n    open ($F,$tmp)\
;\n    return $F;\n}\nsub debug_print\n{\n    my $\
message =@_[0];\n    if ($debug){print STDERR \"NO\
_REMOTE_PDB_DIR: $no_remote_pdb_dir - $message [DE\
BUG:extract_from_pdb]\";}\n    return;\n}\nsub is_\
aa \n{\n    my ($aa, $chain) =@_;\n\n    my $one;\\
n    my $trhee;\n    \n    if ( $onelett{$molecule\
_type{$chain}}->{$aa} eq 'X' || !$onelett{$molecul\
e_type{$chain}}->{$aa} ){return '';}\n    else\n  \
    {\n	$one=$onelett{$molecule_type{$chain}}->{$a\
a};\n\n	$three=$threelett{$molecule_type{$chain}}-\
>{$one};\n	\n\n	return $three;\n      }\n  }\n\n\n\
\n\n\nsub url2file\n{\n    my ($address, $out, $wg\
et_arg, $curl_arg)=(@_);\n    my ($pg, $flag, $r, \
$arg, $count);\n    \n    if (!$CONFIGURATION){&ch\
eck_configuration (\"wget\", \"INTERNET\", \"gzip\\
");$CONFIGURATION=1;}\n    \n    if (&pg_is_instal\
led (\"wget\"))   {$pg=\"wget\"; $flag=\"-O\";$arg\
=$wget_arg;}\n    elsif (&pg_is_installed (\"curl\\
")){$pg=\"curl\"; $flag=\"-o\";$arg=$curl_arg;}\n \
   return safe_system (\"$pg $flag$out $address >/\
dev/null 2>/dev/null\");\n\n}\n\n\n\n\nsub pdbfile\
2chaintype\n  {\n    my $file=@_[0];\n    my %ct;\\
n    my $F;\n    \n    $F=vfopen ($file, \"r\");\n\
    while (<$F>)\n      {\n	my $line=$_;\n	if ($li\
ne =~/^ATOM/)\n	  {\n	    my $C=substr($line,21,1)\
;\n	    if (!$ct{$C})\n	      {	\n		my $r=substr($\
line,17,3);\n		$r=~s/\\s+//;\n		if (length ($r)==1\
){$ct{$C}=\"R\";}\n		elsif (length ($r)==2){$ct{$C\
}=\"D\";}\n		elsif (length ($r)==3){$ct{$C}=\"P\";\
}\n		else \n		  {\n		    myexit(flush_error(\"ERRO\
R: Could not read RES_ID field in file $file\"));\\
n		  }\n	      }\n	  }\n      }\n    close ($F);\n\
    return %ct;\n  }\n   \n    \n\n\n\nsub fill_th\
reelett_RNA\n{\n\n	my %threelett=(\n	'A', '  A',\n\
	'T', '  T',\n	'U', '  U',\n	'C', '  C',\n	'G', ' \
 G',\n	'I', '  I', #Inosine\n	);\n	\n	return %thre\
elett;\n\n}\n\n\nsub fill_onelett_RNA\n{\n	my   %o\
nelett=(\n	'  A' => 'A',\n	'  T' => 'T',\n	'  U' =\
> 'U',\n	'  C' => 'C',\n	'  G' => 'G',\n	'CSL' => \
'X',\n	'UMS' => 'X',\n	'  I' => 'I',\n	'A' => 'A',\
\n	'T' => 'T',\n	'U' => 'U',\n	'C' => 'C',\n	'G' =\
> 'G',\n	'I' => 'I',\n	);\n\n	return %onelett;\n\n\
}\n\n\nsub fill_onelett_DNA\n{\n	my   %onelett=(\n\
	' DA', 'A',\n	' DT', 'T',\n	' DC', 'C',\n	' DG', \
'G',\n	'DA', 'A',\n	'DT', 'T',\n	'DC', 'C',\n	'DG'\
, 'G',\n	);\n\n	return %onelett;\n\n}\n\nsub fill_\
threelett_DNA\n{\n\n	my %threelett=(\n	'A', ' DA',\
\n	'T', ' DT',\n	'C', ' DC',\n	'G', ' DG',\n	);\n\\
n	return %threelett;\n\n}\n\n\n\n\nsub fill_threel\
ett_prot\n{  \n  my %threelett;\n\n  %threelett=(\\
n'A', 'ALA',\n'C', 'CYS',\n'D', 'ASP',\n'E', 'GLU'\
,\n'F', 'PHE',\n'G', 'GLY',\n'H', 'HIS',\n'I', 'IL\
E',\n'K', 'LYS',\n'L', 'LEU',\n'N', 'ASN',\n'M', '\
MET',\n'P', 'PRO',\n'Q', 'GLN',\n'R', 'ARG',\n'S',\
 'SER',\n'T', 'THR',\n'V', 'VAL',\n'W', 'TRP',\n'Y\
', 'TYR',\n);\n\nreturn %threelett;\n\n\n}\n\nsub \
fill_onelett_prot\n{\n    my %onelett;\n    \n    \
%onelett=(\n\n'10A', 'X',\n'11O', 'X',\n'12A', 'X'\
,\n'13P', 'X',\n'13R', 'X',\n'13S', 'X',\n'14W', '\
X',\n'15P', 'X',\n'16A', 'X',\n'16G', 'X',\n'1AN',\
 'X',\n'1AP', 'X',\n'1AR', 'X',\n'1BH', 'X',\n'1BO\
', 'X',\n'1C5', 'X',\n'1CU', 'X',\n'1DA', 'X',\n'1\
GL', 'X',\n'1GN', 'X',\n'1IN', 'X',\n'1LU', 'L',\n\
'1MA', 'X',\n'1MC', 'X',\n'1MG', 'X',\n'1MZ', 'X',\
\n'1NA', 'X',\n'1NB', 'X',\n'1NI', 'X',\n'1PA', 'A\
',\n'1PC', 'X',\n'1PE', 'X',\n'1PG', 'X',\n'1PI', \
'A',\n'1PM', 'X',\n'1PN', 'X',\n'1PU', 'X',\n'1PY'\
, 'X',\n'1UN', 'X',\n'24T', 'X',\n'25T', 'X',\n'26\
P', 'X',\n'2AB', 'X',\n'2AM', 'X',\n'2AN', 'X',\n'\
2AP', 'X',\n'2AR', 'X',\n'2AS', 'D',\n'2BL', 'X',\\
n'2BM', 'X',\n'2CP', 'X',\n'2DA', 'X',\n'2DG', 'X'\
,\n'2DP', 'X',\n'2DT', 'X',\n'2EP', 'X',\n'2EZ', '\
X',\n'2FG', 'X',\n'2FL', 'X',\n'2FP', 'X',\n'2FU',\
 'X',\n'2GL', 'X',\n'2GP', 'X',\n'2HP', 'X',\n'2IB\
', 'X',\n'2IP', 'X',\n'2LU', 'L',\n'2MA', 'X',\n'2\
MD', 'X',\n'2ME', 'X',\n'2MG', 'X',\n'2ML', 'L',\n\
'2MO', 'X',\n'2MR', 'R',\n'2MU', 'X',\n'2MZ', 'X',\
\n'2NO', 'X',\n'2NP', 'X',\n'2OG', 'X',\n'2PA', 'X\
',\n'2PC', 'X',\n'2PE', 'X',\n'2PG', 'X',\n'2PH', \
'X',\n'2PI', 'X',\n'2PL', 'X',\n'2PP', 'X',\n'2PU'\
, 'X',\n'2SI', 'X',\n'2TB', 'X',\n'34C', 'X',\n'35\
G', 'X',\n'3AA', 'X',\n'3AD', 'X',\n'3AH', 'H',\n'\
3AN', 'X',\n'3AP', 'X',\n'3AT', 'X',\n'3BT', 'X',\\
n'3CH', 'X',\n'3CN', 'X',\n'3CO', 'X',\n'3CP', 'X'\
,\n'3DR', 'X',\n'3EP', 'X',\n'3FM', 'X',\n'3GA', '\
X',\n'3GP', 'X',\n'3HB', 'X',\n'3HC', 'X',\n'3HP',\
 'X',\n'3IB', 'X',\n'3ID', 'X',\n'3IN', 'X',\n'3MA\
', 'X',\n'3MB', 'X',\n'3MC', 'X',\n'3MD', 'D',\n'3\
MF', 'X',\n'3MP', 'X',\n'3MT', 'X',\n'3OL', 'X',\n\
'3PA', 'X',\n'3PG', 'X',\n'3PO', 'X',\n'3PP', 'X',\
\n'3PY', 'X',\n'49A', 'X',\n'4AB', 'X',\n'4AM', 'X\
',\n'4AN', 'X',\n'4AP', 'X',\n'4BA', 'X',\n'4BT', \
'X',\n'4CA', 'X',\n'4CO', 'X',\n'4HP', 'X',\n'4IP'\
, 'X',\n'4MO', 'X',\n'4MV', 'X',\n'4MZ', 'X',\n'4N\
C', 'X',\n'4NP', 'X',\n'4OX', 'X',\n'4PB', 'X',\n'\
4PN', 'X',\n'4PP', 'X',\n'4SC', 'X',\n'4SU', 'X',\\
n'4TB', 'X',\n'55C', 'X',\n'5AD', 'X',\n'5AN', 'X'\
,\n'5AT', 'X',\n'5CM', 'X',\n'5GP', 'X',\n'5HP', '\
E',\n'5HT', 'X',\n'5IT', 'X',\n'5IU', 'X',\n'5MB',\
 'X',\n'5MC', 'X',\n'5MD', 'X',\n'5MP', 'X',\n'5MU\
', 'X',\n'5NC', 'X',\n'5OB', 'X',\n'5PA', 'X',\n'5\
PV', 'X',\n'6AB', 'X',\n'6CT', 'X',\n'6HA', 'X',\n\
'6HC', 'X',\n'6HG', 'X',\n'6HT', 'X',\n'6IN', 'X',\
\n'6MO', 'X',\n'6MP', 'X',\n'6PG', 'X',\n'6WO', 'X\
',\n'70U', 'X',\n'7DG', 'X',\n'7HP', 'X',\n'7I2', \
'X',\n'7MG', 'X',\n'7MQ', 'X',\n'7NI', 'X',\n'87Y'\
, 'X',\n'8AD', 'X',\n'8BR', 'X',\n'8IG', 'X',\n'8I\
N', 'X',\n'8OG', 'X',\n'95A', 'X',\n'9AD', 'X',\n'\
9AM', 'X',\n'9AP', 'X',\n'9DG', 'X',\n'9DI', 'X',\\
n'9HX', 'X',\n'9OH', 'X',\n'9TA', 'X',\n'A12', 'X'\
,\n'A15', 'X',\n'A23', 'X',\n'A24', 'X',\n'A26', '\
X',\n'A2G', 'X',\n'A2P', 'X',\n'A32', 'X',\n'A3P',\
 'X',\n'A4P', 'X',\n'A5P', 'X',\n'A70', 'X',\n'A76\
', 'X',\n'A77', 'X',\n'A78', 'X',\n'A79', 'X',\n'A\
80', 'X',\n'A85', 'X',\n'A88', 'X',\n'A9A', 'X',\n\
'AA3', 'X',\n'AA4', 'X',\n'AA6', 'X',\n'AAA', 'X',\
\n'AAB', 'X',\n'AAC', 'X',\n'AAE', 'X',\n'AAG', 'R\
',\n'AAH', 'X',\n'AAM', 'X',\n'AAN', 'X',\n'AAP', \
'X',\n'AAR', 'R',\n'AAS', 'X',\n'AAT', 'X',\n'ABA'\
, 'X',\n'ABC', 'X',\n'ABD', 'X',\n'ABE', 'X',\n'AB\
H', 'X',\n'ABI', 'X',\n'ABK', 'X',\n'ABM', 'X',\n'\
ABN', 'X',\n'ABP', 'X',\n'ABR', 'X',\n'ABS', 'X',\\
n'ABU', 'X',\n'AC1', 'X',\n'AC2', 'X',\n'ACA', 'X'\
,\n'ACB', 'D',\n'ACC', 'C',\n'ACD', 'X',\n'ACE', '\
X',\n'ACH', 'X',\n'ACI', 'X',\n'ACL', 'R',\n'ACM',\
 'X',\n'ACN', 'X',\n'ACO', 'X',\n'ACP', 'X',\n'ACQ\
', 'X',\n'ACR', 'X',\n'ACS', 'X',\n'ACT', 'X',\n'A\
CV', 'V',\n'ACX', 'X',\n'ACY', 'X',\n'AD2', 'X',\n\
'AD3', 'X',\n'ADC', 'X',\n'ADD', 'X',\n'ADE', 'X',\
\n'ADH', 'X',\n'ADI', 'X',\n'ADM', 'X',\n'ADN', 'X\
',\n'ADP', 'X',\n'ADQ', 'X',\n'ADR', 'X',\n'ADS', \
'X',\n'ADT', 'X',\n'ADU', 'X',\n'ADW', 'X',\n'ADX'\
, 'X',\n'AE2', 'X',\n'AEA', 'X',\n'AEB', 'X',\n'AE\
I', 'D',\n'AEN', 'X',\n'AET', 'T',\n'AF1', 'X',\n'\
AF3', 'X',\n'AFA', 'D',\n'AFP', 'X',\n'AG7', 'X',\\
n'AGB', 'X',\n'AGF', 'X',\n'AGL', 'X',\n'AGM', 'R'\
,\n'AGN', 'X',\n'AGP', 'X',\n'AGS', 'X',\n'AGU', '\
X',\n'AH0', 'X',\n'AH1', 'X',\n'AHA', 'X',\n'AHB',\
 'D',\n'AHC', 'X',\n'AHF', 'X',\n'AHG', 'X',\n'AHH\
', 'X',\n'AHM', 'X',\n'AHO', 'X',\n'AHP', 'X',\n'A\
HS', 'X',\n'AHT', 'Y',\n'AHU', 'X',\n'AHX', 'X',\n\
'AI1', 'X',\n'AI2', 'X',\n'AIB', 'X',\n'AIC', 'X',\
\n'AIM', 'X',\n'AIP', 'X',\n'AIQ', 'X',\n'AIR', 'X\
',\n'AJ3', 'X',\n'AKB', 'X',\n'AKG', 'X',\n'AKR', \
'X',\n'AL1', 'X',\n'AL2', 'X',\n'AL3', 'X',\n'AL4'\
, 'X',\n'AL5', 'X',\n'AL6', 'X',\n'AL7', 'X',\n'AL\
8', 'X',\n'AL9', 'X',\n'ALA', 'A',\n'ALB', 'X',\n'\
ALC', 'X',\n'ALD', 'L',\n'ALE', 'X',\n'ALF', 'X',\\
n'ALG', 'X',\n'ALL', 'X',\n'ALM', 'A',\n'ALN', 'A'\
,\n'ALO', 'T',\n'ALP', 'X',\n'ALQ', 'X',\n'ALR', '\
X',\n'ALS', 'X',\n'ALT', 'A',\n'ALY', 'K',\n'ALZ',\
 'X',\n'AMA', 'X',\n'AMB', 'X',\n'AMC', 'X',\n'AMD\
', 'X',\n'AMG', 'X',\n'AMH', 'X',\n'AMI', 'X',\n'A\
ML', 'X',\n'AMN', 'X',\n'AMO', 'X',\n'AMP', 'X',\n\
'AMQ', 'X',\n'AMR', 'X',\n'AMS', 'X',\n'AMT', 'X',\
\n'AMU', 'X',\n'AMW', 'X',\n'AMX', 'X',\n'AMY', 'X\
',\n'ANA', 'X',\n'ANB', 'X',\n'ANC', 'X',\n'AND', \
'X',\n'ANE', 'X',\n'ANI', 'X',\n'ANL', 'X',\n'ANO'\
, 'X',\n'ANP', 'X',\n'ANS', 'X',\n'ANT', 'X',\n'AO\
E', 'X',\n'AOP', 'X',\n'AP1', 'X',\n'AP2', 'X',\n'\
AP3', 'X',\n'AP4', 'X',\n'AP5', 'X',\n'AP6', 'X',\\
n'APA', 'X',\n'APB', 'X',\n'APC', 'X',\n'APE', 'F'\
,\n'APF', 'X',\n'APG', 'X',\n'APH', 'A',\n'API', '\
X',\n'APL', 'X',\n'APM', 'X',\n'APN', 'G',\n'APP',\
 'X',\n'APQ', 'X',\n'APR', 'X',\n'APS', 'X',\n'APT\
', 'X',\n'APU', 'X',\n'APX', 'X',\n'APY', 'X',\n'A\
PZ', 'X',\n'AQS', 'X',\n'AR1', 'X',\n'AR2', 'X',\n\
'ARA', 'X',\n'ARB', 'X',\n'ARC', 'X',\n'ARD', 'X',\
\n'ARG', 'R',\n'ARH', 'X',\n'ARI', 'X',\n'ARM', 'R\
',\n'ARN', 'X',\n'ARO', 'R',\n'ARP', 'X',\n'ARQ', \
'X',\n'ARS', 'X',\n'AS1', 'R',\n'AS2', 'X',\n'ASA'\
, 'D',\n'ASB', 'D',\n'ASC', 'X',\n'ASD', 'X',\n'AS\
E', 'X',\n'ASF', 'X',\n'ASI', 'X',\n'ASK', 'D',\n'\
ASL', 'X',\n'ASM', 'N',\n'ASO', 'X',\n'ASP', 'D',\\
n'ASQ', 'X',\n'ASU', 'X',\n'ATA', 'X',\n'ATC', 'X'\
,\n'ATD', 'X',\n'ATF', 'X',\n'ATG', 'X',\n'ATH', '\
X',\n'ATM', 'X',\n'ATO', 'X',\n'ATP', 'X',\n'ATQ',\
 'X',\n'ATR', 'X',\n'ATT', 'X',\n'ATY', 'X',\n'ATZ\
', 'X',\n'AUC', 'X',\n'AUR', 'X',\n'AVG', 'X',\n'A\
XP', 'X',\n'AYA', 'A',\n'AZ2', 'X',\n'AZA', 'X',\n\
'AZC', 'X',\n'AZD', 'X',\n'AZE', 'X',\n'AZI', 'X',\
\n'AZL', 'X',\n'AZM', 'X',\n'AZR', 'X',\n'AZT', 'X\
',\n'B12', 'X',\n'B1F', 'F',\n'B2A', 'A',\n'B2F', \
'F',\n'B2I', 'I',\n'B2V', 'V',\n'B3I', 'X',\n'B3P'\
, 'X',\n'B7G', 'X',\n'B96', 'X',\n'B9A', 'X',\n'BA\
1', 'X',\n'BAA', 'X',\n'BAB', 'X',\n'BAC', 'X',\n'\
BAF', 'X',\n'BAH', 'X',\n'BAI', 'X',\n'BAK', 'X',\\
n'BAL', 'A',\n'BAM', 'X',\n'BAO', 'X',\n'BAP', 'X'\
,\n'BAR', 'X',\n'BAS', 'X',\n'BAT', 'F',\n'BAY', '\
X',\n'BAZ', 'X',\n'BB1', 'X',\n'BB2', 'X',\n'BBA',\
 'X',\n'BBH', 'X',\n'BBS', 'X',\n'BBT', 'X',\n'BBZ\
', 'X',\n'BCA', 'X',\n'BCB', 'X',\n'BCC', 'X',\n'B\
CD', 'X',\n'BCL', 'X',\n'BCN', 'X',\n'BCR', 'X',\n\
'BCS', 'C',\n'BCT', 'X',\n'BCY', 'X',\n'BCZ', 'X',\
\n'BDA', 'X',\n'BDG', 'X',\n'BDK', 'X',\n'BDM', 'X\
',\n'BDN', 'X',\n'BDS', 'X',\n'BE1', 'X',\n'BE2', \
'X',\n'BEA', 'X',\n'BEF', 'X',\n'BEN', 'X',\n'BEO'\
, 'X',\n'BEP', 'X',\n'BER', 'X',\n'BES', 'X',\n'BE\
T', 'X',\n'BEZ', 'X',\n'BF2', 'X',\n'BFA', 'X',\n'\
BFD', 'X',\n'BFP', 'X',\n'BFS', 'X',\n'BFU', 'X',\\
n'BG6', 'X',\n'BGF', 'X',\n'BGG', 'X',\n'BGL', 'X'\
,\n'BGN', 'X',\n'BGP', 'X',\n'BGX', 'X',\n'BH4', '\
X',\n'BHA', 'X',\n'BHC', 'X',\n'BHD', 'D',\n'BHO',\
 'X',\n'BHS', 'X',\n'BIC', 'X',\n'BIN', 'X',\n'BIO\
', 'X',\n'BIP', 'X',\n'BIS', 'X',\n'BIZ', 'X',\n'B\
JH', 'X',\n'BJI', 'X',\n'BJP', 'X',\n'BLA', 'X',\n\
'BLB', 'X',\n'BLE', 'L',\n'BLG', 'P',\n'BLI', 'X',\
\n'BLM', 'X',\n'BLV', 'X',\n'BLY', 'K',\n'BM1', 'X\
',\n'BM2', 'X',\n'BM5', 'X',\n'BM9', 'X',\n'BMA', \
'X',\n'BMD', 'X',\n'BME', 'X',\n'BMP', 'X',\n'BMQ'\
, 'X',\n'BMS', 'X',\n'BMT', 'T',\n'BMU', 'X',\n'BM\
Y', 'X',\n'BMZ', 'X',\n'BNA', 'X',\n'BNG', 'X',\n'\
BNI', 'X',\n'BNN', 'F',\n'BNO', 'L',\n'BNS', 'X',\\
n'BNZ', 'X',\n'BO3', 'X',\n'BO4', 'X',\n'BOC', 'X'\
,\n'BOG', 'X',\n'BOM', 'X',\n'BOT', 'X',\n'BOX', '\
X',\n'BOZ', 'X',\n'BPA', 'X',\n'BPB', 'X',\n'BPD',\
 'X',\n'BPG', 'X',\n'BPH', 'X',\n'BPI', 'X',\n'BPJ\
', 'X',\n'BPM', 'X',\n'BPN', 'X',\n'BPO', 'X',\n'B\
PP', 'X',\n'BPT', 'X',\n'BPY', 'X',\n'BRB', 'X',\n\
'BRC', 'X',\n'BRE', 'X',\n'BRI', 'X',\n'BRL', 'X',\
\n'BRM', 'X',\n'BRN', 'X',\n'BRO', 'X',\n'BRS', 'X\
',\n'BRU', 'X',\n'BRZ', 'X',\n'BSB', 'X',\n'BSI', \
'X',\n'BSP', 'X',\n'BT1', 'X',\n'BT2', 'X',\n'BT3'\
, 'X',\n'BTA', 'L',\n'BTB', 'X',\n'BTC', 'C',\n'BT\
D', 'X',\n'BTN', 'X',\n'BTP', 'X',\n'BTR', 'W',\n'\
BU1', 'X',\n'BUA', 'X',\n'BUB', 'X',\n'BUC', 'X',\\
n'BUG', 'X',\n'BUL', 'X',\n'BUM', 'X',\n'BUQ', 'X'\
,\n'BUT', 'X',\n'BVD', 'X',\n'BX3', 'X',\n'BYS', '\
X',\n'BZ1', 'X',\n'BZA', 'X',\n'BZB', 'X',\n'BZC',\
 'X',\n'BZD', 'X',\n'BZF', 'X',\n'BZI', 'X',\n'BZM\
', 'X',\n'BZO', 'X',\n'BZP', 'X',\n'BZQ', 'X',\n'B\
ZS', 'X',\n'BZT', 'X',\n'C02', 'X',\n'C11', 'X',\n\
'C1O', 'X',\n'C20', 'X',\n'C24', 'X',\n'C2F', 'X',\
\n'C2O', 'X',\n'C2P', 'X',\n'C3M', 'X',\n'C3P', 'X\
',\n'C3X', 'X',\n'C48', 'X',\n'C4M', 'X',\n'C4X', \
'X',\n'C5C', 'X',\n'C5M', 'X',\n'C5P', 'X',\n'C5X'\
, 'X',\n'C60', 'X',\n'C6C', 'X',\n'C6M', 'X',\n'C7\
8', 'X',\n'C8E', 'X',\n'CA3', 'X',\n'CA5', 'X',\n'\
CAA', 'X',\n'CAB', 'X',\n'CAC', 'X',\n'CAD', 'X',\\
n'CAF', 'C',\n'CAG', 'X',\n'CAH', 'X',\n'CAL', 'X'\
,\n'CAM', 'X',\n'CAN', 'X',\n'CAO', 'X',\n'CAP', '\
X',\n'CAQ', 'X',\n'CAR', 'X',\n'CAS', 'C',\n'CAT',\
 'X',\n'CAV', 'X',\n'CAY', 'C',\n'CAZ', 'X',\n'CB3\
', 'X',\n'CB4', 'X',\n'CBA', 'X',\n'CBD', 'X',\n'C\
BG', 'X',\n'CBI', 'X',\n'CBL', 'X',\n'CBM', 'X',\n\
'CBN', 'X',\n'CBO', 'X',\n'CBP', 'X',\n'CBS', 'X',\
\n'CBX', 'X',\n'CBZ', 'X',\n'CC0', 'X',\n'CC1', 'X\
',\n'CCC', 'X',\n'CCH', 'X',\n'CCI', 'X',\n'CCM', \
'X',\n'CCN', 'X',\n'CCO', 'X',\n'CCP', 'X',\n'CCR'\
, 'X',\n'CCS', 'C',\n'CCV', 'X',\n'CCY', 'X',\n'CD\
1', 'X',\n'CDC', 'X',\n'CDE', 'X',\n'CDF', 'X',\n'\
CDI', 'X',\n'CDL', 'X',\n'CDM', 'X',\n'CDP', 'X',\\
n'CDR', 'X',\n'CDU', 'X',\n'CE1', 'X',\n'CEA', 'C'\
,\n'CEB', 'X',\n'CEC', 'X',\n'CED', 'X',\n'CEF', '\
X',\n'CEH', 'X',\n'CEM', 'X',\n'CEO', 'X',\n'CEP',\
 'X',\n'CEQ', 'X',\n'CER', 'X',\n'CES', 'G',\n'CET\
', 'X',\n'CFC', 'X',\n'CFF', 'X',\n'CFM', 'X',\n'C\
FO', 'X',\n'CFP', 'X',\n'CFS', 'X',\n'CFX', 'X',\n\
'CGN', 'X',\n'CGP', 'X',\n'CGS', 'X',\n'CGU', 'E',\
\n'CH2', 'X',\n'CH3', 'X',\n'CHA', 'X',\n'CHB', 'X\
',\n'CHD', 'X',\n'CHF', 'X',\n'CHG', 'G',\n'CHI', \
'X',\n'CHN', 'X',\n'CHO', 'X',\n'CHP', 'G',\n'CHR'\
, 'X',\n'CHS', 'F',\n'CHT', 'X',\n'CHX', 'X',\n'CI\
C', 'X',\n'CIN', 'X',\n'CIP', 'X',\n'CIR', 'X',\n'\
CIT', 'X',\n'CIU', 'X',\n'CKI', 'X',\n'CL1', 'X',\\
n'CL2', 'X',\n'CLA', 'X',\n'CLB', 'A',\n'CLC', 'S'\
,\n'CLD', 'A',\n'CLE', 'L',\n'CLF', 'X',\n'CLK', '\
S',\n'CLL', 'X',\n'CLM', 'X',\n'CLN', 'X',\n'CLO',\
 'X',\n'CLP', 'X',\n'CLQ', 'X',\n'CLR', 'X',\n'CLS\
', 'X',\n'CLT', 'X',\n'CLX', 'X',\n'CLY', 'X',\n'C\
MA', 'R',\n'CMC', 'X',\n'CMD', 'X',\n'CME', 'C',\n\
'CMG', 'X',\n'CMK', 'X',\n'CMN', 'X',\n'CMO', 'X',\
\n'CMP', 'X',\n'CMR', 'X',\n'CMS', 'X',\n'CMT', 'C\
',\n'CMX', 'X',\n'CNA', 'X',\n'CNC', 'X',\n'CND', \
'X',\n'CNH', 'X',\n'CNM', 'X',\n'CNN', 'X',\n'CNO'\
, 'X',\n'CNP', 'X',\n'CO2', 'X',\n'CO3', 'X',\n'CO\
5', 'X',\n'CO8', 'X',\n'COA', 'X',\n'COB', 'X',\n'\
COC', 'X',\n'COD', 'X',\n'COE', 'X',\n'COF', 'X',\\
n'COH', 'X',\n'COI', 'X',\n'COJ', 'X',\n'COL', 'X'\
,\n'COM', 'X',\n'CON', 'X',\n'COP', 'X',\n'COR', '\
X',\n'COS', 'X',\n'COT', 'X',\n'COY', 'X',\n'CP1',\
 'G',\n'CP2', 'X',\n'CP4', 'X',\n'CPA', 'X',\n'CPB\
', 'X',\n'CPC', 'X',\n'CPD', 'X',\n'CPG', 'X',\n'C\
PH', 'X',\n'CPI', 'X',\n'CPM', 'X',\n'CPN', 'G',\n\
'CPO', 'X',\n'CPP', 'X',\n'CPQ', 'X',\n'CPR', 'X',\
\n'CPS', 'X',\n'CPT', 'X',\n'CPU', 'X',\n'CPV', 'X\
',\n'CPY', 'X',\n'CR1', 'X',\n'CR6', 'X',\n'CRA', \
'X',\n'CRB', 'X',\n'CRC', 'X',\n'CRG', 'X',\n'CRH'\
, 'X',\n'CRO', 'T',\n'CRP', 'X',\n'CRQ', 'X',\n'CR\
S', 'X',\n'CRT', 'X',\n'CRY', 'X',\n'CSA', 'C',\n'\
CSB', 'X',\n'CSD', 'C',\n'CSE', 'C',\n'CSH', 'X',\\
n'CSI', 'X',\n'CSN', 'X',\n'CSO', 'C',\n'CSP', 'C'\
,\n'CSR', 'C',\n'CSS', 'C',\n'CST', 'X',\n'CSW', '\
C',\n'CSX', 'C',\n'CSY', 'X',\n'CSZ', 'C',\n'CT3',\
 'X',\n'CTA', 'X',\n'CTB', 'X',\n'CTC', 'X',\n'CTD\
', 'X',\n'CTH', 'T',\n'CTO', 'X',\n'CTP', 'X',\n'C\
TR', 'X',\n'CTS', 'X',\n'CTT', 'X',\n'CTY', 'X',\n\
'CTZ', 'X',\n'CU1', 'X',\n'CUA', 'X',\n'CUC', 'X',\
\n'CUL', 'X',\n'CUO', 'X',\n'CUZ', 'X',\n'CVI', 'X\
',\n'CXF', 'X',\n'CXL', 'X',\n'CXM', 'M',\n'CXN', \
'X',\n'CXP', 'X',\n'CXS', 'X',\n'CY1', 'C',\n'CY3'\
, 'X',\n'CYB', 'X',\n'CYC', 'X',\n'CYF', 'C',\n'CY\
G', 'C',\n'CYH', 'X',\n'CYL', 'X',\n'CYM', 'C',\n'\
CYN', 'X',\n'CYO', 'X',\n'CYP', 'X',\n'CYQ', 'C',\\
n'CYS', 'C',\n'CYU', 'X',\n'CYY', 'X',\n'CYZ', 'X'\
,\n'CZH', 'X',\n'CZZ', 'C',\n'D12', 'X',\n'D13', '\
X',\n'D16', 'X',\n'D18', 'X',\n'D19', 'X',\n'D1P',\
 'X',\n'D24', 'X',\n'D34', 'X',\n'D35', 'X',\n'D4D\
', 'X',\n'D4T', 'X',\n'D6G', 'X',\n'DA2', 'R',\n'D\
A3', 'X',\n'DA6', 'X',\n'DA7', 'X',\n'DAA', 'X',\n\
'DAB', 'X',\n'DAC', 'X',\n'DAD', 'X',\n'DAE', 'X',\
\n'DAF', 'X',\n'DAG', 'X',\n'DAH', 'A',\n'DAJ', 'X\
',\n'DAK', 'X',\n'DAL', 'A',\n'DAM', 'A',\n'DAN', \
'X',\n'DAO', 'X',\n'DAP', 'X',\n'DAQ', 'X',\n'DAR'\
, 'R',\n'DAS', 'D',\n'DAT', 'X',\n'DAU', 'X',\n'DA\
V', 'X',\n'DBA', 'X',\n'DBD', 'X',\n'DBF', 'X',\n'\
DBG', 'X',\n'DBI', 'X',\n'DBV', 'X',\n'DBY', 'Y',\\
n'DCA', 'X',\n'DCB', 'X',\n'DCE', 'X',\n'DCF', 'X'\
,\n'DCG', 'X',\n'DCH', 'X',\n'DCI', 'I',\n'DCL', '\
X',\n'DCM', 'X',\n'DCP', 'X',\n'DCS', 'X',\n'DCT',\
 'X',\n'DCY', 'C',\n'DCZ', 'X',\n'DDA', 'X',\n'DDB\
', 'X',\n'DDC', 'X',\n'DDF', 'X',\n'DDG', 'X',\n'D\
DH', 'X',\n'DDL', 'X',\n'DDM', 'X',\n'DDO', 'L',\n\
'DDP', 'X',\n'DDQ', 'X',\n'DDT', 'Y',\n'DDU', 'X',\
\n'DEA', 'X',\n'DEB', 'X',\n'DEC', 'X',\n'DEF', 'X\
',\n'DEL', 'X',\n'DEM', 'X',\n'DEN', 'X',\n'DEP', \
'X',\n'DEQ', 'X',\n'DES', 'X',\n'DET', 'X',\n'DFC'\
, 'X',\n'DFG', 'X',\n'DFI', 'X',\n'DFL', 'X',\n'DF\
O', 'X',\n'DFP', 'X',\n'DFR', 'X',\n'DFT', 'X',\n'\
DFV', 'X',\n'DFX', 'X',\n'DG2', 'X',\n'DG3', 'X',\\
n'DG6', 'X',\n'DGA', 'X',\n'DGD', 'X',\n'DGG', 'X'\
,\n'DGL', 'E',\n'DGN', 'Q',\n'DGP', 'X',\n'DGT', '\
X',\n'DGX', 'X',\n'DH2', 'X',\n'DHA', 'A',\n'DHB',\
 'X',\n'DHC', 'X',\n'DHD', 'X',\n'DHE', 'X',\n'DHF\
', 'X',\n'DHG', 'X',\n'DHI', 'H',\n'DHL', 'X',\n'D\
HM', 'X',\n'DHN', 'V',\n'DHP', 'X',\n'DHQ', 'X',\n\
'DHR', 'X',\n'DHS', 'X',\n'DHT', 'X',\n'DHU', 'X',\
\n'DHY', 'X',\n'DHZ', 'X',\n'DI2', 'X',\n'DI3', 'G\
',\n'DI4', 'X',\n'DI5', 'X',\n'DIA', 'X',\n'DIC', \
'X',\n'DIF', 'X',\n'DIG', 'X',\n'DII', 'X',\n'DIL'\
, 'I',\n'DIM', 'X',\n'DIO', 'X',\n'DIP', 'X',\n'DI\
Q', 'X',\n'DIS', 'X',\n'DIT', 'X',\n'DIV', 'V',\n'\
DIX', 'X',\n'DIY', 'X',\n'DKA', 'X',\n'DLA', 'X',\\
n'DLE', 'L',\n'DLF', 'X',\n'DLS', 'K',\n'DLY', 'K'\
,\n'DM1', 'X',\n'DM2', 'X',\n'DM3', 'X',\n'DM4', '\
X',\n'DM5', 'X',\n'DM6', 'X',\n'DM7', 'X',\n'DM8',\
 'X',\n'DM9', 'X',\n'DMA', 'X',\n'DMB', 'X',\n'DMC\
', 'X',\n'DMD', 'X',\n'DME', 'X',\n'DMF', 'X',\n'D\
MG', 'G',\n'DMH', 'N',\n'DMI', 'X',\n'DMJ', 'X',\n\
'DML', 'X',\n'DMM', 'X',\n'DMN', 'X',\n'DMO', 'X',\
\n'DMP', 'X',\n'DMQ', 'X',\n'DMR', 'X',\n'DMS', 'X\
',\n'DMT', 'X',\n'DMV', 'X',\n'DMY', 'X',\n'DNC', \
'X',\n'DND', 'X',\n'DNH', 'X',\n'DNJ', 'X',\n'DNN'\
, 'X',\n'DNP', 'X',\n'DNQ', 'X',\n'DNR', 'X',\n'DO\
2', 'X',\n'DO3', 'X',\n'DOA', 'X',\n'DOB', 'X',\n'\
DOC', 'X',\n'DOH', 'D',\n'DOM', 'X',\n'DOS', 'X',\\
n'DOX', 'X',\n'DP5', 'X',\n'DP7', 'X',\n'DPA', 'X'\
,\n'DPC', 'X',\n'DPD', 'X',\n'DPE', 'X',\n'DPG', '\
X',\n'DPH', 'F',\n'DPM', 'X',\n'DPN', 'F',\n'DPO',\
 'X',\n'DPP', 'X',\n'DPR', 'P',\n'DPS', 'X',\n'DPT\
', 'X',\n'DPX', 'X',\n'DPY', 'X',\n'DPZ', 'X',\n'D\
QH', 'X',\n'DQN', 'X',\n'DR1', 'X',\n'DRB', 'X',\n\
'DRC', 'X',\n'DRI', 'X',\n'DRP', 'X',\n'DRT', 'X',\
\n'DRU', 'X',\n'DSA', 'X',\n'DSB', 'X',\n'DSC', 'X\
',\n'DSD', 'X',\n'DSE', 'S',\n'DSI', 'X',\n'DSN', \
'S',\n'DSP', 'D',\n'DSR', 'X',\n'DSS', 'X',\n'DSX'\
, 'X',\n'DSY', 'X',\n'DTB', 'X',\n'DTD', 'X',\n'DT\
H', 'T',\n'DTN', 'X',\n'DTO', 'X',\n'DTP', 'X',\n'\
DTQ', 'X',\n'DTR', 'W',\n'DTT', 'X',\n'DTY', 'Y',\\
n'DUD', 'X',\n'DUO', 'X',\n'DUR', 'X',\n'DUT', 'X'\
,\n'DVA', 'V',\n'DVR', 'X',\n'DX9', 'X',\n'DXA', '\
X',\n'DXB', 'X',\n'DXC', 'X',\n'DXG', 'X',\n'DXX',\
 'X',\n'DZF', 'X',\n'E09', 'X',\n'E20', 'X',\n'E2P\
', 'X',\n'E3G', 'X',\n'E4N', 'X',\n'E4P', 'X',\n'E\
64', 'X',\n'E6C', 'X',\n'E96', 'X',\n'E97', 'X',\n\
'EA2', 'X',\n'EAA', 'X',\n'EAP', 'X',\n'EBP', 'X',\
\n'EBW', 'X',\n'ECO', 'X',\n'EDA', 'X',\n'EDC', 'X\
',\n'EDE', 'X',\n'EDO', 'X',\n'EDR', 'X',\n'EEB', \
'X',\n'EEE', 'X',\n'EFC', 'X',\n'EFZ', 'X',\n'EG1'\
, 'X',\n'EG2', 'X',\n'EG3', 'X',\n'EGC', 'X',\n'EG\
L', 'X',\n'EHP', 'A',\n'EIC', 'X',\n'EJT', 'X',\n'\
ELA', 'X',\n'EMB', 'X',\n'EMC', 'X',\n'EMD', 'X',\\
n'EMM', 'X',\n'EMO', 'X',\n'EMP', 'X',\n'EMR', 'X'\
,\n'ENA', 'X',\n'ENC', 'X',\n'ENH', 'X',\n'ENO', '\
X',\n'ENP', 'X',\n'EOA', 'X',\n'EOH', 'X',\n'EOT',\
 'X',\n'EOX', 'X',\n'EPA', 'X',\n'EPE', 'X',\n'EPH\
', 'X',\n'EPI', 'X',\n'EPN', 'X',\n'EPO', 'X',\n'E\
PT', 'X',\n'EPU', 'X',\n'EPX', 'X',\n'EPY', 'X',\n\
'EQI', 'X',\n'EQP', 'X',\n'EQU', 'X',\n'ERG', 'X',\
\n'ERI', 'X',\n'ERY', 'X',\n'ESC', 'X',\n'ESD', 'X\
',\n'ESI', 'X',\n'ESO', 'X',\n'ESP', 'X',\n'EST', \
'X',\n'ESX', 'X',\n'ETA', 'X',\n'ETC', 'X',\n'ETD'\
, 'X',\n'ETF', 'X',\n'ETH', 'X',\n'ETI', 'X',\n'ET\
N', 'X',\n'ETO', 'X',\n'ETP', 'X',\n'ETR', 'X',\n'\
ETS', 'X',\n'ETY', 'X',\n'EU3', 'X',\n'EUG', 'X',\\
n'EYS', 'C',\n'F09', 'X',\n'F2B', 'X',\n'F3S', 'X'\
,\n'F42', 'X',\n'F43', 'X',\n'F4S', 'X',\n'F6B', '\
X',\n'F6P', 'X',\n'F89', 'X',\n'FA1', 'X',\n'FA5',\
 'F',\n'FAA', 'X',\n'FAB', 'X',\n'FAC', 'X',\n'FAD\
', 'X',\n'FAF', 'X',\n'FAG', 'X',\n'FAM', 'X',\n'F\
AR', 'X',\n'FAS', 'X',\n'FAT', 'X',\n'FBA', 'X',\n\
'FBE', 'X',\n'FBI', 'X',\n'FBP', 'X',\n'FBQ', 'X',\
\n'FBS', 'X',\n'FBT', 'X',\n'FBU', 'X',\n'FCA', 'X\
',\n'FCB', 'X',\n'FCI', 'X',\n'FCN', 'X',\n'FCO', \
'X',\n'FCR', 'X',\n'FCT', 'X',\n'FCX', 'X',\n'FCY'\
, 'C',\n'FD1', 'F',\n'FD2', 'F',\n'FD3', 'F',\n'FD\
4', 'F',\n'FDA', 'X',\n'FDC', 'X',\n'FDI', 'X',\n'\
FDP', 'X',\n'FDS', 'X',\n'FE2', 'X',\n'FEA', 'X',\\
n'FEL', 'X',\n'FEM', 'X',\n'FEN', 'X',\n'FEO', 'X'\
,\n'FEP', 'X',\n'FER', 'X',\n'FES', 'X',\n'FFB', '\
X',\n'FFC', 'X',\n'FFF', 'X',\n'FFO', 'X',\n'FGL',\
 'G',\n'FHB', 'X',\n'FHC', 'X',\n'FHP', 'X',\n'FHU\
', 'X',\n'FID', 'X',\n'FII', 'X',\n'FIP', 'X',\n'F\
K5', 'X',\n'FKA', 'X',\n'FKI', 'X',\n'FKP', 'X',\n\
'FL2', 'X',\n'FL9', 'X',\n'FLA', 'A',\n'FLC', 'X',\
\n'FLD', 'X',\n'FLE', 'L',\n'FLF', 'X',\n'FLO', 'X\
',\n'FLP', 'X',\n'FLT', 'Y',\n'FLU', 'X',\n'FLX', \
'X',\n'FM1', 'X',\n'FM2', 'X',\n'FMA', 'X',\n'FMB'\
, 'X',\n'FMC', 'X',\n'FME', 'M',\n'FMN', 'X',\n'FM\
P', 'X',\n'FMR', 'X',\n'FMS', 'X',\n'FMT', 'X',\n'\
FNE', 'X',\n'FNP', 'X',\n'FNS', 'X',\n'FOC', 'X',\\
n'FOE', 'X',\n'FOG', 'F',\n'FOH', 'X',\n'FOK', 'X'\
,\n'FOL', 'X',\n'FON', 'X',\n'FOP', 'X',\n'FOR', '\
X',\n'FOS', 'X',\n'FPA', 'X',\n'FPC', 'X',\n'FPI',\
 'X',\n'FPO', 'X',\n'FPP', 'X',\n'FPT', 'X',\n'FQP\
', 'X',\n'FRA', 'X',\n'FRD', 'F',\n'FRU', 'X',\n'F\
S3', 'X',\n'FS4', 'X',\n'FSB', 'X',\n'FSO', 'X',\n\
'FSX', 'X',\n'FTC', 'X',\n'FTP', 'X',\n'FTR', 'W',\
\n'FTT', 'X',\n'FTY', 'Y',\n'FUA', 'X',\n'FUC', 'X\
',\n'FUM', 'X',\n'FUP', 'X',\n'FVF', 'X',\n'FXP', \
'X',\n'FXV', 'X',\n'FYA', 'F',\n'G16', 'X',\n'G1P'\
, 'X',\n'G20', 'X',\n'G21', 'X',\n'G23', 'X',\n'G2\
6', 'X',\n'G28', 'X',\n'G2F', 'X',\n'G37', 'X',\n'\
G39', 'X',\n'G3H', 'X',\n'G3P', 'X',\n'G4D', 'X',\\
n'G6D', 'X',\n'G6P', 'X',\n'G6Q', 'X',\n'G7M', 'X'\
,\n'GA2', 'X',\n'GAA', 'X',\n'GAB', 'X',\n'GAC', '\
X',\n'GAI', 'X',\n'GAL', 'X',\n'GAM', 'X',\n'GAN',\
 'X',\n'GAO', 'X',\n'GAP', 'X',\n'GAR', 'G',\n'GAS\
', 'X',\n'GAT', 'X',\n'GBC', 'X',\n'GBI', 'X',\n'G\
BP', 'X',\n'GBS', 'X',\n'GBX', 'X',\n'GC4', 'X',\n\
'GCA', 'X',\n'GCD', 'X',\n'GCG', 'G',\n'GCH', 'G',\
\n'GCK', 'X',\n'GCL', 'X',\n'GCM', 'X',\n'GCN', 'X\
',\n'GCO', 'X',\n'GCP', 'X',\n'GCR', 'X',\n'GCS', \
'X',\n'GCU', 'X',\n'GD3', 'X',\n'GDB', 'X',\n'GDM'\
, 'X',\n'GDN', 'X',\n'GDP', 'X',\n'GDS', 'X',\n'GD\
U', 'X',\n'GE1', 'X',\n'GE2', 'X',\n'GE3', 'X',\n'\
GEA', 'X',\n'GEL', 'X',\n'GEM', 'X',\n'GEN', 'X',\\
n'GEP', 'X',\n'GER', 'X',\n'GFP', 'X',\n'GGB', 'X'\
,\n'GGL', 'E',\n'GGP', 'X',\n'GHP', 'G',\n'GIP', '\
X',\n'GIS', 'X',\n'GKR', 'X',\n'GL2', 'X',\n'GL3',\
 'G',\n'GL4', 'X',\n'GL5', 'X',\n'GL7', 'X',\n'GL9\
', 'X',\n'GLA', 'X',\n'GLB', 'X',\n'GLC', 'X',\n'G\
LD', 'X',\n'GLE', 'X',\n'GLF', 'X',\n'GLG', 'X',\n\
'GLH', 'Q',\n'GLI', 'X',\n'GLL', 'X',\n'GLM', 'G',\
\n'GLN', 'Q',\n'GLO', 'X',\n'GLP', 'X',\n'GLR', 'X\
',\n'GLS', 'X',\n'GLT', 'X',\n'GLU', 'E',\n'GLV', \
'X',\n'GLW', 'X',\n'GLY', 'G',\n'GLZ', 'X',\n'GM1'\
, 'X',\n'GMA', 'X',\n'GMC', 'X',\n'GMH', 'X',\n'GM\
P', 'X',\n'GMY', 'X',\n'GN7', 'X',\n'GNA', 'X',\n'\
GNB', 'X',\n'GNH', 'X',\n'GNP', 'X',\n'GNT', 'X',\\
n'GOA', 'X',\n'GOL', 'X',\n'GOX', 'X',\n'GP1', 'X'\
,\n'GP3', 'X',\n'GP4', 'X',\n'GP6', 'X',\n'GP8', '\
X',\n'GPB', 'E',\n'GPC', 'X',\n'GPE', 'X',\n'GPG',\
 'X',\n'GPI', 'X',\n'GPJ', 'X',\n'GPL', 'K',\n'GPM\
', 'X',\n'GPN', 'G',\n'GPP', 'X',\n'GPR', 'X',\n'G\
PS', 'X',\n'GPX', 'X',\n'GR1', 'X',\n'GR3', 'X',\n\
'GR4', 'X',\n'GSA', 'X',\n'GSB', 'X',\n'GSC', 'G',\
\n'GSE', 'S',\n'GSH', 'X',\n'GSP', 'X',\n'GSR', 'X\
',\n'GSS', 'X',\n'GT9', 'C',\n'GTA', 'X',\n'GTB', \
'X',\n'GTD', 'X',\n'GTE', 'X',\n'GTH', 'T',\n'GTN'\
, 'X',\n'GTO', 'X',\n'GTP', 'X',\n'GTR', 'X',\n'GT\
S', 'X',\n'GTT', 'X',\n'GTX', 'X',\n'GTZ', 'X',\n'\
GU7', 'X',\n'GUA', 'X',\n'GUD', 'X',\n'GUM', 'X',\\
n'GUN', 'X',\n'GUP', 'X',\n'GUR', 'X',\n'GW3', 'X'\
,\n'GZZ', 'X',\n'H2B', 'X',\n'H2P', 'H',\n'H2S', '\
X',\n'H2U', 'X',\n'H4B', 'X',\n'H5M', 'P',\n'H5P',\
 'X',\n'HAA', 'X',\n'HAB', 'X',\n'HAC', 'A',\n'HAD\
', 'X',\n'HAE', 'X',\n'HAG', 'X',\n'HAI', 'X',\n'H\
AM', 'X',\n'HAP', 'X',\n'HAQ', 'X',\n'HAR', 'R',\n\
'HAS', 'X',\n'HAV', 'V',\n'HAX', 'X',\n'HAZ', 'X',\
\n'HBA', 'X',\n'HBC', 'X',\n'HBD', 'X',\n'HBI', 'X\
',\n'HBO', 'X',\n'HBU', 'X',\n'HBY', 'X',\n'HC0', \
'X',\n'HC1', 'X',\n'HC4', 'X',\n'HCA', 'X',\n'HCC'\
, 'X',\n'HCI', 'X',\n'HCS', 'X',\n'HDA', 'X',\n'HD\
D', 'X',\n'HDF', 'X',\n'HDN', 'X',\n'HDS', 'X',\n'\
HDZ', 'X',\n'HE1', 'X',\n'HE6', 'X',\n'HEA', 'X',\\
n'HEB', 'X',\n'HEC', 'X',\n'HED', 'X',\n'HEE', 'X'\
,\n'HEF', 'X',\n'HEG', 'X',\n'HEM', 'X',\n'HEN', '\
X',\n'HEO', 'X',\n'HEP', 'X',\n'HEU', 'X',\n'HEV',\
 'X',\n'HEX', 'X',\n'HEZ', 'X',\n'HF1', 'X',\n'HFA\
', 'X',\n'HFP', 'X',\n'HGA', 'Q',\n'HGB', 'X',\n'H\
GC', 'X',\n'HGI', 'X',\n'HGU', 'X',\n'HHO', 'X',\n\
'HHP', 'X',\n'HIB', 'X',\n'HIC', 'H',\n'HII', 'X',\
\n'HIN', 'X',\n'HIO', 'X',\n'HIP', 'H',\n'HIS', 'H\
',\n'HLE', 'X',\n'HLT', 'X',\n'HMA', 'A',\n'HMB', \
'X',\n'HMC', 'X',\n'HMD', 'X',\n'HMF', 'A',\n'HMG'\
, 'X',\n'HMH', 'X',\n'HMI', 'L',\n'HMM', 'X',\n'HM\
N', 'X',\n'HMO', 'X',\n'HMP', 'X',\n'HMR', 'R',\n'\
HNI', 'X',\n'HNP', 'X',\n'HOA', 'X',\n'HOE', 'X',\\
n'HOH', 'X',\n'HOM', 'X',\n'HOP', 'X',\n'HOQ', 'X'\
,\n'HP1', 'A',\n'HP2', 'A',\n'HP3', 'X',\n'HPA', '\
X',\n'HPB', 'X',\n'HPC', 'X',\n'HPD', 'X',\n'HPE',\
 'A',\n'HPG', 'X',\n'HPH', 'F',\n'HPP', 'X',\n'HPQ\
', 'F',\n'HPR', 'X',\n'HPT', 'X',\n'HPY', 'X',\n'H\
QO', 'X',\n'HQQ', 'X',\n'HQU', 'X',\n'HRG', 'R',\n\
'HRI', 'X',\n'HSA', 'X',\n'HSE', 'S',\n'HSF', 'X',\
\n'HSM', 'X',\n'HSO', 'H',\n'HSP', 'X',\n'HT1', 'X\
',\n'HT2', 'X',\n'HTA', 'X',\n'HTL', 'X',\n'HTO', \
'X',\n'HTP', 'X',\n'HTR', 'W',\n'HUP', 'X',\n'HUX'\
, 'X',\n'HV5', 'A',\n'HV7', 'X',\n'HV8', 'X',\n'HX\
A', 'X',\n'HXC', 'X',\n'HXP', 'X',\n'HY1', 'X',\n'\
HYA', 'X',\n'HYB', 'X',\n'HYD', 'X',\n'HYG', 'X',\\
n'HYP', 'P',\n'I06', 'X',\n'I10', 'X',\n'I11', 'X'\
,\n'I17', 'X',\n'I2P', 'X',\n'I3N', 'X',\n'I3P', '\
X',\n'I40', 'X',\n'I48', 'X',\n'I4B', 'X',\n'I52',\
 'X',\n'I5P', 'X',\n'I84', 'G',\n'IAG', 'G',\n'IAS\
', 'X',\n'IB2', 'X',\n'IBB', 'X',\n'IBP', 'X',\n'I\
BR', 'X',\n'IBS', 'X',\n'IBZ', 'X',\n'IC1', 'X',\n\
'ICA', 'X',\n'ICI', 'X',\n'ICL', 'X',\n'ICP', 'X',\
\n'ICT', 'X',\n'ICU', 'X',\n'ID2', 'X',\n'IDC', 'X\
',\n'IDG', 'X',\n'IDH', 'X',\n'IDM', 'X',\n'IDO', \
'X',\n'IDP', 'X',\n'IDR', 'X',\n'IDS', 'X',\n'IDT'\
, 'X',\n'IDU', 'X',\n'IFG', 'X',\n'IFP', 'X',\n'IG\
L', 'X',\n'IGN', 'X',\n'IGP', 'X',\n'IGU', 'X',\n'\
IH1', 'X',\n'IH2', 'X',\n'IH3', 'X',\n'IHB', 'X',\\
n'IHN', 'X',\n'IHP', 'X',\n'IIC', 'X',\n'IIL', 'I'\
,\n'IIP', 'X',\n'IK2', 'X',\n'IKT', 'X',\n'ILA', '\
I',\n'ILE', 'I',\n'ILG', 'X',\n'ILO', 'X',\n'ILX',\
 'I',\n'IM1', 'X',\n'IM2', 'X',\n'IMC', 'X',\n'IMD\
', 'X',\n'IME', 'X',\n'IMF', 'X',\n'IMG', 'X',\n'I\
MH', 'X',\n'IMI', 'X',\n'IML', 'I',\n'IMM', 'X',\n\
'IMN', 'X',\n'IMO', 'X',\n'IMP', 'X',\n'IMR', 'X',\
\n'IMU', 'X',\n'IN0', 'D',\n'IN1', 'R',\n'IN2', 'K\
',\n'IN3', 'L',\n'IN4', 'X',\n'IN5', 'A',\n'IN6', \
'L',\n'IN7', 'X',\n'IN8', 'X',\n'IN9', 'X',\n'INA'\
, 'L',\n'INB', 'X',\n'INC', 'X',\n'IND', 'X',\n'IN\
E', 'X',\n'INF', 'F',\n'ING', 'F',\n'INH', 'R',\n'\
INI', 'X',\n'INJ', 'X',\n'INK', 'X',\n'INL', 'X',\\
n'INM', 'X',\n'INN', 'A',\n'INO', 'X',\n'INP', 'X'\
,\n'INQ', 'X',\n'INR', 'X',\n'INS', 'X',\n'INT', '\
V',\n'INU', 'X',\n'INV', 'X',\n'INW', 'X',\n'INX',\
 'X',\n'INY', 'X',\n'INZ', 'X',\n'IOA', 'X',\n'IOB\
', 'X',\n'IOC', 'X',\n'IOD', 'X',\n'IOE', 'X',\n'I\
OF', 'X',\n'IOH', 'X',\n'IOL', 'X',\n'IOP', 'X',\n\
'IP1', 'X',\n'IP2', 'X',\n'IP3', 'X',\n'IP4', 'X',\
\n'IPA', 'X',\n'IPB', 'X',\n'IPD', 'X',\n'IPG', 'G\
',\n'IPH', 'X',\n'IPL', 'X',\n'IPM', 'X',\n'IPN', \
'X',\n'IPO', 'F',\n'IPP', 'X',\n'IPS', 'X',\n'IPT'\
, 'X',\n'IPU', 'X',\n'IPY', 'A',\n'IQB', 'X',\n'IQ\
P', 'X',\n'IQS', 'X',\n'IR3', 'X',\n'IRI', 'X',\n'\
IRP', 'X',\n'ISA', 'X',\n'ISF', 'X',\n'ISO', 'X',\\
n'ISP', 'X',\n'ISQ', 'X',\n'ISU', 'X',\n'ITM', 'X'\
,\n'ITP', 'X',\n'ITR', 'W',\n'ITS', 'X',\n'ITU', '\
X',\n'IU5', 'X',\n'IUM', 'X',\n'IUR', 'X',\n'IVA',\
 'X',\n'IYG', 'G',\n'IYR', 'Y',\n'J77', 'X',\n'J78\
', 'X',\n'J80', 'X',\n'JE2', 'X',\n'JEN', 'X',\n'J\
ST', 'X',\n'K21', 'X',\n'KAH', 'X',\n'KAI', 'X',\n\
'KAM', 'X',\n'KAN', 'X',\n'KAP', 'X',\n'KCP', 'X',\
\n'KCX', 'K',\n'KDO', 'X',\n'KEF', 'X',\n'KET', 'X\
',\n'KGR', 'X',\n'KH1', 'X',\n'KIF', 'X',\n'KIV', \
'V',\n'KNI', 'X',\n'KPH', 'K',\n'KTH', 'X',\n'KTN'\
, 'X',\n'KTP', 'X',\n'KWT', 'X',\n'L04', 'X',\n'L1\
P', 'X',\n'L24', 'E',\n'L2P', 'X',\n'L34', 'E',\n'\
L37', 'E',\n'L3P', 'X',\n'L4P', 'X',\n'L75', 'X',\\
n'LAC', 'X',\n'LAD', 'X',\n'LAK', 'X',\n'LAM', 'X'\
,\n'LAR', 'X',\n'LAT', 'X',\n'LAX', 'X',\n'LCO', '\
X',\n'LCP', 'X',\n'LCS', 'X',\n'LDA', 'X',\n'LDO',\
 'L',\n'LDP', 'X',\n'LEA', 'X',\n'LEO', 'X',\n'LEU\
', 'L',\n'LG2', 'X',\n'LG6', 'X',\n'LGC', 'X',\n'L\
GP', 'X',\n'LHG', 'X',\n'LHY', 'F',\n'LI1', 'X',\n\
'LIG', 'X',\n'LIL', 'X',\n'LIM', 'X',\n'LIN', 'X',\
\n'LIO', 'X',\n'LIP', 'X',\n'LLA', 'X',\n'LLP', 'K\
',\n'LLY', 'K',\n'LMG', 'X',\n'LML', 'X',\n'LMT', \
'X',\n'LMU', 'X',\n'LMZ', 'X',\n'LNK', 'X',\n'LNL'\
, 'X',\n'LNO', 'X',\n'LOF', 'X',\n'LOL', 'L',\n'LO\
M', 'X',\n'LOR', 'X',\n'LOS', 'X',\n'LOV', 'L',\n'\
LOX', 'X',\n'LP1', 'X',\n'LP2', 'R',\n'LPA', 'X',\\
n'LPC', 'X',\n'LPF', 'X',\n'LPL', 'X',\n'LPM', 'X'\
,\n'LPP', 'X',\n'LRB', 'X',\n'LRU', 'X',\n'LS1', '\
X',\n'LS2', 'X',\n'LS3', 'X',\n'LS4', 'X',\n'LS5',\
 'X',\n'LTA', 'X',\n'LTL', 'X',\n'LTR', 'W',\n'LUM\
', 'X',\n'LVS', 'L',\n'LXC', 'X',\n'LY2', 'X',\n'L\
Y3', 'X',\n'LYA', 'X',\n'LYB', 'X',\n'LYC', 'X',\n\
'LYD', 'X',\n'LYM', 'K',\n'LYN', 'X',\n'LYS', 'K',\
\n'LYT', 'X',\n'LYW', 'X',\n'LYZ', 'K',\n'M1A', 'X\
',\n'M1G', 'X',\n'M2G', 'X',\n'M3L', 'K',\n'M6P', \
'X',\n'M6T', 'X',\n'M7G', 'X',\n'MA1', 'X',\n'MA2'\
, 'X',\n'MA3', 'X',\n'MA4', 'X',\n'MA6', 'X',\n'MA\
A', 'A',\n'MAB', 'X',\n'MAC', 'X',\n'MAE', 'X',\n'\
MAG', 'X',\n'MAH', 'X',\n'MAI', 'R',\n'MAK', 'X',\\
n'MAL', 'X',\n'MAM', 'X',\n'MAN', 'X',\n'MAO', 'X'\
,\n'MAP', 'X',\n'MAR', 'X',\n'MAS', 'X',\n'MAT', '\
X',\n'MAU', 'X',\n'MAZ', 'X',\n'MBA', 'X',\n'MBD',\
 'X',\n'MBG', 'X',\n'MBH', 'X',\n'MBN', 'X',\n'MBO\
', 'X',\n'MBR', 'X',\n'MBS', 'X',\n'MBV', 'X',\n'M\
BZ', 'X',\n'MCA', 'X',\n'MCD', 'X',\n'MCE', 'X',\n\
'MCG', 'G',\n'MCI', 'X',\n'MCN', 'X',\n'MCP', 'X',\
\n'MCT', 'X',\n'MCY', 'X',\n'MD2', 'X',\n'MDA', 'X\
',\n'MDC', 'X',\n'MDG', 'X',\n'MDH', 'X',\n'MDL', \
'X',\n'MDM', 'X',\n'MDN', 'X',\n'MDP', 'X',\n'ME6'\
, 'X',\n'MEB', 'X',\n'MEC', 'X',\n'MEL', 'X',\n'ME\
N', 'N',\n'MEP', 'X',\n'MER', 'X',\n'MES', 'X',\n'\
MET', 'M',\n'MEV', 'X',\n'MF2', 'X',\n'MF3', 'M',\\
n'MFB', 'X',\n'MFD', 'X',\n'MFU', 'X',\n'MG7', 'X'\
,\n'MGA', 'X',\n'MGB', 'X',\n'MGD', 'X',\n'MGG', '\
R',\n'MGL', 'X',\n'MGN', 'Q',\n'MGO', 'X',\n'MGP',\
 'X',\n'MGR', 'X',\n'MGS', 'X',\n'MGT', 'X',\n'MGU\
', 'X',\n'MGY', 'G',\n'MHB', 'X',\n'MHF', 'X',\n'M\
HL', 'L',\n'MHM', 'X',\n'MHO', 'M',\n'MHS', 'H',\n\
'MHZ', 'X',\n'MIA', 'X',\n'MIC', 'X',\n'MID', 'X',\
\n'MIL', 'X',\n'MIM', 'X',\n'MIN', 'G',\n'MIP', 'X\
',\n'MIS', 'S',\n'MIT', 'X',\n'MJI', 'X',\n'MK1', \
'X',\n'MKC', 'X',\n'MLA', 'X',\n'MLC', 'X',\n'MLE'\
, 'L',\n'MLN', 'X',\n'MLT', 'X',\n'MLY', 'K',\n'ML\
Z', 'K',\n'MM3', 'X',\n'MM4', 'X',\n'MMA', 'X',\n'\
MMC', 'X',\n'MME', 'M',\n'MMO', 'R',\n'MMP', 'X',\\
n'MMQ', 'X',\n'MMT', 'X',\n'MN1', 'X',\n'MN2', 'X'\
,\n'MN3', 'X',\n'MN5', 'X',\n'MN7', 'X',\n'MN8', '\
X',\n'MNA', 'X',\n'MNB', 'X',\n'MNC', 'X',\n'MNG',\
 'X',\n'MNL', 'L',\n'MNO', 'X',\n'MNP', 'X',\n'MNQ\
', 'X',\n'MNS', 'X',\n'MNT', 'X',\n'MNV', 'V',\n'M\
O1', 'X',\n'MO2', 'X',\n'MO3', 'X',\n'MO4', 'X',\n\
'MO5', 'X',\n'MO6', 'X',\n'MOA', 'X',\n'MOB', 'X',\
\n'MOC', 'X',\n'MOE', 'X',\n'MOG', 'X',\n'MOH', 'X\
',\n'MOL', 'X',\n'MOO', 'X',\n'MOP', 'X',\n'MOR', \
'X',\n'MOS', 'X',\n'MOT', 'X',\n'MOX', 'X',\n'MP1'\
, 'X',\n'MP3', 'X',\n'MPA', 'X',\n'MPB', 'X',\n'MP\
C', 'X',\n'MPD', 'X',\n'MPG', 'X',\n'MPH', 'M',\n'\
MPI', 'X',\n'MPJ', 'M',\n'MPL', 'X',\n'MPN', 'X',\\
n'MPO', 'X',\n'MPP', 'X',\n'MPQ', 'G',\n'MPR', 'X'\
,\n'MPS', 'X',\n'MQ0', 'X',\n'MQ7', 'X',\n'MQ8', '\
X',\n'MQ9', 'X',\n'MQI', 'X',\n'MR2', 'X',\n'MRC',\
 'X',\n'MRM', 'X',\n'MRP', 'X',\n'MS2', 'X',\n'MSA\
', 'X',\n'MSB', 'X',\n'MSD', 'X',\n'MSE', 'M',\n'M\
SF', 'X',\n'MSI', 'X',\n'MSO', 'M',\n'MSQ', 'X',\n\
'MST', 'X',\n'MSU', 'X',\n'MTA', 'X',\n'MTB', 'X',\
\n'MTC', 'X',\n'MTD', 'X',\n'MTE', 'X',\n'MTF', 'X\
',\n'MTG', 'X',\n'MTO', 'X',\n'MTS', 'X',\n'MTT', \
'X',\n'MTX', 'X',\n'MTY', 'Y',\n'MUG', 'X',\n'MUP'\
, 'X',\n'MUR', 'X',\n'MVA', 'V',\n'MW1', 'X',\n'MW\
2', 'X',\n'MXA', 'X',\n'MXY', 'X',\n'MYA', 'X',\n'\
MYC', 'X',\n'MYG', 'X',\n'MYR', 'X',\n'MYS', 'X',\\
n'MYT', 'X',\n'MZM', 'X',\n'N1T', 'X',\n'N25', 'X'\
,\n'N2B', 'X',\n'N3T', 'X',\n'N4B', 'X',\n'NA2', '\
X',\n'NA5', 'X',\n'NA6', 'X',\n'NAA', 'X',\n'NAB',\
 'X',\n'NAC', 'X',\n'NAD', 'X',\n'NAE', 'X',\n'NAF\
', 'X',\n'NAG', 'X',\n'NAH', 'X',\n'NAI', 'X',\n'N\
AL', 'A',\n'NAM', 'A',\n'NAN', 'X',\n'NAO', 'X',\n\
'NAP', 'X',\n'NAQ', 'X',\n'NAR', 'X',\n'NAS', 'X',\
\n'NAU', 'X',\n'NAV', 'X',\n'NAW', 'X',\n'NAX', 'X\
',\n'NAY', 'X',\n'NBA', 'X',\n'NBD', 'X',\n'NBE', \
'X',\n'NBG', 'X',\n'NBN', 'X',\n'NBP', 'X',\n'NBS'\
, 'X',\n'NBU', 'X',\n'NCA', 'X',\n'NCB', 'A',\n'NC\
D', 'X',\n'NCH', 'X',\n'NCM', 'X',\n'NCN', 'X',\n'\
NCO', 'X',\n'NCR', 'X',\n'NCS', 'X',\n'ND4', 'X',\\
n'NDA', 'X',\n'NDC', 'X',\n'NDD', 'X',\n'NDO', 'X'\
,\n'NDP', 'X',\n'NDT', 'X',\n'NEA', 'X',\n'NEB', '\
X',\n'NED', 'X',\n'NEM', 'H',\n'NEN', 'X',\n'NEO',\
 'X',\n'NEP', 'H',\n'NEQ', 'X',\n'NES', 'X',\n'NET\
', 'X',\n'NEV', 'X',\n'NFA', 'F',\n'NFE', 'X',\n'N\
FG', 'X',\n'NFP', 'X',\n'NFS', 'X',\n'NG6', 'X',\n\
'NGA', 'X',\n'NGL', 'X',\n'NGM', 'X',\n'NGO', 'X',\
\n'NGP', 'X',\n'NGT', 'X',\n'NGU', 'X',\n'NH2', 'X\
',\n'NH3', 'X',\n'NH4', 'X',\n'NHD', 'X',\n'NHE', \
'X',\n'NHM', 'X',\n'NHP', 'X',\n'NHR', 'X',\n'NHS'\
, 'X',\n'NI1', 'X',\n'NI2', 'X',\n'NIC', 'X',\n'NI\
D', 'X',\n'NIK', 'X',\n'NIO', 'X',\n'NIP', 'X',\n'\
NIT', 'X',\n'NIU', 'X',\n'NIY', 'Y',\n'NLA', 'X',\\
n'NLE', 'L',\n'NLG', 'X',\n'NLN', 'L',\n'NLP', 'L'\
,\n'NM1', 'X',\n'NMA', 'A',\n'NMB', 'X',\n'NMC', '\
G',\n'NMD', 'X',\n'NME', 'X',\n'NMN', 'X',\n'NMO',\
 'X',\n'NMQ', 'X',\n'NMX', 'X',\n'NMY', 'X',\n'NNH\
', 'R',\n'NNO', 'X',\n'NO2', 'X',\n'NO3', 'X',\n'N\
OA', 'X',\n'NOD', 'X',\n'NOJ', 'X',\n'NON', 'X',\n\
'NOP', 'X',\n'NOR', 'X',\n'NOS', 'X',\n'NOV', 'X',\
\n'NOX', 'X',\n'NP3', 'X',\n'NPA', 'X',\n'NPC', 'X\
',\n'NPD', 'X',\n'NPE', 'X',\n'NPF', 'X',\n'NPH', \
'C',\n'NPI', 'X',\n'NPL', 'X',\n'NPN', 'X',\n'NPO'\
, 'X',\n'NPP', 'X',\n'NPT', 'X',\n'NPY', 'X',\n'NR\
G', 'R',\n'NRI', 'X',\n'NS1', 'X',\n'NS5', 'X',\n'\
NSP', 'X',\n'NTA', 'X',\n'NTB', 'X',\n'NTC', 'X',\\
n'NTH', 'X',\n'NTM', 'X',\n'NTP', 'X',\n'NTS', 'X'\
,\n'NTU', 'X',\n'NTZ', 'X',\n'NU1', 'X',\n'NVA', '\
V',\n'NVI', 'X',\n'NVP', 'X',\n'NW1', 'X',\n'NYP',\
 'X',\n'O4M', 'X',\n'OAA', 'X',\n'OAI', 'X',\n'OAP\
', 'X',\n'OAR', 'X',\n'OAS', 'S',\n'OBA', 'X',\n'O\
BN', 'X',\n'OC1', 'X',\n'OC2', 'X',\n'OC3', 'X',\n\
'OC4', 'X',\n'OC5', 'X',\n'OC6', 'X',\n'OC7', 'X',\
\n'OCL', 'X',\n'OCM', 'X',\n'OCN', 'X',\n'OCO', 'X\
',\n'OCP', 'X',\n'OCS', 'C',\n'OCT', 'X',\n'OCV', \
'K',\n'OCY', 'C',\n'ODA', 'X',\n'ODS', 'X',\n'OES'\
, 'X',\n'OET', 'X',\n'OF1', 'X',\n'OF2', 'X',\n'OF\
3', 'X',\n'OFL', 'X',\n'OFO', 'X',\n'OHE', 'X',\n'\
OHO', 'X',\n'OHT', 'X',\n'OIC', 'X',\n'OIP', 'X',\\
n'OKA', 'X',\n'OLA', 'X',\n'OLE', 'X',\n'OLI', 'X'\
,\n'OLO', 'X',\n'OMB', 'X',\n'OMC', 'X',\n'OMD', '\
X',\n'OME', 'X',\n'OMG', 'X',\n'OMP', 'X',\n'OMT',\
 'M',\n'OMU', 'X',\n'ONE', 'X',\n'ONL', 'L',\n'ONP\
', 'X',\n'OPA', 'X',\n'OPD', 'X',\n'OPE', 'X',\n'O\
PG', 'X',\n'OPH', 'X',\n'OPN', 'X',\n'OPP', 'X',\n\
'OPR', 'R',\n'ORN', 'X',\n'ORO', 'X',\n'ORP', 'X',\
\n'OSB', 'X',\n'OSS', 'X',\n'OTA', 'X',\n'OTB', 'X\
',\n'OTE', 'X',\n'OTG', 'X',\n'OUT', 'X',\n'OVA', \
'X',\n'OWQ', 'X',\n'OXA', 'X',\n'OXE', 'X',\n'OXI'\
, 'X',\n'OXL', 'X',\n'OXM', 'X',\n'OXN', 'X',\n'OX\
O', 'X',\n'OXP', 'X',\n'OXS', 'X',\n'OXY', 'X',\n'\
P11', 'A',\n'P24', 'X',\n'P28', 'X',\n'P2P', 'X',\\
n'P2U', 'X',\n'P3M', 'X',\n'P4C', 'X',\n'P4P', 'X'\
,\n'P5P', 'X',\n'P6G', 'X',\n'PA1', 'X',\n'PA2', '\
X',\n'PA3', 'X',\n'PA4', 'X',\n'PA5', 'X',\n'PAA',\
 'X',\n'PAB', 'X',\n'PAC', 'X',\n'PAD', 'X',\n'PAE\
', 'X',\n'PAG', 'X',\n'PAH', 'X',\n'PAI', 'X',\n'P\
AL', 'D',\n'PAM', 'X',\n'PAN', 'X',\n'PAO', 'X',\n\
'PAP', 'A',\n'PAQ', 'F',\n'PAR', 'X',\n'PAS', 'X',\
\n'PAT', 'W',\n'PBA', 'X',\n'PBB', 'X',\n'PBC', 'X\
',\n'PBF', 'F',\n'PBG', 'X',\n'PBI', 'X',\n'PBM', \
'X',\n'PBN', 'X',\n'PBP', 'X',\n'PBR', 'X',\n'PBZ'\
, 'X',\n'PC2', 'X',\n'PCA', 'E',\n'PCB', 'X',\n'PC\
D', 'X',\n'PCE', 'X',\n'PCG', 'X',\n'PCH', 'X',\n'\
PCL', 'X',\n'PCM', 'X',\n'PCP', 'X',\n'PCR', 'X',\\
n'PCS', 'X',\n'PCU', 'X',\n'PCV', 'X',\n'PCY', 'X'\
,\n'PD1', 'X',\n'PDA', 'X',\n'PDC', 'X',\n'PDD', '\
A',\n'PDE', 'A',\n'PDI', 'X',\n'PDL', 'A',\n'PDN',\
 'X',\n'PDO', 'X',\n'PDP', 'X',\n'PDT', 'X',\n'PDU\
', 'X',\n'PE2', 'X',\n'PE6', 'X',\n'PEA', 'X',\n'P\
EB', 'X',\n'PEC', 'X',\n'PED', 'X',\n'PEE', 'X',\n\
'PEF', 'X',\n'PEG', 'X',\n'PEL', 'X',\n'PEO', 'X',\
\n'PEP', 'X',\n'PEQ', 'X',\n'PER', 'X',\n'PET', 'X\
',\n'PFB', 'X',\n'PFC', 'X',\n'PFG', 'X',\n'PFL', \
'X',\n'PFM', 'X',\n'PFZ', 'X',\n'PG4', 'X',\n'PG5'\
, 'X',\n'PG6', 'X',\n'PGA', 'X',\n'PGC', 'X',\n'PG\
D', 'X',\n'PGE', 'X',\n'PGG', 'G',\n'PGH', 'X',\n'\
PGL', 'X',\n'PGO', 'X',\n'PGP', 'X',\n'PGQ', 'X',\\
n'PGR', 'X',\n'PGS', 'X',\n'PGU', 'X',\n'PGX', 'X'\
,\n'PGY', 'G',\n'PH1', 'X',\n'PH2', 'X',\n'PH3', '\
X',\n'PHA', 'F',\n'PHB', 'X',\n'PHC', 'X',\n'PHD',\
 'X',\n'PHE', 'F',\n'PHG', 'X',\n'PHH', 'X',\n'PHI\
', 'F',\n'PHL', 'F',\n'PHM', 'X',\n'PHN', 'X',\n'P\
HO', 'X',\n'PHP', 'X',\n'PHQ', 'X',\n'PHS', 'H',\n\
'PHT', 'X',\n'PHW', 'P',\n'PHY', 'X',\n'PI1', 'X',\
\n'PI2', 'X',\n'PI3', 'X',\n'PI4', 'X',\n'PI5', 'X\
',\n'PI6', 'X',\n'PI7', 'X',\n'PI8', 'X',\n'PI9', \
'X',\n'PIA', 'X',\n'PIB', 'X',\n'PIC', 'X',\n'PID'\
, 'X',\n'PIG', 'X',\n'PIH', 'X',\n'PIM', 'X',\n'PI\
N', 'X',\n'PIO', 'X',\n'PIP', 'X',\n'PIQ', 'X',\n'\
PIR', 'X',\n'PIV', 'X',\n'PKF', 'X',\n'PL1', 'X',\\
n'PL9', 'X',\n'PLA', 'D',\n'PLC', 'X',\n'PLE', 'L'\
,\n'PLG', 'G',\n'PLH', 'X',\n'PLM', 'X',\n'PLP', '\
X',\n'PLS', 'S',\n'PLT', 'W',\n'PLU', 'L',\n'PLY',\
 'X',\n'PMA', 'X',\n'PMB', 'X',\n'PMC', 'X',\n'PME\
', 'F',\n'PML', 'X',\n'PMM', 'X',\n'PMO', 'X',\n'P\
MP', 'X',\n'PMS', 'X',\n'PMY', 'X',\n'PN2', 'X',\n\
'PNA', 'X',\n'PNB', 'X',\n'PNC', 'G',\n'PND', 'X',\
\n'PNE', 'A',\n'PNF', 'X',\n'PNG', 'X',\n'PNI', 'X\
',\n'PNL', 'X',\n'PNM', 'X',\n'PNN', 'X',\n'PNO', \
'X',\n'PNP', 'X',\n'PNQ', 'X',\n'PNS', 'X',\n'PNT'\
, 'X',\n'PNU', 'X',\n'PO2', 'X',\n'PO4', 'X',\n'PO\
B', 'X',\n'POC', 'X',\n'POL', 'X',\n'POM', 'P',\n'\
PON', 'X',\n'POP', 'X',\n'POR', 'X',\n'POS', 'X',\\
n'PP1', 'X',\n'PP2', 'X',\n'PP3', 'A',\n'PP4', 'X'\
,\n'PP5', 'X',\n'PP6', 'X',\n'PP7', 'X',\n'PP8', '\
N',\n'PP9', 'X',\n'PPB', 'X',\n'PPC', 'X',\n'PPD',\
 'X',\n'PPE', 'E',\n'PPG', 'X',\n'PPH', 'F',\n'PPI\
', 'X',\n'PPJ', 'V',\n'PPL', 'X',\n'PPM', 'X',\n'P\
PN', 'A',\n'PPO', 'X',\n'PPP', 'X',\n'PPQ', 'X',\n\
'PPR', 'X',\n'PPS', 'X',\n'PPT', 'X',\n'PPU', 'X',\
\n'PPX', 'F',\n'PPY', 'X',\n'PPZ', 'X',\n'PQ0', 'X\
',\n'PQN', 'X',\n'PQQ', 'X',\n'PR1', 'X',\n'PR2', \
'X',\n'PR3', 'X',\n'PRA', 'X',\n'PRB', 'X',\n'PRC'\
, 'X',\n'PRD', 'X',\n'PRE', 'X',\n'PRF', 'X',\n'PR\
H', 'X',\n'PRI', 'P',\n'PRL', 'X',\n'PRN', 'X',\n'\
PRO', 'P',\n'PRP', 'X',\n'PRR', 'A',\n'PRS', 'P',\\
n'PRZ', 'X',\n'PS0', 'X',\n'PSA', 'X',\n'PSD', 'X'\
,\n'PSE', 'X',\n'PSF', 'S',\n'PSG', 'X',\n'PSI', '\
X',\n'PSO', 'X',\n'PSQ', 'X',\n'PSS', 'X',\n'PST',\
 'X',\n'PSU', 'X',\n'PT1', 'X',\n'PT3', 'X',\n'PTA\
', 'X',\n'PTC', 'X',\n'PTD', 'X',\n'PTE', 'X',\n'P\
TH', 'Y',\n'PTL', 'X',\n'PTM', 'Y',\n'PTN', 'X',\n\
'PTO', 'X',\n'PTP', 'X',\n'PTR', 'Y',\n'PTS', 'X',\
\n'PTT', 'X',\n'PTU', 'X',\n'PTY', 'X',\n'PUA', 'X\
',\n'PUB', 'X',\n'PUR', 'X',\n'PUT', 'X',\n'PVA', \
'X',\n'PVB', 'X',\n'PVH', 'H',\n'PVL', 'X',\n'PXA'\
, 'X',\n'PXF', 'X',\n'PXG', 'X',\n'PXP', 'X',\n'PX\
Y', 'X',\n'PXZ', 'X',\n'PY2', 'X',\n'PY4', 'X',\n'\
PY5', 'X',\n'PY6', 'X',\n'PYA', 'A',\n'PYC', 'X',\\
n'PYD', 'X',\n'PYE', 'X',\n'PYL', 'X',\n'PYM', 'X'\
,\n'PYO', 'X',\n'PYP', 'X',\n'PYQ', 'X',\n'PYR', '\
X',\n'PYS', 'X',\n'PYT', 'X',\n'PYX', 'X',\n'PYY',\
 'X',\n'PYZ', 'X',\n'PZQ', 'X',\n'Q82', 'X',\n'QNC\
', 'X',\n'QND', 'X',\n'QSI', 'Q',\n'QTR', 'X',\n'Q\
UA', 'X',\n'QUE', 'X',\n'QUI', 'X',\n'QUO', 'X',\n\
'R11', 'X',\n'R12', 'X',\n'R13', 'X',\n'R18', 'X',\
\n'R1P', 'X',\n'R56', 'X',\n'R5P', 'X',\n'RA2', 'X\
',\n'RAD', 'X',\n'RAI', 'X',\n'RAL', 'X',\n'RAM', \
'X',\n'RAN', 'X',\n'RAP', 'X',\n'RBF', 'X',\n'RBU'\
, 'X',\n'RCA', 'X',\n'RCL', 'X',\n'RCO', 'X',\n'RD\
C', 'X',\n'RDF', 'W',\n'RE9', 'X',\n'REA', 'X',\n'\
RED', 'K',\n'REO', 'X',\n'REP', 'X',\n'RET', 'X',\\
n'RFA', 'X',\n'RFB', 'X',\n'RFL', 'X',\n'RFP', 'X'\
,\n'RG1', 'X',\n'RGS', 'X',\n'RH1', 'X',\n'RHA', '\
X',\n'RHC', 'X',\n'RHD', 'X',\n'RHM', 'X',\n'RHO',\
 'X',\n'RHQ', 'X',\n'RHS', 'X',\n'RIA', 'X',\n'RIB\
', 'X',\n'RIC', 'X',\n'RIF', 'X',\n'RIN', 'X',\n'R\
IP', 'X',\n'RIT', 'X',\n'RMB', 'X',\n'RMN', 'X',\n\
'RMP', 'X',\n'RNG', 'X',\n'RNS', 'X',\n'RNT', 'X',\
\n'RO2', 'X',\n'RO4', 'X',\n'ROC', 'N',\n'ROI', 'X\
',\n'ROM', 'X',\n'RON', 'V',\n'ROP', 'X',\n'ROS', \
'X',\n'ROX', 'X',\n'RPA', 'X',\n'RPD', 'X',\n'RPH'\
, 'X',\n'RPL', 'X',\n'RPP', 'X',\n'RPR', 'X',\n'RP\
X', 'X',\n'RQ3', 'X',\n'RR1', 'X',\n'RR6', 'X',\n'\
RRS', 'X',\n'RS1', 'X',\n'RS2', 'X',\n'RS7', 'X',\\
n'RSS', 'X',\n'RTA', 'X',\n'RTB', 'X',\n'RTC', 'X'\
,\n'RTL', 'X',\n'RUB', 'X',\n'RUN', 'X',\n'RWJ', '\
X',\n'RXP', 'X',\n'S02', 'X',\n'S11', 'X',\n'S1H',\
 'S',\n'S27', 'X',\n'S2C', 'C',\n'S3P', 'X',\n'S4U\
', 'X',\n'S57', 'X',\n'S58', 'X',\n'S5H', 'X',\n'S\
6G', 'X',\n'S80', 'X',\n'SAA', 'X',\n'SAB', 'X',\n\
'SAC', 'S',\n'SAD', 'X',\n'SAE', 'X',\n'SAF', 'X',\
\n'SAH', 'C',\n'SAI', 'C',\n'SAL', 'X',\n'SAM', 'M\
',\n'SAN', 'X',\n'SAP', 'X',\n'SAR', 'X',\n'SAS', \
'X',\n'SB1', 'X',\n'SB2', 'X',\n'SB3', 'X',\n'SB4'\
, 'X',\n'SB5', 'X',\n'SB6', 'X',\n'SBA', 'L',\n'SB\
B', 'X',\n'SBD', 'A',\n'SBI', 'X',\n'SBL', 'A',\n'\
SBN', 'X',\n'SBO', 'X',\n'SBR', 'X',\n'SBS', 'X',\\
n'SBT', 'X',\n'SBU', 'X',\n'SBX', 'X',\n'SC4', 'X'\
,\n'SCA', 'X',\n'SCC', 'X',\n'SCD', 'X',\n'SCH', '\
C',\n'SCI', 'X',\n'SCL', 'X',\n'SCM', 'X',\n'SCN',\
 'X',\n'SCO', 'X',\n'SCP', 'S',\n'SCR', 'X',\n'SCS\
', 'X',\n'SCV', 'C',\n'SCY', 'C',\n'SD8', 'X',\n'S\
DK', 'X',\n'SDZ', 'X',\n'SE4', 'X',\n'SEA', 'X',\n\
'SEB', 'S',\n'SEC', 'X',\n'SEG', 'A',\n'SEI', 'X',\
\n'SEL', 'S',\n'SEM', 'X',\n'SEO', 'X',\n'SEP', 'S\
',\n'SER', 'S',\n'SES', 'X',\n'SET', 'S',\n'SEU', \
'X',\n'SF4', 'X',\n'SFG', 'X',\n'SFN', 'X',\n'SFO'\
, 'X',\n'SGA', 'X',\n'SGC', 'X',\n'SGL', 'X',\n'SG\
M', 'X',\n'SGN', 'X',\n'SGP', 'X',\n'SHA', 'X',\n'\
SHC', 'X',\n'SHF', 'X',\n'SHH', 'X',\n'SHP', 'G',\\
n'SHR', 'E',\n'SHT', 'T',\n'SHU', 'X',\n'SI2', 'X'\
,\n'SIA', 'X',\n'SIF', 'X',\n'SIG', 'X',\n'SIH', '\
X',\n'SIM', 'X',\n'SIN', 'X',\n'SKD', 'X',\n'SKF',\
 'X',\n'SLB', 'X',\n'SLE', 'X',\n'SLZ', 'K',\n'SMA\
', 'X',\n'SMC', 'C',\n'SME', 'M',\n'SML', 'X',\n'S\
MM', 'M',\n'SMN', 'X',\n'SMP', 'X',\n'SMS', 'X',\n\
'SN1', 'X',\n'SN6', 'X',\n'SN7', 'X',\n'SNC', 'C',\
\n'SNN', 'X',\n'SNP', 'X',\n'SO1', 'X',\n'SO2', 'X\
',\n'SO3', 'X',\n'SO4', 'X',\n'SOA', 'X',\n'SOC', \
'C',\n'SOM', 'X',\n'SOR', 'X',\n'SOT', 'X',\n'SOX'\
, 'X',\n'SPA', 'X',\n'SPB', 'X',\n'SPC', 'X',\n'SP\
D', 'X',\n'SPE', 'X',\n'SPG', 'X',\n'SPH', 'X',\n'\
SPI', 'X',\n'SPK', 'X',\n'SPM', 'X',\n'SPN', 'X',\\
n'SPO', 'X',\n'SPP', 'X',\n'SPS', 'X',\n'SPY', 'X'\
,\n'SQU', 'X',\n'SRA', 'X',\n'SRB', 'X',\n'SRD', '\
X',\n'SRL', 'X',\n'SRM', 'X',\n'SRS', 'X',\n'SRY',\
 'X',\n'SSA', 'X',\n'SSB', 'X',\n'SSG', 'X',\n'SSP\
', 'X',\n'ST1', 'X',\n'ST2', 'X',\n'ST3', 'X',\n'S\
T4', 'X',\n'ST5', 'X',\n'ST6', 'X',\n'STA', 'X',\n\
'STB', 'X',\n'STE', 'X',\n'STG', 'X',\n'STI', 'X',\
\n'STL', 'X',\n'STN', 'X',\n'STO', 'X',\n'STP', 'X\
',\n'STR', 'X',\n'STU', 'X',\n'STY', 'Y',\n'SU1', \
'X',\n'SU2', 'X',\n'SUC', 'X',\n'SUI', 'X',\n'SUL'\
, 'X',\n'SUR', 'X',\n'SVA', 'S',\n'SWA', 'X',\n'T1\
6', 'X',\n'T19', 'X',\n'T23', 'X',\n'T29', 'X',\n'\
T33', 'X',\n'T3P', 'X',\n'T42', 'A',\n'T44', 'X',\\
n'T5A', 'X',\n'T6A', 'T',\n'T6P', 'X',\n'T80', 'X'\
,\n'T87', 'X',\n'TA1', 'X',\n'TAA', 'X',\n'TAB', '\
X',\n'TAC', 'X',\n'TAD', 'X',\n'TAF', 'X',\n'TAM',\
 'X',\n'TAP', 'X',\n'TAR', 'X',\n'TAS', 'X',\n'TAU\
', 'X',\n'TAX', 'X',\n'TAZ', 'X',\n'TB9', 'X',\n'T\
BA', 'X',\n'TBD', 'X',\n'TBG', 'G',\n'TBH', 'X',\n\
'TBM', 'T',\n'TBO', 'X',\n'TBP', 'X',\n'TBR', 'X',\
\n'TBS', 'X',\n'TBT', 'X',\n'TBU', 'X',\n'TBZ', 'X\
',\n'TC4', 'X',\n'TCA', 'X',\n'TCB', 'X',\n'TCH', \
'X',\n'TCK', 'X',\n'TCL', 'X',\n'TCM', 'X',\n'TCN'\
, 'X',\n'TCP', 'X',\n'TCR', 'W',\n'TCS', 'X',\n'TC\
Z', 'X',\n'TDA', 'X',\n'TDB', 'X',\n'TDG', 'X',\n'\
TDP', 'X',\n'TDR', 'X',\n'TDX', 'X',\n'TEA', 'X',\\
n'TEM', 'X',\n'TEN', 'X',\n'TEO', 'X',\n'TEP', 'X'\
,\n'TER', 'X',\n'TES', 'X',\n'TET', 'X',\n'TFA', '\
X',\n'TFB', 'X',\n'TFH', 'X',\n'TFI', 'X',\n'TFK',\
 'X',\n'TFP', 'X',\n'THA', 'X',\n'THB', 'X',\n'THC\
', 'T',\n'THD', 'X',\n'THE', 'X',\n'THF', 'X',\n'T\
HJ', 'X',\n'THK', 'X',\n'THM', 'X',\n'THN', 'X',\n\
'THO', 'T',\n'THP', 'X',\n'THQ', 'X',\n'THR', 'T',\
\n'THS', 'X',\n'THT', 'X',\n'THU', 'X',\n'THX', 'X\
',\n'THZ', 'X',\n'TI1', 'X',\n'TI2', 'X',\n'TI3', \
'P',\n'TIA', 'X',\n'TIH', 'A',\n'TK4', 'X',\n'TLA'\
, 'X',\n'TLC', 'X',\n'TLM', 'X',\n'TLN', 'X',\n'TL\
X', 'X',\n'TM5', 'X',\n'TM6', 'X',\n'TMA', 'X',\n'\
TMB', 'T',\n'TMC', 'X',\n'TMD', 'T',\n'TME', 'X',\\
n'TMF', 'X',\n'TML', 'K',\n'TMM', 'X',\n'TMN', 'X'\
,\n'TMP', 'X',\n'TMQ', 'X',\n'TMR', 'X',\n'TMT', '\
X',\n'TMZ', 'X',\n'TNB', 'C',\n'TND', 'X',\n'TNK',\
 'X',\n'TNP', 'X',\n'TNT', 'X',\n'TOA', 'X',\n'TOB\
', 'X',\n'TOC', 'X',\n'TOL', 'X',\n'TOP', 'X',\n'T\
OS', 'X',\n'TOT', 'X',\n'TP1', 'G',\n'TP2', 'P',\n\
'TP3', 'E',\n'TP4', 'E',\n'TP7', 'T',\n'TPA', 'X',\
\n'TPE', 'X',\n'TPF', 'X',\n'TPI', 'X',\n'TPL', 'W\
',\n'TPM', 'X',\n'TPN', 'G',\n'TPO', 'T',\n'TPP', \
'X',\n'TPQ', 'A',\n'TPR', 'P',\n'TPS', 'X',\n'TPT'\
, 'X',\n'TPV', 'X',\n'TPX', 'X',\n'TPY', 'X',\n'TQ\
3', 'X',\n'TQ4', 'X',\n'TQ5', 'X',\n'TQ6', 'X',\n'\
TR1', 'X',\n'TRA', 'X',\n'TRB', 'X',\n'TRC', 'X',\\
n'TRD', 'X',\n'TRE', 'X',\n'TRF', 'W',\n'TRG', 'K'\
,\n'TRH', 'X',\n'TRI', 'X',\n'TRJ', 'X',\n'TRM', '\
X',\n'TRN', 'W',\n'TRO', 'W',\n'TRP', 'W',\n'TRQ',\
 'X',\n'TRS', 'X',\n'TRX', 'W',\n'TRZ', 'X',\n'TS2\
', 'X',\n'TS3', 'X',\n'TS4', 'X',\n'TS5', 'X',\n'T\
SA', 'X',\n'TSB', 'X',\n'TSI', 'X',\n'TSM', 'X',\n\
'TSN', 'X',\n'TSP', 'X',\n'TSU', 'X',\n'TTA', 'X',\
\n'TTE', 'X',\n'TTN', 'X',\n'TTO', 'X',\n'TTP', 'X\
',\n'TTX', 'X',\n'TXL', 'X',\n'TYA', 'Y',\n'TYB', \
'Y',\n'TYD', 'X',\n'TYI', 'Y',\n'TYL', 'X',\n'TYM'\
, 'W',\n'TYN', 'Y',\n'TYQ', 'Y',\n'TYR', 'Y',\n'TY\
S', 'Y',\n'TYV', 'X',\n'TYY', 'A',\n'TZB', 'X',\n'\
TZC', 'X',\n'TZE', 'X',\n'TZL', 'X',\n'TZO', 'X',\\
n'TZP', 'X',\n'U01', 'X',\n'U02', 'X',\n'U03', 'X'\
,\n'U04', 'X',\n'U05', 'X',\n'U0E', 'X',\n'U10', '\
X',\n'U18', 'X',\n'U2G', 'X',\n'U3P', 'X',\n'U49',\
 'X',\n'U55', 'X',\n'U5P', 'X',\n'U66', 'X',\n'U89\
', 'X',\n'U8U', 'X',\n'UAA', 'X',\n'UAG', 'A',\n'U\
AP', 'X',\n'UAR', 'X',\n'UC1', 'X',\n'UC2', 'X',\n\
'UC3', 'X',\n'UC4', 'X',\n'UD1', 'X',\n'UD2', 'X',\
\n'UDP', 'X',\n'UDX', 'X',\n'UFG', 'X',\n'UFM', 'X\
',\n'UFP', 'X',\n'UGA', 'X',\n'UIN', 'X',\n'UKP', \
'A',\n'UM3', 'X',\n'UMA', 'A',\n'UMG', 'X',\n'UMP'\
, 'X',\n'UNA', 'X',\n'UND', 'X',\n'UNI', 'X',\n'UN\
K', 'X',\n'UNN', 'X',\n'UNX', 'X',\n'UP5', 'X',\n'\
UP6', 'X',\n'UPA', 'X',\n'UPF', 'X',\n'UPG', 'X',\\
n'UPP', 'X',\n'UQ1', 'X',\n'UQ2', 'X',\n'UQ6', 'X'\
,\n'UR2', 'X',\n'URA', 'X',\n'URE', 'X',\n'URF', '\
X',\n'URI', 'X',\n'URS', 'X',\n'UTP', 'X',\n'UVC',\
 'X',\n'UVW', 'X',\n'V35', 'X',\n'V36', 'X',\n'V4O\
', 'X',\n'V7O', 'X',\n'VAA', 'V',\n'VAC', 'X',\n'V\
AD', 'V',\n'VAF', 'V',\n'VAG', 'X',\n'VAL', 'V',\n\
'VAN', 'X',\n'VAS', 'X',\n'VAX', 'X',\n'VDX', 'X',\
\n'VDY', 'X',\n'VG1', 'X',\n'VIB', 'X',\n'VIR', 'X\
',\n'VIT', 'X',\n'VK3', 'X',\n'VO3', 'X',\n'VO4', \
'X',\n'VS1', 'F',\n'VS2', 'F',\n'VS3', 'F',\n'VS4'\
, 'F',\n'VXA', 'X',\n'W01', 'X',\n'W02', 'X',\n'W0\
3', 'X',\n'W11', 'X',\n'W33', 'X',\n'W35', 'X',\n'\
W42', 'X',\n'W43', 'X',\n'W54', 'X',\n'W56', 'X',\\
n'W59', 'X',\n'W71', 'X',\n'W84', 'X',\n'W8R', 'X'\
,\n'W91', 'X',\n'WAY', 'X',\n'WCC', 'X',\n'WO2', '\
X',\n'WO4', 'X',\n'WRB', 'X',\n'WRR', 'X',\n'WRS',\
 'X',\n'WW7', 'X',\n'X2F', 'X',\n'X7O', 'X',\n'XAA\
', 'X',\n'XAN', 'X',\n'XAO', 'X',\n'XBB', 'X',\n'X\
BP', 'X',\n'XDN', 'X',\n'XDP', 'X',\n'XIF', 'X',\n\
'XIM', 'X',\n'XK2', 'X',\n'XL1', 'X',\n'XLS', 'X',\
\n'XMP', 'X',\n'XN1', 'X',\n'XN2', 'X',\n'XN3', 'X\
',\n'XUL', 'X',\n'XV6', 'X',\n'XYD', 'X',\n'XYH', \
'X',\n'XYL', 'X',\n'XYP', 'X',\n'XYS', 'X',\n'YOF'\
, 'Y',\n'YRR', 'X',\n'YT3', 'X',\n'YZ9', 'X',\n'Z3\
4', 'G',\n'Z5A', 'X',\n'ZAF', 'X',\n'ZAP', 'X',\n'\
ZEB', 'X',\n'ZEN', 'X',\n'ZES', 'X',\n'ZID', 'X',\\
n'ZMR', 'X',\n'ZN3', 'X',\n'ZNH', 'X',\n'ZNO', 'X'\
,\n'ZO3', 'X',\n'ZPR', 'P',\n'ZRA', 'A',\n'ZST', '\
X',\n'ZYA', 'A',\n\n\n'ASN','N');\n} \n\n\nsub fil\
e2head\n      {\n	my $file = shift;\n	my $size = s\
hift;\n	my $f= new FileHandle;\n	my $line;\n	open \
($f,$file);\n	read ($f,$line, $size);\n	close ($f)\
;\n	return $line;\n      }\nsub file2tail\n      {\
\n	my $file = shift;\n	my $size = shift;\n	my $f= \
new FileHandle;\n	my $line;\n	\n	open ($f,$file);\\
n	seek ($f,$size*-1, 2);\n	read ($f,$line, $size);\
\n	close ($f);\n	return $line;\n      }\n\n\nsub v\
tmpnam\n      {\n	my $r=rand(100000);\n	my $f=\"fi\
le.$r.$$\";\n	while (-e $f)\n	  {\n	    $f=vtmpnam\
();\n	  }\n	push (@TMPFILE_LIST, $f);\n	return $f;\
\n      }\n\nsub myexit\n  {\n    my $code=@_[0];\\
n    if ($CLEAN_EXIT_STARTED==1){return;}\n    els\
e {$CLEAN_EXIT_STARTED=1;}\n    ### ONLY BARE EXIT\
\n    exit ($code);\n  }\nsub set_error_lock\n    \
{\n      my $name = shift;\n      my $pid=$$;\n\n \
     \n      &lock4tc ($$,\"LERROR\", \"LSET\", \"\
$$ -- ERROR: $name $PROGRAM\\n\");\n      return;\\
n    }\nsub set_lock\n  {\n    my $pid=shift;\n   \
 my $msg= shift;\n    my $p=getppid();\n    &lock4\
tc ($pid,\"LLOCK\",\"LRESET\",\"$p$msg\\n\");\n  }\
\nsub unset_lock\n   {\n     \n    my $pid=shift;\\
n    &lock4tc ($pid,\"LLOCK\",\"LRELEASE\",\"\");\\
n  }\nsub shift_lock\n  {\n    my $from=shift;\n  \
  my $to=shift;\n    my $from_type=shift;\n    my \
$to_type=shift;\n    my $action=shift;\n    my $ms\
g;\n    \n    if (!&lock4tc($from, $from_type, \"L\
CHECK\", \"\")){return 0;}\n    $msg=&lock4tc ($fr\
om, $from_type, \"LREAD\", \"\");\n    &lock4tc ($\
from, $from_type,\"LRELEASE\", $msg);\n    &lock4t\
c ($to, $to_type, $action, $msg);\n    return;\n  \
}\nsub isshellpid\n  {\n    my $p=shift;\n    if (\
!lock4tc ($p, \"LLOCK\", \"LCHECK\")){return 0;}\n\
    else\n      {\n	my $c=lock4tc($p, \"LLOCK\", \\
"LREAD\");\n	if ( $c=~/-SHELL-/){return 1;}\n     \
 }\n    return 0;\n  }\nsub isrootpid\n  {\n    if\
(lock4tc (getppid(), \"LLOCK\", \"LCHECK\")){retur\
n 0;}\n    else {return 1;}\n  }\nsub lock4tc\n	{\\
n	  my ($pid,$type,$action,$value)=@_;\n	  my $fna\
me;\n	  my $host=hostname;\n	  \n	  if ($type eq \\
"LLOCK\"){$fname=\"$LOCKDIR/.$pid.$host.lock4tcoff\
ee\";}\n	  elsif ( $type eq \"LERROR\"){ $fname=\"\
$LOCKDIR/.$pid.$host.error4tcoffee\";}\n	  elsif (\
 $type eq \"LWARNING\"){ $fname=\"$LOCKDIR/.$pid.$\
host.warning4tcoffee\";}\n	  \n	  if ($debug_lock)\
\n	    {\n	      print STDERR \"\\n\\t---lock4tc(t\
cg): $action => $fname =>$value (RD: $LOCKDIR)\\n\\
";\n	    }\n\n	  if    ($action eq \"LCHECK\") {re\
turn -e $fname;}\n	  elsif ($action eq \"LREAD\"){\
return file2string($fname);}\n	  elsif ($action eq\
 \"LSET\") {return string2file ($value, $fname, \"\
>>\");}\n	  elsif ($action eq \"LRESET\") {return \
string2file ($value, $fname, \">\");}\n	  elsif ($\
action eq \"LRELEASE\") \n	    {\n	      if ( $deb\
ug_lock)\n		{\n		  my $g=new FileHandle;\n		  open\
 ($g, \">>$fname\");\n		  print $g \"\\nDestroyed \
by $$\\n\";\n		  close ($g);\n		  safe_system (\"m\
v $fname $fname.old\");\n		}\n	      else\n		{\n		\
  unlink ($fname);\n		}\n	    }\n	  return \"\";\n\
	}\n	\nsub file2string\n	{\n	  my $file=@_[0];\n	 \
 my $f=new FileHandle;\n	  my $r;\n	  open ($f, \"\
$file\");\n	  while (<$f>){$r.=$_;}\n	  close ($f)\
;\n	  return $r;\n	}\nsub string2file \n    {\n   \
 my ($s,$file,$mode)=@_;\n    my $f=new FileHandle\
;\n    \n    open ($f, \"$mode$file\");\n    print\
 $f  \"$s\";\n    close ($f);\n  }\n\nBEGIN\n    {\
\n      srand;\n    \n      $SIG{'SIGUP'}='signal_\
cleanup';\n      $SIG{'SIGINT'}='signal_cleanup';\\
n      $SIG{'SIGQUIT'}='signal_cleanup';\n      $S\
IG{'SIGILL'}='signal_cleanup';\n      $SIG{'SIGTRA\
P'}='signal_cleanup';\n      $SIG{'SIGABRT'}='sign\
al_cleanup';\n      $SIG{'SIGEMT'}='signal_cleanup\
';\n      $SIG{'SIGFPE'}='signal_cleanup';\n      \
\n      $SIG{'SIGKILL'}='signal_cleanup';\n      $\
SIG{'SIGPIPE'}='signal_cleanup';\n      $SIG{'SIGS\
TOP'}='signal_cleanup';\n      $SIG{'SIGTTIN'}='si\
gnal_cleanup';\n      $SIG{'SIGXFSZ'}='signal_clea\
nup';\n      $SIG{'SIGINFO'}='signal_cleanup';\n  \
    \n      $SIG{'SIGBUS'}='signal_cleanup';\n    \
  $SIG{'SIGALRM'}='signal_cleanup';\n      $SIG{'S\
IGTSTP'}='signal_cleanup';\n      $SIG{'SIGTTOU'}=\
'signal_cleanup';\n      $SIG{'SIGVTALRM'}='signal\
_cleanup';\n      $SIG{'SIGUSR1'}='signal_cleanup'\
;\n\n\n      $SIG{'SIGSEGV'}='signal_cleanup';\n  \
    $SIG{'SIGTERM'}='signal_cleanup';\n      $SIG{\
'SIGCONT'}='signal_cleanup';\n      $SIG{'SIGIO'}=\
'signal_cleanup';\n      $SIG{'SIGPROF'}='signal_c\
leanup';\n      $SIG{'SIGUSR2'}='signal_cleanup';\\
n\n      $SIG{'SIGSYS'}='signal_cleanup';\n      $\
SIG{'SIGURG'}='signal_cleanup';\n      $SIG{'SIGCH\
LD'}='signal_cleanup';\n      $SIG{'SIGXCPU'}='sig\
nal_cleanup';\n      $SIG{'SIGWINCH'}='signal_clea\
nup';\n      \n      $SIG{'INT'}='signal_cleanup';\
\n      $SIG{'TERM'}='signal_cleanup';\n      $SIG\
{'KILL'}='signal_cleanup';\n      $SIG{'QUIT'}='si\
gnal_cleanup';\n      \n      our $debug_lock=$ENV\
{\"DEBUG_LOCK\"};\n      \n      \n      \n      \\
n      foreach my $a (@ARGV){$CL.=\" $a\";}\n     \
 if ( $debug_lock ){print STDERR \"\\n\\n\\n******\
**** START PG: $PROGRAM *************\\n\";}\n    \
  if ( $debug_lock ){print STDERR \"\\n\\n\\n*****\
*****(tcg) LOCKDIR: $LOCKDIR $$ *************\\n\"\
;}\n      if ( $debug_lock ){print STDERR \"\\n --\
- $$ -- $CL\\n\";}\n      \n	     \n      \n      \
\n    }\nsub flush_error\n  {\n    my $msg=shift;\\
n    return add_error ($EXIT_FAILURE,$$, $$,getppi\
d(), $msg, $CL);\n  }\nsub add_error \n  {\n    my\
 $code=shift;\n    my $rpid=shift;\n    my $pid=sh\
ift;\n    my $ppid=shift;\n    my $type=shift;\n  \
  my $com=shift;\n    \n    $ERROR_DONE=1;\n    lo\
ck4tc ($rpid, \"LERROR\",\"LSET\",\"$pid -- ERROR:\
 $type\\n\");\n    lock4tc ($$, \"LERROR\",\"LSET\\
", \"$pid -- COM: $com\\n\");\n    lock4tc ($$, \"\
LERROR\",\"LSET\", \"$pid -- STACK: $ppid -> $pid\\
\n\");\n   \n    return $code;\n  }\nsub add_warni\
ng \n  {\n    my $rpid=shift;\n    my $pid =shift;\
\n    my $command=shift;\n    my $msg=\"$$ -- WARN\
ING: $command\\n\";\n    print STDERR \"$msg\";\n \
   lock4tc ($$, \"LWARNING\", \"LSET\", $msg);\n  \
}\n\nsub signal_cleanup\n  {\n    print dtderr \"\\
\n**** $$ (tcg) was killed\\n\";\n    &cleanup;\n \
   exit ($EXIT_FAILURE);\n  }\nsub clean_dir\n  {\\
n    my $dir=@_[0];\n    if ( !-d $dir){return ;}\\
n    elsif (!($dir=~/tmp/)){return ;}#safety check\
 1\n    elsif (($dir=~/\\*/)){return ;}#safety che\
ck 2\n    else\n      {\n	`rm -rf $dir`;\n      }\\
n    return;\n  }\nsub cleanup\n  {\n    #print st\
derr \"\\n----tc: $$ Kills $PIDCHILD\\n\";\n    #k\
ill (SIGTERM,$PIDCHILD);\n    my $p=getppid();\n  \
  $CLEAN_EXIT_STARTED=1;\n    \n    \n    \n    if\
 (&lock4tc($$,\"LERROR\", \"LCHECK\", \"\"))\n    \
  {\n	my $ppid=getppid();\n	if (!$ERROR_DONE) \n	 \
 {\n	    &lock4tc($$,\"LERROR\", \"LSET\", \"$$ --\
 STACK: $p -> $$\\n\");\n	    &lock4tc($$,\"LERROR\
\", \"LSET\", \"$$ -- COM: $CL\\n\");\n	  }\n     \
 }\n    my $warning=&lock4tc($$, \"LWARNING\", \"L\
READ\", \"\");\n    my $error=&lock4tc($$,  \"LERR\
OR\", \"LREAD\", \"\");\n    #release error and wa\
rning lock if root\n    \n    if (isrootpid() && (\
$warning || $error) )\n      {\n	\n	print STDERR \\
"**************** Summary *************\\n$error\\\
n$warning\\n\";\n\n	&lock4tc($$,\"LERROR\",\"RELEA\
SE\",\"\");\n	&lock4tc($$,\"LWARNING\",\"RELEASE\"\
,\"\");\n      } \n    \n    \n    foreach my $f (\
@TMPFILE_LIST)\n      {\n	if (-e $f){unlink ($f);}\
 \n      }\n    foreach my $d (@TMPDIR_LIST)\n    \
  {\n	clean_dir ($d);\n      }\n    #No More Lock \
Release\n    #&lock4tc($$,\"LLOCK\",\"LRELEASE\",\\
"\"); #release lock \n\n    if ( $debug_lock ){pri\
nt STDERR \"\\n\\n\\n********** END PG: $PROGRAM (\
$$) *************\\n\";}\n    if ( $debug_lock ){p\
rint STDERR \"\\n\\n\\n**********(tcg) LOCKDIR: $L\
OCKDIR $$ *************\\n\";}\n  }\nEND \n  {\n  \
  \n    &cleanup();\n  }\n   \n\nsub safe_system \\
n{\n  my $com=shift;\n  my $ntry=shift;\n  my $ctr\
y=shift;\n  my $pid;\n  my $status;\n  my $ppid=ge\
tppid();\n  if ($com eq \"\"){return 1;}\n  \n  \n\
\n  if (($pid = fork ()) < 0){return (-1);}\n  if \
($pid == 0)\n    {\n      set_lock($$, \" -SHELL- \
$com (tcg)\");\n      exec ($com);\n    }\n  else\\
n    {\n      lock4tc ($$, \"LLOCK\", \"LSET\", \"\
$pid\\n\");#update parent\n      $PIDCHILD=$pid;\n\
    }\n  if ($debug_lock){printf STDERR \"\\n\\t .\
... safe_system (fasta_seq2hmm)  p: $$ c: $pid COM\
: $com\\n\";}\n\n  waitpid ($pid,WTERMSIG);\n\n  s\
hift_lock ($pid,$$, \"LWARNING\",\"LWARNING\", \"L\
SET\");\n\n  if ($? == $EXIT_FAILURE || lock4tc($p\
id, \"LERROR\", \"LCHECK\", \"\"))\n    {\n      i\
f ($ntry && $ctry <$ntry)\n	{\n	  add_warning ($$,\
$$,\"$com failed [retry: $ctry]\");\n	  lock4tc ($\
pid, \"LRELEASE\", \"LERROR\", \"\");\n	  return s\
afe_system ($com, $ntry, ++$ctry);\n	}\n      elsi\
f ($ntry == -1)\n	{\n	  if (!shift_lock ($pid, $$,\
 \"LERROR\", \"LWARNING\", \"LSET\"))\n	    {\n	  \
    add_warning ($$,$$,\"$com failed\");\n	    }\n\
	  else\n	    {\n	      lock4tc ($pid, \"LRELEASE\\
", \"LERROR\", \"\");\n	    }\n	  return $?;}\n   \
   else\n	{\n	  if (!shift_lock ($pid,$$, \"LERROR\
\",\"LERROR\", \"LSET\"))\n	    {\n	      myexit(a\
dd_error ($EXIT_FAILURE,$$,$pid,getppid(), \"UNSPE\
CIFIED system\", $com));\n	    }\n	}\n    }\n  ret\
urn $?;\n}\n\nsub check_configuration \n    {\n   \
   my @l=@_;\n      my $v;\n      foreach my $p (@\
l)\n	{\n	  \n	  if   ( $p eq \"EMAIL\")\n	    { \n\
	      if ( !($EMAIL=~/@/))\n		{\n		add_warning($$\
,$$,\"Could Not Use EMAIL\");\n		myexit(add_error \
($EXIT_FAILURE,$$,$$,getppid(),\"EMAIL\",\"$CL\"))\
;\n	      }\n	    }\n	  elsif( $p eq \"INTERNET\")\
\n	    {\n	      if ( !&check_internet_connection(\
))\n		{\n		  myexit(add_error ($EXIT_FAILURE,$$,$$\
,getppid(),\"INTERNET\",\"$CL\"));\n		}\n	    }\n	\
  elsif( $p eq \"wget\")\n	    {\n	      if (!&pg_\
is_installed (\"wget\") && !&pg_is_installed (\"cu\
rl\"))\n		{\n		  myexit(add_error ($EXIT_FAILURE,$\
$,$$,getppid(),\"PG_NOT_INSTALLED:wget\",\"$CL\"))\
;\n		}\n	    }\n	  elsif( !(&pg_is_installed ($p))\
)\n	    {\n	      myexit(add_error ($EXIT_FAILURE,\
$$,$$,getppid(),\"PG_NOT_INSTALLED:$p\",\"$CL\"));\
\n	    }\n	}\n      return 1;\n    }\nsub pg_is_in\
stalled\n  {\n    my @ml=@_;\n    my $r, $p, $m;\n\
    my $supported=0;\n    \n    my $p=shift (@ml);\
\n    if ($p=~/::/)\n      {\n	if (safe_system (\"\
perl -M$p -e 1\")==$EXIT_SUCCESS){return 1;}\n	els\
e {return 0;}\n      }\n    else\n      {\n	$r=`wh\
ich $p 2>/dev/null`;\n	if ($r eq \"\"){return 0;}\\
n	else {return 1;}\n      }\n  }\n\n\n\nsub check_\
internet_connection\n  {\n    my $internet;\n    m\
y $tmp;\n    &check_configuration ( \"wget\"); \n \
   \n    $tmp=&vtmpnam ();\n    \n    if     (&pg_\
is_installed    (\"wget\")){`wget www.google.com -\
O$tmp >/dev/null 2>/dev/null`;}\n    elsif  (&pg_i\
s_installed    (\"curl\")){`curl www.google.com -o\
$tmp >/dev/null 2>/dev/null`;}\n    \n    if ( !-e\
 $tmp || -s $tmp < 10){$internet=0;}\n    else {$i\
nternet=1;}\n    if (-e $tmp){unlink $tmp;}\n\n   \
 return $internet;\n  }\nsub check_pg_is_installed\
\n  {\n    my @ml=@_;\n    my $r=&pg_is_installed \
(@ml);\n    if (!$r && $p=~/::/)\n      {\n	print \
STDERR \"\\nYou Must Install the perl package $p o\
n your system.\\nRUN:\\n\\tsudo perl -MCPAN -e 'in\
stall $pg'\\n\";\n      }\n    elsif (!$r)\n      \
{\n	myexit(flush_error(\"\\nProgram $p Supported b\
ut Not Installed on your system\"));\n      }\n   \
 else\n      {\n	return 1;\n      }\n  }\n\n\n","u\
se Cwd;\nuse Env;\nuse File::Path;\nuse FileHandle\
;\nuse strict;\n\n\nour (%MODE, %PG, %ENV_SET, %SU\
PPORTED_OS);\n\n\nour $EXIT_SUCCESS=0;\nour $EXIT_\
FAILURE=1;\nour $INTERNET=0;\n\nour $CP=\"cp \"; #\
was causing a crash on MacOSX\nour $SILENT=\">/dev\
/null 2>/dev/null\";\nour $WEB_BASE=\"http://www.t\
coffee.org\";\nour $TCLINKDB_ADDRESS=\"$WEB_BASE/R\
esources/tclinkdb.txt\";\nour $OS=get_os();\nour $\
ROOT=&get_root();\nour $CD=cwd();\nour $CDIR=$CD;\\
nour $HOME=$ENV{'HOME'};\n\nour $OSNAME=$ENV{'OSNA\
ME'};\nour $OSARCH=$ENV{'OSARCH'};\nour $REPO_ROOT\
=\"\";\n\nour $TCDIR;\nour $TCCACHE;\nour $TCTMP;\\
nour $TCM;\nour $TCMETHODS;\nour $TCPLUGINS;\nour \
$PLUGINS_DIR=\"\";\nour $INSTALL_DIR=\"\";\n\nour \
$CXX=\"g++\";\nour $CXXFLAGS=\"\";\n\nour $CPP=\"g\
++\";\nour $CPPFLAGS=\"\";\n\nour $CC=\"gcc\";\nou\
r $CFLAGS=\"\";\n\nour $FC=\"f77\";\nour $FFLAGS=\\
"\";\n\nmy $install=\"all\";\nmy $default_update_a\
ction=\"no_update\";\nmy @required_applications=(\\
"wget_OR_curl\");\nmy @smode=(\"all\", \"clean\", \
\"install\");\n\n&initialize_PG();\n\nmy $cl=join(\
 \" \", @ARGV);\nif ($#ARGV==-1 || ($cl=~/-h/) ||(\
$cl=~/-H/) )\n  {\n     print \"\\n!!!!!!! ./insta\
ll  t_coffee             --> installs t_coffee onl\
y\";\n     print \"\\n!!!!!!! ./install  all      \
            --> installs all the modes [mcoffee, e\
xpresso, psicoffee,rcoffee..]\";\n     print \"\\n\
!!!!!!! ./install  [mcoffee|rcoffee|..] --> instal\
ls the specified mode\";\n     print \"\\n!!!!!!! \
./install  -h                   --> print usage\\n\
\\n\";\n     if ( $#ARGV==-1){exit ($EXIT_FAILURE)\
;}\n   }\n     \nif (($cl=~/-h/) ||($cl=~/-H/) )\n\
  {\n    my $m;\n    print \"\\n\\n!!!!!!! advance\
d mode\\n\";\n    foreach $m ((keys (%MODE)),@smod\
e)\n      {\n	print \"!!!!!!!       ./install $m\\\
n\";\n      }\n    \n    print \"!!!!!!! ./install\
 [target:package|mode|] [-update|-force|-exec=dir|\
-dis=dir|-root|-tclinkdb=file|-] [CC=|FCC=|CXX=|CF\
LAGS=|CXXFLAGS=]\\n\";\n    print \"!!!!!!! ./inst\
all clean    [removes all executables]\\n\";\n    \
print \"!!!!!!! ./install [optional:target] -updat\
e               [updates package already installed\
]\\n\";\n    print \"!!!!!!! ./install [optional:t\
arget] -force                [Forces recompilation\
 over everything]\\n\";\n    \n    print \"!!!!!!!\
 ./install [optional:target] -root                \
 [You are running as root]\\n\";\n    print \"!!!!\
!!! ./install [optional:target] -exec=/foo/bar/   \
    [address for the T-Coffee executable]\\n\";\n \
   print \"!!!!!!! ./install [optional:target] -di\
s=/foo/bar/        [Address where distributions sh\
ould be stored]\\n\";\n    print \"!!!!!!! ./insta\
ll [optional:target] -tclinkdb=foo|update  [file c\
ontaining all the packages to be installed]\\n\";\\
n    print \"!!!!!!! ./install [optional:target] -\
clean                [clean everything]\\n\";\n   \
 print \"!!!!!!! ./install [optional:target] -plug\
ins              [plugins directory]\\n\";\n    pr\
int \"!!!!!!! ./install [optional:target] -tcdir=/\
foor/bar      [base path where T-Coffee will be in\
stalled]\\n\";\n    print \"!!!!!!! ./install [opt\
ional:target] -repo=/path/to/repo   [binaries repo\
sitory root directory]\\n\";\n    print \"!!!!!!! \
mode:\";\n    foreach $m (keys(%MODE)){print \"$m \
\";}\n    print \"\\n\";\n    print \"!!!!!!! Pack\
ages:\";\n    foreach $m (keys (%PG)){print \"$m \\
";}\n    print \"\\n\";\n    \n    print \"\\n\\n\\
";\n    exit ($EXIT_FAILURE);\n  }\n\n\n\nmy (@arg\
l)=($cl=~/(\\S+=[^=]+)\\s\\w+=/g);\npush (@argl, (\
$cl=~/(\\S+=[^=]+\\S)\\s*$/g));\n\nforeach $a (@ar\
gl)\n  {\n    if ( ($cl=~/CXX=(.*)/)){$CXX=$1;}\n \
   if ( ($cl=~/-CC=(.*)/    )){$CC=$1;}\n    if ( \
($cl=~/-FC=(.*)/    )){$FC=$1;}\n    if ( ($cl=~/-\
CFLAGS=(.*)/)){$CFLAGS=$1;}\n    if ( ($cl=~/-CXXF\
LAGS=(.*)/)){$CXXFLAGS=$1;}\n  }\nour ($ROOT_INSTA\
LL, $NO_QUESTION, $default_update_action,$BINARIES\
_ONLY,$force, $default_update_action, $INSTALL_DIR\
, $PLUGINS_DIR, $DISTRIBUTIONS,$tclinkdb, $proxy, \
$clean);\nif ( ($cl=~/-root/)){$ROOT_INSTALL=1;}\n\
if ( ($cl=~/-no_question/)){$NO_QUESTION=1;}\nif (\
 ($cl=~/-update/)){$default_update_action=\"update\
\";}\nif ( ($cl=~/-binaries/)){$BINARIES_ONLY=1;}\\
nif ( ($cl=~/-force/)){$force=1;$default_update_ac\
tion=\"update\"}\nif ( ($cl=~/-exec=\\s*(\\S+)/)){\
$INSTALL_DIR=$1;}\nif ( ($cl=~/-plugins=\\s*(\\S+)\
/)){$PLUGINS_DIR=$1;}\nif ( ($cl=~/-dis=\\s*(\\S+)\
/)){$DISTRIBUTIONS=$1;}\n\nif ( ($cl=~/-tclinkdb=\\
\s*(\\S+)/)){$tclinkdb=$1;}\nif ( ($cl=~/-proxy=\\\
s*(\\S+)/)){$proxy=$1;}\nif ( ($cl=~/-clean/)){$cl\
ean=1;}\nif ( ($cl=~/-repo=\\s*(\\S+)/)){ $REPO_RO\
OT=$1; }\nif ( ($cl=~/-tcdir=\\s*(\\S+)/)){ $TCDIR\
=$1; }\nif ($tclinkdb){&update_tclinkdb ($tclinkdb\
);}\n\n\nif( $REPO_ROOT ne \"\" ) {\n	if( $OSNAME \
eq \"\" ) { print \"You have specified the reposit\
ory folder but the required \\\"OSNAME\\\" envirom\
ent variable is missing. \\n\"; exit 1; } \n	if( $\
OSARCH eq \"\" ) { print \"You have specified the \
repository folder but the required \\\"OSARCH\\\" \
enviroment variable is missing. \\n\"; exit 1; } \\
n}\n\n\nif(!$TCDIR) { $TCDIR=\"$HOME/.t_coffee\"; \
}\n&add_dir ($TCDIR);\n&add_dir ($TCCACHE=\"$TCDIR\
/cache\");\n&add_dir ($TCTMP=\"$CDIR/tmp\");\n&add\
_dir ($TCM=\"$TCDIR/mcoffee\");\n&add_dir ($TCMETH\
ODS=\"$TCDIR/methods\");\n&add_dir ($TCPLUGINS=\"$\
TCDIR/plugins/$OS\");\n\n\nour $BASE=\"$CD/bin\";\\
nour $BIN=\"$BASE/binaries/$OS\";\nour $DOWNLOAD_D\
IR=\"$BASE/download\";\nour $DOWNLOAD_FILE=\"$DOWN\
LOAD_DIR/files\";\nour $TMP=\"$BASE/tmp\";\n\n&add\
_dir($BASE);\n&add_dir($BIN);\n&add_dir($DOWNLOAD_\
DIR);\n&add_dir($DOWNLOAD_FILE);\nif (!$DISTRIBUTI\
ONS){$DISTRIBUTIONS=\"$DOWNLOAD_DIR/distributions\\
";}\n&add_dir ($DISTRIBUTIONS);\n&add_dir ($TMP);\\
n\n\nif    (!$PLUGINS_DIR && !$ROOT_INSTALL){$PLUG\
INS_DIR=$TCPLUGINS;}\nelsif (!$PLUGINS_DIR &&  $RO\
OT_INSTALL){$PLUGINS_DIR=\"/usr/local/bin/\";}\n\n\
if    (!$INSTALL_DIR && !$ROOT_INSTALL){$INSTALL_D\
IR=\"$HOME/bin/\";mkpath ($INSTALL_DIR);}\nelsif (\
!$INSTALL_DIR &&  $ROOT_INSTALL){$INSTALL_DIR=\"/u\
sr/local/bin/\";}\n\nif (-d \"mcoffee\"){`cp mcoff\
ee/* $TCM`;}\n\n\nour $ENV_FILE=\"$TCDIR/t_coffee_\
env\";\n&env_file2putenv ($ENV_FILE);\n&set_proxy(\
$proxy);\nmy ($target, $p, $r);\n$target=$p;\n\nfo\
reach $p (  ((keys (%PG)),(keys(%MODE)),(@smode)) \
)\n  {\n    if ($ARGV[0] eq $p && $target eq \"\")\
{$target=$p;}\n  }\nif ($target eq \"\"){exit ($EX\
IT_FAILURE);}\n\n\nforeach $r (@required_applicati\
ons)\n  {\n    my @app_list;\n    my $i;\n    $i=0\
;\n    \n    @app_list=split (/_OR_/, $r);\n    fo\
reach my $pg (@app_list)\n      {\n	$i+=&pg_is_ins\
talled ($pg);\n      }\n    if ($i==0)\n      {\n \
     print \"One of the following packages must be\
 installed to proceed: \";\n      foreach my $pg (\
@app_list)\n	{\n	  print (\"$pg \");\n	}\n      di\
e;\n    }\n  }\n\n\n\n\n\n\n&sign_license_ni();\n\\
n\n$PG{C}{compiler}=get_C_compiler($CC);\n$PG{Fort\
ran}{compiler}=get_F_compiler($FC);\n$PG{CXX}{comp\
iler}=$PG{CPP}{compiler}=$PG{GPP}{compiler}=get_CX\
X_compiler($CXX);\nif ($CXXFLAGS){$PG{CPP}{options\
}=$PG{GPP}{options}=$PG{CXX}{options}=$CXXFLAGS;}\\
nif ($CFLAGS){$PG{C}{options}=$CFLAGS;}\nforeach m\
y $c (keys(%PG))\n  {\n    my $arguments;\n    if \
($PG{$c}{compiler})\n      {\n	$arguments=\"$PG{$c\
}{compiler_flag}=$PG{$c}{compiler} \";\n	if ($PG{$\
c}{options})\n	  {\n	    $arguments.=\"$PG{$c}{opt\
ions_flag}=$PG{$c}{options} \";\n	  }\n	$PG{$c}{ar\
guments}=$arguments;\n      }\n  }\n\nif ($PG{$tar\
get}){$PG{$target}{install}=1;}\nelse\n  {\n    fo\
reach my $pg (keys(%PG))\n      {\n	if ( $target e\
q \"all\" || ($PG{$pg}{mode}=~/$target/))\n	  {\n	\
    $PG{$pg} {install}=1;\n	  }\n      }\n  }\n\nf\
oreach my $pg (keys(%PG))\n  {\n    if (!$PG{$pg}{\
update_action}){$PG{$pg}{update_action}=$default_u\
pdate_action;}\n    elsif ($PG{$pg}{update_action}\
 eq \"never\"){$PG{$pg}{install}=0;}\n    if ( $fo\
rce && $PG{$pg}{install})\n      {\n	`rm $BIN/$pg \
$BIN/$pg.exe $SILENT`;\n      }\n    if ($PG{$pg}{\
update_action} eq \"update\" && $PG{$pg}{install})\
{$PG{$pg}{update}=1;}\n  }\n\nif (($target=~/clean\
/))\n  {\n    print \"------- cleaning executables\
 -----\\n\";\n    `rm bin/* $SILENT`;\n    exit ($\
EXIT_SUCCESS);\n  }\n\nif ( !$PG{$target}){print \\
"------- Installing T-Coffee Modes\\n\";}\n\nforea\
ch my $m (keys(%MODE))\n  {\n    if ( $target eq \\
"all\" || $target eq $m)\n      {\n	print \"\\n---\
---- The installer will now install the $m compone\
nts $MODE{$m}{description}\\n\";\n	foreach my $pg \
(keys(%PG))\n	  {\n	    if ( $PG{$pg}{mode} =~/$m/\
 && $PG{$pg}{install})\n	      {\n		if ($PG{$pg}{t\
ouched}){print \"------- $PG{$pg}{dname}: already \
processed\\n\";}\n		else {$PG{$pg}{success}=&insta\
ll_pg($pg);$PG{$pg}{touched}=1;}\n	      }\n	  }\n\
      }\n  }\n\nif ( $PG{$target}){print \"-------\
 Installing Individual Package\\n\";}\nforeach my \
$pg (keys (%PG))\n  {\n    \n    if ( $PG{$pg}{ins\
tall} && !$PG{$pg}{touched})\n      {\n	print \"\\\
n------- Install $pg\\n\";\n	$PG{$pg}{success}=&in\
stall_pg($pg);$PG{$pg}{touched}=1;\n      }\n  }\n\
print \"------- Finishing The installation\\n\";\n\
my $final_report=&install ($INSTALL_DIR);\n\nprint\
 \"\\n\";\nprint \"*******************************\
**************************************\\n\";\nprin\
t \"********              INSTALLATION SUMMARY    \
      *****************\\n\";\nprint \"***********\
**************************************************\
********\\n\";\nprint \"------- SUMMARY package In\
stallation:\\n\";\nprint \"-------   Executable In\
stalled in: $PLUGINS_DIR\\n\";\n\nforeach my $pg (\
keys(%PG))\n  {\n    if ( $PG{$pg}{install})\n    \
  {\n	my $bin_status=($PG{$pg}{from_binary} && $PG\
{$pg}{success})?\"[from binary]\":\"\";\n	if     (\
 $PG{$pg}{new} && !$PG{$pg}{old})                 \
    {print \"*------        $PG{$pg}{dname}: insta\
lled $bin_status\\n\"; $PG{$pg}{status}=1;}\n	elsi\
f  ( $PG{$pg}{new} &&  $PG{$pg}{old})             \
        {print \"*------        $PG{$pg}{dname}: u\
pdated $bin_status\\n\"  ; $PG{$pg}{status}=1;} \n\
	elsif  (!$PG{$pg}{new} &&  $PG{$pg}{old} && !$PG{\
$pg}{update}){print \"*------        $PG{$pg}{dnam\
e}: previous\\n\" ; $PG{$pg}{status}=1;}\n	elsif  \
(!$PG{$pg}{new} &&  $PG{$pg}{old} &&  $PG{$pg}{upd\
ate}){print \"*------        $PG{$pg}{dname}: fail\
ed update (previous installation available)\\n\";$\
PG{$pg}{status}=0;}\n	else                        \
                                  {print \"*------\
        $PG{$pg}{dname}: failed installation\\n\";\
$PG{$pg}{status}=0;}\n      }\n  }\nmy $failure;\n\
\nif ( !$PG{$target}){print \"*------ SUMMARY mode\
 Installation:\\n\";}\nforeach my $m (keys(%MODE))\
\n  {\n  \n    if ( $target eq \"all\" || $target \
eq $m)\n      {\n	my $succesful=1;\n	foreach my $p\
g (keys(%PG))\n	  {\n	    if (($PG{$pg}{mode}=~/$m\
/) && $PG{$pg}{install} && $PG{$pg}{status}==0)\n	\
      {\n		$succesful=0;\n		print \"*!!!!!!       \
$PG{$pg}{dname}: Missing\\n\";\n	      }\n	  }\n	i\
f ( $succesful)\n	  {\n	    $MODE{$m}{status}=1;\n\
	    print \"*------       MODE $MODE{$m}{dname} S\
UCCESSFULLY installed\\n\";\n	  }\n	else\n	  {\n	 \
   $failure++;\n	    $MODE{$m}{status}=0;\n	    pr\
int \"*!!!!!!       MODE $MODE{$m}{dname} UNSUCCES\
SFULLY installed\\n\";\n	  }\n      }\n  }\n\n    \
\n      \nif ($clean==1 && ($BASE=~/install4tcoffe\
e/) ){print \"*------ Clean Installation Directory\
: $BASE\\n\";`rm -rf $BASE`;}\nforeach my $pg (key\
s(%PG)){if ($PG{$pg}{install} && $PG{$pg}{status}=\
=0){exit ($EXIT_FAILURE);}}\n\nif ($failure)\n  {\\
n    print \"*************************************\
********************************\\n\";\n    print \
\"********     SOME PACKAGES FAILED TO INSTALL    \
    *****************\\n\";\n    print \"*********\
**************************************************\
**********\\n\";\n    print \"\\nSome of the repor\
ted failures may be due to connectivity problems\"\
;\n    print \"\\nRerun the installation and the i\
nstaller will specifically try to install the miss\
ing packages\";\n    print \"\\nIf this Fails, go \
to the original website and install the package ma\
nually\";\n  }\n\nprint \"************************\
*********************************************\\n\"\
;\nprint \"********              FINALIZE YOUR INS\
TALLATION    *****************\\n\";\nprint \"****\
**************************************************\
***************\\n\";\nprint \"------- Your execut\
ables are in:\\n\"; \nprint \"-------       $PLUGI\
NS_DIR:\\n\";\nprint \"------- Add this directory \
to your path with the following command:\\n\";\npr\
int \"-------       export PATH=$PLUGINS_DIR:\\$PA\
TH\\n\";\nprint \"------- Make this permanent by a\
dding this line to the file:\\n\";\nprint \"------\
-       $HOME/.bashrc\\n\";\nexit ($EXIT_SUCCESS);\
  \n  \nsub get_CXX_compiler\n  {\n    my $c=@_[0]\
;\n    my (@clist)=(\"g++\");\n    \n    return ge\
t_compil ($c, @clist);\n }\nsub get_C_compiler\n  \
{\n    my $c=@_[0];\n    my (@clist)=(\"gcc\", \"c\
c\", \"icc\");\n    \n    return get_compil ($c, @\
clist);\n }\n\nsub get_F_compiler\n  {\n    my ($c\
)=@_[0];\n    my @clist=(\"f77\", \"g77\",\"g95\",\
 \"gfortran\", \"ifort\");\n    return get_compil \
($c, @clist);\n  } \n       \nsub get_compil\n  {\\
n    my ($fav,@clist)=(@_);\n    \n    #return the\
 first compiler found installed in the system. Che\
ck first the favorite\n    foreach my $c ($fav,@cl\
ist)\n      {\n	if  (&pg_is_installed ($c)){return\
 $c;}\n      }\n    return \"\";\n  }\nsub exit_if\
_pg_not_installed\n  {\n    my (@arg)=(@_);\n    \\
n    foreach my $p (@arg)\n      {\n	if ( !&pg_is_\
installed ($p))\n	  {\n	    print \"!!!!!!!! The $\
p utility must be installed for this installation \
to proceed [FATAL]\\n\";\n	    die;\n	  }\n      }\
\n    return 1;\n  }\nsub set_proxy\n  {\n    my (\
$proxy)=(@_);\n    my (@list,$p);\n    \n    @list\
= (\"HTTP_proxy\", \"http_proxy\", \"HTTP_PROXY\",\
 \"ALL_proxy\", \"all_proxy\",\"HTTP_proxy_4_TCOFF\
EE\",\"http_proxy_4_TCOFFEE\");\n    \n    if (!$p\
roxy)\n      {\n	foreach my $p (@list)\n	  {\n	   \
 if ( ($ENV_SET{$p}) || $ENV{$p}){$proxy=$ENV{$p};\
}\n	  }\n      }\n    foreach my $p(@list){$ENV{$p\
}=$proxy;}\n  }\n	\nsub check_internet_connection\\
n  {\n    my $internet;\n    \n    if ( -e \"x\"){\
unlink (\"x\");}\n    if     (&pg_is_installed    \
(\"wget\")){`wget www.google.com -Ox >/dev/null 2>\
/dev/null`;}\n    elsif  (&pg_is_installed    (\"c\
url\")){`curl www.google.com -ox >/dev/null 2>/dev\
/null`;}\n    else\n      {\n	printf stderr \"\\nE\
RROR: No pg for remote file fetching [wget or curl\
][FATAL]\\n\";\n	exit ($EXIT_FAILURE);\n      }\n \
   \n    if ( !-e \"x\" || -s \"x\" < 10){$interne\
t=0;}\n    else {$internet=1;}\n    if (-e \"x\"){\
unlink \"x\";}\n    return $internet;\n  }\nsub ur\
l2file\n  {\n    my ($cmd, $file,$wget_arg, $curl_\
arg)=(@_);\n    my ($exit,$flag, $pg, $arg);\n    \
\n    if ($INTERNET || check_internet_connection (\
)){$INTERNET=1;}\n    else\n      {\n	print STDERR\
 \"ERROR: No Internet Connection [FATAL:install.pl\
]\\n\";\n	exit ($EXIT_FAILURE);\n      }\n    \n  \
  if     (&pg_is_installed    (\"wget\")){$pg=\"wg\
et\"; $flag=\"-O\";$arg=\"--tries=2 --connect-time\
out=10 $wget_arg\";}\n    elsif  (&pg_is_installed\
    (\"curl\")){$pg=\"curl\"; $flag=\"-o\";$arg=$c\
url_arg;}\n    else\n      {\n	printf stderr \"\\n\
ERROR: No pg for remote file fetching [wget or cur\
l][FATAL]\\n\";\n	exit ($EXIT_FAILURE);\n      }\n\
    \n    \n    if (-e $file){unlink($file);}\n   \
 $exit=system \"$pg $cmd $flag$file $arg\";\n    r\
eturn $exit;\n  }\n\nsub pg_is_installed\n  {\n   \
 my ($p, $dir)=(@_);\n    my ($r,$m, $ret);\n    m\
y ($supported, $language, $compil);\n    \n  \n   \
 if ( $PG{$p})\n      {\n	$language=$PG{$p}{langua\
ge2};\n	$compil=$PG{$language}{compiler};\n      }\
\n    \n    if ( $compil eq \"CPAN\")\n      {\n	i\
f ( system (\"perl -M$p -e 1\")==$EXIT_SUCCESS){$r\
et=1;}\n	else {$ret=0;}\n      }\n    elsif ($dir)\
\n      {\n	if (-e \"$dir/$p\" || -e \"$dir/$p\\.e\
xe\"){$ret=1;}\n	else {$ret=0;}\n      }\n    elsi\
f (-e \"$PLUGINS_DIR/$p\" || -e \"$PLUGINS_DIR/$p.\
exe\"){$ret=1;}\n    else\n      {\n	$r=`which $p \
2>/dev/null`;\n	if ($r eq \"\"){$ret=0;}\n	else {$\
ret=1;}\n      }\n   \n    return $ret;\n  }\nsub \
install\n  {\n    my ($new_bin)=(@_);\n    my ($co\
pied, $report);\n\n    \n    if (!$ROOT_INSTALL)\n\
      {\n	\n	if (-e \"$BIN/t_coffee\"){`$CP $BIN/t\
_coffee $INSTALL_DIR`};\n	`cp $BIN/* $PLUGINS_DIR`\
;\n	$copied=1;\n      }\n    else\n      {\n	$copi\
ed=&root_run (\"You must be root to finalize the i\
nstallation\", \"$CP $BIN/* $INSTALL_DIR $SILENT\"\
);\n      }\n    \n     \n  if ( !$copied)\n    {\\
n      $report=\"*!!!!!! Installation unsuccesful.\
 The executables have been left in $BASE/bin\\n\";\
\n    }\n  elsif ( $copied && $ROOT)\n    {\n     \
 $report=\"*------ Installation succesful. Your ex\
ecutables have been copied in $new_bin and are on \
your PATH\\n\";\n    }\n  elsif ( $copied && !$ROO\
T)\n    {\n      $report= \"*!!!!!! T-Coffee and a\
ssociated packages have been copied in: $new_bin\\\
n\";\n      $report.=\"*!!!!!! This address is NOT\
 in your PATH sytem variable\\n\";\n      $report.\
=\"*!!!!!! You can do so by adding the following l\
ine in your ~/.bashrc file:\\n\";\n      $report.=\
\"*!!!!!! export PATH=$new_bin:\\$PATH\\n\";\n    \
}\n  return $report;\n}\n\nsub sign_license_ni\n  \
{\n    my $F=new FileHandle;\n    open ($F, \"lice\
nse.txt\");\n    while (<$F>)\n      {\n	print \"$\
_\";\n      }\n    close ($F);\n    \n    return;\\
n  }\n\nsub install_pg\n  {\n    my ($pg)=(@_);\n \
   my ($report, $previous, $language, $compiler, $\
return);\n    \n    if (!$PG{$pg}{install}){return\
 1;}\n    \n    $previous=&pg_is_installed ($pg);\\
n    \n    if ($PG{$pg}{update_action} eq \"no_upd\
ate\" && $previous)\n      {\n	$PG{$pg}{old}=1;\n	\
$PG{$pg}{new}=0;\n	$return=1;\n      }\n    else\n\
      {\n	$PG{$pg}{old}=$previous;\n	\n	if ($PG{$p\
g} {language2} eq \"Perl\"){&install_perl_package \
($pg);}\n	elsif ($BINARIES_ONLY && &install_binary\
_package ($pg)){$PG{$pg}{from_binary}=1;}\n	elsif \
(&install_source_package ($pg)){;}\n	else \n	  {\n\
	    \n	    if (!&supported_os($OS))\n	      {\n		\
print \"!!!!!!!! $pg compilation failed, binary un\
supported for $OS\\n\"; \n	      }\n	    elsif (!(\
$PG{$pg}{from_binary}=&install_binary_package ($pg\
)))\n	      {\n		print \"!!!!!!!! $pg compilation \
and  binary installation failed\\n\";\n	      }\n	\
  }\n	$PG{$pg}{new}=$return=&pg_is_installed ($pg,\
$BIN);\n      }\n\n    \n    return $return;\n  }\\
nsub install_perl_package\n  {\n    my ($pg)=(@_);\
\n    my ($report, $language, $compiler);\n    \n \
   $language=$PG{$pg} {language2};\n    $compiler=\
$PG{$language}{compiler};\n    \n    if (!&pg_is_i\
nstalled ($pg))\n      {\n	if ( $OS eq \"windows\"\
){`perl -M$compiler -e 'install $pg'`;}\n	elsif ( \
$ROOT eq \"sudo\"){system (\"sudo perl -M$compiler\
 -e 'install $pg'\");}\n	else {system (\"su root -\
c perl -M$compiler -e 'install $pg'\");}\n      }\\
n    return &pg_is_installed ($pg);\n  }\n\n\n\nsu\
b install_source_package\n  {\n    my ($pg)=(@_);\\
n    my ($report, $download, $arguments, $language\
, $address, $name, $ext, $main_dir, $distrib);\n  \
  my $wget_tmp=\"$TMP/wget.tmp\";\n    my (@fl);\n\
    if ( -e \"$BIN/$pg\" || -e \"$BIN/$pg.exe\"){r\
eturn 1;}\n    \n    #\n    # check if the module \
exists in the repository cache \n    #\n	if( repo_\
load($pg) ) {\n		return 1;\n	}\n    \n    if ($pg \
eq \"t_coffee\")  {return   &install_t_coffee ($pg\
);}\n    elsif ($pg eq \"TMalign\"){return   &inst\
all_TMalign ($pg);}\n    \n    chdir $DISTRIBUTION\
S;\n    \n    $download=$PG{$pg}{source};\n    \n \
   if (($download =~/tgz/))\n      {\n	($address,$\
name,$ext)=($download=~/(.+\\/)([^\\/]+)(\\.tgz).*\
/);\n      }\n    elsif (($download=~/tar\\.gz/))\\
n      {\n	($address,$name,$ext)=($download=~/(.+\\
\/)([^\\/]+)(\\.tar\\.gz).*/);\n      }\n    elsif\
 (($download=~/tar/))\n      {\n	($address,$name,$\
ext)=($download=~/(.+\\/)([^\\/]+)(\\.tar).*/);\n \
     }\n    else\n      {\n	($address,$name)=($dow\
nload=~/(.+\\/)([^\\/]+)/);\n	$ext=\"\";\n      }\\
n    $distrib=\"$name$ext\";\n    \n    if ( !-d $\
pg){mkdir $pg;}\n    chdir $pg;\n   \n    #get the\
 distribution if available\n    if ( -e \"$DOWNLOA\
D_DIR/$distrib\")\n      {\n	`$CP $DOWNLOAD_DIR/$d\
istrib .`;\n      }\n    #UNTAR and Prepare everyt\
hing\n    if (!-e \"$name.tar\" && !-e \"$name\")\\
n      {\n	&check_rm ($wget_tmp);\n	print \"\\n---\
---- Downloading/Installing $pg\\n\";\n	\n	if (!-e\
 $distrib && &url2file (\"$download\", \"$wget_tmp\
\")==$EXIT_SUCCESS)\n	  {\n	    \n	    `mv $wget_t\
mp $distrib`;\n	    `$CP $distrib $DOWNLOAD_DIR/`;\
\n	  }\n\n	if (!-e $distrib)\n	  {\n	    print \"!\
!!!!!! Download of $pg distribution failed\\n\";\n\
	    print \"!!!!!!! Check Address: $PG{$pg}{sourc\
e}\\n\";\n	    return 0;\n	  }\n	print \"\\n------\
- unzipping/untaring $name\\n\";\n	if (($ext =~/z/\
))\n	  { \n	    &flush_command (\"gunzip $name$ext\
\");\n	    \n	  }\n	if (($ext =~/tar/) || ($ext =~\
/tgz/))\n	  {\n	    &flush_command(\"tar -xvf $nam\
e.tar\");\n	  }\n      }\n    #Guess and enter the\
 distribution directory\n    @fl=ls($p);\n    fore\
ach my $f (@fl)\n      {\n	if (-d $f)\n	  {\n	    \
$main_dir=$f;\n	  }\n      }\n    if (-d $main_dir\
)\n	  \n      {\n	chdir $main_dir;}\n    else\n   \
   {\n	print \"Error: $main_dir does not exist\";\\
n      }\n    print \"\\n------- Compiling/Install\
ing $pg\\n\";\n    `make clean $SILENT`;\n    \n  \
  \n    #\n    # SAP module\n    #\n    if ($pg eq\
 \"sap\")\n      {\n	if (-e \"./configure\")\n	  {\
\n	    #new sap distribution\n	    if ($OS eq \"ma\
cosx\")\n	      {\n		&replace_line_in_file (\"./sr\
c/galloc.h\", \"malloc.h\",  \"\");\n		&replace_li\
ne_in_file (\"./src/pdbprot.h\", \"malloc.h\", \"\\
");\n		&replace_line_in_file (\"./src/pdbprot.c\",\
 \"malloc.h\", \"\");\n	      }\n	    \n	    &flus\
h_command (\"./configure\");\n	    &flush_command \
(\"make clean\");\n	    &flush_command (\"make\");\
\n	    &check_cp (\"./src/$pg\", \"$BIN\");\n	    \
repo_store(\"./src/$pg\");\n	  }\n	else\n	  {\n	  \
  #old style distribution\n	    `rm *.o sap  sap.e\
xe ./util/aa/*.o  ./util/wt/.o $SILENT`;\n	    &fl\
ush_command (\"make $arguments sap\");\n	    &chec\
k_cp ($pg, \"$BIN\");\n	    repo_store($pg);\n	  }\
\n      }\n    \n    #\n    # CLUSTALW2 module\n  \
  #\n    elsif ($pg eq \"clustalw2\")\n      {\n	&\
flush_command(\"./configure\");\n	&flush_command(\\
"make $arguments\");\n	&check_cp (\"./src/$pg\", \\
"$BIN\");\n	repo_store(\"./src/$pg\");\n      }\n \
   \n    #\n    # FSA module\n    # \n    elsif ($\
pg eq \"fsa\")\n      {\n	&flush_command(\"./confi\
gure --prefix=$BIN\");\n	&flush_command(\"make $ar\
guments\");\n	&flush_command (\"make install\");\n\
\n	repo_store(\"fsa\", \"$BIN/bin\");\n	`mv $BIN/b\
in/* $BIN`;\n	`rmdir $BIN/bin`;\n      }\n    \n  \
  #\n    # CLUSTALW module\n    #\n    elsif ($pg \
eq \"clustalw\")\n      {\n	&flush_command(\"make \
$arguments clustalw\");\n	`$CP $pg $BIN $SILENT`;\\
n	repo_store($pg);\n      }\n    \n    #\n    # MA\
FFT module\n    #\n    elsif ($pg eq \"mafft\")\n \
     {\n	my $base=cwd();\n	my $c;\n	\n	#compile co\
re\n	mkpath (\"./mafft/bin\");\n	mkpath (\"./mafft\
/lib\");\n	chdir \"$base/core\";\n	`make clean $SI\
LENT`;\n	&flush_command (\"make $arguments\");\n	&\
flush_command (\"make install LIBDIR=../mafft/lib \
BINDIR=../mafft/bin\");\n	\n	#compile extension\n	\
chdir \"$base/extensions\";\n	`make clean $SILENT`\
;\n	&flush_command (\"make $arguments\");\n	&flush\
_command (\"make install LIBDIR=../mafft/lib BINDI\
R=../mafft/bin\");\n	\n	#put everything in mafft a\
nd copy the compiled stuff in bin\n	chdir \"$base\\
";\n	if ($ROOT_INSTALL)\n	  {\n	    &root_run (\"Y\
ou Must be Root to Install MAFFT\\n\", \"mkdir /us\
r/local/mafft/;$CP mafft/lib/* /usr/local/mafft;$C\
P mafft/lib/mafft* /usr/local/bin ;$CP mafft/bin/m\
afft /usr/local/bin/; \");\n	  }\n	else\n	  {\n	  \
  `$CP mafft/lib/*  $BIN`;\n	    `$CP mafft/bin/ma\
fft  $BIN`;\n	  }\n	`tar -cvf mafft.tar mafft`;\n	\
`gzip mafft.tar`;\n	`mv mafft.tar.gz $BIN`;\n	\n	r\
epo_store(\"mafft/bin/mafft\", \"mafft/lib/\", \"$\
BIN/mafft.tar.gz\");\n      }\n      \n    #\n    \
# DIALIGN-TX module\n    #\n    elsif ( $pg eq \"d\
ialign-tx\" )\n      {\n	my $f;\n	my $base=cwd();\\
n\n	chdir \"./source\";\n	if ($OS eq \"macosx\"){&\
flush_command (\"cp makefile.MAC_OS makefile\");}\\
n\n	&flush_command (\" make CPPFLAGS='-O3 -funroll\
-loops' all\");\n	\n	chdir \"..\";\n	&check_cp (\"\
./source/$pg\", \"$BIN\");\n	repo_store(\"./source\
/$pg\");\n      }\n      \n    #\n    # DIALIGN-T \
module \n    # (is the same as dialign-tx, but it \
is mantained for backward name compatibility with \
tcoffee)\n    #\n    elsif ( $pg eq \"dialign-t\" \
)\n      {\n	my $f;\n	my $base=cwd();\n\n	chdir \"\
./source\";\n	if ($OS eq \"macosx\"){&flush_comman\
d (\"cp makefile.MAC_OS makefile\");}\n\n	&flush_c\
ommand (\" make CPPFLAGS='-O3 -funroll-loops' all\\
");\n	\n	chdir \"..\";\n	&check_cp (\"./source/dia\
lign-tx\", \"$BIN/dialign-t\");\n	repo_store(\"$BI\
N/dialign-t\");	\n      }      \n      \n    #\n  \
  # POA module\n    #\n    elsif ($pg eq \"poa\")\\
n      {\n	&flush_command (\"make $arguments poa\"\
);\n	&check_cp (\"$pg\", \"$BIN\");\n	repo_store(\\
"$pg\");\n      }\n     \n     \n    #\n    # PROB\
CONS module\n    #\n    elsif ( $pg eq \"probcons\\
")\n      {\n	&add_C_libraries(\"./ProbabilisticMo\
del.h\", \"list\", \"cstring\");\n	\n	`rm *.exe $S\
ILENT`;\n	&flush_command (\"make $arguments probco\
ns\");\n	&check_cp(\"$pg\", \"$BIN/$pg\");\n	repo_\
store(\"$pg\");\n      }\n      \n    #\n    # PRO\
BCONS RNA module\n    #\n    elsif ( $pg eq \"prob\
consRNA\")\n      {\n	&add_C_libraries(\"./Probabi\
listicModel.h\", \"list\", \"cstring\");\n	&add_C_\
libraries(\"./Main.cc\", \"iomanip\", \"cstring\",\
\"climits\");\n	`rm *.exe $SILENT`;\n	&flush_comma\
nd (\"make $arguments probcons\");\n	&check_cp(\"p\
robcons\", \"$BIN/$pg\");\n	repo_store(\"$BIN/$pg\\
");\n      }\n\n	#\n	# MUSCLE module\n	#\n    elsi\
f (  $pg eq \"muscle\")\n      {	\n	`rm *.o muscle\
 muscle.exe $SILENT`;\n	if ($OS eq \"macosx\" || $\
OS eq \"linux\")\n	  {\n	    &replace_line_in_file\
 (\"./Makefile\", \"LDLIBS = -lm -static\",  \"LDL\
IBS = -lm\");\n	  }\n	elsif ($OS eq \"windows\")\n\
	  {\n	    &replace_line_in_file (\"./intmath.cpp\\
",  \"double log2e\",      \"double cedric_log\");\
\n	    &replace_line_in_file (\"./intmath.cpp\",  \
\"double log2\",       \"double log_notuse\");\n	 \
   &replace_line_in_file (\"./intmath.cpp\",  \"do\
uble cedric_log\", \"double log2e\");\n	  }\n	&flu\
sh_command (\"make $arguments all\");\n	&check_cp(\
\"$pg\", \"$BIN\");\n	repo_store(\"$pg\");	\n     \
 }\n      \n     #\n     # MUS4 module\n     #\n  \
   elsif (  $pg eq \"mus4\")\n      {\n	`rm *.o mu\
scle muscle.exe $SILENT`;\n	&flush_command (\"./mk\
\");\n	&check_cp(\"$pg\", \"$BIN\");\n	repo_store(\
\"$pg\");	\n      }\n      \n    #\n    # PCMA mod\
ule\n    #\n    elsif ( $pg eq \"pcma\")\n      {\\
n	if ($OS eq \"macosx\")\n	  {\n	    &replace_line\
_in_file (\"./alcomp2.c\", \"malloc.h\",  \"\");\n\
	  }\n	&flush_command (\"make $arguments pcma\");\\
n	&check_cp(\"$pg\", \"$BIN\");\n	repo_store(\"$pg\
\");	\n      }\n      \n    #\n    # KALIGN module\
\n    #\n    elsif ($pg eq \"kalign\")\n      {\n	\
&flush_command (\"./configure\");\n	&flush_command\
(\"make $arguments\");\n	&check_cp (\"$pg\",$BIN);\
\n	repo_store(\"$pg\");	\n      }\n      \n    #\n\
    # AMAP module\n    #\n    elsif ( $pg eq \"ama\
p\")\n      {\n	&add_C_libraries(\"./Amap.cc\", \"\
iomanip\", \"cstring\",\"climits\");	\n	`make clea\
n $SILENT`;\n	&flush_command (\"make $arguments al\
l\");\n	&check_cp (\"$pg\", $BIN);\n	repo_store(\"\
$pg\");	\n      }\n      \n    #\n    # PRODA modu\
le\n    #\n    elsif ( $pg eq \"proda\")\n      {\\
n	&add_C_libraries(\"AlignedFragment.h\", \"vector\
\", \"iostream\", \"cstring\",\"cstdlib\");\n	&add\
_C_libraries(\"Main.cc\", \"vector\", \"climits\")\
;	\n	&add_C_libraries(\"Sequence.cc\", \"stdlib.h\\
", \"cstdio\");	\n	&flush_command (\"make $argumen\
ts all\");\n	&check_cp (\"$pg\", $BIN);\n	repo_sto\
re(\"$pg\");	\n      }\n      \n    #\n    # PRANK\
 module\n    #\n    elsif ( $pg eq \"prank\")\n   \
   {\n	&flush_command (\"make $arguments all\");\n\
	&check_cp (\"$pg\", $BIN);\n	repo_store(\"$pg\");\
	\n      }\n      \n    #\n    # !!!! MUSTANG modu\
le\n    #\n     elsif ( $pg eq \"mustang\")\n     \
 {\n	&flush_command (\"rm ./bin/*\");\n	&flush_com\
mand (\"make $arguments all\");\n\n	if ( $OS=~/win\
dows/){&flush_command(\"cp ./bin/* $BIN/mustang.ex\
e\");}\n	else {&flush_command(\"cp ./bin/* $BIN/mu\
stang\");}\n	\n	repo_store(\"$BIN/mustang\");\n   \
   }\n\n	#\n	# RNAplfold module\n	#\n    elsif ( $\
pg eq \"RNAplfold\")\n      {\n	&flush_command(\".\
/configure\");\n	&flush_command (\"make $arguments\
 all\");\n	&check_cp(\"./Progs/RNAplfold\", \"$BIN\
\");\n	&check_cp(\"./Progs/RNAalifold\", \"$BIN\")\
;\n	&check_cp(\"./Progs/RNAfold\", \"$BIN\");\n	\n\
	repo_store(\"./Progs/RNAplfold\", \"./Progs/RNAal\
ifold\", \"./Progs/RNAfold\");\n      }\n      \n \
   #\n    # !!! RETREE module\n    #\n    elsif ( \
$pg eq \"retree\")\n      {\n	chdir \"src\";\n	&fl\
ush_command (\"make $arguments all\");\n	&flush_co\
mmand (\"make put\");\n	system \"cp ../exe/* $BIN\\
";\n	\n	repo_store(\"retree\", \"../exe\");\n     \
 }\n	\n    chdir $CDIR;\n    return &pg_is_install\
ed ($pg, $BIN);\n  }\n\nsub install_t_coffee\n  {\\
n    my ($pg)=(@_);\n    my ($report,$cflags, $arg\
uments, $language, $compiler) ;\n    #1-Install T-\
Coffee\n    chdir \"t_coffee_source\";\n    &flush\
_command (\"make clean\");\n    print \"\\n-------\
 Compiling T-Coffee\\n\";\n    $language=$PG{$pg} \
{language2};\n    $arguments=$PG{$language}{argume\
nts};\n    if (!($arguments =~/CFLAGS/)){$argument\
s .= \" CFLAGS=-O2 \";}\n\n    if ( $CC ne \"\"){&\
flush_command (\"make -i $arguments t_coffee\");}\\
n    &check_cp ($pg, $BIN);\n    \n    chdir $CDIR\
;\n    return &pg_is_installed ($pg, $BIN);\n  }\n\
sub install_TMalign\n  {\n    my ($pg)=(@_);\n    \
my $report;\n    chdir \"t_coffee_source\";\n    p\
rint \"\\n------- Compiling TMalign\\n\";\n    `rm\
 TMalign TMalign.exe $SILENT`;\n    if ( $FC ne \"\
\"){&flush_command (\"make -i $PG{Fortran}{argumen\
ts} TMalign\");}\n    &check_cp ($pg, $BIN);\n    \
repo_store($pg);\n\n    if ( !-e \"$BIN/$pg\" && p\
g_has_binary_distrib ($pg))\n      {\n	print \"!!!\
!!!! Compilation of $pg impossible. Will try to in\
stall from binary\\n\";\n	return &install_binary_p\
ackage ($pg);\n      }\n    chdir $CDIR;\n    retu\
rn &pg_is_installed ($pg, $BIN);\n  }\n\nsub pg_ha\
s_binary_distrib\n  {\n    my ($pg)=(@_);\n    if \
($PG{$pg}{windows}){return 1;}\n    elsif ($PG{$pg\
}{osx}){return 1;}\n    elsif ($PG{$pg}{linux}){re\
turn 1;}\n    return 0;\n  }\nsub install_binary_p\
ackage\n  {\n    my ($pg)=(@_);\n    my ($base,$re\
port,$name, $download, $arguments, $language, $dir\
);\n    my $isdir;\n    &input_os();\n    \n    if\
 (!&supported_os($OS)){return 0;}\n    if ( $PG{$p\
g}{binary}){$name=$PG{$pg}{binary};}\n    else \n \
     {\n	$name=$pg;\n	if ( $OS eq \"windows\"){$na\
me.=\".exe\";}\n      }\n    \n    $download=\"$WE\
B_BASE/Packages/Binaries/$OS/$name\";\n    \n    $\
base=cwd();\n    chdir $TMP;\n    \n    if (!-e $n\
ame)\n      {\n	`rm x $SILENT`;\n	if ( url2file(\"\
$download\",\"x\")==$EXIT_SUCCESS)\n	  {\n	    `mv\
 x $name`;\n	  }\n      }\n    \n    if (!-e $name\
)\n      {\n	print \"!!!!!!! $PG{$pg}{dname}: Down\
load of $pg binary failed\\n\";\n	print \"!!!!!!! \
$PG{$pg}{dname}: Check Address: $download\\n\";\n	\
return 0;\n      }\n    print \"\\n------- Install\
ing $pg\\n\";\n    \n    if ($name =~/tar\\.gz/)\n\
      {\n	`gunzip  $name`;\n	`tar -xvf $pg.tar`;\n\
	chdir $pg;\n	if ( $pg eq \"mafft\")\n	  {\n	    i\
f ($ROOT_INSTALL)\n	      {\n		&root_run (\"You Mu\
st be Roor to Install MAFFT\\n\", \"$CP mafft/bin/\
* /usr/local/mafft;mkdir /usr/local/mafft/; $CP ma\
fft/lib/* /usr/local/bin/\");\n	      }\n	    else\
\n	      {\n		`$CP $TMP/$pg/bin/* $BIN $SILENT`;\n\
		`$CP $TMP/$pg/lib/* $BIN $SILENT`;\n	      }\n	 \
 }\n	else\n	  {\n	    if (-e \"$TMP/$pg/data\"){`$\
CP $TMP/$pg/data/* $TCM $SILENT`;}\n	    if (!($pg\
=~/\\*/)){`rm -rf $pg`;}\n	  }\n      }\n    else\\
n      {\n	&check_cp (\"$pg\", \"$BIN\");\n	`chmod\
 u+x $BIN/$pg`; \n	unlink ($pg);\n      }\n    chd\
ir $base;\n    $PG{$pg}{from_binary}=1;\n    retur\
n &pg_is_installed ($pg, $BIN);\n  }\n\nsub add_di\
r \n  {\n    my $dir=@_[0];\n    \n    if (!-e $di\
r && !-d $dir)\n      {\n	my @l;\n	umask (0000);\n\
	@l=mkpath ($dir,{mode => 0777});\n	\n      }\n   \
 else\n      {\n	return 0;\n      }\n  }\nsub chec\
k_rm \n  {\n    my ($file)=(@_);\n    \n    if ( -\
e $file)\n      {\n	return unlink($file);\n      }\
\n    return 0;\n  }\nsub check_cp\n  {\n    my ($\
from, $to)=(@_);\n    if ( !-e $from && -e \"$from\
\\.exe\"){$from=\"$from\\.exe\";}\n    if ( !-e $f\
rom){return 0;}\n        \n    `$CP $from $to`;\n \
   return 1;\n  }\n\nsub repo_store \n{\n   # chec\
k that all required data are available\n   if( $RE\
PO_ROOT eq \"\" ) { return; }\n\n\n    # extract t\
he package name from the specified path\n    my $p\
g =`basename $_[0]`;\n    chomp($pg);\n	\n    my $\
VER = $PG{$pg}{version};\n    my $CACHE = \"$REPO_\
ROOT/$pg/$VER/$OSNAME-$OSARCH\"; \n    \n    print\
 \"-------- Storing package: \\\"$pg\\\" to path: \
$CACHE\\n\";\n    \n    # clean the cache path if \
exists and create it again\n    `rm -rf $CACHE`;\n\
    `mkdir -p $CACHE`;\n    \n 	for my $path (@_) \
{\n\n	    # check if it is a single file \n	 	if( \
-f $path ) {\n	    	`cp $path $CACHE`;\n		}\n		# .\
. or a directory, in this case copy all the conten\
t \n		elsif( -d $path ) {\n			opendir(IMD, $path);\
\n			my @thefiles= readdir(IMD);\n			closedir(IMD)\
;\n			\n			for my $_file (@thefiles) {\n				if( $_\
file ne \".\" && $_file ne \"..\") {\n	    			`cp \
$path/$_file $CACHE`;\n				}\n			}\n		} \n	}	   \n\
    \n	\n}   \n\nsub repo_load \n{\n    my ($pg)=(\
@_);\n\n    # check that all required data are ava\
ilable\n    if( $REPO_ROOT eq \"\" ) { return 0; }\
\n\n    my $VER = $PG{$pg}{version};\n    my $CACH\
E = \"$REPO_ROOT/$pg/$VER/$OSNAME-$OSARCH\"; \n   \
 if( !-e \"$CACHE/$pg\" ) {\n   	 	print \"-------\
- Module \\\"$pg\\\" NOT found on repository cache\
.\\n\";\n    	return 0;\n    }\n    \n    print \"\
-------- Module \\\"$pg\\\" found on repository ca\
che. Using copy on path: $CACHE\\n\";\n    `cp $CA\
CHE/* $BIN`;\n    return 1;\n}\n\nsub check_file_l\
ist_exists \n  {\n    my ($base, @flist)=(@_);\n  \
  my $f;\n\n    foreach $f (@flist)\n      {\n	if \
( !-e \"$base/$f\"){return 0;}\n      }\n    retur\
n 1;\n  }\nsub ls\n  {\n    my $f=@_[0];\n    my @\
fl;\n    chomp(@fl=`ls -1 $f`);\n    return @fl;\n\
  }\nsub flush_command\n  {\n    my $command=@_[0]\
;\n    my $F=new FileHandle;\n    open ($F, \"$com\
mand|\");\n    while (<$F>){print \"    --- $_\";}\
\n    close ($F);\n  }    \n\nsub input_installati\
on_directory\n  {\n    my $dir=@_[0];\n    my $new\
;\n    \n    print \"------- The current installat\
ion directory is: [$dir]\\n\";\n    print \"??????\
? Return to keep the default or new value:\";\n   \
\n    if ($NO_QUESTION==0)\n      {\n	chomp ($new=\
<stdin>);\n	while ( $new ne \"\" && !input_yes (\"\
You have entered $new. Is this correct? ([y]/n):\"\
))\n	  {\n	    print \"???????New installation dir\
ectory:\";\n	    chomp ($new=<stdin>);\n	  }\n	$di\
r=($new eq \"\")?$dir:$new;\n	$dir=~s/\\/$//;\n   \
   }\n    \n    if ( -d $dir){return $dir;}\n    e\
lsif (&root_run (\"You must be root to create $dir\
\",\"mkdir $dir\")==$EXIT_SUCCESS){return $dir;}\n\
    else\n      {\n	print \"!!!!!!! $dir could not\
 be created\\n\";\n	if ( $NO_QUESTION)\n	  {\n	   \
 return \"\";\n	  }\n	elsif ( &input_yes (\"??????\
? Do you want to provide a new directory([y]/n)?:\\
"))\n	  {\n	    return input_installation_director\
y ($dir);\n	  }\n	else\n	  {\n	    return \"\";\n	\
  }\n      }\n    \n  }\nsub input_yes\n  {\n    m\
y $question =@_[0];\n    my $answer;\n\n    if ($N\
O_QUESTION==1){return 1;}\n    \n    if ($question\
 eq \"\"){$question=\"??????? Do you wish to proce\
ed ([y]/n)?:\";}\n    print $question;\n    chomp(\
$answer=lc(<STDIN>));\n    if (($answer=~/^y/) || \
$answer eq \"\"){return 1;}\n    elsif ( ($answer=\
~/^n/)){return 0;}\n    else\n      {\n	return inp\
ut_yes($question);\n      }\n  }\nsub root_run\n  \
{\n    my ($txt, $cmd)=(@_);\n    \n    if ( syste\
m ($cmd)==$EXIT_SUCCESS){return $EXIT_SUCCESS;}\n \
   else \n      {\n	print \"------- $txt\\n\";\n	i\
f ( $ROOT eq \"sudo\"){return system (\"sudo $cmd\\
");}\n	else {return system (\"su root -c \\\"$cmd\\
\\"\");}\n      }\n  }\nsub get_root\n  {\n    if \
(&pg_is_installed (\"sudo\")){return \"sudo\";}\n \
   else {return \"su\";}\n  }\n\nsub get_os\n  {\n\
    my $raw_os=`uname`;\n    my $os;\n\n    $raw_o\
s=lc ($raw_os);\n    \n    if ($raw_os =~/cygwin/)\
{$os=\"windows\";}\n    elsif ($raw_os =~/linux/){\
$os=\"linux\";}\n    elsif ($raw_os =~/osx/){$os=\\
"macosx\";}\n    elsif ($raw_os =~/darwin/){$os=\"\
macosx\";}\n    else\n      {\n	$os=$raw_os;\n    \
  }\n    return $os;\n  }\nsub input_os\n  {\n    \
my $answer;\n    if ($OS) {return $OS;}\n    \n   \
 print \"??????? which os do you use: [w]indows, [\
l]inux, [m]acosx:?\";\n    $answer=lc(<STDIN>);\n\\
n    if (($answer=~/^m/)){$OS=\"macosx\";}\n    el\
sif ( ($answer=~/^w/)){$OS=\"windows\";}\n    elsi\
f ( ($answer=~/^linux/)){$OS=\"linux\";}\n    \n  \
  else\n      {\n	return &input_os();\n      }\n  \
  return $OS;\n  }\n\nsub supported_os\n  {\n    m\
y ($os)=(@_[0]);\n    return $SUPPORTED_OS{$os};\n\
  }\n    \n    \n\n\nsub update_tclinkdb \n  {\n  \
  my $file =@_[0];\n    my $name;\n    my $F=new F\
ileHandle;\n    my ($download, $address, $name, $l\
, $db);\n    \n    if ( $file eq \"update\"){$file\
=$TCLINKDB_ADDRESS;}\n    \n    if ( $file =~/http\
:\\/\\// || $file =~/ftp:\\/\\//)\n      {\n	($add\
ress, $name)=($download=~/(.*)\\/([^\\/]+)$/);\n	`\
rm x $SILENT`;\n	if (&url2file ($file,\"x\")==$EXI\
T_SUCCESS)\n	  {\n	    print \"------- Susscessful\
 upload of $name\";\n	    `mv x $name`;\n	    $fil\
e=$name;\n	  }\n      }\n    open ($F, \"$file\");\
\n    while (<$F>)\n      {\n	my $l=$_;\n	if (($l \
=~/^\\/\\//) || ($db=~/^#/)){;}\n	elsif ( !($l =~/\
\\w/)){;}\n	else\n	  {\n	    my @v=split (/\\s+/, \
$l);\n	    if ( $l=~/^MODE/)\n	      {\n		$MODE{$v\
[1]}{$v[2]}=$v[3];\n	      }\n	    elsif ($l=~/^PG\
/)\n	      {\n		$PG{$v[1]}{$v[2]}=$v[3];\n	      }\
\n	  }\n      }\n    close ($F);\n    &post_proces\
s_PG();\n    return;\n  }\n\n\n\nsub initialize_PG\
\n  {\n\n$PG{\"t_coffee\"}{\"4_TCOFFEE\"}=\"TCOFFE\
E\";\n$PG{\"t_coffee\"}{\"type\"}=\"sequence_multi\
ple_aligner\";\n$PG{\"t_coffee\"}{\"ADDRESS\"}=\"h\
ttp://www.tcoffee.org\";\n$PG{\"t_coffee\"}{\"lang\
uage\"}=\"C\";\n$PG{\"t_coffee\"}{\"language2\"}=\\
"C\";\n$PG{\"t_coffee\"}{\"source\"}=\"http://www.\
tcoffee.org/Packages/T-COFFEE_distribution.tar.gz\\
";\n$PG{\"t_coffee\"}{\"update_action\"}=\"always\\
";\n$PG{\"t_coffee\"}{\"mode\"}=\"tcoffee,mcoffee,\
rcoffee,expresso,3dcoffee\";\n$PG{\"clustalw2\"}{\\
"4_TCOFFEE\"}=\"CLUSTALW2\";\n$PG{\"clustalw2\"}{\\
"type\"}=\"sequence_multiple_aligner\";\n$PG{\"clu\
stalw2\"}{\"ADDRESS\"}=\"http://www.clustal.org\";\
\n$PG{\"clustalw2\"}{\"language\"}=\"C++\";\n$PG{\\
"clustalw2\"}{\"language2\"}=\"CXX\";\n$PG{\"clust\
alw2\"}{\"source\"}=\"http://www.clustal.org/downl\
oad/2.0.10/clustalw-2.0.10-src.tar.gz\";\n$PG{\"cl\
ustalw2\"}{\"mode\"}=\"mcoffee,rcoffee\";\n$PG{\"c\
lustalw2\"}{\"version\"}=\"2.0.10\";\n$PG{\"clusta\
lw\"}{\"4_TCOFFEE\"}=\"CLUSTALW\";\n$PG{\"clustalw\
\"}{\"type\"}=\"sequence_multiple_aligner\";\n$PG{\
\"clustalw\"}{\"ADDRESS\"}=\"http://www.clustal.or\
g\";\n$PG{\"clustalw\"}{\"language\"}=\"C\";\n$PG{\
\"clustalw\"}{\"language2\"}=\"C\";\n$PG{\"clustal\
w\"}{\"source\"}=\"http://www.clustal.org/download\
/1.X/ftp-igbmc.u-strasbg.fr/pub/ClustalW/clustalw1\
.82.UNIX.tar.gz\";\n$PG{\"clustalw\"}{\"mode\"}=\"\
mcoffee,rcoffee\";\n$PG{\"clustalw\"}{\"version\"}\
=\"1.82\";\n$PG{\"dialign-t\"}{\"4_TCOFFEE\"}=\"DI\
ALIGNT\";\n$PG{\"dialign-t\"}{\"type\"}=\"sequence\
_multiple_aligner\";\n$PG{\"dialign-t\"}{\"ADDRESS\
\"}=\"http://dialign-tx.gobics.de/\";\n$PG{\"diali\
gn-t\"}{\"DIR\"}=\"/usr/share/dialign-tx/\";\n$PG{\
\"dialign-t\"}{\"language\"}=\"C\";\n$PG{\"dialign\
-t\"}{\"language2\"}=\"C\";\n$PG{\"dialign-t\"}{\"\
source\"}=\"http://dialign-tx.gobics.de/DIALIGN-TX\
_1.0.2.tar.gz\";\n$PG{\"dialign-t\"}{\"mode\"}=\"m\
coffee\";\n$PG{\"dialign-t\"}{\"binary\"}=\"dialig\
n-t\";\n$PG{\"dialign-t\"}{\"version\"}=\"1.0.2\";\
\n$PG{\"dialign-tx\"}{\"4_TCOFFEE\"}=\"DIALIGNTX\"\
;\n$PG{\"dialign-tx\"}{\"type\"}=\"sequence_multip\
le_aligner\";\n$PG{\"dialign-tx\"}{\"ADDRESS\"}=\"\
http://dialign-tx.gobics.de/\";\n$PG{\"dialign-tx\\
"}{\"DIR\"}=\"/usr/share/dialign-tx/\";\n$PG{\"dia\
lign-tx\"}{\"language\"}=\"C\";\n$PG{\"dialign-tx\\
"}{\"language2\"}=\"C\";\n$PG{\"dialign-tx\"}{\"so\
urce\"}=\"http://dialign-tx.gobics.de/DIALIGN-TX_1\
.0.2.tar.gz\";\n$PG{\"dialign-tx\"}{\"mode\"}=\"mc\
offee\";\n$PG{\"dialign-tx\"}{\"binary\"}=\"dialig\
n-tx\";\n$PG{\"dialign-tx\"}{\"version\"}=\"1.0.2\\
";\n$PG{\"poa\"}{\"4_TCOFFEE\"}=\"POA\";\n$PG{\"po\
a\"}{\"type\"}=\"sequence_multiple_aligner\";\n$PG\
{\"poa\"}{\"ADDRESS\"}=\"http://www.bioinformatics\
.ucla.edu/poa/\";\n$PG{\"poa\"}{\"language\"}=\"C\\
";\n$PG{\"poa\"}{\"language2\"}=\"C\";\n$PG{\"poa\\
"}{\"source\"}=\"http://downloads.sourceforge.net/\
poamsa/poaV2.tar.gz\";\n$PG{\"poa\"}{\"DIR\"}=\"/u\
sr/share/\";\n$PG{\"poa\"}{\"FILE1\"}=\"blosum80.m\
at\";\n$PG{\"poa\"}{\"mode\"}=\"mcoffee\";\n$PG{\"\
poa\"}{\"binary\"}=\"poa\";\n$PG{\"poa\"}{\"versio\
n\"}=\"2.0\";\n$PG{\"probcons\"}{\"4_TCOFFEE\"}=\"\
PROBCONS\";\n$PG{\"probcons\"}{\"type\"}=\"sequenc\
e_multiple_aligner\";\n$PG{\"probcons\"}{\"ADDRESS\
\"}=\"http://probcons.stanford.edu/\";\n$PG{\"prob\
cons\"}{\"language2\"}=\"CXX\";\n$PG{\"probcons\"}\
{\"language\"}=\"C++\";\n$PG{\"probcons\"}{\"sourc\
e\"}=\"http://probcons.stanford.edu/probcons_v1_12\
.tar.gz\";\n$PG{\"probcons\"}{\"mode\"}=\"mcoffee\\
";\n$PG{\"probcons\"}{\"binary\"}=\"probcons\";\n$\
PG{\"probcons\"}{\"version\"}=\"1.12\";\n$PG{\"maf\
ft\"}{\"4_TCOFFEE\"}=\"MAFFT\";\n$PG{\"mafft\"}{\"\
type\"}=\"sequence_multiple_aligner\";\n$PG{\"maff\
t\"}{\"ADDRESS\"}=\"http://align.bmr.kyushu-u.ac.j\
p/mafft/online/server/\";\n$PG{\"mafft\"}{\"langua\
ge\"}=\"C\";\n$PG{\"mafft\"}{\"language\"}=\"C\";\\
n$PG{\"mafft\"}{\"source\"}=\"http://align.bmr.kyu\
shu-u.ac.jp/mafft/software/mafft-6.603-with-extens\
ions-src.tgz\";\n$PG{\"mafft\"}{\"windows\"}=\"htt\
p://align.bmr.kyushu-u.ac.jp/mafft/software/mafft-\
6.603-mingw.tar\";\n$PG{\"mafft\"}{\"mode\"}=\"mco\
ffee,rcoffee\";\n$PG{\"mafft\"}{\"binary\"}=\"maff\
t.tar.gz\";\n$PG{\"mafft\"}{\"version\"}=\"6.603\"\
;\n$PG{\"muscle\"}{\"4_TCOFFEE\"}=\"MUSCLE\";\n$PG\
{\"muscle\"}{\"type\"}=\"sequence_multiple_aligner\
\";\n$PG{\"muscle\"}{\"ADDRESS\"}=\"http://www.dri\
ve5.com/muscle/\";\n$PG{\"muscle\"}{\"language\"}=\
\"C++\";\n$PG{\"muscle\"}{\"language2\"}=\"GPP\";\\
n$PG{\"muscle\"}{\"source\"}=\"http://www.drive5.c\
om/muscle/downloads3.7/muscle3.7_src.tar.gz\";\n$P\
G{\"muscle\"}{\"windows\"}=\"http://www.drive5.com\
/muscle/downloads3.7/muscle3.7_win32.zip\";\n$PG{\\
"muscle\"}{\"linux\"}=\"http://www.drive5.com/musc\
le/downloads3.7/muscle3.7_linux_ia32.tar.gz\";\n$P\
G{\"muscle\"}{\"mode\"}=\"mcoffee,rcoffee\";\n$PG{\
\"muscle\"}{\"version\"}=\"3.7\";\n$PG{\"mus4\"}{\\
"4_TCOFFEE\"}=\"MUS4\";\n$PG{\"mus4\"}{\"type\"}=\\
"sequence_multiple_aligner\";\n$PG{\"mus4\"}{\"ADD\
RESS\"}=\"http://www.drive5.com/muscle/\";\n$PG{\"\
mus4\"}{\"language\"}=\"C++\";\n$PG{\"mus4\"}{\"la\
nguage2\"}=\"GPP\";\n$PG{\"mus4\"}{\"source\"}=\"h\
ttp://www.drive5.com/muscle/muscle4.0_src.tar.gz\"\
;\n$PG{\"mus4\"}{\"mode\"}=\"mcoffee,rcoffee\";\n$\
PG{\"mus4\"}{\"version\"}=\"4.0\";\n$PG{\"pcma\"}{\
\"4_TCOFFEE\"}=\"PCMA\";\n$PG{\"pcma\"}{\"type\"}=\
\"sequence_multiple_aligner\";\n$PG{\"pcma\"}{\"AD\
DRESS\"}=\"ftp://iole.swmed.edu/pub/PCMA/\";\n$PG{\
\"pcma\"}{\"language\"}=\"C\";\n$PG{\"pcma\"}{\"la\
nguage2\"}=\"C\";\n$PG{\"pcma\"}{\"source\"}=\"ftp\
://iole.swmed.edu/pub/PCMA/pcma.tar.gz\";\n$PG{\"p\
cma\"}{\"mode\"}=\"mcoffee\";\n$PG{\"pcma\"}{\"ver\
sion\"}=\"1.0\";\n$PG{\"kalign\"}{\"4_TCOFFEE\"}=\\
"KALIGN\";\n$PG{\"kalign\"}{\"type\"}=\"sequence_m\
ultiple_aligner\";\n$PG{\"kalign\"}{\"ADDRESS\"}=\\
"http://msa.cgb.ki.se\";\n$PG{\"kalign\"}{\"langua\
ge\"}=\"C\";\n$PG{\"kalign\"}{\"language2\"}=\"C\"\
;\n$PG{\"kalign\"}{\"source\"}=\"http://msa.cgb.ki\
.se/downloads/kalign/current.tar.gz\";\n$PG{\"kali\
gn\"}{\"mode\"}=\"mcoffee\";\n$PG{\"kalign\"}{\"ve\
rsion\"}=\"1.0\";\n$PG{\"amap\"}{\"4_TCOFFEE\"}=\"\
AMAP\";\n$PG{\"amap\"}{\"type\"}=\"sequence_multip\
le_aligner\";\n$PG{\"amap\"}{\"ADDRESS\"}=\"http:/\
/bio.math.berkeley.edu/amap/\";\n$PG{\"amap\"}{\"l\
anguage\"}=\"C++\";\n$PG{\"amap\"}{\"language2\"}=\
\"CXX\";\n$PG{\"amap\"}{\"source\"}=\"http://amap-\
align.googlecode.com/files/amap.2.0.tar.gz\";\n$PG\
{\"amap\"}{\"mode\"}=\"mcoffee\";\n$PG{\"amap\"}{\\
"version\"}=\"2.0\";\n$PG{\"proda\"}{\"4_TCOFFEE\"\
}=\"PRODA\";\n$PG{\"proda\"}{\"type\"}=\"sequence_\
multiple_aligner\";\n$PG{\"proda\"}{\"ADDRESS\"}=\\
"http://proda.stanford.edu\";\n$PG{\"proda\"}{\"la\
nguage\"}=\"C++\";\n$PG{\"proda\"}{\"language2\"}=\
\"CXX\";\n$PG{\"proda\"}{\"source\"}=\"http://prod\
a.stanford.edu/proda_1_0.tar.gz\";\n$PG{\"proda\"}\
{\"mode\"}=\"mcoffee\";\n$PG{\"proda\"}{\"version\\
"}=\"1.0\";\n$PG{\"fsa\"}{\"4_TCOFFEE\"}=\"FSA\";\\
n$PG{\"fsa\"}{\"type\"}=\"sequence_multiple_aligne\
r\";\n$PG{\"fsa\"}{\"ADDRESS\"}=\"http://fsa.sourc\
eforge.net/\";\n$PG{\"fsa\"}{\"language\"}=\"C++\"\
;\n$PG{\"fsa\"}{\"language2\"}=\"CXX\";\n$PG{\"fsa\
\"}{\"source\"}=\"http://sourceforge.net/projects/\
fsa/files/fsa-1.15.3.tar.gz/download/\";\n$PG{\"fs\
a\"}{\"mode\"}=\"mcoffee\";\n$PG{\"fsa\"}{\"versio\
n\"}=\"1.15.3\";\n$PG{\"prank\"}{\"4_TCOFFEE\"}=\"\
PRANK\";\n$PG{\"prank\"}{\"type\"}=\"sequence_mult\
iple_aligner\";\n$PG{\"prank\"}{\"ADDRESS\"}=\"htt\
p://www.ebi.ac.uk/goldman-srv/prank/\";\n$PG{\"pra\
nk\"}{\"language\"}=\"C++\";\n$PG{\"prank\"}{\"lan\
guage2\"}=\"CXX\";\n$PG{\"prank\"}{\"source\"}=\"h\
ttp://www.ebi.ac.uk/goldman-srv/prank/src/prank/pr\
ank.src.100303.tgz\";\n$PG{\"prank\"}{\"mode\"}=\"\
mcoffee\";\n$PG{\"prank\"}{\"version\"}=\"100303\"\
;\n$PG{\"sap\"}{\"4_TCOFFEE\"}=\"SAP\";\n$PG{\"sap\
\"}{\"type\"}=\"structure_pairwise_aligner\";\n$PG\
{\"sap\"}{\"ADDRESS\"}=\"http://mathbio.nimr.mrc.a\
c.uk/wiki/Software\";\n$PG{\"sap\"}{\"language\"}=\
\"C\";\n$PG{\"sap\"}{\"language2\"}=\"C\";\n$PG{\"\
sap\"}{\"source\"}=\"http://mathbio.nimr.mrc.ac.uk\
/download/sap-1.1.1.tar.gz\";\n$PG{\"sap\"}{\"mode\
\"}=\"expresso,3dcoffee\";\n$PG{\"sap\"}{\"version\
\"}=\"1.1.1\";\n$PG{\"TMalign\"}{\"4_TCOFFEE\"}=\"\
TMALIGN\";\n$PG{\"TMalign\"}{\"type\"}=\"structure\
_pairwise_aligner\";\n$PG{\"TMalign\"}{\"ADDRESS\"\
}=\"http://zhang.bioinformatics.ku.edu/TM-align/TM\
align.f\";\n$PG{\"TMalign\"}{\"language\"}=\"Fortr\
an\";\n$PG{\"TMalign\"}{\"language2\"}=\"Fortran\"\
;\n$PG{\"TMalign\"}{\"source\"}=\"http://zhang.bio\
informatics.ku.edu/TM-align/TMalign.f\";\n$PG{\"TM\
align\"}{\"linux\"}=\"http://zhang.bioinformatics.\
ku.edu/TM-align/TMalign_32.gz\";\n$PG{\"TMalign\"}\
{\"mode\"}=\"expresso,3dcoffee\";\n$PG{\"TMalign\"\
}{\"version\"}=\"1.0\";\n$PG{\"mustang\"}{\"4_TCOF\
FEE\"}=\"MUSTANG\";\n$PG{\"mustang\"}{\"type\"}=\"\
structure_pairwise_aligner\";\n$PG{\"mustang\"}{\"\
ADDRESS\"}=\"http://www.cs.mu.oz.au/~arun/mustang\\
";\n$PG{\"mustang\"}{\"language\"}=\"C++\";\n$PG{\\
"mustang\"}{\"language2\"}=\"CXX\";\n$PG{\"mustang\
\"}{\"source\"}=\"http://ww2.cs.mu.oz.au/~arun/mus\
tang/mustang_v3.2.1.tgz\";\n$PG{\"mustang\"}{\"mod\
e\"}=\"expresso,3dcoffee\";\n$PG{\"mustang\"}{\"ve\
rsion\"}=\"3.2.1\";\n$PG{\"lsqman\"}{\"4_TCOFFEE\"\
}=\"LSQMAN\";\n$PG{\"lsqman\"}{\"type\"}=\"structu\
re_pairwise_aligner\";\n$PG{\"lsqman\"}{\"ADDRESS\\
"}=\"empty\";\n$PG{\"lsqman\"}{\"language\"}=\"emp\
ty\";\n$PG{\"lsqman\"}{\"language2\"}=\"empty\";\n\
$PG{\"lsqman\"}{\"source\"}=\"empty\";\n$PG{\"lsqm\
an\"}{\"update_action\"}=\"never\";\n$PG{\"lsqman\\
"}{\"mode\"}=\"expresso,3dcoffee\";\n$PG{\"align_p\
db\"}{\"4_TCOFFEE\"}=\"ALIGN_PDB\";\n$PG{\"align_p\
db\"}{\"type\"}=\"structure_pairwise_aligner\";\n$\
PG{\"align_pdb\"}{\"ADDRESS\"}=\"empty\";\n$PG{\"a\
lign_pdb\"}{\"language\"}=\"empty\";\n$PG{\"align_\
pdb\"}{\"language2\"}=\"empty\";\n$PG{\"align_pdb\\
"}{\"source\"}=\"empty\";\n$PG{\"align_pdb\"}{\"up\
date_action\"}=\"never\";\n$PG{\"align_pdb\"}{\"mo\
de\"}=\"expresso,3dcoffee\";\n$PG{\"fugueali\"}{\"\
4_TCOFFEE\"}=\"FUGUE\";\n$PG{\"fugueali\"}{\"type\\
"}=\"structure_pairwise_aligner\";\n$PG{\"fugueali\
\"}{\"ADDRESS\"}=\"http://www-cryst.bioc.cam.ac.uk\
/fugue/download.html\";\n$PG{\"fugueali\"}{\"langu\
age\"}=\"empty\";\n$PG{\"fugueali\"}{\"language2\"\
}=\"empty\";\n$PG{\"fugueali\"}{\"source\"}=\"empt\
y\";\n$PG{\"fugueali\"}{\"update_action\"}=\"never\
\";\n$PG{\"fugueali\"}{\"mode\"}=\"expresso,3dcoff\
ee\";\n$PG{\"dalilite.pl\"}{\"4_TCOFFEE\"}=\"DALIL\
ITEc\";\n$PG{\"dalilite.pl\"}{\"type\"}=\"structur\
e_pairwise_aligner\";\n$PG{\"dalilite.pl\"}{\"ADDR\
ESS\"}=\"built_in\";\n$PG{\"dalilite.pl\"}{\"ADDRE\
SS2\"}=\"http://www.ebi.ac.uk/Tools/webservices/se\
rvices/dalilite\";\n$PG{\"dalilite.pl\"}{\"languag\
e\"}=\"Perl\";\n$PG{\"dalilite.pl\"}{\"language2\"\
}=\"Perl\";\n$PG{\"dalilite.pl\"}{\"source\"}=\"em\
pty\";\n$PG{\"dalilite.pl\"}{\"update_action\"}=\"\
never\";\n$PG{\"dalilite.pl\"}{\"mode\"}=\"express\
o,3dcoffee\";\n$PG{\"probconsRNA\"}{\"4_TCOFFEE\"}\
=\"PROBCONSRNA\";\n$PG{\"probconsRNA\"}{\"type\"}=\
\"RNA_multiple_aligner\";\n$PG{\"probconsRNA\"}{\"\
ADDRESS\"}=\"http://probcons.stanford.edu/\";\n$PG\
{\"probconsRNA\"}{\"language\"}=\"C++\";\n$PG{\"pr\
obconsRNA\"}{\"language2\"}=\"CXX\";\n$PG{\"probco\
nsRNA\"}{\"source\"}=\"http://probcons.stanford.ed\
u/probconsRNA.tar.gz\";\n$PG{\"probconsRNA\"}{\"mo\
de\"}=\"mcoffee,rcoffee\";\n$PG{\"probconsRNA\"}{\\
"version\"}=\"1.0\";\n$PG{\"sfold\"}{\"4_TCOFFEE\"\
}=\"CONSAN\";\n$PG{\"sfold\"}{\"type\"}=\"RNA_pair\
wise_aligner\";\n$PG{\"sfold\"}{\"ADDRESS\"}=\"htt\
p://selab.janelia.org/software/consan/\";\n$PG{\"s\
fold\"}{\"language\"}=\"empty\";\n$PG{\"sfold\"}{\\
"language2\"}=\"empty\";\n$PG{\"sfold\"}{\"source\\
"}=\"empty\";\n$PG{\"sfold\"}{\"update_action\"}=\\
"never\";\n$PG{\"sfold\"}{\"mode\"}=\"rcoffee\";\n\
$PG{\"RNAplfold\"}{\"4_TCOFFEE\"}=\"RNAPLFOLD\";\n\
$PG{\"RNAplfold\"}{\"type\"}=\"RNA_secondarystruct\
ure_predictor\";\n$PG{\"RNAplfold\"}{\"ADDRESS\"}=\
\"http://www.tbi.univie.ac.at/~ivo/RNA/\";\n$PG{\"\
RNAplfold\"}{\"language\"}=\"C\";\n$PG{\"RNAplfold\
\"}{\"language2\"}=\"C\";\n$PG{\"RNAplfold\"}{\"so\
urce\"}=\"http://www.tbi.univie.ac.at/~ivo/RNA/Vie\
nnaRNA-1.7.2.tar.gz\";\n$PG{\"RNAplfold\"}{\"mode\\
"}=\"rcoffee,\";\n$PG{\"RNAplfold\"}{\"version\"}=\
\"1.7.2\";\n$PG{\"retree\"}{\"4_TCOFFEE\"}=\"PHYLI\
P\";\n$PG{\"retree\"}{\"type\"}=\"RNA_secondarystr\
ucture_predictor\";\n$PG{\"retree\"}{\"ADDRESS\"}=\
\"http://evolution.gs.washington.edu/phylip/\";\n$\
PG{\"retree\"}{\"language\"}=\"C\";\n$PG{\"retree\\
"}{\"language2\"}=\"C\";\n$PG{\"retree\"}{\"source\
\"}=\"http://evolution.gs.washington.edu/phylip/do\
wnload/phylip-3.69.tar.gz\";\n$PG{\"retree\"}{\"mo\
de\"}=\"trmsd,\";\n$PG{\"retree\"}{\"version\"}=\"\
3.69\";\n$PG{\"hmmtop\"}{\"4_TCOFFEE\"}=\"HMMTOP\"\
;\n$PG{\"hmmtop\"}{\"type\"}=\"protein_secondaryst\
ructure_predictor\";\n$PG{\"hmmtop\"}{\"ADDRESS\"}\
=\"www.enzim.hu/hmmtop/\";\n$PG{\"hmmtop\"}{\"lang\
uage\"}=\"C\";\n$PG{\"hmmtop\"}{\"language2\"}=\"C\
\";\n$PG{\"hmmtop\"}{\"source\"}=\"empty\";\n$PG{\\
"hmmtop\"}{\"update_action\"}=\"never\";\n$PG{\"hm\
mtop\"}{\"mode\"}=\"tcoffee\";\n$PG{\"gorIV\"}{\"4\
_TCOFFEE\"}=\"GOR4\";\n$PG{\"gorIV\"}{\"type\"}=\"\
protein_secondarystructure_predictor\";\n$PG{\"gor\
IV\"}{\"ADDRESS\"}=\"http://mig.jouy.inra.fr/logic\
iels/gorIV/\";\n$PG{\"gorIV\"}{\"language\"}=\"C\"\
;\n$PG{\"gorIV\"}{\"language2\"}=\"C\";\n$PG{\"gor\
IV\"}{\"source\"}=\"http://mig.jouy.inra.fr/logici\
els/gorIV/GOR_IV.tar.gz\";\n$PG{\"gorIV\"}{\"updat\
e_action\"}=\"never\";\n$PG{\"gorIV\"}{\"mode\"}=\\
"tcoffee\";\n$PG{\"wublast.pl\"}{\"4_TCOFFEE\"}=\"\
EBIWUBLASTc\";\n$PG{\"wublast.pl\"}{\"type\"}=\"pr\
otein_homology_predictor\";\n$PG{\"wublast.pl\"}{\\
"ADDRESS\"}=\"built_in\";\n$PG{\"wublast.pl\"}{\"A\
DDRESS2\"}=\"http://www.ebi.ac.uk/Tools/webservice\
s/services/wublast\";\n$PG{\"wublast.pl\"}{\"langu\
age\"}=\"Perl\";\n$PG{\"wublast.pl\"}{\"language2\\
"}=\"Perl\";\n$PG{\"wublast.pl\"}{\"source\"}=\"em\
pty\";\n$PG{\"wublast.pl\"}{\"update_action\"}=\"n\
ever\";\n$PG{\"wublast.pl\"}{\"mode\"}=\"psicoffee\
,expresso,accurate\";\n$PG{\"blastpgp.pl\"}{\"4_TC\
OFFEE\"}=\"EBIBLASTPGPc\";\n$PG{\"blastpgp.pl\"}{\\
"type\"}=\"protein_homology_predictor\";\n$PG{\"bl\
astpgp.pl\"}{\"ADDRESS\"}=\"built_in\";\n$PG{\"bla\
stpgp.pl\"}{\"ADDRESS2\"}=\"http://www.ebi.ac.uk/T\
ools/webservices/services/blastpgp\";\n$PG{\"blast\
pgp.pl\"}{\"language\"}=\"Perl\";\n$PG{\"blastpgp.\
pl\"}{\"language2\"}=\"Perl\";\n$PG{\"blastpgp.pl\\
"}{\"source\"}=\"empty\";\n$PG{\"blastpgp.pl\"}{\"\
update_action\"}=\"never\";\n$PG{\"blastpgp.pl\"}{\
\"mode\"}=\"psicoffee,expresso,accurate\";\n$PG{\"\
blastcl3\"}{\"4_TCOFFEE\"}=\"NCBIWEBBLAST\";\n$PG{\
\"blastcl3\"}{\"type\"}=\"protein_homology_predict\
or\";\n$PG{\"blastcl3\"}{\"ADDRESS\"}=\"ftp://ftp.\
ncbi.nih.gov/blast/executables/LATEST\";\n$PG{\"bl\
astcl3\"}{\"language\"}=\"C\";\n$PG{\"blastcl3\"}{\
\"language2\"}=\"C\";\n$PG{\"blastcl3\"}{\"source\\
"}=\"empty\";\n$PG{\"blastcl3\"}{\"update_action\"\
}=\"never\";\n$PG{\"blastcl3\"}{\"mode\"}=\"psicof\
fee,expresso,3dcoffee\";\n$PG{\"blastpgp\"}{\"4_TC\
OFFEE\"}=\"NCBIBLAST\";\n$PG{\"blastpgp\"}{\"type\\
"}=\"protein_homology_predictor\";\n$PG{\"blastpgp\
\"}{\"ADDRESS\"}=\"ftp://ftp.ncbi.nih.gov/blast/ex\
ecutables/LATEST\";\n$PG{\"blastpgp\"}{\"language\\
"}=\"C\";\n$PG{\"blastpgp\"}{\"language2\"}=\"C\";\
\n$PG{\"blastpgp\"}{\"source\"}=\"empty\";\n$PG{\"\
blastpgp\"}{\"update_action\"}=\"never\";\n$PG{\"b\
lastpgp\"}{\"mode\"}=\"psicoffee,expresso,3dcoffee\
\";\n$PG{\"SOAP::Lite\"}{\"4_TCOFFEE\"}=\"SOAPLITE\
\";\n$PG{\"SOAP::Lite\"}{\"type\"}=\"library\";\n$\
PG{\"SOAP::Lite\"}{\"ADDRESS\"}=\"http://cpansearc\
h.perl.org/src/MKUTTER/SOAP-Lite-0.710.08/Makefile\
.PL\";\n$PG{\"SOAP::Lite\"}{\"language\"}=\"Perl\"\
;\n$PG{\"SOAP::Lite\"}{\"language2\"}=\"Perl\";\n$\
PG{\"SOAP::Lite\"}{\"source\"}=\"empty\";\n$PG{\"b\
lastpgp\"}{\"update_action\"}=\"never\";\n$PG{\"SO\
AP::Lite\"}{\"mode\"}=\"none\";\n$PG{\"XML::Simple\
\"}{\"4_TCOFFEE\"}=\"XMLSIMPLE\";\n$PG{\"XML::Simp\
le\"}{\"type\"}=\"library\";\n$PG{\"XML::Simple\"}\
{\"ADDRESS\"}=\"http://search.cpan.org/~grantm/XML\
-Simple-2.18/lib/XML/Simple.pm\";\n$PG{\"XML::Simp\
le\"}{\"language\"}=\"Perl\";\n$PG{\"XML::Simple\"\
}{\"language2\"}=\"Perl\";\n$PG{\"XML::Simple\"}{\\
"source\"}=\"empty\";\n$PG{\"XML::Simple\"}{\"mode\
\"}=\"psicoffee,expresso,accurate\";\n$MODE{\"tcof\
fee\"}{\"name\"}=\"tcoffee\";\n$MODE{\"rcoffee\"}{\
\"name\"}=\"rcoffee\";\n$MODE{\"3dcoffee\"}{\"name\
\"}=\"3dcoffee\";\n$MODE{\"mcoffee\"}{\"name\"}=\"\
mcoffee\";\n$MODE{\"expresso\"}{\"name\"}=\"expres\
so\";\n$MODE{\"trmsd\"}{\"name\"}=\"trmsd\";\n$MOD\
E{\"accurate\"}{\"name\"}=\"accurate\";\n$MODE{\"s\
eq_reformat\"}{\"name\"}=\"seq_reformat\";\n\n\n$P\
G{C}{compiler}=\"gcc\";\n$PG{C}{compiler_flag}=\"C\
C\";\n$PG{C}{options}=\"\";\n$PG{C}{options_flag}=\
\"CFLAGS\";\n$PG{C}{type}=\"compiler\";\n\n$PG{\"C\
XX\"}{compiler}=\"g++\";\n$PG{\"CXX\"}{compiler_fl\
ag}=\"CXX\";\n$PG{\"CXX\"}{options}=\"\";\n$PG{\"C\
XX\"}{options_flag}=\"CXXFLAGS\";\n$PG{CXX}{type}=\
\"compiler\";\n\n$PG{\"CPP\"}{compiler}=\"g++\";\n\
$PG{\"CPP\"}{compiler_flag}=\"CPP\";\n$PG{\"CPP\"}\
{options}=\"\";\n$PG{\"CPP\"}{options_flag}=\"CPPF\
LAGS\";\n$PG{CPP}{type}=\"compiler\";\n\n$PG{\"GPP\
\"}{compiler}=\"g++\";\n$PG{\"GPP\"}{compiler_flag\
}=\"GPP\";\n$PG{\"GPP\"}{options}=\"\";\n$PG{\"GPP\
\"}{options_flag}=\"CFLAGS\";\n$PG{GPP}{type}=\"co\
mpiler\";\n\n$PG{Fortran}{compiler}=\"g77\";\n$PG{\
Fortran}{compiler_flag}=\"FCC\";\n$PG{Fortran}{typ\
e}=\"compiler\";\n\n$PG{Perl}{compiler}=\"CPAN\";\\
n$PG{Perl}{type}=\"compiler\";\n\n$SUPPORTED_OS{ma\
cox}=\"Macintosh\";\n$SUPPORTED_OS{linux}=\"Linux\\
";\n$SUPPORTED_OS{windows}=\"Cygwin\";\n\n\n\n$MOD\
E{t_coffee}{description}=\" for regular multiple s\
equence alignments\";\n$MODE{rcoffee} {description\
}=\" for RNA multiple sequence alignments\";\n\n$M\
ODE{psicoffee} {description}=\" for Homology Exten\
ded multiple sequence alignments\";\n$MODE{express\
o}{description}=\" for very accurate structure bas\
ed multiple sequence alignments\";\n$MODE{\"3dcoff\
ee\"}{description}=\" for multiple structure align\
ments\";\n$MODE{mcoffee} {description}=\" for comb\
ining alternative multiple sequence alignment pack\
ages\\n------- into a unique meta-package. The ins\
taller will upload several MSA packages and compil\
e them\\n\n\";\n\n\n&post_process_PG();\nreturn;\n\
}\n\nsub post_process_PG\n  {\n    my $p;\n    \n \
   %PG=&name2dname (%PG);\n    %MODE=&name2dname(%\
MODE);\n    foreach $p (keys(%PG)){if ( $PG{$p}{ty\
pe} eq \"compiler\"){$PG{$p}{update_action}=\"neve\
r\";}}\n    \n  }\n\nsub name2dname\n  {\n    my (\
%L)=(@_);\n    my ($l, $ml);\n    \n    foreach my\
 $pg (keys(%L))\n      {\n	$l=length ($pg);\n	if (\
 $l>$ml){$ml=$l;}\n      }\n    $ml+=1;\n    forea\
ch my $pg (keys(%L))\n      {\n	my $name;\n	$l=$ml\
-length ($pg);\n	$name=$pg;\n	for ( $b=0; $b<$l; $\
b++)\n	  {\n	    $name .=\" \";\n	  }\n	$L{$pg}{dn\
ame}=$name;\n      }\n    return %L;\n  }\n\nsub e\
nv_file2putenv\n  {\n    my $f=@_[0];\n    my $F=n\
ew FileHandle;\n    my $n;\n    \n    open ($F, \"\
$f\");\n    while (<$F>)\n      {\n	my $line=$_;\n\
	my($var, $value)=($_=~/(\\S+)\\=(\\S*)/);\n	$ENV{\
$var}=$value;\n	$ENV_SET{$var}=1;\n	$n++;\n      }\
\n    close ($F);\n    return $n;\n  }\n\nsub repl\
ace_line_in_file\n  {\n    my ($file, $wordin, $wo\
rdout)=@_;\n    my $O=new FileHandle;\n    my $I=n\
ew FileHandle;\n    my $l;\n    if (!-e $file){ret\
urn;}\n    \n    system (\"mv $file $file.old\");\\
n    open ($O, \">$file\");\n    open ($I, \"$file\
.old\");\n    while (<$I>)\n      {\n	$l=$_;\n	if \
(!($l=~/$wordin/)){print $O \"$l\";}\n	elsif ( $wo\
rdout ne \"\"){$l=~s/$wordin/$wordout/g;print $O \\
"$l\";}\n      }\n    close ($O);\n    close ($I);\
\n    return;\n  }\n\nsub add_C_libraries\n  {\n  \
 my ($file,$first,@list)=@_;\n   \n    my $O=new F\
ileHandle;\n    my $I=new FileHandle;\n    my ($l,\
$anchor);\n    if (!-e $file){return;}\n   \n    $\
anchor=\"#include <$first>\";\n	 \n    system (\"m\
v $file $file.old\");\n    open ($O, \">$file\");\\
n    open ($I, \"$file.old\");\n    while (<$I>)\n\
      {\n	$l=$_;\n	print $O \"$l\";\n	if (!($l=~/$\
anchor/))\n	   {\n	    \n	    foreach my $lib (@li\
st)\n	       {\n                  print $O \"#incl\
ude <$lib>\\n\";\n	       }\n           }\n      }\
\n    close ($O);\n    close ($I);\n    return;\n \
   }\n","use Env;\nuse Cwd;\n@suffix=(\"tmp\", \"t\
emp\", \"cache\", \"t_coffee\", \"core\", \"tcoffe\
e\");\n\nif ($#ARGV==-1)\n  {\n    print \"clean_c\
ache.pl -file <file to add in -dir> -dir=<dir> -si\
ze=<value in Mb>\\n0: unlimited -1 always.\\nWill \
only clean directories matching:[\";\n    foreach \
$k(@suffix){print \"*$k* \";}\n    print \"]\\n\";\
\n    exit (EXIT_FAILURE);\n  }\n\n$cl=join (\" \"\
,@ARGV);\nif (($cl=~/\\-no_action/))\n  {\n    exi\
t (EXIT_SUCCESS);\n  }\n\nif (($cl=~/\\-debug/))\n\
  {\n    $DEBUG=1;\n  }\nelse\n  {\n    $DEBUG=0;\\
n  }\n\nif (($cl=~/\\-dir=(\\S+)/))\n  {\n    $dir\
=$1;\n  }\nelse\n  {\n    $dir=\"./\";\n  }\n\nif \
($cl=~/\\-file=(\\S+)/)\n  {\n    $file=$1;\n  }\n\
else\n  {\n    $file=0;\n  }\n\nif ($cl=~/\\-size=\
(\\S+)/)\n  {\n    $max_size=$1;\n  }\nelse\n  {\n\
    $max_size=0;#unlimited\n  }\nif ($cl=~/\\-forc\
e/)\n  {\n    $force=1;\n  }\nelse\n  {\n    $forc\
e=0;\n  }\n\nif ($cl=~/\\-age=(\\S+)/)\n  {\n    $\
max_age=$1;\n  }\nelse\n  {\n    $max_age=0;#unlim\
ited\n  }\n\n$max_size*=1000000;\nif ( ! -d $dir)\\
n  {\n    print STDERR \"\\nCannot process $dir: d\
oes not exist \\n\";\n    exit (EXIT_FAILURE);\n  \
}\n\nif ( !($dir=~/^\\//))\n  {\n    $base=cwd();\\
n    $dir=\"$base/$dir\";\n  }\n\n$proceed=0;\nfor\
each $s (@suffix)\n  {\n    \n    if (($dir=~/$s/)\
){$proceed=1;}\n    $s=uc ($s);\n    if (($dir=~/$\
s/)){$proceed=1;}\n  }\nif ( $proceed==0)\n  {\n  \
  print STDERR \"Clean_cache.pl can only clean dir\
ectories whose absolute path name contains the fol\
lowing strings:\";\n    foreach $w (@suffix) {prin\
t STDERR \"$w \";$w=lc($w); print STDERR \"$w \";}\
\n    print STDERR \"\\nCannot process $dir\\n\";\\
n    exit (EXIT_FAILURE);\n  }\n\n$name_file=\"$di\
r/name_file.txt\";\n$size_file=\"$dir/size_file.tx\
t\";\nif ( $force){&create_ref_file ($dir,$name_fi\
le,$size_file);}\nif ($file){&add_file ($dir, $nam\
e_file, $size_file, $file);}\n&clean_dir ($dir, $n\
ame_file, $size_file, $max_size,$max_age);\nexit (\
EXIT_SUCCESS);\n\nsub clean_dir \n  {\n    my ($di\
r, $name_file, $size_file, $max_size, $max_age)=@_\
;\n    my ($tot_size, $size, $f, $s);\n\n  \n    $\
tot_size=&get_tot_size ($dir, $name_file, $size_fi\
le);\n\n    if ( $tot_size<=$max_size){return ;}\n\
    else {$max_size/=2;}\n    \n    #recreate the \
name file in case some temprary files have not bee\
n properly registered\n    &create_ref_file ($dir,\
 $name_file, $size_file, $max_age);\n  \n    $new_\
name_file=&vtmpnam();\n    open (R, \"$name_file\"\
);\n    open (W, \">$new_name_file\");\n    while \
(<R>)\n      {\n	my $line=$_;\n	\n	($f, $s)=($line\
=~/(\\S+) (\\S+)/);\n	if ( !($f=~/\\S/)){next;}\n	\
\n	elsif ($max_size && $tot_size>=$max_size && !($\
f=~/name_file/))\n	  {\n	    remove ( \"$dir/$f\")\
;\n	    $tot_size-=$s;\n	  }\n	elsif ( $max_age &&\
 -M(\"$dir/$f\")>=$max_age)\n	  {\n	    remove ( \\
"$dir/$f\");\n	    $tot_size-=$s;\n	  }\n	else\n	 \
 {\n	    print W \"$f $s\\n\";\n	  }\n      }\n   \
 close (R);\n    close (W);\n    open (F, \">$size\
_file\");\n    print F \"$tot_size\";\n    if ( -e\
 $new_name_file){`mv $new_name_file $name_file`;}\\
n    close (F);\n  }\nsub get_tot_size\n  {\n    m\
y ($dir, $name_file, $size_file)=@_;\n    my $size\
;\n    \n    if ( !-d $dir){return 0;}\n    if ( !\
-e $name_file)\n      {\n	\n	&create_ref_file ($di\
r, $name_file, $size_file);\n      }\n    open (F,\
 \"$size_file\");\n    $size=<F>;\n    close (F);\\
n    chomp ($size);\n    return $size;\n  }\nsub s\
ize \n  {\n    my $f=@_[0];\n\n    if ( !-d $f){re\
turn -s($f);}\n    else {return &dir2size($f);}\n \
 }\nsub dir2size\n  {\n    my $d=@_[0];\n    my ($\
s, $f);\n    \n    if ( !-d $d) {return 0;}\n    \\
n    foreach $f (&dir2list ($d))\n      {\n	if ( -\
d $f){$s+=&dir2size (\"$d/$f\");}\n	else {$s+= -s \
\"$dir/$f\";}\n      }\n    return $s;\n  }\n\nsub\
 remove \n  {\n    my $file=@_[0];\n    my ($f);\n\
    \n    debug_print( \"--- $file ---\\n\");\n   \
 if (($file eq \".\") || ($file eq \"..\") || ($fi\
le=~/\\*/)){return EXIT_FAILURE;}\n    elsif ( !-d\
 $file)\n      {\n	debug_print (\"unlink $file\\n\\
");\n	if (-e $file){unlink ($file);}\n      }\n   \
 elsif ( -d $file)\n      {\n	debug_print (\"+++++\
+++ $file +++++++\\n\");\n	foreach $f (&dir2list($\
file))\n	  {\n	    &remove (\"$file/$f\");\n	  }\n\
	debug_print (\"rmdir $file\\n\");\n	rmdir $file;\\
n      }\n    else\n      {\n	debug_print (\"?????\
???? $file ????????\\n\");\n      }\n    return EX\
IT_SUCCESS;\n  }\n\nsub dir2list\n  {\n    my $dir\
=@_[0];\n    my (@list1, @list2,@list3, $l);\n\n  \
  opendir (DIR,$dir);\n    @list1=readdir (DIR);\n\
    closedir (DIR);\n    \n    foreach $l (@list1)\
\n      {\n	if ( $l ne \".\" && $l ne \"..\"){@lis\
t2=(@list2, $l);}\n      }\n    @list3 = sort { (-\
M \"$dir/$list2[$b]\") <=> (-M \"$dir/$list2[$a]\"\
)} @list2;\n    return @list3;\n    \n  }\n\nsub d\
ebug_print\n  {\n    \n    if ($DEBUG==1){print @_\
;}\n    \n  }\nsub create_ref_file\n  {\n    my ($\
dir,$name_file,$size_file)=@_;\n    my ($f, $s, $t\
ot_size, @l);\n    \n    if ( !-d $dir){return;}\n\
    \n    @l=&dir2list ($dir);\n    open (F, \">$n\
ame_file\");\n    foreach $f (@l)\n      {\n	$s=&s\
ize(\"$dir/$f\");\n	$tot_size+=$s;\n	print F \"$f \
$s\\n\";\n      }\n    &myecho ($tot_size, \">$siz\
e_file\");\n    close (F);\n  }\nsub add_file \n  \
{\n    my ($dir,$name_file,$size_file,$file)=@_;\n\
    my ($s, $tot_size);\n    \n    if ( !-d $dir) \
  {return;}\n    if ( !-e \"$dir/$file\" ) {return\
;}\n    if ( !-e $name_file){&create_ref_file ($di\
r,$name_file,$size_file);}\n					    \n    $s=&siz\
e(\"$dir/$file\");\n    open (F, \">>$name_file\")\
;\n    print F \"$file\\n\";\n    close (F);\n\n  \
  $tot_size=&get_tot_size ($dir,$name_file,$size_f\
ile);\n    $tot_size+=$s;\n    &myecho ($tot_size,\
 \">$size_file\");\n    \n  }\n	\nsub myecho\n  {\\
n    my ($string, $file)=@_;\n    open (ECHO, $fil\
e) || die;\n    print ECHO \"$string\";\n    close\
 (ECHO);\n  }\n    \n		\n	\nsub vtmpnam\n  {\n    \
my $tmp_file_name;\n    $tmp_name_counter++;\n    \
$tmp_file_name=\"tmp_file_for_clean_cache_pdb$$.$t\
mp_name_counter\";\n    $tmp_file_list[$ntmp_file+\
+]=$tmp_file_name;\n    if ( -e $tmp_file_name) {r\
eturn &vtmpnam ();}\n    else {return $tmp_file_na\
me;}\n  }\n","\nmy $address=\"http://www.tcoffee.o\
rg/Projects/Datasets/NatureMethodsDataset.tar.gz\"\
;\nmy $out=\"NatureMethodsDataset.tar.gz\";\n&url2\
file ($address,$out);\n\nif ( -e $out)\n  {\n    \\
n    system (\"gunzip NatureMethodsDataset.tar.gz\\
");\n    system (\"tar -xvf NatureMethodsDataset.t\
ar\");\n    \n    print \"Your Data Set is in the \
Folder NatureMethodsDataset\\n\";\n  }\nelse \n  {\
\n    print \"Could not Download Dataset --- Web s\
ite may be down -- Try again later\\n\";\n  }\n\n\\
n\n\nsub url2file\n{\n    my ($address, $out, $wge\
t_arg, $curl_arg)=(@_);\n    my ($pg, $flag, $r, $\
arg, $count);\n    \n    if (!$CONFIGURATION){&che\
ck_configuration (\"wget\", \"INTERNET\", \"gzip\"\
);$CONFIGURATION=1;}\n    \n    if (&pg_is_install\
ed (\"wget\"))   {$pg=\"wget\"; $flag=\"-O\";$arg=\
$wget_arg;}\n    elsif (&pg_is_installed (\"curl\"\
)){$pg=\"curl\"; $flag=\"-o\";$arg=$curl_arg;}\n  \
  return system (\"$pg $address $flag $out>/dev/nu\
ll 2>/dev/null\");\n\n}\n\nsub pg_is_installed\n  \
{\n    my @ml=@_;\n    my $r, $p, $m;\n    my $sup\
ported=0;\n    \n    my $p=shift (@ml);\n    if ($\
p=~/::/)\n      {\n	if (system (\"perl -M$p -e 1\"\
)==$EXIT_SUCCESS){return 1;}\n	else {return 0;}\n \
     }\n    else\n      {\n	$r=`which $p 2>/dev/nu\
ll`;\n	if ($r eq \"\"){return 0;}\n	else {return 1\
;}\n      }\n  }\nsub check_configuration \n    {\\
n      my @l=@_;\n      my $v;\n      foreach my $\
p (@l)\n	{\n	  \n	  if   ( $p eq \"EMAIL\")\n	    \
{ \n	      if ( !($EMAIL=~/@/))\n		{\n		  exit (EX\
IT_FAILURE);\n		}\n	    }\n	  elsif( $p eq \"INTER\
NET\")\n	    {\n	      if ( !&check_internet_conne\
ction())\n		{\n		  exit (EXIT_FAILURE);\n		}\n	   \
 }\n	  elsif( $p eq \"wget\")\n	    {\n	      if (\
!&pg_is_installed (\"wget\") && !&pg_is_installed \
(\"curl\"))\n		{\n		  exit (EXIT_FAILURE);\n		}\n	\
    }\n	  elsif( !(&pg_is_installed ($p)))\n	    {\
\n	      exit (EXIT_FAILURE);\n	    }\n	}\n      r\
eturn 1;\n    }\nsub check_internet_connection\n  \
{\n    my $internet;\n    my $tmp;\n    &check_con\
figuration ( \"wget\"); \n    \n    $tmp=&vtmpnam \
();\n    \n    if     (&pg_is_installed    (\"wget\
\")){`wget www.google.com -O$tmp >/dev/null 2>/dev\
/null`;}\n    elsif  (&pg_is_installed    (\"curl\\
")){`curl www.google.com -o$tmp >/dev/null 2>/dev/\
null`;}\n    \n    if ( !-e $tmp || -s $tmp < 10){\
$internet=0;}\n    else {$internet=1;}\n    if (-e\
 $tmp){unlink $tmp;}\n\n    return $internet;\n  }\
\n\nsub vtmpnam\n      {\n	my $r=rand(100000);\n	m\
y $f=\"file.$r.$$\";\n	while (-e $f)\n	  {\n	    $\
f=vtmpnam();\n	  }\n	push (@TMPFILE_LIST, $f);\n	r\
eturn $f;\n      }\n\n","\n$t_coffee=\"t_coffee\";\
\n\nforeach $value ( @ARGV)\n  {\n    $seq_file=$s\
eq_file.\" \".$value;\n  }\n\n$name=$ARGV[0];\n$na\
me=~s/\\.[^\\.]*$//;\n$lib_name=\"$name.mocca_lib\\
";\n$type=`t_coffee $seq_file -get_type -quiet`;\n\
chop ($type);\n\nif ( $type eq \"PROTEIN\"){$lib_m\
ode=\"lalign_rs_s_pair -lalign_n_top 20\";}\nelsif\
 ( $type eq\"DNA\"){$lib_mode=\"lalign_rs_s_dna_pa\
ir -lalign_n_top 40\";}\n\nif ( !(-e $lib_name))\n\
  {\n	  \n  $command=\"$t_coffee -mocca -seq_weigh\
t=no -cosmetic_penalty=0 -mocca_interactive -in $l\
ib_mode -out_lib $lib_name -infile $seq_file\";\n \
 \n  }\nelsif ( (-e $lib_name))\n  {\n  $command=\\
"$t_coffee -mocca -seq_weight=no -cosmetic_penalty\
=0 -mocca_interactive -in $lib_name -infile $seq_f\
ile\";\n  \n  }\n\nsystem ($command);\n\nexit;\n\n\
","my $WSDL = 'http://www.ebi.ac.uk/Tools/webservi\
ces/wsdl/WSDaliLite.wsdl';\n\nuse SOAP::Lite;\nuse\
 Data::Dumper;\nuse Getopt::Long qw(:config no_ign\
ore_case bundling);\nuse File::Basename;\n\nmy $ch\
eckInterval = 5;\n\nmy %params=(\n	    'async' => \
'1', # Use async mode and simulate sync mode in cl\
ient\n	    );\nGetOptions(\n    'pdb1=s'     => \\\
$params{'sequence1'},\n    'chainid1=s' => \\$para\
ms{'chainid1'},\n    'pdb2=s'     => \\$params{'se\
quence2'},\n    'chainid2=s' => \\$params{'chainid\
2'},\n    \"help|h\"	 => \\$help, # Usage info\n  \
  \"async|a\"	 => \\$async, # Asynchronous submiss\
ion\n    \"polljob\"	 => \\$polljob, # Get results\
\n    \"status\"	 => \\$status, # Get status\n    \
\"jobid|j=s\"  => \\$jobid, # JobId\n    \"email|S\
=s\"  => \\$params{email}, # E-mail address\n    \\
"trace\"      => \\$trace, # SOAP messages\n    \"\
sequence=s\" => \\$sequence, # Input PDB\n    );\n\
\nmy $scriptName = basename($0, ());\nif($help) {\\
n    &usage();\n    exit(0);\n}\n\nif($trace) {\n \
   print \"Tracing active\\n\";\n    SOAP::Lite->i\
mport(+trace => 'debug');\n}\n\nmy $soap = SOAP::L\
ite\n    ->service($WSDL)\n    ->on_fault(sub {\n \
       my $soap = shift;\n        my $res = shift;\
\n        # Throw an exception for all faults\n   \
     if(ref($res) eq '') {\n            die($res);\
\n        } else {\n            die($res->faultstr\
ing);\n        }\n        return new SOAP::SOM;\n \
   }\n               );\n\nif( !($polljob || $stat\
us) &&\n    !( defined($params{'sequence1'}) && de\
fined($params{'sequence2'}) )\n    ) {\n    print \
STDERR 'Error: bad option combination', \"\\n\";\n\
    &usage();\n    exit(1);\n}\nelsif($polljob && \
defined($jobid)) {\n    print \"Getting results fo\
r job $jobid\\n\";\n    getResults($jobid);\n}\nel\
sif($status && defined($jobid)) {\n    print STDER\
R \"Getting status for job $jobid\\n\";\n    my $r\
esult = $soap->checkStatus($jobid);\n    print STD\
OUT \"$result\", \"\\n\";\n    if($result eq 'DONE\
') {\n	print STDERR \"To get results: $scriptName \
--polljob --jobid $jobid\\n\";\n    }\n}\nelse {\n\
    if(-f $params{'sequence1'}) {\n	$params{'seque\
nce1'} = read_file($params{'sequence1'});\n    }\n\
    if(-f $params{'sequence2'}) {\n	$params{'seque\
nce2'} = read_file($params{'sequence2'});\n    }\n\
\n    my $jobid;\n    my $paramsData = SOAP::Data-\
>name('params')->type(map=>\\%params);\n    # For \
SOAP::Lite 0.60 and earlier parameters are passed \
directly\n    if($SOAP::Lite::VERSION eq '0.60' ||\
 $SOAP::Lite::VERSION =~ /0\\.[1-5]/) {\n        $\
jobid = $soap->runDaliLite($paramsData);\n    }\n \
   # For SOAP::Lite 0.69 and later parameter handl\
ing is different, so pass\n    # undef's for templ\
ated params, and then pass the formatted args.\n  \
  else {\n        $jobid = $soap->runDaliLite(unde\
f,\n				     $paramsData);\n    }\n\n    if (defin\
ed($async)) {\n	print STDOUT $jobid, \"\\n\";\n   \
     print STDERR \"To check status: $scriptName -\
-status --jobid $jobid\\n\";\n    } else { # Synch\
ronous mode\n        print STDERR \"JobId: $jobid\\
\n\";\n        sleep 1;\n        getResults($jobid\
);\n    }\n}\n\nsub clientPoll($) {\n    my $jobid\
 = shift;\n    my $result = 'PENDING';\n    # Chec\
k status and wait if not finished\n    #print STDE\
RR \"Checking status: $jobid\\n\";\n    while($res\
ult eq 'RUNNING' || $result eq 'PENDING') {\n     \
   $result = $soap->checkStatus($jobid);\n        \
print STDERR \"$result\\n\";\n        if($result e\
q 'RUNNING' || $result eq 'PENDING') {\n          \
  # Wait before polling again.\n            sleep \
$checkInterval;\n        }\n    }\n}\n\nsub getRes\
ults($) {\n    $jobid = shift;\n    # Check status\
, and wait if not finished\n    clientPoll($jobid)\
;\n    # Use JobId if output file name is not defi\
ned\n    unless(defined($outfile)) {\n        $out\
file=$jobid;\n    }\n    # Get list of data types\\
n    my $resultTypes = $soap->getResults($jobid);\\
n    # Get the data and write it to a file\n    if\
(defined($outformat)) { # Specified data type\n   \
     my $selResultType;\n        foreach my $resul\
tType (@$resultTypes) {\n            if($resultTyp\
e->{type} eq $outformat) {\n                $selRe\
sultType = $resultType;\n            }\n        }\\
n        $res=$soap->poll($jobid, $selResultType->\
{type});\n        write_file($outfile.'.'.$selResu\
ltType->{ext}, $res);\n    } else { # Data types a\
vailable\n        # Write a file for each output t\
ype\n        for my $resultType (@$resultTypes){\n\
            #print \"Getting $resultType->{type}\\\
n\";\n            $res=$soap->poll($jobid, $result\
Type->{type});\n            write_file($outfile.'.\
'.$resultType->{ext}, $res);\n        }\n    }\n}\\
n\nsub read_file($) {\n    my $filename = shift;\n\
    open(FILE, $filename);\n    my $content;\n    \
my $buffer;\n    while(sysread(FILE, $buffer, 1024\
)) {\n	$content.= $buffer;\n    }\n    close(FILE)\
;\n    return $content;\n}\n\nsub write_file($$) {\
\n    my ($tmp,$entity) = @_;\n    print STDERR \"\
Creating result file: \".$tmp.\"\\n\";\n    unless\
(open (FILE, \">$tmp\")) {\n	return 0;\n    }\n   \
 syswrite(FILE, $entity);\n    close (FILE);\n    \
return 1;\n}\n\nsub usage {\n    print STDERR <<EO\
F\nDaliLite\n========\n\nPairwise comparison of pr\
otein structures\n\n[Required]\n\n  --pdb1        \
        : str  : PDB ID for structure 1\n  --pdb2 \
               : str  : PDB ID for structure 2\n\n\
[Optional]\n\n  --chain1              : str  : Cha\
in identifer in structure 1\n  --chain2           \
   : str  : Chain identifer in structure 2\n\n[Gen\
eral]\n\n  -h, --help            :      : prints t\
his help text\n  -S, --email           : str  : us\
er email address\n  -a, --async           :      :\
 asynchronous submission\n      --status          \
:      : poll for the status of a job\n      --pol\
ljob         :      : poll for the results of a jo\
b\n  -j, --jobid           : str  : jobid for an a\
synchronous job\n  -O, --outfile         : str  : \
file name for results (default is jobid)\n      --\
trace	        :      : show SOAP messages being in\
terchanged \n\nSynchronous job:\n\n  The results/e\
rrors are returned as soon as the job is finished.\
\n  Usage: $scriptName --email <your\\@email> [opt\
ions] pdbFile [--outfile string]\n  Returns: saves\
 the results to disk\n\nAsynchronous job:\n\n  Use\
 this if you want to retrieve the results at a lat\
er time. The results \n  are stored for up to 24 h\
ours. \n  The asynchronous submission mode is reco\
mmended when users are submitting \n  batch jobs o\
r large database searches	\n  Usage: $scriptName -\
-email <your\\@email> --async [options] pdbFile\n \
 Returns: jobid\n\n  Use the jobid to query for th\
e status of the job. \n  Usage: $scriptName --stat\
us --jobid <jobId>\n  Returns: string indicating t\
he status of the job:\n    DONE - job has finished\
\n    RUNNING - job is running\n    NOT_FOUND - jo\
b cannot be found\n    ERROR - the jobs has encoun\
tered an error\n\n  When done, use the jobid to re\
trieve the status of the job. \n  Usage: $scriptNa\
me --polljob --jobid <jobId> [--outfile string]\n\\
n[Help]\n\n  For more detailed help information re\
fer to\n  http://www.ebi.ac.uk/DaliLite/\nEOF\n;\n\
}\n","my $WSDL = 'http://www.ebi.ac.uk/Tools/webse\
rvices/wsdl/WSWUBlast.wsdl';\n\nuse strict;\nuse S\
OAP::Lite;\nuse Getopt::Long qw(:config no_ignore_\
case bundling);\nuse File::Basename;\n\nmy $checkI\
nterval = 15;\n\nmy $numOpts = scalar(@ARGV);\nmy \
($outfile, $outformat, $help, $async, $polljob, $s\
tatus, $ids, $jobid, $trace, $sequence);\nmy %para\
ms= ( # Defaults\n	      'async' => 1, # Force int\
o async mode\n	      'exp' => 10.0, # E-value thre\
shold\n	      'numal' => 50, # Maximum number of a\
lignments\n	      'scores' => 100, # Maximum numbe\
r of scores\n            );\nGetOptions( # Map the\
 options into variables\n    \"program|p=s\"     =\
> \\$params{program}, # BLAST program\n    \"datab\
ase|D=s\"    => \\$params{database}, # Search data\
base\n    \"matrix|m=s\"      => \\$params{matrix}\
, # Scoring matrix\n    \"exp|E=f\"         => \\$\
params{exp}, # E-value threshold\n    \"echofilter\
|e\"    => \\$params{echofilter}, # Display filter\
ed sequence\n    \"filter|f=s\"      => \\$params{\
filter}, # Low complexity filter name\n    \"align\
ments|b=i\"  => \\$params{numal}, # Number of alig\
nments\n    \"scores|s=i\"      => \\$params{score\
s}, # Number of scores\n    \"sensitivity|S=s\" =>\
 \\$params{sensitivity}, # Search sensitivity\n   \
 \"sort|t=s\"	      => \\$params{sort}, # Sort hit\
s by...\n    \"stats|T=s\"       => \\$params{stat\
s}, # Scoring statistic to use\n    \"strand|d=s\"\
      => \\$params{strand}, # Strand to use in DNA\
 vs. DNA search\n    \"topcombon|c=i\"   => \\$par\
ams{topcombon}, # Consistent sets of HSPs\n    \"o\
utfile=s\"       => \\$outfile, # Output file\n   \
 \"outformat|o=s\"   => \\$outformat, # Output for\
mat\n    \"help|h\"	      => \\$help, # Usage info\
\n    \"async|a\"	      => \\$async, # Asynchronou\
s mode\n    \"polljob\"	      => \\$polljob, # Get\
 results\n    \"status\"	      => \\$status, # Get\
 job status\n    \"ids\"             => \\$ids, # \
Get ids from result\n    \"jobid|j=s\"       => \\\
$jobid, # JobId\n    \"email=s\"         => \\$par\
ams{email}, # E-mail address\n    \"trace\"       \
    => \\$trace, # SOAP trace\n    \"sequence=s\" \
     => \\$sequence, # Query sequence\n    );\n\nm\
y $scriptName = basename($0, ());\nif($help || $nu\
mOpts == 0) {\n    &usage();\n    exit(0);\n}\n\ni\
f($trace){\n    print STDERR \"Tracing active\\n\"\
;\n    SOAP::Lite->import(+trace => 'debug');\n}\n\
\nmy $soap = SOAP::Lite\n    ->service($WSDL)\n   \
 ->proxy('http://localhost/',\n    #proxy => ['htt\
p' => 'http://your.proxy.server/'], # HTTP proxy\n\
    timeout => 600, # HTTP connection timeout\n   \
 )\n    ->on_fault(sub { # SOAP fault handler\n   \
     my $soap = shift;\n        my $res = shift;\n\
        # Throw an exception for all faults\n     \
   if(ref($res) eq '') {\n            die($res);\n\
        } else {\n            die($res->faultstrin\
g);\n        }\n        return new SOAP::SOM;\n   \
 }\n               );\n\nif( !($polljob || $status\
 || $ids) &&\n    !( defined($ARGV[0]) || defined(\
$sequence) )\n    ) {\n    print STDERR 'Error: ba\
d option combination', \"\\n\";\n    &usage();\n  \
  exit(1);\n}\nelsif($polljob && defined($jobid)) \
{\n    print \"Getting results for job $jobid\\n\"\
;\n    getResults($jobid);\n}\nelsif($status && de\
fined($jobid)) {\n    print STDERR \"Getting statu\
s for job $jobid\\n\";\n    my $result = $soap->ch\
eckStatus($jobid);\n    print STDOUT \"$result\\n\\
";\n    if($result eq 'DONE') {\n	print STDERR \"T\
o get results: $scriptName --polljob --jobid $jobi\
d\\n\";\n    }\n}  \nelsif($ids && defined($jobid)\
) {\n    print STDERR \"Getting ids from job $jobi\
d\\n\";\n    getIds($jobid);\n}\nelse {\n    # Pre\
pare input data\n    my $content;\n    my (@conten\
ts) = ();\n    if(-f $ARGV[0] || $ARGV[0] eq '-') \
{	\n	$content={type=>'sequence',content=>read_file\
($ARGV[0])};	\n    }\n    if($sequence) {	\n	if(-f\
 $sequence || $sequence eq '-') {	\n	    $content=\
{type=>'sequence',content=>read_file($ARGV[0])};	\\
n	} else {\n	    $content={type=>'sequence',conten\
t=>$sequence};\n	}\n    }\n    push @contents, $co\
ntent;\n\n    # Submit the job\n    my $paramsData\
 = SOAP::Data->name('params')->type(map=>\\%params\
);\n    my $contentData = SOAP::Data->name('conten\
t')->value(\\@contents);\n    # For SOAP::Lite 0.6\
0 and earlier parameters are passed directly\n    \
if($SOAP::Lite::VERSION eq '0.60' || $SOAP::Lite::\
VERSION =~ /0\\.[1-5]/) {\n        $jobid = $soap-\
>runWUBlast($paramsData, $contentData);\n    }\n  \
  # For SOAP::Lite 0.69 and later parameter handli\
ng is different, so pass\n    # undef's for templa\
ted params, and then pass the formatted args.\n   \
 else {\n        $jobid = $soap->runWUBlast(undef,\
 undef,\n				   $paramsData, $contentData);\n    }\
\n\n    # Asynchronous mode: output jobid and exit\
.\n    if (defined($async)) {\n	print STDOUT $jobi\
d, \"\\n\";\n        print STDERR \"To check statu\
s: $scriptName --status --jobid $jobid\\n\";\n    \
}\n    # Synchronous mode: try to get results\n   \
 else {\n        print STDERR \"JobId: $jobid\\n\"\
;\n        sleep 1;\n        getResults($jobid);\n\
    }\n}\n\nsub getIds($) {\n    my $jobid = shift\
;\n    my $results = $soap->getIds($jobid);\n    f\
or my $result (@$results){\n	print \"$result\\n\";\
\n    }\n}\n\nsub clientPoll($) {\n    my $jobid =\
 shift;\n    my $result = 'PENDING';\n    # Check \
status and wait if not finished\n    while($result\
 eq 'RUNNING' || $result eq 'PENDING') {\n        \
$result = $soap->checkStatus($jobid);\n        pri\
nt STDERR \"$result\\n\";\n        if($result eq '\
RUNNING' || $result eq 'PENDING') {\n            #\
 Wait before polling again.\n            sleep $ch\
eckInterval;\n        }\n    }\n}\n\nsub getResult\
s($) {\n    my $jobid = shift;\n    my $res;\n    \
# Check status, and wait if not finished\n    clie\
ntPoll($jobid);\n    # Use JobId if output file na\
me is not defined\n    unless(defined($outfile)) {\
\n        $outfile=$jobid;\n    }\n    # Get list \
of data types\n    my $resultTypes = $soap->getRes\
ults($jobid);\n    # Get the data and write it to \
a file\n    if(defined($outformat)) { # Specified \
data type\n	if($outformat eq 'xml') {$outformat = \
'toolxml';}\n	if($outformat eq 'txt') {$outformat \
= 'tooloutput';}\n        my $selResultType;\n    \
    foreach my $resultType (@$resultTypes) {\n    \
        if($resultType->{type} eq $outformat) {\n \
               $selResultType = $resultType;\n    \
        }\n        }\n        $res=$soap->poll($jo\
bid, $selResultType->{type});\n	if($outfile eq '-'\
) {\n	     write_file($outfile, $res);\n	} else {\\
n	    write_file($outfile.'.'.$selResultType->{ext\
}, $res);\n	}\n    } else { # Data types available\
\n        # Write a file for each output type\n   \
     for my $resultType (@$resultTypes){\n        \
    #print STDERR \"Getting $resultType->{type}\\n\
\";\n            $res=$soap->poll($jobid, $resultT\
ype->{type});\n	    if($outfile eq '-') {\n		write\
_file($outfile, $res);\n	    } else {\n		write_fil\
e($outfile.'.'.$resultType->{ext}, $res);\n	    }\\
n        }\n    }\n}\n\nsub read_file($) {\n    my\
 $filename = shift;\n    my ($content, $buffer);\n\
    if($filename eq '-') {\n	while(sysread(STDIN, \
$buffer, 1024)) {\n	    $content .= $buffer;\n	}\n\
    }\n    else { # File\n	open(FILE, $filename) o\
r die \"Error: unable to open input file\";\n	whil\
e(sysread(FILE, $buffer, 1024)) {\n	    $content .\
= $buffer;\n	}\n	close(FILE);\n    }\n    return $\
content;\n}\n\nsub write_file($$) {\n    my ($file\
name, $data) = @_;\n    print STDERR 'Creating res\
ult file: ' . $filename . \"\\n\";\n    if($filena\
me eq '-') {\n	print STDOUT $data;\n    }\n    els\
e {\n	open(FILE, \">$filename\") or die \"Error: u\
nable to open output file\";\n	syswrite(FILE, $dat\
a);\n	close(FILE);\n    }\n}\n\nsub usage {\n    p\
rint STDERR <<EOF\nWU-BLAST\n========\n\nRapid seq\
uence database search programs utilizing the BLAST\
 algorithm.\n   \n[Required]\n\n      --email     \
  : str  : user email address \n  -p, --program	  \
  : str  : BLAST program to use: blastn, blastp, b\
lastx, \n                             tblastn or t\
blastx\n  -D, --database    : str  : database to s\
earch\n  seqFile           : file : query sequence\
 data file (\"-\" for STDIN)\n\n[Optional]\n\n  -m\
, --matrix	    : str  : scoring matrix\n  -E, --ex\
p	    : real : 0<E<= 1000. Statistical significanc\
e threshold\n                             for repo\
rting database sequence matches.\n  -e, --echofilt\
er  :      : display the filtered query sequence i\
n the output\n  -f, --filter	    : str  : activate\
s filtering of the query sequence\n  -b, --alignme\
nts  : int  : number of alignments to be reported\\
n  -s, --scores	    : int  : number of scores to b\
e reported\n  -S, --sensitivity : str  :\n  -t, --\
sort	    : str  :\n  -T, --stats       : str  :\n \
 -d, --strand      : str  : DNA strand to search w\
ith in DNA vs. DNA searches \n  -c, --topcombon   \
:      :\n\n[General]	\n\n  -h, --help       :    \
  : prints this help text\n  -a, --async      :   \
   : forces to make an asynchronous query\n      -\
-status     :      : poll for the status of a job\\
n      --polljob    :      : poll for the results \
of a job\n  -j, --jobid      : str  : jobid that w\
as returned when an asynchronous job \n           \
                 was submitted.\n  -O, --outfile  \
  : str  : name of the file results should be writ\
ten to \n                            (default is b\
ased on the jobid; \"-\" for STDOUT)\n  -o, --outf\
ormat  : str  : txt or xml output (no file is writ\
ten)\n      --trace	   :      : show SOAP messages\
 being interchanged \n\nSynchronous job:\n\n  The \
results/errors are returned as soon as the job is \
finished.\n  Usage: $scriptName --email <your\\@em\
ail> [options...] seqFile\n  Returns: saves the re\
sults to disk\n\nAsynchronous job:\n\n  Use this i\
f you want to retrieve the results at a later time\
. The results \n  are stored for up to 24 hours. \\
n  The asynchronous submission mode is recommended\
 when users are submitting \n  batch jobs or large\
 database searches	\n  Usage: $scriptName --async \
--email <your\\@email> [options...] seqFile\n  Ret\
urns : jobid\n\n  Use the jobid to query for the s\
tatus of the job. \n  Usage: $scriptName --status \
--jobid <jobId>\n  Returns : string indicating the\
 status of the job:\n    DONE - job has finished\n\
    RUNNING - job is running\n    NOT_FOUND - job \
cannot be found\n    ERROR - the jobs has encounte\
red an error\n\n  When done, use the jobid to retr\
ieve the status of the job. \n  Usage: $scriptName\
 --polljob --jobid <jobId> [--outfile string]\n  R\
eturns: saves the results to disk\n\n[Help]\n\nFor\
 more detailed help information refer to \nhttp://\
www.ebi.ac.uk/blast2/WU-Blast2_Help_frame.html\n \\
nEOF\n;\n}\n","\nmy $WSDL = 'http://www.ebi.ac.uk/\
Tools/webservices/wsdl/WSBlastpgp.wsdl';\n\nuse SO\
AP::Lite;\nuse Getopt::Long qw(:config no_ignore_c\
ase bundling);\nuse File::Basename;\n\nmy $checkIn\
terval = 15;\n\nmy %params=(\n	    'async' => '1',\
 # Use async mode and simulate sync mode in client\
\n	    );\nGetOptions(\n    \"mode=s\"           =\
> \\$params{mode}, # Search mode: PSI-Blast or PHI\
-Blast\n    \"database|d=s\"     => \\$params{data\
base}, # Database to search\n    \"matrix|M=s\"   \
    => \\$params{matrix},# Scoring maxtrix\n    \"\
exp|e=f\"          => \\$params{exp}, # E-value\n \
   \"expmulti|h=f\"     => \\$params{expmulti}, # \
E-value\n    \"filter|F=s\"       => \\$params{fil\
ter}, # Low complexity filter\n    \"dropoff|X=i\"\
      => \\$params{dropoff}, # Dropoff score\n    \
\"finaldropoff|Z=i\" => \\$params{finaldropoff}, #\
 Final dropoff score\n    \"scores|v=i\"       => \
\\$params{scores}, # Max number of scores\n    \"a\
lign=i\"          => \\$params{align}, # Alignment\
 view\n    \"startregion|S=i\"  => \\$params{start\
region}, # Start of region in query\n    \"endregi\
on|H=i\"    => \\$params{endregion}, # End of regi\
on in query\n    \"maxpasses|j=i\"    => \\$params\
{maxpasses}, # Number of PSI iterations\n    \"ope\
ngap|G=i\"      => \\$params{opengap}, # Gap open \
penalty\n    \"extendgap|E=i\"    => \\$params{ext\
endgap}, # Gap extension penalty\n    \"pattern=s\\
"        => \\$params{pattern}, # PHI-BLAST patter\
n\n    \"usagemode|p=s\"    => \\$params{usagemode\
}, # PHI-BLAST program\n    \"appxml=s\"         =\
> \\$params{appxml}, # Application XML\n    \"sequ\
ence=s\"       => \\$sequence, # Query sequence\n \
   \"help\"	       => \\$help, # Usage info\n    \\
"polljob\"	       => \\$polljob, # Get results\n  \
  \"status\"	       => \\$status, # Get status\n  \
  \"ids\"      	       => \\$ids, # Get ids from r\
esult\n    \"jobid=s\"          => \\$jobid, # Job\
Id\n    \"outfile=s\"        => \\$outfile, # Outp\
ut filename\n    \"outformat|o=s\"    => \\$outfor\
mat, # Output file format\n    \"async|a\"	       \
=> \\$async, # Async submission\n    \"email=s\"  \
        => \\$params{email}, # User e-mail address\
\n    \"trace\"            => \\$trace, # Show SOA\
P messages\n    );\n\nmy $scriptName = basename($0\
, ());\nif($help) {\n    &usage();\n    exit(0);\n\
}\n\nif ($trace){\n    print \"Tracing active\\n\"\
;\n    SOAP::Lite->import(+trace => 'debug');\n}\n\
\nmy $soap = SOAP::Lite\n    ->service($WSDL)\n   \
 ->on_fault(sub {\n        my $soap = shift;\n    \
    my $res = shift;\n        # Throw an exception\
 for all faults\n        if(ref($res) eq '') {\n  \
          die($res);\n        } else {\n          \
  die($res->faultstring);\n        }\n        retu\
rn new SOAP::SOM;\n    }\n               );\n\nif(\
 !($polljob || $status || $ids) &&\n    !( (define\
d($ARGV[0]) && -f $ARGV[0]) || defined($sequence) \
)\n    ) {\n    print STDERR 'Error: bad option co\
mbination', \"\\n\";\n    &usage();\n    exit(1);\\
n}\nelsif($polljob && defined($jobid)) {\n    prin\
t \"Getting results for job $jobid\\n\";\n    getR\
esults($jobid);\n}\nelsif($status && defined($jobi\
d)) {\n    print STDERR \"Getting status for job $\
jobid\\n\";\n    my $result = $soap->checkStatus($\
jobid);\n    print STDOUT $result, \"\\n\";\n    i\
f($result eq 'DONE') {\n	print STDERR \"To get res\
ults: $scriptName --polljob --jobid $jobid\\n\";\n\
    }\n}  \nelsif($ids && defined($jobid)) {\n    \
print STDERR \"Getting ids from job $jobid\\n\";\n\
    getIds($jobid);\n}\nelse {\n    if(-f $ARGV[0]\
) {	\n	$content={type=>'sequence', content=>read_f\
ile($ARGV[0])};	\n    }\n    if($sequence) {	\n	if\
(-f $sequence) {\n	    $content={type=>'sequence',\
 content=>read_file($sequence)};	\n	} else {\n	   \
 $content={type=>'sequence', content=>$sequence};\\
n	}\n    }\n    push @content, $content;\n\n    my\
 $jobid;\n    my $paramsData = SOAP::Data->name('p\
arams')->type(map=>\\%params);\n    my $contentDat\
a = SOAP::Data->name('content')->value(\\@content)\
;\n    # For SOAP::Lite 0.60 and earlier parameter\
s are passed directly\n    if($SOAP::Lite::VERSION\
 eq '0.60' || $SOAP::Lite::VERSION =~ /0\\.[1-5]/)\
 {\n        $jobid = $soap->runBlastpgp($paramsDat\
a, $contentData);\n    }\n    # For SOAP::Lite 0.6\
9 and later parameter handling is different, so pa\
ss\n    # undef's for templated params, and then p\
ass the formatted args.\n    else {\n        $jobi\
d = $soap->runBlastpgp(undef, undef,\n				    $par\
amsData, $contentData);\n    }\n\n    if (defined(\
$async)) {\n	print STDOUT $jobid, \"\\n\";\n      \
  print STDERR \"To check status: $scriptName --st\
atus --jobid $jobid\\n\";\n    } else { # Synchron\
ous mode\n        print STDERR \"JobId: $jobid\\n\\
";\n        sleep 1;\n        getResults($jobid);\\
n    }\n}\n\nsub getIds($) {\n    $jobid = shift;\\
n    my $results = $soap->getIds($jobid);\n    for\
 $result (@$results){\n	print \"$result\\n\";\n   \
 }\n}\n\nsub clientPoll($) {\n    my $jobid = shif\
t;\n    my $result = 'PENDING';\n    # Check statu\
s and wait if not finished\n    #print STDERR \"Ch\
ecking status: $jobid\\n\";\n    while($result eq \
'RUNNING' || $result eq 'PENDING') {\n        $res\
ult = $soap->checkStatus($jobid);\n        print S\
TDERR \"$result\\n\";\n        if($result eq 'RUNN\
ING' || $result eq 'PENDING') {\n            # Wai\
t before polling again.\n            sleep $checkI\
nterval;\n        }\n    }\n}\n\nsub getResults($)\
 {\n    $jobid = shift;\n    # Check status, and w\
ait if not finished\n    clientPoll($jobid);\n    \
# Use JobId if output file name is not defined\n  \
  unless(defined($outfile)) {\n        $outfile=$j\
obid;\n    }\n    # Get list of data types\n    my\
 $resultTypes = $soap->getResults($jobid);\n    # \
Get the data and write it to a file\n    if(define\
d($outformat)) { # Specified data type\n        my\
 $selResultType;\n        foreach my $resultType (\
@$resultTypes) {\n            if($resultType->{typ\
e} eq $outformat) {\n                $selResultTyp\
e = $resultType;\n            }\n        }\n      \
  $res=$soap->poll($jobid, $selResultType->{type})\
;\n        write_file($outfile.'.'.$selResultType-\
>{ext}, $res);\n    } else { # Data types availabl\
e\n        # Write a file for each output type\n  \
      for my $resultType (@$resultTypes){\n       \
     #print \"Getting $resultType->{type}\\n\";\n \
           $res=$soap->poll($jobid, $resultType->{\
type});\n            write_file($outfile.'.'.$resu\
ltType->{ext}, $res);\n        }\n    }\n}\n\nsub \
read_file($) {\n    my $filename = shift;\n    ope\
n(FILE, $filename);\n    my $content;\n    my $buf\
fer;\n    while(sysread(FILE, $buffer, 1024)) {\n	\
$content.= $buffer;\n    }\n    close(FILE);  \n  \
  return $content;\n}\n\nsub write_file($$) {\n   \
 my ($tmp,$entity) = @_;\n    print STDERR \"Creat\
ing result file: \".$tmp.\"\\n\";\n    unless(open\
 (FILE, \">$tmp\")) {\n	return 0;\n    }\n    sysw\
rite(FILE, $entity);\n    close (FILE);\n    retur\
n 1;\n}\n\nsub usage {\n    print STDERR <<EOF\nBl\
astpgp\n========\n   \nThe blastpgp program implem\
ents the PSI-BLAST and PHI-BLAST variations\nof NC\
BI BLAST.\n\nFor more detailed help information re\
fer to\nhttp://www.ebi.ac.uk/blastpgp/blastpsi_hel\
p_frame.html\n \nBlastpgp specific options:\n\n[Re\
quired]\n\n      --mode            : str  : search\
 mode to use: PSI-Blast or PHI-Blast\n  -d, --data\
base        : str  : protein database to search\n \
 seqFile               : file : query sequence\n\n\
[Optional]\n\n  -M, --matrix          : str  : sco\
ring matrix\n  -e, --exp             : real : Expe\
ctation value\n  -h, --expmulti        : real : th\
reshold (multipass model)\n  -F, --filter         \
 : str  : filter query sequence with SEG [T,F]\n  \
-m, --align           : int  : alignment view opti\
on:\n                                 0 - pairwise\
, 1 - M/S identities,\n                           \
      2 - M/S non-identities, 3 - Flat identities,\
\n                                 4 - Flat non-id\
entities\n  -G, --opengap         : int  : cost to\
 open a gap\n  -E, --extendgap       : int  : cost\
 to extend a gap\n  -g, --gapalign        : str  :\
 Gapped [T,F]\n  -v, --scores          : int  : nu\
mber of scores to be reported\n  -j, --maxpasses  \
     : int  : number of iterations\n  -X, --dropof\
f         : int  : Dropoff score\n  -Z, --finaldro\
poff    : int  : Dropoff for final alignment\n  -S\
, --startregion     : int  : Start of required reg\
ion in query\n  -H, --endregion       : int  : End\
 of required region in query\n  -k, --pattern     \
    : str  : Hit File (PHI-BLAST only)\n  -p, --us\
agemode       : str  : Program option (PHI-BLAST o\
nly):\n                                 blastpgp, \
patseedp, seedp\n\n[General]\n\n      --help      \
      :      : prints this help text\n  -a, --asyn\
c           :      : forces to make an asynchronou\
s query\n      --status          :      : poll for\
 the status of a job\n      --polljob         :   \
   : poll for the results of a job\n      --jobid \
          : str  : jobid of an asynchronous job\n \
     --ids             :      : get hit identifier\
s for result \n  -O, --outfile         : str  : na\
me of the file results should be written to\n     \
                            (default is based on t\
he jobid)\n  -o, --outformat       : str  : txt or\
 xml output (no file is written)\n      --trace   \
        :      : show SOAP messages being intercha\
nged\n\nSynchronous job:\n\n  The results/errors a\
re returned as soon as the job is finished.\n  Usa\
ge: blastpgp.pl --email <your@email> [options...] \
seqfile\n  Returns: saves the results to disk\n\nA\
synchronous job:\n\n  Use this if you want to retr\
ieve the results at a later time. The results\n  a\
re stored for up to 24 hours.\n  The asynchronous \
submission mode is recommended when users are subm\
itting\n  batch jobs or large database searches\n \
 Usage: blastpgp.pl --email <your@email> --async [\
options...] seqFile\n  Returns: jobid\n\n  Use the\
 jobid to query for the status of the job.\n  Usag\
e: blastpgp.pl --status --jobid <jobId>\n  Returns\
: string indicating the status of the job\n    DON\
E - job has finished\n    RUNNING - job is running\
\n    NOT_FOUND - job cannot be found\n    ERROR -\
 the jobs has encountered an error\n\n  When done,\
 use the jobid to retrieve the results of the job.\
\n  Usage: blastpgp.pl --polljob --jobid <jobId> [\
--outfile <fileName>]\n  Returns: saves the result\
s to disk\nEOF\n;\n}\n","\n=head1 NAME\n\nncbiblas\
t_lwp.pl\n\n=head1 DESCRIPTION\n\nNCBI BLAST REST \
web service Perl client using L<LWP>.\n\nTested wi\
th:\n\n=over\n\n=item *\nL<LWP> 5.79, L<XML::Simpl\
e> 2.12 and Perl 5.8.3\n\n=item *\nL<LWP> 5.805, L\
<XML::Simple> 2.14 and Perl 5.8.7\n\n=item *\nL<LW\
P> 5.820, L<XML::Simple> 2.18 and Perl 5.10.0 (Ubu\
ntu 9.04)\n\n=back\n\nFor further information see:\
\n\n=over\n\n=item *\nL<http://www.ebi.ac.uk/Tools\
/webservices/services/sss/ncbi_blast_rest>\n\n=ite\
m *\nL<http://www.ebi.ac.uk/Tools/webservices/tuto\
rials/perl>\n\n=back\n\n=head1 VERSION\n\n$Id: ncb\
iblast_lwp.pl 1317 2009-09-03 15:44:11Z hpm $\n\n=\
cut\n\nuse strict;\nuse warnings;\n\nuse English;\\
nuse LWP;\nuse XML::Simple;\nuse Getopt::Long qw(:\
config no_ignore_case bundling);\nuse File::Basena\
me;\nuse Data::Dumper;\n\nmy $baseUrl = 'http://ww\
w.ebi.ac.uk/Tools/services/rest/ncbiblast';\n\nmy \
$checkInterval = 3;\n\nmy $outputLevel = 1;\n\nmy \
$numOpts = scalar(@ARGV);\nmy %params = ( 'debugLe\
vel' => 0 );\n\nmy %tool_params = ();\nGetOptions(\
\n\n	# Tool specific options\n	'program|p=s'  => \\
\$tool_params{'program'},   # blastp, blastn, blas\
tx, etc.\n	'database|D=s' => \\$params{'database'}\
,       # Database(s) to search\n	'matrix|m=s'   =\
> \\$tool_params{'matrix'},    # Scoring martix to\
 use\n	'exp|E=f'      => \\$tool_params{'exp'},   \
    # E-value threshold\n	'filter|f=s'   => \\$too\
l_params{'filter'},    # Low complexity filter\n	'\
align|A=i'    => \\$tool_params{'align'},     # Pa\
irwise alignment format\n	'scores|s=i'   => \\$too\
l_params{'scores'},    # Number of scores\n	'align\
ments|n=i' => \\$tool_params{'alignments'},   # Nu\
mber of alignments\n	'dropoff|d=i'    => \\$tool_p\
arams{'dropoff'},      # Dropoff score\n	'match_sc\
ores=s' => \\$tool_params{'match_scores'}, # Match\
/missmatch scores\n	'match|u=i'      => \\$params{\
'match'},             # Match score\n	'mismatch|v=\
i'   => \\$params{'mismatch'},          # Mismatch\
 score\n	'gapopen|o=i'    => \\$tool_params{'gapop\
en'},      # Open gap penalty\n	'gapext|x=i'     =\
> \\$tool_params{'gapext'},       # Gap extension \
penality\n	'gapalign|g'     => \\$tool_params{'gap\
align'},     # Optimise gap alignments\n	'stype=s'\
 => \\$tool_params{'stype'},    # Sequence type\n	\
'seqrange=s' => \\$tool_params{'seqrange'},    # Q\
uery subsequence\n	'sequence=s' => \\$params{'sequ\
ence'},         # Query sequence\n	'multifasta' =>\
 \\$params{'multifasta'},       # Multiple fasta i\
nput\n\n	# Compatability options, old command-line\
\n	'numal|n=i'     => \\$params{'numal'},        #\
 Number of alignments\n	'opengap|o=i'   => \\$para\
ms{'opengap'},      # Open gap penalty\n	'extendga\
p|x=i' => \\$params{'extendgap'},    # Gap extensi\
on penality\n	\n	# Generic options\n	'email=s'    \
   => \\$params{'email'},          # User e-mail a\
ddress\n	'title=s'       => \\$params{'title'},   \
       # Job title\n	'outfile=s'     => \\$params{\
'outfile'},        # Output file name\n	'outformat\
=s'   => \\$params{'outformat'},      # Output fil\
e type\n	'jobid=s'       => \\$params{'jobid'},   \
       # JobId\n	'help|h'        => \\$params{'hel\
p'},           # Usage help\n	'async'         => \\
\$params{'async'},          # Asynchronous submiss\
ion\n	'polljob'       => \\$params{'polljob'},    \
    # Get results\n	'resultTypes'   => \\$params{'\
resultTypes'},    # Get result types\n	'status'   \
     => \\$params{'status'},         # Get status\\
n	'params'        => \\$params{'params'},         \
# List input parameters\n	'paramDetail=s' => \\$pa\
rams{'paramDetail'},    # Get details for paramete\
r\n	'quiet'         => \\$params{'quiet'},        \
  # Decrease output level\n	'verbose'       => \\$\
params{'verbose'},        # Increase output level\\
n	'debugLevel=i'  => \\$params{'debugLevel'},     \
# Debug output level\n	'baseUrl=s'     => \\$baseU\
rl,                  # Base URL for service.\n);\n\
if ( $params{'verbose'} ) { $outputLevel++ }\nif (\
 $params{'$quiet'} )  { $outputLevel-- }\n\n&print\
_debug_message( 'MAIN', 'LWP::VERSION: ' . $LWP::V\
ERSION,\n	1 );\n\n&print_debug_message( 'MAIN', \"\
params:\\n\" . Dumper( \\%params ),           11 )\
;\n&print_debug_message( 'MAIN', \"tool_params:\\n\
\" . Dumper( \\%tool_params ), 11 );\n\nmy $script\
Name = basename( $0, () );\n\nif ( $params{'help'}\
 || $numOpts == 0 ) {\n	&usage();\n	exit(0);\n}\n\\
n&print_debug_message( 'MAIN', 'baseUrl: ' . $base\
Url, 1 );\n\nif (\n	!(\n		   $params{'polljob'}\n	\
	|| $params{'resultTypes'}\n		|| $params{'status'}\
\n		|| $params{'params'}\n		|| $params{'paramDetai\
l'}\n	)\n	&& !( defined( $ARGV[0] ) || defined( $p\
arams{'sequence'} ) )\n  )\n{\n\n	# Bad argument c\
ombination, so print error message and usage\n	pri\
nt STDERR 'Error: bad option combination', \"\\n\"\
;\n	&usage();\n	exit(1);\n}\n\nelsif ( $params{'pa\
rams'} ) {\n	&print_tool_params();\n}\n\nelsif ( $\
params{'paramDetail'} ) {\n	&print_param_details( \
$params{'paramDetail'} );\n}\n\nelsif ( $params{'s\
tatus'} && defined( $params{'jobid'} ) ) {\n	&prin\
t_job_status( $params{'jobid'} );\n}\n\nelsif ( $p\
arams{'resultTypes'} && defined( $params{'jobid'} \
) ) {\n	&print_result_types( $params{'jobid'} );\n\
}\n\nelsif ( $params{'polljob'} && defined( $param\
s{'jobid'} ) ) {\n	&get_results( $params{'jobid'} \
);\n}\n\nelse {\n\n	# Multiple input sequence mode\
, assume fasta format.\n	if ( $params{'multifasta'\
} ) {\n		&multi_submit_job();\n	}\n\n	# Entry iden\
tifier list file.\n	elsif (( defined( $params{'seq\
uence'} ) && $params{'sequence'} =~ m/^\\@/ )\n		|\
| ( defined( $ARGV[0] ) && $ARGV[0] =~ m/^\\@/ ) )\
\n	{\n		my $list_filename = $params{'sequence'} ||\
 $ARGV[0];\n		$list_filename =~ s/^\\@//;\n		&list\
_file_submit_job($list_filename);\n	}\n\n	# Defaul\
t: single sequence/identifier.\n	else {\n\n		# Loa\
d the sequence data and submit.\n		&submit_job( &l\
oad_data() );\n	}\n}\n\n=head1 FUNCTIONS\n\n=cut\n\
\n\n=head2 rest_request()\n\nPerform a REST reques\
t.\n\n  my $response_str = &rest_request($url);\n\\
n=cut\n\nsub rest_request {\n	print_debug_message(\
 'rest_request', 'Begin', 11 );\n	my $requestUrl =\
 shift;\n	print_debug_message( 'rest_request', 'UR\
L: ' . $requestUrl, 11 );\n\n	# Create a user agen\
t\n	my $ua = LWP::UserAgent->new();\n	'$Revision: \
1317 $' =~ m/(\\d+)/;\n	$ua->agent(\"EBI-Sample-Cl\
ient/$1 ($scriptName; $OSNAME) \" . $ua->agent());\
\n	$ua->env_proxy;\n\n	# Perform the request\n	my \
$response = $ua->get($requestUrl);\n	print_debug_m\
essage( 'rest_request', 'HTTP status: ' . $respons\
e->code,\n		11 );\n\n	# Check for HTTP error codes\
\n	if ( $response->is_error ) {\n		$response->cont\
ent() =~ m/<h1>([^<]+)<\\/h1>/;\n		die 'http statu\
s: ' . $response->code . ' ' . $response->message \
. '  ' . $1;\n	}\n	print_debug_message( 'rest_requ\
est', 'End', 11 );\n\n	# Return the response data\\
n	return $response->content();\n}\n\n=head2 rest_g\
et_parameters()\n\nGet list of tool parameter name\
s.\n\n  my (@param_list) = &rest_get_parameters();\
\n\n=cut\n\nsub rest_get_parameters {\n	print_debu\
g_message( 'rest_get_parameters', 'Begin', 1 );\n	\
my $url                = $baseUrl . '/parameters/'\
;\n	my $param_list_xml_str = rest_request($url);\n\
	my $param_list_xml     = XMLin($param_list_xml_st\
r);\n	my (@param_list)       = @{ $param_list_xml-\
>{'id'} };\n	print_debug_message( 'rest_get_parame\
ters', 'End', 1 );\n	return (@param_list);\n}\n\n=\
head2 rest_get_parameter_details()\n\nGet details \
of a tool parameter.\n\n  my $paramDetail = &rest_\
get_parameter_details($param_name);\n\n=cut\n\nsub\
 rest_get_parameter_details {\n	print_debug_messag\
e( 'rest_get_parameter_details', 'Begin', 1 );\n	m\
y $parameterId = shift;\n	print_debug_message( 're\
st_get_parameter_details',\n		'parameterId: ' . $p\
arameterId, 1 );\n	my $url                  = $bas\
eUrl . '/parameterdetails/' . $parameterId;\n	my $\
param_detail_xml_str = rest_request($url);\n	my $p\
aram_detail_xml     = XMLin($param_detail_xml_str)\
;\n	print_debug_message( 'rest_get_parameter_detai\
ls', 'End', 1 );\n	return ($param_detail_xml);\n}\\
n\n=head2 rest_run()\n\nSubmit a job.\n\n  my $job\
_id = &rest_run($email, $title, \\%params );\n\n=c\
ut\n\nsub rest_run {\n	print_debug_message( 'rest_\
run', 'Begin', 1 );\n	my $email  = shift;\n	my $ti\
tle  = shift;\n	my $params = shift;\n	print_debug_\
message( 'rest_run', 'email: ' . $email, 1 );\n	if\
 ( defined($title) ) {\n		print_debug_message( 're\
st_run', 'title: ' . $title, 1 );\n	}\n	print_debu\
g_message( 'rest_run', 'params: ' . Dumper($params\
), 1 );\n\n	# User agent to perform http requests\\
n	my $ua = LWP::UserAgent->new();\n	$ua->env_proxy\
;\n\n	# Clean up parameters\n	my (%tmp_params) = %\
{$params};\n	$tmp_params{'email'} = $email;\n	$tmp\
_params{'title'} = $title;\n	foreach my $param_nam\
e ( keys(%tmp_params) ) {\n		if ( !defined( $tmp_p\
arams{$param_name} ) ) {\n			delete $tmp_params{$p\
aram_name};\n		}\n	}\n\n	# Submit the job as a POS\
T\n	my $url = $baseUrl . '/run';\n	my $response = \
$ua->post( $url, \\%tmp_params );\n	print_debug_me\
ssage( 'rest_run', 'HTTP status: ' . $response->co\
de, 11 );\n	print_debug_message( 'rest_run',\n		'r\
equest: ' . $response->request()->content(), 11 );\
\n\n	# Check for HTTP error codes\n	if ( $response\
->is_error ) {\n		$response->content() =~ m/<h1>([\
^<]+)<\\/h1>/;\n		die 'http status: ' . $response-\
>code . ' ' . $response->message . '  ' . $1;\n	}\\
n\n	# The job id is returned\n	my $job_id = $respo\
nse->content();\n	print_debug_message( 'rest_run',\
 'End', 1 );\n	return $job_id;\n}\n\n=head2 rest_g\
et_status()\n\nCheck the status of a job.\n\n  my \
$status = &rest_get_status($job_id);\n\n=cut\n\nsu\
b rest_get_status {\n	print_debug_message( 'rest_g\
et_status', 'Begin', 1 );\n	my $job_id = shift;\n	\
print_debug_message( 'rest_get_status', 'jobid: ' \
. $job_id, 2 );\n	my $status_str = 'UNKNOWN';\n	my\
 $url        = $baseUrl . '/status/' . $job_id;\n	\
$status_str = &rest_request($url);\n	print_debug_m\
essage( 'rest_get_status', 'status_str: ' . $statu\
s_str, 2 );\n	print_debug_message( 'rest_get_statu\
s', 'End', 1 );\n	return $status_str;\n}\n\n=head2\
 rest_get_result_types()\n\nGet list of result typ\
es for finished job.\n\n  my (@result_types) = &re\
st_get_result_types($job_id);\n\n=cut\n\nsub rest_\
get_result_types {\n	print_debug_message( 'rest_ge\
t_result_types', 'Begin', 1 );\n	my $job_id = shif\
t;\n	print_debug_message( 'rest_get_result_types',\
 'jobid: ' . $job_id, 2 );\n	my (@resultTypes);\n	\
my $url                      = $baseUrl . '/result\
types/' . $job_id;\n	my $result_type_list_xml_str \
= &rest_request($url);\n	my $result_type_list_xml \
    = XMLin($result_type_list_xml_str);\n	(@result\
Types) = @{ $result_type_list_xml->{'type'} };\n	p\
rint_debug_message( 'rest_get_result_types',\n		sc\
alar(@resultTypes) . ' result types', 2 );\n	print\
_debug_message( 'rest_get_result_types', 'End', 1 \
);\n	return (@resultTypes);\n}\n\n=head2 rest_get_\
result()\n\nGet result data of a specified type fo\
r a finished job.\n\n  my $result = rest_get_resul\
t($job_id, $result_type);\n\n=cut\n\nsub rest_get_\
result {\n	print_debug_message( 'rest_get_result',\
 'Begin', 1 );\n	my $job_id = shift;\n	my $type   \
= shift;\n	print_debug_message( 'rest_get_result',\
 'jobid: ' . $job_id, 1 );\n	print_debug_message( \
'rest_get_result', 'type: ' . $type,    1 );\n	my \
$url    = $baseUrl . '/result/' . $job_id . '/' . \
$type;\n	my $result = &rest_request($url);\n	print\
_debug_message( 'rest_get_result', length($result)\
 . ' characters',\n		1 );\n	print_debug_message( '\
rest_get_result', 'End', 1 );\n	return $result;\n}\
\n\n\n=head2 print_debug_message()\n\nPrint debug \
message at specified debug level.\n\n  &print_debu\
g_message($method_name, $message, $level);\n\n=cut\
\n\nsub print_debug_message {\n	my $function_name \
= shift;\n	my $message       = shift;\n	my $level \
        = shift;\n	if ( $level <= $params{'debugLe\
vel'} ) {\n		print STDERR '[', $function_name, '()\
] ', $message, \"\\n\";\n	}\n}\n\n=head2 print_too\
l_params()\n\nPrint list of tool parameters.\n\n  \
&print_tool_params();\n\n=cut\n\nsub print_tool_pa\
rams {\n	print_debug_message( 'print_tool_params',\
 'Begin', 1 );\n	my (@param_list) = &rest_get_para\
meters();\n	foreach my $param ( sort(@param_list) \
) {\n		print $param, \"\\n\";\n	}\n	print_debug_me\
ssage( 'print_tool_params', 'End', 1 );\n}\n\n=hea\
d2 print_param_details()\n\nPrint details of a too\
l parameter.\n\n  &print_param_details($param_name\
);\n\n=cut\n\nsub print_param_details {\n	print_de\
bug_message( 'print_param_details', 'Begin', 1 );\\
n	my $paramName = shift;\n	print_debug_message( 'p\
rint_param_details', 'paramName: ' . $paramName, 2\
 );\n	my $paramDetail = &rest_get_parameter_detail\
s($paramName);\n	print $paramDetail->{'name'}, \"\\
\t\", $paramDetail->{'type'}, \"\\n\";\n	print $pa\
ramDetail->{'description'}, \"\\n\";\n	foreach my \
$value ( @{ $paramDetail->{'values'}->{'value'} } \
) {\n		print $value->{'value'};\n		if ( $value->{'\
defaultValue'} eq 'true' ) {\n			print \"\\t\", 'd\
efault';\n		}\n		print \"\\n\";\n		print \"\\t\", \
$value->{'label'}, \"\\n\";\n	}\n	print_debug_mess\
age( 'print_param_details', 'End', 1 );\n}\n\n=hea\
d2 print_job_status()\n\nPrint status of a job.\n\\
n  &print_job_status($job_id);\n\n=cut\n\nsub prin\
t_job_status {\n	print_debug_message( 'print_job_s\
tatus', 'Begin', 1 );\n	my $jobid = shift;\n	print\
_debug_message( 'print_job_status', 'jobid: ' . $j\
obid, 1 );\n	if ( $outputLevel > 0 ) {\n		print ST\
DERR 'Getting status for job ', $jobid, \"\\n\";\n\
	}\n	my $result = &rest_get_status($jobid);\n	prin\
t \"$result\\n\";\n	if ( $result eq 'FINISHED' && \
$outputLevel > 0 ) {\n		print STDERR \"To get resu\
lts: $scriptName --polljob --jobid \" . $jobid\n		\
  . \"\\n\";\n	}\n	print_debug_message( 'print_job\
_status', 'End', 1 );\n}\n\n=head2 print_result_ty\
pes()\n\nPrint available result types for a job.\n\
\n  &print_result_types($job_id);\n\n=cut\n\nsub p\
rint_result_types {\n	print_debug_message( 'result\
_types', 'Begin', 1 );\n	my $jobid = shift;\n	prin\
t_debug_message( 'result_types', 'jobid: ' . $jobi\
d, 1 );\n	if ( $outputLevel > 0 ) {\n		print STDER\
R 'Getting result types for job ', $jobid, \"\\n\"\
;\n	}\n	my $status = &rest_get_status($jobid);\n	i\
f ( $status eq 'PENDING' || $status eq 'RUNNING' )\
 {\n		print STDERR 'Error: Job status is ', $statu\
s,\n		  '. To get result types the job must be fin\
ished.', \"\\n\";\n	}\n	else {\n		my (@resultTypes\
) = &rest_get_result_types($jobid);\n		if ( $outpu\
tLevel > 0 ) {\n			print STDOUT 'Available result \
types:', \"\\n\";\n		}\n		foreach my $resultType (\
@resultTypes) {\n			print STDOUT $resultType->{'id\
entifier'}, \"\\n\";\n			if ( defined( $resultType\
->{'label'} ) ) {\n				print STDOUT \"\\t\", $resu\
ltType->{'label'}, \"\\n\";\n			}\n			if ( defined\
( $resultType->{'description'} ) ) {\n				print ST\
DOUT \"\\t\", $resultType->{'description'}, \"\\n\\
";\n			}\n			if ( defined( $resultType->{'mediaTyp\
e'} ) ) {\n				print STDOUT \"\\t\", $resultType->\
{'mediaType'}, \"\\n\";\n			}\n			if ( defined( $r\
esultType->{'fileSuffix'} ) ) {\n				print STDOUT \
\"\\t\", $resultType->{'fileSuffix'}, \"\\n\";\n		\
	}\n		}\n		if ( $status eq 'FINISHED' && $outputLe\
vel > 0 ) {\n			print STDERR \"\\n\", 'To get resu\
lts:', \"\\n\",\n			  \"  $scriptName --polljob --\
jobid \" . $params{'jobid'} . \"\\n\",\n			  \"  $\
scriptName --polljob --outformat <type> --jobid \"\
\n			  . $params{'jobid'} . \"\\n\";\n		}\n	}\n	pr\
int_debug_message( 'result_types', 'End', 1 );\n}\\
n\n=head2 submit_job()\n\nSubmit a job to the serv\
ice.\n\n  &submit_job($seq);\n\n=cut\n\nsub submit\
_job {\n	print_debug_message( 'submit_job', 'Begin\
', 1 );\n\n	# Set input sequence\n	$tool_params{'s\
equence'} = shift;\n\n	# Load parameters\n	&load_p\
arams();\n\n	# Submit the job\n	my $jobid = &rest_\
run( $params{'email'}, $params{'title'}, \\%tool_p\
arams );\n\n	# Simulate sync/async mode\n	if ( def\
ined( $params{'async'} ) ) {\n		print STDOUT $jobi\
d, \"\\n\";\n		if ( $outputLevel > 0 ) {\n			print\
 STDERR\n			  \"To check status: $scriptName --sta\
tus --jobid $jobid\\n\";\n		}\n	}\n	else {\n		if (\
 $outputLevel > 0 ) {\n			print STDERR \"JobId: $j\
obid\\n\";\n		}\n		sleep 1;\n		&get_results($jobid\
);\n	}\n	print_debug_message( 'submit_job', 'End',\
 1 );\n}\n\n=head2 multi_submit_job()\n\nSubmit mu\
ltiple jobs assuming input is a collection of fast\
a formatted sequences.\n\n  &multi_submit_job();\n\
\n=cut\n\nsub multi_submit_job {\n	print_debug_mes\
sage( 'multi_submit_job', 'Begin', 1 );\n	my $jobI\
dForFilename = 1;\n	$jobIdForFilename = 0 if ( def\
ined( $params{'outfile'} ) );\n	my (@filename_list\
) = ();\n\n	# Query sequence\n	if ( defined( $ARGV\
[0] ) ) {    # Bare option\n		if ( -f $ARGV[0] || \
$ARGV[0] eq '-' ) {    # File\n			push( @filename_\
list, $ARGV[0] );\n		}\n	}\n	if ( $params{'sequenc\
e'} ) {                   # Via --sequence\n		if (\
 -f $params{'sequence'} || $params{'sequence'} eq \
'-' ) {    # File\n			push( @filename_list, $param\
s{'sequence'} );\n		}\n	}\n\n	$/ = '>';\n	foreach \
my $filename (@filename_list) {\n		open( my $INFIL\
E, '<', $filename )\n		  or die \"Error: unable to\
 open file $filename ($!)\";\n		while (<$INFILE>) \
{\n			my $seq = $_;\n			$seq =~ s/>$//;\n			if ( $\
seq =~ m/(\\S+)/ ) {\n				print STDERR \"Submittin\
g job for: $1\\n\"\n				  if ( $outputLevel > 0 );\
\n				$seq = '>' . $seq;\n				&print_debug_message\
( 'multi_submit_job', $seq, 11 );\n				&submit_job\
($seq);\n				$params{'outfile'} = undef if ( $jobI\
dForFilename == 1 );\n			}\n		}\n		close $INFILE;\\
n	}\n	print_debug_message( 'multi_submit_job', 'En\
d', 1 );\n}\n\n=head2 list_file_submit_job()\n\nSu\
bmit multiple jobs using a file containing a list \
of entry identifiers as \ninput.\n\n  &list_file_s\
ubmit_job($list_filename)\n\n=cut\n\nsub list_file\
_submit_job {\n	my $filename         = shift;\n	my\
 $jobIdForFilename = 1;\n	$jobIdForFilename = 0 if\
 ( defined( $params{'outfile'} ) );\n\n	# Iterate \
over identifiers, submitting each job\n	open( my $\
LISTFILE, '<', $filename )\n	  or die 'Error: unab\
le to open file ' . $filename . ' (' . $! . ')';\n\
	while (<$LISTFILE>) {\n		my $line = $_;\n		chomp(\
$line);\n		if ( $line ne '' ) {\n			&print_debug_m\
essage( 'list_file_submit_job', 'line: ' . $line, \
2 );\n			if ( $line =~ m/\\w:\\w/ ) {    # Check t\
his is an identifier\n				print STDERR \"Submittin\
g job for: $line\\n\"\n				  if ( $outputLevel > 0\
 );\n				&submit_job($line);\n			}\n			else {\n			\
	print STDERR\n\"Warning: line \\\"$line\\\" is no\
t recognised as an identifier\\n\";\n			}\n		}\n		\
$params{'outfile'} = undef if ( $jobIdForFilename \
== 1 );\n	}\n	close $LISTFILE;\n}\n\n=head2 load_d\
ata()\n\nLoad sequence data from file or option sp\
ecified on the command-line.\n\n  &load_data();\n\\
n=cut\n\nsub load_data {\n	print_debug_message( 'l\
oad_data', 'Begin', 1 );\n	my $retSeq;\n\n	# Query\
 sequence\n	if ( defined( $ARGV[0] ) ) {    # Bare\
 option\n		if ( -f $ARGV[0] || $ARGV[0] eq '-' ) {\
    # File\n			$retSeq = &read_file( $ARGV[0] );\n\
		}\n		else {                                     \
# DB:ID or sequence\n			$retSeq = $ARGV[0];\n		}\n\
	}\n	if ( $params{'sequence'} ) {                 \
  # Via --sequence\n		if ( -f $params{'sequence'} \
|| $params{'sequence'} eq '-' ) {    # File\n			$r\
etSeq = &read_file( $params{'sequence'} );\n		}\n	\
	else {    # DB:ID or sequence\n			$retSeq = $para\
ms{'sequence'};\n		}\n	}\n	print_debug_message( 'l\
oad_data', 'End', 1 );\n	return $retSeq;\n}\n\n=he\
ad2 load_params()\n\nLoad job parameters from comm\
and-line options.\n\n  &load_params();\n\n=cut\n\n\
sub load_params {\n	print_debug_message( 'load_par\
ams', 'Begin', 1 );\n\n	# Database(s) to search\n	\
my (@dbList) = split /[ ,]/, $params{'database'};\\
n	$tool_params{'database'} = \\@dbList;\n\n	# Matc\
h/missmatch\n	if ( $params{'match'} && $params{'mi\
ssmatch'} ) {\n		$tool_params{'match_scores'} =\n	\
	  $params{'match'} . ',' . $params{'missmatch'};\\
n	}\n	\n	# Compatability options, old command-line\
\n	if(!$tool_params{'alignments'} && $params{'numa\
l'}) {\n		$tool_params{'alignments'} = $params{'nu\
mal'};\n	}\n	if(!$tool_params{'gapopen'} && $param\
s{'opengap'}) {\n		$tool_params{'gapopen'} = $para\
ms{'opengap'};\n	}\n	if(!$tool_params{'gapext'} &&\
 $params{'extendgap'}) {\n		$tool_params{'gapext'}\
 = $params{'extendgap'};\n	}\n\n	print_debug_messa\
ge( 'load_params', 'End', 1 );\n}\n\n=head2 client\
_poll()\n\nClient-side job polling.\n\n  &client_p\
oll($job_id);\n\n=cut\n\nsub client_poll {\n	print\
_debug_message( 'client_poll', 'Begin', 1 );\n	my \
$jobid  = shift;\n	my $status = 'PENDING';\n\n	my \
$errorCount = 0;\n	while ($status eq 'RUNNING'\n		\
|| $status eq 'PENDING'\n		|| ( $status eq 'ERROR'\
 && $errorCount < 2 ) )\n	{\n		$status = rest_get_\
status($jobid);\n		print STDERR \"$status\\n\" if \
( $outputLevel > 0 );\n		if ( $status eq 'ERROR' )\
 {\n			$errorCount++;\n		}\n		elsif ( $errorCount \
> 0 ) {\n			$errorCount--;\n		}\n		if (   $status \
eq 'RUNNING'\n			|| $status eq 'PENDING'\n			|| $s\
tatus eq 'ERROR' )\n		{\n\n			# Wait before pollin\
g again.\n			sleep $checkInterval;\n		}\n	}\n	prin\
t_debug_message( 'client_poll', 'End', 1 );\n	retu\
rn $status;\n}\n\n=head2 get_results()\n\nGet the \
results for a job identifier.\n\n  &get_results($j\
ob_id);\n\n=cut\n\nsub get_results {\n	print_debug\
_message( 'get_results', 'Begin', 1 );\n	my $jobid\
 = shift;\n	print_debug_message( 'get_results', 'j\
obid: ' . $jobid, 1 );\n\n	# Verbose\n	if ( $outpu\
tLevel > 1 ) {\n		print 'Getting results for job '\
, $jobid, \"\\n\";\n	}\n\n	# Check status, and wai\
t if not finished\n	client_poll($jobid);\n\n	# Use\
 JobId if output file name is not defined\n	unless\
 ( defined( $params{'outfile'} ) ) {\n		$params{'o\
utfile'} = $jobid;\n	}\n\n	# Get list of data type\
s\n	my (@resultTypes) = rest_get_result_types($job\
id);\n\n	# Get the data and write it to a file\n	i\
f ( defined( $params{'outformat'} ) ) {    # Speci\
fied data type\n		my $selResultType;\n		foreach my\
 $resultType (@resultTypes) {\n			if ( $resultType\
->{'identifier'} eq $params{'outformat'} ) {\n				\
$selResultType = $resultType;\n			}\n		}\n		if ( d\
efined($selResultType) ) {\n			my $result =\n			  \
rest_get_result( $jobid, $selResultType->{'identif\
ier'} );\n			if ( $params{'outfile'} eq '-' ) {\n	\
			write_file( $params{'outfile'}, $result );\n			\
}\n			else {\n				write_file(\n					$params{'outfi\
le'} . '.'\n					  . $selResultType->{'identifier'\
} . '.'\n					  . $selResultType->{'fileSuffix'},\\
n					$result\n				);\n			}\n		}\n		else {\n			die\
 'Error: unknown result format \"' . $params{'outf\
ormat'} . '\"';\n		}\n	}\n	else {    # Data types \
available\n		      # Write a file for each output \
type\n		for my $resultType (@resultTypes) {\n			if\
 ( $outputLevel > 1 ) {\n				print STDERR 'Getting\
 ', $resultType->{'identifier'}, \"\\n\";\n			}\n	\
		my $result = rest_get_result( $jobid, $resultTyp\
e->{'identifier'} );\n			if ( $params{'outfile'} e\
q '-' ) {\n				write_file( $params{'outfile'}, $re\
sult );\n			}\n			else {\n				write_file(\n					$p\
arams{'outfile'} . '.'\n					  . $resultType->{'id\
entifier'} . '.'\n					  . $resultType->{'fileSuff\
ix'},\n					$result\n				);\n			}\n		}\n	}\n	print\
_debug_message( 'get_results', 'End', 1 );\n}\n\n=\
head2 read_file()\n\nRead a file into a scalar. Th\
e special filename '-' can be used to read from \n\
standard input (STDIN).\n\n  my $data = &read_file\
($filename);\n\n=cut\n\nsub read_file {\n	print_de\
bug_message( 'read_file', 'Begin', 1 );\n	my $file\
name = shift;\n	print_debug_message( 'read_file', \
'filename: ' . $filename, 2 );\n	my ( $content, $b\
uffer );\n	if ( $filename eq '-' ) {\n		while ( sy\
sread( STDIN, $buffer, 1024 ) ) {\n			$content .= \
$buffer;\n		}\n	}\n	else {    # File\n		open( my $\
FILE, '<', $filename )\n		  or die \"Error: unable\
 to open input file $filename ($!)\";\n		while ( s\
ysread( $FILE, $buffer, 1024 ) ) {\n			$content .=\
 $buffer;\n		}\n		close($FILE);\n	}\n	print_debug_\
message( 'read_file', 'End', 1 );\n	return $conten\
t;\n}\n\n=head2 write_file()\n\nWrite data to a fi\
le. The special filename '-' can be used to write \
to \nstandard output (STDOUT).\n\n  &write_file($f\
ilename, $data);\n\n=cut\n\nsub write_file {\n	pri\
nt_debug_message( 'write_file', 'Begin', 1 );\n	my\
 ( $filename, $data ) = @_;\n	print_debug_message(\
 'write_file', 'filename: ' . $filename, 2 );\n	if\
 ( $outputLevel > 0 ) {\n		print STDERR 'Creating \
result file: ' . $filename . \"\\n\";\n	}\n	if ( $\
filename eq '-' ) {\n		print STDOUT $data;\n	}\n	e\
lse {\n		open( my $FILE, '>', $filename )\n		  or \
die \"Error: unable to open output file $filename \
($!)\";\n		syswrite( $FILE, $data );\n		close($FIL\
E);\n	}\n	print_debug_message( 'write_file', 'End'\
, 1 );\n}\n\n=head2 usage()\n\nPrint program usage\
 message.\n\n  &usage();\n\n=cut\n\nsub usage {\n	\
print STDERR <<EOF\nNCBI BLAST\n==========\n   \nR\
apid sequence database search programs utilizing t\
he BLAST algorithm\n    \n[Required]\n\n  -p, --pr\
ogram      : str  : BLAST program to use, see --pa\
ramDetail program\n  -D, --database     : str  : d\
atabase(s) to search, space separated. See\n      \
                        --paramDetail database\n  \
    --stype        : str  : query sequence type, s\
ee --paramDetail stype\n  seqFile            : fil\
e : query sequence (\"-\" for STDIN, \\@filename f\
or\n                              identifier list \
file)\n\n[Optional]\n\n  -m, --matrix       : str \
 : scoring matrix, see --paramDetail matrix\n  -e,\
 --exp          : real : 0<E<= 1000. Statistical s\
ignificance threshold \n                          \
    for reporting database sequence matches.\n  -f\
, --filter       :      : filter the query sequenc\
e for low complexity \n                           \
   regions, see --paramDetail filter\n  -A, --alig\
n        : int  : pairwise alignment format, see -\
-paramDetail align\n  -s, --scores       : int  : \
number of scores to be reported\n  -n, --alignment\
s   : int  : number of alignments to report\n  -u,\
 --match        : int  : Match score (BLASTN only)\
\n  -v, --mismatch     : int  : Mismatch score (BL\
ASTN only)\n  -o, --gapopen      : int  : Gap open\
 penalty\n  -x, --gapext       : int  : Gap extens\
ion penalty\n  -d, --dropoff      : int  : Drop-of\
f\n  -g, --gapalign     :      : Optimise gapped a\
lignments\n      --seqrange     : str  : region wi\
thin input to use as query\n      --multifasta   :\
      : treat input as a set of fasta formatted se\
quences\n\n[General]\n\n  -h, --help        :     \
 : prints this help text\n      --async       :   \
   : forces to make an asynchronous query\n      -\
-email       : str  : e-mail address\n      --titl\
e       : str  : title for job\n      --status    \
  :      : get job status\n      --resultTypes :  \
    : get available result types for job\n      --\
polljob     :      : poll for the status of a job\\
n      --jobid       : str  : jobid that was retur\
ned when an asynchronous job \n                   \
          was submitted.\n      --outfile     : st\
r  : file name for results (default is jobid;\n   \
                          \"-\" for STDOUT)\n     \
 --outformat   : str  : result format to retrieve\\
n      --params      :      : list input parameter\
s\n      --paramDetail : str  : display details fo\
r input parameter\n      --quiet       :      : de\
crease output\n      --verbose     :      : increa\
se output\n      --trace       :      : show SOAP \
messages being interchanged \n   \nSynchronous job\
:\n\n  The results/errors are returned as soon as \
the job is finished.\n  Usage: $scriptName --email\
 <your\\@email> [options...] seqFile\n  Returns: r\
esults as an attachment\n\nAsynchronous job:\n\n  \
Use this if you want to retrieve the results at a \
later time. The results \n  are stored for up to 2\
4 hours. 	\n  Usage: $scriptName --async --email <\
your\\@email> [options...] seqFile\n  Returns: job\
id\n\n  Use the jobid to query for the status of t\
he job. If the job is finished, \n  it also return\
s the results/errors.\n  Usage: $scriptName --poll\
job --jobid <jobId> [--outfile string]\n  Returns:\
 string indicating the status of the job and if ap\
plicable, results \n  as an attachment.\n\nFurther\
 information:\n\n  http://www.ebi.ac.uk/Tools/webs\
ervices/services/sss/ncbi_blast_rest\n  http://www\
.ebi.ac.uk/Tools/webservices/tutorials/perl\n\nSup\
port/Feedback:\n\n  http://www.ebi.ac.uk/support/\\
nEOF\n}\n\n=head1 FEEDBACK/SUPPORT\n\nPlease conta\
ct us at L<http://www.ebi.ac.uk/support/> if you h\
ave any \nfeedback, suggestions or issues with the\
 service or this client.\n\n=cut\n","\n=head1 NAME\
\n\nwublast_lwp.pl\n\n=head1 DESCRIPTION\n\nWU-BLA\
ST REST web service Perl client using L<LWP>.\n\nT\
ested with:\n\n=over\n\n=item *\nL<LWP> 5.79, L<XM\
L::Simple> 2.12 and Perl 5.8.3\n\n=item *\nL<LWP> \
5.805, L<XML::Simple> 2.14 and Perl 5.8.7\n\n=item\
 *\nL<LWP> 5.820, L<XML::Simple> 2.18 and Perl 5.1\
0.0 (Ubuntu 9.04)\n\n=back\n\nFor further informat\
ion see:\n\n=over\n\n=item *\nL<http://www.ebi.ac.\
uk/Tools/webservices/services/sss/wu_blast_rest>\n\
\n=item *\nL<http://www.ebi.ac.uk/Tools/webservice\
s/tutorials/perl>\n\n=back\n\n=head1 VERSION\n\n$I\
d: wublast_lwp.pl 1317 2009-09-03 15:44:11Z hpm $\\
n\n=cut\n\nuse strict;\nuse warnings;\n\nuse Engli\
sh;\nuse LWP;\nuse XML::Simple;\nuse Getopt::Long \
qw(:config no_ignore_case bundling);\nuse File::Ba\
sename;\nuse Data::Dumper;\n\nmy $baseUrl = 'http:\
//www.ebi.ac.uk/Tools/services/rest/wublast';\n\nm\
y $checkInterval = 3;\n\nmy $outputLevel = 1;\n\nm\
y $numOpts = scalar(@ARGV);\nmy %params = ( 'debug\
Level' => 0 );\n\nmy %tool_params = ();\nGetOption\
s(\n\n	# Tool specific options\n	'program|p=s'    \
 => \\$tool_params{'program'},      # BLAST progra\
m\n	'database|D=s'    => \\$params{'database'},   \
  # Search database\n	'matrix|m=s'      => \\$tool\
_params{'matrix'},       # Scoring matrix\n	'exp|E\
=f'         => \\$tool_params{'exp'},          # E\
-value threshold\n	'viewfilter|e'    => \\$tool_pa\
rams{'viewfilter'},   # Display filtered sequence\\
n	'filter|f=s'      => \\$tool_params{'filter'},  \
     # Low complexity filter name\n	'alignments|n=\
i'  => \\$tool_params{'alignments'},   # Number of\
 alignments\n	'scores|s=i'      => \\$tool_params{\
'scores'},       # Number of scores\n	'sensitivity\
|S=s' => \\$tool_params{'sensitivity'},  # Search \
sensitivity\n	'sort|t=s'        => \\$tool_params{\
'sort'},         # Sort hits by...\n	'stats|T=s'  \
     => \\$tool_params{'stats'},        # Scoring \
statistic to use\n	'strand|d=s'      => \\$tool_pa\
rams{'strand'},       # Strand to use\n	'topcombon\
|c=i'   => \\$tool_params{'topcombon'},    # Consi\
stent sets of HSPs\n	'align|A=i'       => \\$tool_\
params{'align'},   # Pairwise alignment format\n	'\
stype=s' => \\$tool_params{'stype'},    # Sequence\
 type 'protein' or 'dna'\n	'sequence=s' => \\$para\
ms{'sequence'},         # Query sequence file or D\
B:ID\n	'multifasta' => \\$params{'multifasta'},   \
    # Multiple fasta input\n\n	# Compatability opt\
ions, old command-line.\n	'echofilter|e'    => \\$\
params{'echofilter'},   # Display filtered sequenc\
e\n	'b=i'  => \\$params{'numal'},        # Number \
of alignments\n	'appxml=s'        => \\$params{'ap\
pxml'},       # Application XML\n\n	# Generic opti\
ons\n	'email=s'       => \\$params{'email'},      \
    # User e-mail address\n	'title=s'       => \\$\
params{'title'},          # Job title\n	'outfile=s\
'     => \\$params{'outfile'},        # Output fil\
e name\n	'outformat=s'   => \\$params{'outformat'}\
,      # Output file type\n	'jobid=s'       => \\$\
params{'jobid'},          # JobId\n	'help|h'      \
  => \\$params{'help'},           # Usage help\n	'\
async'         => \\$params{'async'},          # A\
synchronous submission\n	'polljob'       => \\$par\
ams{'polljob'},        # Get results\n	'resultType\
s'   => \\$params{'resultTypes'},    # Get result \
types\n	'status'        => \\$params{'status'},   \
      # Get status\n	'params'        => \\$params{\
'params'},         # List input parameters\n	'para\
mDetail=s' => \\$params{'paramDetail'},    # Get d\
etails for parameter\n	'quiet'         => \\$param\
s{'quiet'},          # Decrease output level\n	've\
rbose'       => \\$params{'verbose'},        # Inc\
rease output level\n	'debugLevel=i'  => \\$params{\
'debugLevel'},     # Debug output level\n	'baseUrl\
=s'     => \\$baseUrl,                  # Base URL\
 for service.\n);\nif ( $params{'verbose'} ) { $ou\
tputLevel++ }\nif ( $params{'$quiet'} )  { $output\
Level-- }\n\n&print_debug_message( 'MAIN', 'LWP::V\
ERSION: ' . $LWP::VERSION,\n	1 );\n\n&print_debug_\
message( 'MAIN', \"params:\\n\" . Dumper( \\%param\
s ),           11 );\n&print_debug_message( 'MAIN'\
, \"tool_params:\\n\" . Dumper( \\%tool_params ), \
11 );\n\nmy $scriptName = basename( $0, () );\n\ni\
f ( $params{'help'} || $numOpts == 0 ) {\n	&usage(\
);\n	exit(0);\n}\n\n&print_debug_message( 'MAIN', \
'baseUrl: ' . $baseUrl, 1 );\n\nif (\n	!(\n		   $p\
arams{'polljob'}\n		|| $params{'resultTypes'}\n		|\
| $params{'status'}\n		|| $params{'params'}\n		|| \
$params{'paramDetail'}\n	)\n	&& !( defined( $ARGV[\
0] ) || defined( $params{'sequence'} ) )\n  )\n{\n\
\n	# Bad argument combination, so print error mess\
age and usage\n	print STDERR 'Error: bad option co\
mbination', \"\\n\";\n	&usage();\n	exit(1);\n}\n\n\
elsif ( $params{'params'} ) {\n	&print_tool_params\
();\n}\n\nelsif ( $params{'paramDetail'} ) {\n	&pr\
int_param_details( $params{'paramDetail'} );\n}\n\\
nelsif ( $params{'status'} && defined( $params{'jo\
bid'} ) ) {\n	&print_job_status( $params{'jobid'} \
);\n}\n\nelsif ( $params{'resultTypes'} && defined\
( $params{'jobid'} ) ) {\n	&print_result_types( $p\
arams{'jobid'} );\n}\n\nelsif ( $params{'polljob'}\
 && defined( $params{'jobid'} ) ) {\n	&get_results\
( $params{'jobid'} );\n}\n\nelse {\n\n	# Multiple \
input sequence mode, assume fasta format.\n	if ( $\
params{'multifasta'} ) {\n		&multi_submit_job();\n\
	}\n\n	# Entry identifier list file.\n	elsif (( de\
fined( $params{'sequence'} ) && $params{'sequence'\
} =~ m/^\\@/ )\n		|| ( defined( $ARGV[0] ) && $ARG\
V[0] =~ m/^\\@/ ) )\n	{\n		my $list_filename = $pa\
rams{'sequence'} || $ARGV[0];\n		$list_filename =~\
 s/^\\@//;\n		&list_file_submit_job($list_filename\
);\n	}\n\n	# Default: single sequence/identifier.\\
n	else {\n\n		# Load the sequence data and submit.\
\n		&submit_job( &load_data() );\n	}\n}\n\n=head1 \
FUNCTIONS\n\n=cut\n\n\n=head2 rest_request()\n\nPe\
rform a REST request.\n\n  my $response_str = &res\
t_request($url);\n\n=cut\n\nsub rest_request {\n	p\
rint_debug_message( 'rest_request', 'Begin', 11 );\
\n	my $requestUrl = shift;\n	print_debug_message( \
'rest_request', 'URL: ' . $requestUrl, 11 );\n\n	#\
 Create a user agent\n	my $ua = LWP::UserAgent->ne\
w();\n	'$Revision: 1317 $' =~ m/(\\d+)/;\n	$ua->ag\
ent(\"EBI-Sample-Client/$1 ($scriptName; $OSNAME) \
\" . $ua->agent());\n	$ua->env_proxy;\n\n	# Perfor\
m the request\n	my $response = $ua->get($requestUr\
l);\n	print_debug_message( 'rest_request', 'HTTP s\
tatus: ' . $response->code,\n		11 );\n\n	# Check f\
or HTTP error codes\n	if ( $response->is_error ) {\
\n		$response->content() =~ m/<h1>([^<]+)<\\/h1>/;\
\n		die 'http status: ' . $response->code . ' ' . \
$response->message . '  ' . $1;\n	}\n	print_debug_\
message( 'rest_request', 'End', 11 );\n\n	# Return\
 the response data\n	return $response->content();\\
n}\n\n=head2 rest_get_parameters()\n\nGet list of \
tool parameter names.\n\n  my (@param_list) = &res\
t_get_parameters();\n\n=cut\n\nsub rest_get_parame\
ters {\n	print_debug_message( 'rest_get_parameters\
', 'Begin', 1 );\n	my $url                = $baseU\
rl . '/parameters/';\n	my $param_list_xml_str = re\
st_request($url);\n	my $param_list_xml     = XMLin\
($param_list_xml_str);\n	my (@param_list)       = \
@{ $param_list_xml->{'id'} };\n	print_debug_messag\
e( 'rest_get_parameters', 'End', 1 );\n	return (@p\
aram_list);\n}\n\n=head2 rest_get_parameter_detail\
s()\n\nGet details of a tool parameter.\n\n  my $p\
aramDetail = &rest_get_parameter_details($param_na\
me);\n\n=cut\n\nsub rest_get_parameter_details {\n\
	print_debug_message( 'rest_get_parameter_details'\
, 'Begin', 1 );\n	my $parameterId = shift;\n	print\
_debug_message( 'rest_get_parameter_details',\n		'\
parameterId: ' . $parameterId, 1 );\n	my $url     \
             = $baseUrl . '/parameterdetails/' . $\
parameterId;\n	my $param_detail_xml_str = rest_req\
uest($url);\n	my $param_detail_xml     = XMLin($pa\
ram_detail_xml_str);\n	print_debug_message( 'rest_\
get_parameter_details', 'End', 1 );\n	return ($par\
am_detail_xml);\n}\n\n=head2 rest_run()\n\nSubmit \
a job.\n\n  my $job_id = &rest_run($email, $title,\
 \\%params );\n\n=cut\n\nsub rest_run {\n	print_de\
bug_message( 'rest_run', 'Begin', 1 );\n	my $email\
  = shift;\n	my $title  = shift;\n	my $params = sh\
ift;\n	print_debug_message( 'rest_run', 'email: ' \
. $email, 1 );\n	if ( defined($title) ) {\n		print\
_debug_message( 'rest_run', 'title: ' . $title, 1 \
);\n	}\n	print_debug_message( 'rest_run', 'params:\
 ' . Dumper($params), 1 );\n\n	# User agent to per\
form http requests\n	my $ua = LWP::UserAgent->new(\
);\n	$ua->env_proxy;\n\n	# Clean up parameters\n	m\
y (%tmp_params) = %{$params};\n	$tmp_params{'email\
'} = $email;\n	$tmp_params{'title'} = $title;\n	fo\
reach my $param_name ( keys(%tmp_params) ) {\n		if\
 ( !defined( $tmp_params{$param_name} ) ) {\n			de\
lete $tmp_params{$param_name};\n		}\n	}\n\n	# Subm\
it the job as a POST\n	my $url = $baseUrl . '/run'\
;\n	my $response = $ua->post( $url, \\%tmp_params \
);\n	print_debug_message( 'rest_run', 'HTTP status\
: ' . $response->code, 11 );\n	print_debug_message\
( 'rest_run',\n		'request: ' . $response->request(\
)->content(), 11 );\n\n	# Check for HTTP error cod\
es\n	if ( $response->is_error ) {\n		$response->co\
ntent() =~ m/<h1>([^<]+)<\\/h1>/;\n		die 'http sta\
tus: ' . $response->code . ' ' . $response->messag\
e . '  ' . $1;\n	}\n\n	# The job id is returned\n	\
my $job_id = $response->content();\n	print_debug_m\
essage( 'rest_run', 'End', 1 );\n	return $job_id;\\
n}\n\n=head2 rest_get_status()\n\nCheck the status\
 of a job.\n\n  my $status = &rest_get_status($job\
_id);\n\n=cut\n\nsub rest_get_status {\n	print_deb\
ug_message( 'rest_get_status', 'Begin', 1 );\n	my \
$job_id = shift;\n	print_debug_message( 'rest_get_\
status', 'jobid: ' . $job_id, 2 );\n	my $status_st\
r = 'UNKNOWN';\n	my $url        = $baseUrl . '/sta\
tus/' . $job_id;\n	$status_str = &rest_request($ur\
l);\n	print_debug_message( 'rest_get_status', 'sta\
tus_str: ' . $status_str, 2 );\n	print_debug_messa\
ge( 'rest_get_status', 'End', 1 );\n	return $statu\
s_str;\n}\n\n=head2 rest_get_result_types()\n\nGet\
 list of result types for finished job.\n\n  my (@\
result_types) = &rest_get_result_types($job_id);\n\
\n=cut\n\nsub rest_get_result_types {\n	print_debu\
g_message( 'rest_get_result_types', 'Begin', 1 );\\
n	my $job_id = shift;\n	print_debug_message( 'rest\
_get_result_types', 'jobid: ' . $job_id, 2 );\n	my\
 (@resultTypes);\n	my $url                      = \
$baseUrl . '/resulttypes/' . $job_id;\n	my $result\
_type_list_xml_str = &rest_request($url);\n	my $re\
sult_type_list_xml     = XMLin($result_type_list_x\
ml_str);\n	(@resultTypes) = @{ $result_type_list_x\
ml->{'type'} };\n	print_debug_message( 'rest_get_r\
esult_types',\n		scalar(@resultTypes) . ' result t\
ypes', 2 );\n	print_debug_message( 'rest_get_resul\
t_types', 'End', 1 );\n	return (@resultTypes);\n}\\
n\n=head2 rest_get_result()\n\nGet result data of \
a specified type for a finished job.\n\n  my $resu\
lt = rest_get_result($job_id, $result_type);\n\n=c\
ut\n\nsub rest_get_result {\n	print_debug_message(\
 'rest_get_result', 'Begin', 1 );\n	my $job_id = s\
hift;\n	my $type   = shift;\n	print_debug_message(\
 'rest_get_result', 'jobid: ' . $job_id, 1 );\n	pr\
int_debug_message( 'rest_get_result', 'type: ' . $\
type,    1 );\n	my $url    = $baseUrl . '/result/'\
 . $job_id . '/' . $type;\n	my $result = &rest_req\
uest($url);\n	print_debug_message( 'rest_get_resul\
t', length($result) . ' characters',\n		1 );\n	pri\
nt_debug_message( 'rest_get_result', 'End', 1 );\n\
	return $result;\n}\n\n\n=head2 print_debug_messag\
e()\n\nPrint debug message at specified debug leve\
l.\n\n  &print_debug_message($method_name, $messag\
e, $level);\n\n=cut\n\nsub print_debug_message {\n\
	my $function_name = shift;\n	my $message       = \
shift;\n	my $level         = shift;\n	if ( $level \
<= $params{'debugLevel'} ) {\n		print STDERR '[', \
$function_name, '()] ', $message, \"\\n\";\n	}\n}\\
n\n=head2 print_tool_params()\n\nPrint list of too\
l parameters.\n\n  &print_tool_params();\n\n=cut\n\
\nsub print_tool_params {\n	print_debug_message( '\
print_tool_params', 'Begin', 1 );\n	my (@param_lis\
t) = &rest_get_parameters();\n	foreach my $param (\
 sort(@param_list) ) {\n		print $param, \"\\n\";\n\
	}\n	print_debug_message( 'print_tool_params', 'En\
d', 1 );\n}\n\n=head2 print_param_details()\n\nPri\
nt details of a tool parameter.\n\n  &print_param_\
details($param_name);\n\n=cut\n\nsub print_param_d\
etails {\n	print_debug_message( 'print_param_detai\
ls', 'Begin', 1 );\n	my $paramName = shift;\n	prin\
t_debug_message( 'print_param_details', 'paramName\
: ' . $paramName, 2 );\n	my $paramDetail = &rest_g\
et_parameter_details($paramName);\n	print $paramDe\
tail->{'name'}, \"\\t\", $paramDetail->{'type'}, \\
"\\n\";\n	print $paramDetail->{'description'}, \"\\
\n\";\n	foreach my $value ( @{ $paramDetail->{'val\
ues'}->{'value'} } ) {\n		print $value->{'value'};\
\n		if ( $value->{'defaultValue'} eq 'true' ) {\n	\
		print \"\\t\", 'default';\n		}\n		print \"\\n\";\
\n		print \"\\t\", $value->{'label'}, \"\\n\";\n	}\
\n	print_debug_message( 'print_param_details', 'En\
d', 1 );\n}\n\n=head2 print_job_status()\n\nPrint \
status of a job.\n\n  &print_job_status($job_id);\\
n\n=cut\n\nsub print_job_status {\n	print_debug_me\
ssage( 'print_job_status', 'Begin', 1 );\n	my $job\
id = shift;\n	print_debug_message( 'print_job_stat\
us', 'jobid: ' . $jobid, 1 );\n	if ( $outputLevel \
> 0 ) {\n		print STDERR 'Getting status for job ',\
 $jobid, \"\\n\";\n	}\n	my $result = &rest_get_sta\
tus($jobid);\n	print \"$result\\n\";\n	if ( $resul\
t eq 'FINISHED' && $outputLevel > 0 ) {\n		print S\
TDERR \"To get results: $scriptName --polljob --jo\
bid \" . $jobid\n		  . \"\\n\";\n	}\n	print_debug_\
message( 'print_job_status', 'End', 1 );\n}\n\n=he\
ad2 print_result_types()\n\nPrint available result\
 types for a job.\n\n  &print_result_types($job_id\
);\n\n=cut\n\nsub print_result_types {\n	print_deb\
ug_message( 'result_types', 'Begin', 1 );\n	my $jo\
bid = shift;\n	print_debug_message( 'result_types'\
, 'jobid: ' . $jobid, 1 );\n	if ( $outputLevel > 0\
 ) {\n		print STDERR 'Getting result types for job\
 ', $jobid, \"\\n\";\n	}\n	my $status = &rest_get_\
status($jobid);\n	if ( $status eq 'PENDING' || $st\
atus eq 'RUNNING' ) {\n		print STDERR 'Error: Job \
status is ', $status,\n		  '. To get result types \
the job must be finished.', \"\\n\";\n	}\n	else {\\
n		my (@resultTypes) = &rest_get_result_types($job\
id);\n		if ( $outputLevel > 0 ) {\n			print STDOUT\
 'Available result types:', \"\\n\";\n		}\n		forea\
ch my $resultType (@resultTypes) {\n			print STDOU\
T $resultType->{'identifier'}, \"\\n\";\n			if ( d\
efined( $resultType->{'label'} ) ) {\n				print ST\
DOUT \"\\t\", $resultType->{'label'}, \"\\n\";\n		\
	}\n			if ( defined( $resultType->{'description'} \
) ) {\n				print STDOUT \"\\t\", $resultType->{'de\
scription'}, \"\\n\";\n			}\n			if ( defined( $res\
ultType->{'mediaType'} ) ) {\n				print STDOUT \"\\
\t\", $resultType->{'mediaType'}, \"\\n\";\n			}\n\
			if ( defined( $resultType->{'fileSuffix'} ) ) {\
\n				print STDOUT \"\\t\", $resultType->{'fileSuf\
fix'}, \"\\n\";\n			}\n		}\n		if ( $status eq 'FIN\
ISHED' && $outputLevel > 0 ) {\n			print STDERR \"\
\\n\", 'To get results:', \"\\n\",\n			  \"  $scri\
ptName --polljob --jobid \" . $params{'jobid'} . \\
"\\n\",\n			  \"  $scriptName --polljob --outforma\
t <type> --jobid \"\n			  . $params{'jobid'} . \"\\
\n\";\n		}\n	}\n	print_debug_message( 'result_type\
s', 'End', 1 );\n}\n\n=head2 submit_job()\n\nSubmi\
t a job to the service.\n\n  &submit_job($seq);\n\\
n=cut\n\nsub submit_job {\n	print_debug_message( '\
submit_job', 'Begin', 1 );\n\n	# Set input sequenc\
e\n	$tool_params{'sequence'} = shift;\n\n	# Load p\
arameters\n	&load_params();\n\n	# Submit the job\n\
	my $jobid = &rest_run( $params{'email'}, $params{\
'title'}, \\%tool_params );\n\n	# Simulate sync/as\
ync mode\n	if ( defined( $params{'async'} ) ) {\n	\
	print STDOUT $jobid, \"\\n\";\n		if ( $outputLeve\
l > 0 ) {\n			print STDERR\n			  \"To check status\
: $scriptName --status --jobid $jobid\\n\";\n		}\n\
	}\n	else {\n		if ( $outputLevel > 0 ) {\n			print\
 STDERR \"JobId: $jobid\\n\";\n		}\n		sleep 1;\n		\
&get_results($jobid);\n	}\n	print_debug_message( '\
submit_job', 'End', 1 );\n}\n\n=head2 multi_submit\
_job()\n\nSubmit multiple jobs assuming input is a\
 collection of fasta formatted sequences.\n\n  &mu\
lti_submit_job();\n\n=cut\n\nsub multi_submit_job \
{\n	print_debug_message( 'multi_submit_job', 'Begi\
n', 1 );\n	my $jobIdForFilename = 1;\n	$jobIdForFi\
lename = 0 if ( defined( $params{'outfile'} ) );\n\
	my (@filename_list) = ();\n\n	# Query sequence\n	\
if ( defined( $ARGV[0] ) ) {    # Bare option\n		i\
f ( -f $ARGV[0] || $ARGV[0] eq '-' ) {    # File\n\
			push( @filename_list, $ARGV[0] );\n		}\n	}\n	if\
 ( $params{'sequence'} ) {                   # Via\
 --sequence\n		if ( -f $params{'sequence'} || $par\
ams{'sequence'} eq '-' ) {    # File\n			push( @fi\
lename_list, $params{'sequence'} );\n		}\n	}\n\n	$\
/ = '>';\n	foreach my $filename (@filename_list) {\
\n		open( my $INFILE, '<', $filename )\n		  or die\
 \"Error: unable to open file $filename ($!)\";\n	\
	while (<$INFILE>) {\n			my $seq = $_;\n			$seq =~\
 s/>$//;\n			if ( $seq =~ m/(\\S+)/ ) {\n				print\
 STDERR \"Submitting job for: $1\\n\"\n				  if ( \
$outputLevel > 0 );\n				$seq = '>' . $seq;\n				&\
print_debug_message( 'multi_submit_job', $seq, 11 \
);\n				&submit_job($seq);\n				$params{'outfile'}\
 = undef if ( $jobIdForFilename == 1 );\n			}\n		}\
\n		close $INFILE;\n	}\n	print_debug_message( 'mul\
ti_submit_job', 'End', 1 );\n}\n\n=head2 list_file\
_submit_job()\n\nSubmit multiple jobs using a file\
 containing a list of entry identifiers as \ninput\
.\n\n  &list_file_submit_job($list_filename)\n\n=c\
ut\n\nsub list_file_submit_job {\n	my $filename   \
      = shift;\n	my $jobIdForFilename = 1;\n	$jobI\
dForFilename = 0 if ( defined( $params{'outfile'} \
) );\n\n	# Iterate over identifiers, submitting ea\
ch job\n	open( my $LISTFILE, '<', $filename )\n	  \
or die 'Error: unable to open file ' . $filename .\
 ' (' . $! . ')';\n	while (<$LISTFILE>) {\n		my $l\
ine = $_;\n		chomp($line);\n		if ( $line ne '' ) {\
\n			&print_debug_message( 'list_file_submit_job',\
 'line: ' . $line, 2 );\n			if ( $line =~ m/\\w:\\\
w/ ) {    # Check this is an identifier\n				print\
 STDERR \"Submitting job for: $line\\n\"\n				  if\
 ( $outputLevel > 0 );\n				&submit_job($line);\n	\
		}\n			else {\n				print STDERR\n\"Warning: line \
\\\"$line\\\" is not recognised as an identifier\\\
n\";\n			}\n		}\n		$params{'outfile'} = undef if (\
 $jobIdForFilename == 1 );\n	}\n	close $LISTFILE;\\
n}\n\n=head2 load_data()\n\nLoad sequence data fro\
m file or option specified on the command-line.\n\\
n  &load_data();\n\n=cut\n\nsub load_data {\n	prin\
t_debug_message( 'load_data', 'Begin', 1 );\n	my $\
retSeq;\n\n	# Query sequence\n	if ( defined( $ARGV\
[0] ) ) {    # Bare option\n		if ( -f $ARGV[0] || \
$ARGV[0] eq '-' ) {    # File\n			$retSeq = &read_\
file( $ARGV[0] );\n		}\n		else {                  \
                   # DB:ID or sequence\n			$retSeq\
 = $ARGV[0];\n		}\n	}\n	if ( $params{'sequence'} )\
 {                   # Via --sequence\n		if ( -f $\
params{'sequence'} || $params{'sequence'} eq '-' )\
 {    # File\n			$retSeq = &read_file( $params{'se\
quence'} );\n		}\n		else {    # DB:ID or sequence\\
n			$retSeq = $params{'sequence'};\n		}\n	}\n	prin\
t_debug_message( 'load_data', 'End', 1 );\n	return\
 $retSeq;\n}\n\n=head2 load_params()\n\nLoad job p\
arameters from command-line options.\n\n  &load_pa\
rams();\n\n=cut\n\nsub load_params {\n	print_debug\
_message( 'load_params', 'Begin', 1 );\n\n	# Datab\
ase(s) to search\n	my (@dbList) = split /[ ,]/, $p\
arams{'database'};\n	$tool_params{'database'} = \\\
@dbList;\n\n	# Compatability options, old command-\
line.\n	if(!$tool_params{'viewfilter'} && $params{\
'echofilter'}) {\n		$tool_params{'viewfilter'} = '\
true';\n	}\n	if(!$tool_params{'alignments'} && $pa\
rams{'numal'}) {\n		$tool_params{'alignments'} = $\
params{'numal'};\n	}\n	# TODO: set alignment forma\
t option to get NCBI BLAST XML.\n	if($params{'appx\
ml'}) {\n		$tool_params{'align'} = '';\n	}\n\n	pri\
nt_debug_message( 'load_params', 'End', 1 );\n}\n\\
n=head2 client_poll()\n\nClient-side job polling.\\
n\n  &client_poll($job_id);\n\n=cut\n\nsub client_\
poll {\n	print_debug_message( 'client_poll', 'Begi\
n', 1 );\n	my $jobid  = shift;\n	my $status = 'PEN\
DING';\n\n	my $errorCount = 0;\n	while ($status eq\
 'RUNNING'\n		|| $status eq 'PENDING'\n		|| ( $sta\
tus eq 'ERROR' && $errorCount < 2 ) )\n	{\n		$stat\
us = rest_get_status($jobid);\n		print STDERR \"$s\
tatus\\n\" if ( $outputLevel > 0 );\n		if ( $statu\
s eq 'ERROR' ) {\n			$errorCount++;\n		}\n		elsif \
( $errorCount > 0 ) {\n			$errorCount--;\n		}\n		i\
f (   $status eq 'RUNNING'\n			|| $status eq 'PEND\
ING'\n			|| $status eq 'ERROR' )\n		{\n\n			# Wait\
 before polling again.\n			sleep $checkInterval;\n\
		}\n	}\n	print_debug_message( 'client_poll', 'End\
', 1 );\n	return $status;\n}\n\n=head2 get_results\
()\n\nGet the results for a job identifier.\n\n  &\
get_results($job_id);\n\n=cut\n\nsub get_results {\
\n	print_debug_message( 'get_results', 'Begin', 1 \
);\n	my $jobid = shift;\n	print_debug_message( 'ge\
t_results', 'jobid: ' . $jobid, 1 );\n\n	# Verbose\
\n	if ( $outputLevel > 1 ) {\n		print 'Getting res\
ults for job ', $jobid, \"\\n\";\n	}\n\n	# Check s\
tatus, and wait if not finished\n	client_poll($job\
id);\n\n	# Use JobId if output file name is not de\
fined\n	unless ( defined( $params{'outfile'} ) ) {\
\n		$params{'outfile'} = $jobid;\n	}\n\n	# Get lis\
t of data types\n	my (@resultTypes) = rest_get_res\
ult_types($jobid);\n\n	# Get the data and write it\
 to a file\n	if ( defined( $params{'outformat'} ) \
) {    # Specified data type\n		my $selResultType;\
\n		foreach my $resultType (@resultTypes) {\n			if\
 ( $resultType->{'identifier'} eq $params{'outform\
at'} ) {\n				$selResultType = $resultType;\n			}\\
n		}\n		if ( defined($selResultType) ) {\n			my $r\
esult =\n			  rest_get_result( $jobid, $selResultT\
ype->{'identifier'} );\n			if ( $params{'outfile'}\
 eq '-' ) {\n				write_file( $params{'outfile'}, $\
result );\n			}\n			else {\n				write_file(\n					\
$params{'outfile'} . '.'\n					  . $selResultType-\
>{'identifier'} . '.'\n					  . $selResultType->{'\
fileSuffix'},\n					$result\n				);\n			}\n		}\n		\
else {\n			die 'Error: unknown result format \"' .\
 $params{'outformat'} . '\"';\n		}\n	}\n	else {   \
 # Data types available\n		      # Write a file fo\
r each output type\n		for my $resultType (@resultT\
ypes) {\n			if ( $outputLevel > 1 ) {\n				print S\
TDERR 'Getting ', $resultType->{'identifier'}, \"\\
\n\";\n			}\n			my $result = rest_get_result( $job\
id, $resultType->{'identifier'} );\n			if ( $param\
s{'outfile'} eq '-' ) {\n				write_file( $params{'\
outfile'}, $result );\n			}\n			else {\n				write_\
file(\n					$params{'outfile'} . '.'\n					  . $re\
sultType->{'identifier'} . '.'\n					  . $resultTy\
pe->{'fileSuffix'},\n					$result\n				);\n			}\n	\
	}\n	}\n	print_debug_message( 'get_results', 'End'\
, 1 );\n}\n\n=head2 read_file()\n\nRead a file int\
o a scalar. The special filename '-' can be used t\
o read from \nstandard input (STDIN).\n\n  my $dat\
a = &read_file($filename);\n\n=cut\n\nsub read_fil\
e {\n	print_debug_message( 'read_file', 'Begin', 1\
 );\n	my $filename = shift;\n	print_debug_message(\
 'read_file', 'filename: ' . $filename, 2 );\n	my \
( $content, $buffer );\n	if ( $filename eq '-' ) {\
\n		while ( sysread( STDIN, $buffer, 1024 ) ) {\n	\
		$content .= $buffer;\n		}\n	}\n	else {    # File\
\n		open( my $FILE, '<', $filename )\n		  or die \\
"Error: unable to open input file $filename ($!)\"\
;\n		while ( sysread( $FILE, $buffer, 1024 ) ) {\n\
			$content .= $buffer;\n		}\n		close($FILE);\n	}\\
n	print_debug_message( 'read_file', 'End', 1 );\n	\
return $content;\n}\n\n=head2 write_file()\n\nWrit\
e data to a file. The special filename '-' can be \
used to write to \nstandard output (STDOUT).\n\n  \
&write_file($filename, $data);\n\n=cut\n\nsub writ\
e_file {\n	print_debug_message( 'write_file', 'Beg\
in', 1 );\n	my ( $filename, $data ) = @_;\n	print_\
debug_message( 'write_file', 'filename: ' . $filen\
ame, 2 );\n	if ( $outputLevel > 0 ) {\n		print STD\
ERR 'Creating result file: ' . $filename . \"\\n\"\
;\n	}\n	if ( $filename eq '-' ) {\n		print STDOUT \
$data;\n	}\n	else {\n		open( my $FILE, '>', $filen\
ame )\n		  or die \"Error: unable to open output f\
ile $filename ($!)\";\n		syswrite( $FILE, $data );\
\n		close($FILE);\n	}\n	print_debug_message( 'writ\
e_file', 'End', 1 );\n}\n\n=head2 usage()\n\nPrint\
 program usage message.\n\n  &usage();\n\n=cut\n\n\
sub usage {\n	print STDERR <<EOF\nWU-BLAST\n======\
==\n   \nRapid sequence database search programs u\
tilizing the BLAST algorithm\n    \n[Required]\n\n\
  -p, --program      : str  : BLAST program to use\
, see --paramDetail program\n  -D, --database     \
: str  : database(s) to search, space separated. S\
ee\n                              --paramDetail da\
tabase\n      --stype        : str  : query sequen\
ce type, see --paramDetail stype\n  seqFile       \
     : file : query sequence (\"-\" for STDIN, \\@\
filename for\n                              identi\
fier list file)\n\n[Optional]\n\n  -m, --matrix   \
    : str  : scoring matrix, see --paramDetail mat\
rix\n  -e, --exp          : real : 0<E<= 1000. Sta\
tistical significance threshold \n                \
              for reporting database sequence matc\
hes.\n  -e, --viewfilter   :      : display the fi\
ltered query sequence\n  -f, --filter       : str \
 : filter the query sequence for low complexity \n\
                              regions, see --param\
Detail filter\n  -A, --align        : int  : pairw\
ise alignment format, see --paramDetail align\n  -\
s, --scores       : int  : number of scores to be \
reported\n  -b, --alignments   : int  : number of \
alignments to report\n  -S, --sensitivity  : str  \
: sensitivity of the search, \n                   \
           see --paramDetail sensitivity\n  -t, --\
sort	     : str  : sort order for hits, see --para\
mDetail sort\n  -T, --stats        : str  : statis\
tical model, see --paramDetail stats\n  -d, --stra\
nd       : str  : DNA strand to search with,\n    \
                          see --paramDetail strand\
\n  -c, --topcombon    : str  : consistent sets of\
 HSPs\n      --multifasta   :      : treat input a\
s a set of fasta formatted sequences\n\n[General]\\
n\n  -h, --help        :      : prints this help t\
ext\n      --async       :      : forces to make a\
n asynchronous query\n      --email       : str  :\
 e-mail address\n      --title       : str  : titl\
e for job\n      --status      :      : get job st\
atus\n      --resultTypes :      : get available r\
esult types for job\n      --polljob     :      : \
poll for the status of a job\n      --jobid       \
: str  : jobid that was returned when an asynchron\
ous job \n                             was submitt\
ed.\n      --outfile     : str  : file name for re\
sults (default is jobid;\n                        \
     \"-\" for STDOUT)\n      --outformat   : str \
 : result format to retrieve\n      --params      \
:      : list input parameters\n      --paramDetai\
l : str  : display details for input parameter\n  \
    --quiet       :      : decrease output\n      \
--verbose     :      : increase output\n      --tr\
ace       :      : show SOAP messages being interc\
hanged \n   \nSynchronous job:\n\n  The results/er\
rors are returned as soon as the job is finished.\\
n  Usage: $scriptName --email <your\\@email> [opti\
ons...] seqFile\n  Returns: results as an attachme\
nt\n\nAsynchronous job:\n\n  Use this if you want \
to retrieve the results at a later time. The resul\
ts \n  are stored for up to 24 hours. 	\n  Usage: \
$scriptName --async --email <your\\@email> [option\
s...] seqFile\n  Returns: jobid\n\n  Use the jobid\
 to query for the status of the job. If the job is\
 finished, \n  it also returns the results/errors.\
\n  Usage: $scriptName --polljob --jobid <jobId> [\
--outfile string]\n  Returns: string indicating th\
e status of the job and if applicable, results \n \
 as an attachment.\n\nFurther information:\n\n  ht\
tp://www.ebi.ac.uk/Tools/webservices/services/sss/\
wu_blast_rest\n  http://www.ebi.ac.uk/Tools/webser\
vices/tutorials/perl\n\nSupport/Feedback:\n\n  htt\
p://www.ebi.ac.uk/support/\nEOF\n}\n\n=head1 FEEDB\
ACK/SUPPORT\n\nPlease contact us at L<http://www.e\
bi.ac.uk/support/> if you have any \nfeedback, sug\
gestions or issues with the service or this client\
.\n\n=cut\n","\n\n\nmy $PROBTRESH = 0.3;# base pai\
rs below this prob threshold will be ignored\nmy $\
WEIGHT = 100.0; # float!!\nmy $NUCALPH = \"ACGTUNR\
YMKSWHBVD\";\nuse vars qw($NUCALPH $WEIGHT);\n\nmy\
 $myname = basename($0);\n\nuse strict;\nuse warni\
ngs;\n\nuse File::Basename;\nuse Getopt::Long;\nus\
e File::Glob ':glob';\nuse File::Spec;\nuse File::\
Temp qw/ tempfile tempdir /;\n\n\n\n\nsub tcoffeel\
ib_header($;$)\n{\n    my ($nseq, $fd) = @_;\n    \
if (! defined($fd)) {\n        $fd = *STDOUT;\n   \
 }\n    printf $fd \"! TC_LIB_FORMAT_01\\n\";\n   \
 printf $fd \"%d\\n\", $nseq;\n}\n\n\nsub tcoffeel\
ib_header_addseq($$;$)\n{\n    my ($id, $seq, $fd)\
 = @_;\n    if (! defined($fd)) {\n        $fd = *\
STDOUT;\n    }\n    printf $fd \"%s %d %s\\n\", $i\
d, length($seq), $seq;\n}\n\n\nsub tcoffeelib_comm\
ent($;$)\n{\n    my ($comment, $fd) = @_;\n    if \
(! defined($fd)) {\n        $fd = *STDOUT;\n    }\\
n    printf $fd \"!\" . $comment . \"\\n\";\n}\n\n\
\nsub tcoffeelib_struct($$$;$)\n{\n    my ($nseq, \
$len, $bpm, $fd) = @_;\n\n    if (! defined($fd)) \
{\n        $fd = *STDOUT;\n    }\n\n    # output b\
asepair indices with fixed weight\n    printf $fd \
\"#%d %d\\n\", $nseq, $nseq;\n    # output basepai\
rs (only once) and with unit-offset\n    for (my $\
i=0; $i<$len; $i++) {\n        for (my $j=$i+1; $j\
<$len; $j++) {\n            if (! defined($bpm->[$\
i][$j])) {\n                print STDERR \"ERROR: \
\\$bpm->[$i][$j] undefined\\n\";\n            }\n \
           if ($bpm->[$i][$j]>0) {\n              \
  print $fd $i+1;\n                print $fd \" \"\
;\n                print $fd $j+1;\n              \
  print $fd \" \" . $bpm->[$i][$j] . \"\\n\";\n   \
         }\n        }\n    }\n}\n\n\nsub tcoffeeli\
b_footer(;$)\n{\n    my ($fd) = @_;\n    if (! def\
ined($fd)) {\n        $fd = *STDOUT;\n    }\n    p\
rint $fd \"! SEQ_1_TO_N\\n\";\n}\n\n\n    \nsub pl\
fold($$$)\n{    \n    my ($id, $seq, $probtresh) =\
 @_;\n    my (@struct);# return\n    my ($templ, $\
fhtmp, $fnametmp, $cmd, $ctr, $window_size);\n    \
our $ntemp++;\n    \n    $templ = $myname . \".pid\
-\" . $$ .$ntemp .\".XXXXXX\";\n    ($fhtmp, $fnam\
etmp) = tempfile($templ, UNLINK => 1); \n    print\
 $fhtmp \">$id\\n$seq\\n\";\n\n    # --- init base\
pair array\n    #\n    for (my $i=0; $i<length($se\
q); $i++) {\n        for (my $j=$i+1; $j<length($s\
eq); $j++) {\n            $struct[$i][$j]=0;\n    \
    }\n    }\n\n\n    # --- call rnaplfold and dro\
p a readme\n    #\n    $window_size=(length($seq)<\
70)?length($seq):70;\n    $cmd = \"RNAplfold -W $w\
indow_size < $fnametmp >/dev/null\";\n    system($\
cmd);\n    \n    if ($? != 0) {\n        printf ST\
DERR \"ERROR: RNAplfold ($cmd) exited with error s\
tatus %d\\n\", $? >> 8;\n        return;\n    }\n \
   #unlink($fnametmp);\n    my $fps = sprintf(\"%s\
_dp.ps\", $id); # check long name\n    \n    if (!\
 -s $fps) {\n      {\n\n	$fps = sprintf(\"%s_dp.ps\
\", substr($id,0,12)); # check short name\n 	if (!\
 -s $fps)\n	  {\n	    die(\"couldn't find expected\
 file $fps\\n\");\n	    return;\n	  }\n      }\n  \
  }\n\n    \n    # --- read base pairs from create\
d postscript\n    #\n    open(FH, $fps);\n    whil\
e (my $line = <FH>) {\n        my ($nti, $ntj, $pr\
ob);\n        chomp($line);        \n        # lin\
e: bp bp sqrt-prob ubox\n        my @match = ($lin\
e =~ m/^([0-9]+) +([0-9]+) +([0-9\\.]+) +ubox$/);\\
n        if (scalar(@match)) {\n            $nti=$\
1;\n            $ntj=$2;\n            $prob=$3*$3;\
# prob stored as square root\n\n            if ($p\
rob>$probtresh) {\n                #printf STDERR \
\"\\$struct[$nti][$ntj] sqrtprob=$3 prob=$prob > $\
probtresh\\n\";\n                $struct[$nti-1][$\
ntj-1] = $WEIGHT\n            }\n            # sto\
re with zero-offset\n        }\n    }\n    close(F\
H);\n\n    # remove or gzi postscript\n    #\n    \
unlink($fps);\n    #\n    # or gzip\n    #$cmd = \\
"gzip -qf $fps\";\n    #system($cmd);\n    #if ($?\
 != 0) {\n    #    printf STDERR \"ERROR: gzip ($c\
md) exited with error status %d\\n\", $? >> 8;\n  \
  #}\n\n    return \\@struct;\n}\n\n\n\n\n\nsub rn\
aseqfmt($)\n{\n    my ($seq) = @_;\n    # remove g\
aps\n    $seq =~ s/-//g;\n    # uppercase RNA\n   \
 $seq = uc($seq);\n    # T -> U\n    $seq =~ s/T/U\
/g;\n    # check for invalid charaters\n    $_ = $\
seq;\n    s/[^$NUCALPH]//g;\n    return $_;\n}\n\n\
\n\n\nsub usage(;$)\n{    \n    my ($errmsg) = @_;\
\n    if ($errmsg) {\n        print STDERR \"ERROR\
: $errmsg\\n\";\n    }\n    print STDERR << \"EOF\\
";\n$myname:\n Creates a T-Coffee RNA structure li\
brary from RNAplfold prediction.\n See FIXME:citat\
ion\nUsage:\n $myname -in seq_file -out tcoffee_li\
b\nEOF\n    exit(1);\n}\n\nsub read_fasta_seq \n  \
{\n    my $f=$_[0];\n    my %hseq;\n    my (@seq, \
@com, @name);\n    my ($a, $s,$nseq);\n\n    open \
(F, $f);\n    while (<F>)\n      {\n	$s.=$_;\n    \
  }\n    close (F);\n\n    \n    @name=($s=~/>(\\S\
*).*\\n[^>]*/g);\n    \n    @seq =($s=~/>.*.*\\n([\
^>]*)/g);\n    @com =($s=~/>(\\S*)(.*)\\n([^>]*)/g\
);\n\n\n    $nseq=$#name+1;\n  \n    for ($a=0; $a\
<$nseq; $a++)\n      {\n	my $n=$name[$a];\n	my $s;\
\n	$hseq{$n}{name}=$n;\n	$s=$seq[$a];$s=~s/\\s//g;\
\n	\n	$hseq{$n}{seq}=$s;\n	$hseq{$n}{com}=$com[$a]\
;\n      }\n    return %hseq;\n  }\n\n\n\n\n\n\n\n\
my $fmsq = \"\";\nmy $flib = \"\";\nmy %OPTS;\nmy \
%seq;\nmy ($id, $nseq, $i);\nmy @nl;\n\nGetOptions\
(\"in=s\" => \\$fmsq, \"out=s\" => \\$flib);\n\nif\
 (! -s $fmsq) {\n    usage(\"empty or non-existant\
 file \\\"$fmsq\\\"\")\n}\nif (length($flib)==0) {\
\n    usage(\"empty out-filename\")\n}\n\n\n\n\n\n\
\n%seq=read_fasta_seq($fmsq);\n\n\n@nl=keys(%seq);\
\n\n$nseq=$#nl+1;\nopen FD_LIB, \">$flib\" or die \
\"can't open $flib!\";\ntcoffeelib_header($nseq, *\
FD_LIB);\nforeach $id (keys (%seq))\n  {\n    my (\
$seq, $fmtseq);\n    \n    $seq = $seq{$id}{seq};\\
n    \n    $fmtseq = rnaseqfmt($seq);# check here,\
 formatting for folding important later\n    if (l\
ength($seq)!=length($fmtseq)) {\n        print STD\
ERR \"ERROR: invalid sequence $id is not an RNA se\
quence. read seq is: $seq\\n\";\n        exit\n   \
   }\n   \n    tcoffeelib_header_addseq($id, uc($s\
eq), *FD_LIB);\n  }\ntcoffeelib_comment(\"generate\
d by $myname on \" . localtime(), *FD_LIB);\n\n\n\\
n$i=0;\nforeach $id (keys (%seq))\n  {\n    my ($c\
leanid, $seq, $bpm);\n    $seq=$seq{$id}{seq};\n  \
  $cleanid = $id;\n    $cleanid =~ s,[/ ],_,g;# ne\
eded for rnaplfold\n    $seq = rnaseqfmt($seq);\n \
   \n    $bpm = plfold($cleanid, rnaseqfmt($seq), \
$PROBTRESH);       \n    \n    tcoffeelib_struct($\
i+1, length($seq), $bpm, *FD_LIB);\n    $i++;\n}\n\
\n\ntcoffeelib_footer(*FD_LIB);\nclose FD_LIB;\nex\
it (0);\n\n","\n\n\n\n\n$cmd=join ' ', @ARGV;\nif \
($cmd=~/-infile=(\\S+)/){ $seqfile=$1;}\nif ($cmd=\
~/-outfile=(\\S+)/){ $libfile=$1;}\n\n\n\n%s=read_\
fasta_seq ($seqfile);\n\nopen (F, \">$libfile\");\\
nforeach $name (keys (%s))\n  {\n    my $tclib=\"$\
name.RNAplfold_tclib\";\n    print (F \">$name _F_\
 $tclib\\n\");\n    seq2RNAplfold2tclib ($name, $s\
{$name}{seq}, $tclib);\n  }\nclose (F);\nexit (EXI\
T_SUCCESS);\n\nsub seq2RNAplfold2tclib\n  {\n    m\
y ($name, $seq, $tclib)=@_;\n    my ($tmp);\n    $\
n++;\n    $tmp=\"tmp4seq2RNAplfold_tclib.$$.$n.pep\
\";\n    open (RF, \">$tmp\");\n    print (RF \">$\
name\\n$seq\\n\");\n    close (RF);\n    \n    sys\
tem \"t_coffee -other_pg RNAplfold2tclib.pl -in=$t\
mp -out=$tclib\";\n    \n    unlink ($tmp);\n    r\
eturn $tclib;\n  }\n    \n    \nsub read_fasta_seq\
 \n  {\n    my $f=@_[0];\n    my %hseq;\n    my (@\
seq, @com, @name);\n    my ($a, $s,$nseq);\n\n    \
open (F, $f);\n    while (<F>)\n      {\n	$s.=$_;\\
n      }\n    close (F);\n\n    \n    @name=($s=~/\
>(\\S*).*\\n[^>]*/g);\n    \n    @seq =($s=~/>.*.*\
\\n([^>]*)/g);\n    @com =($s=~/>\\S*(.*)\\n([^>]*\
)/g);\n\n    \n    $nseq=$#name+1;\n    \n    for \
($a=0; $a<$nseq; $a++)\n      {\n	my $n=$name[$a];\
\n	$hseq{$n}{name}=$n;\n	$hseq{$n}{seq}=$seq[$a];\\
n	$hseq{$n}{com}=$com[$a];\n      }\n    return %h\
seq;\n  }\n","use Getopt::Long;\nuse File::Path;\n\
use Env;\nuse FileHandle;\nuse Cwd;\nuse Sys::Host\
name;\nour $PIDCHILD;\nour $ERROR_DONE;\nour @TMPF\
ILE_LIST;\nour $EXIT_FAILURE=1;\nour $EXIT_SUCCESS\
=0;\n\nour $REFDIR=getcwd;\nour $EXIT_SUCCESS=0;\n\
our $EXIT_FAILURE=1;\n\nour $PROGRAM=\"tc_generic_\
method.pl\";\nour $CL=$PROGRAM;\n\nour $CLEAN_EXIT\
_STARTED;\nour $debug_lock=$ENV{\"DEBUG_LOCK\"};\n\
our $LOCKDIR=$ENV{\"LOCKDIR_4_TCOFFEE\"};\nif (!$L\
OCKDIR){$LOCKDIR=getcwd();}\nour $ERRORDIR=$ENV{\"\
ERRORDIR_4_TCOFFEE\"};\nour $ERRORFILE=$ENV{\"ERRO\
RFILE_4_TCOFFEE\"};\n&set_lock ($$);\nif (isshellp\
id(getppid())){lock4tc(getppid(), \"LLOCK\", \"LSE\
T\", \"$$\\n\");}\n      \nour $print;\nmy ($fmsq1\
, $fmsq2, $output, $outfile, $arch, $psv, $hmmtop_\
home, $trim, $cov, $sample, $mode, $gor_home, $gor\
_seq, $gor_obs);\n\nGetOptions(\"-in=s\" => \\$fms\
q1,\"-output=s\" =>\\$output ,\"-out=s\" => \\$out\
file, \"-arch=s\" => \\$arch,\"-psv=s\" => \\$psv,\
 \"-hmmtop_home=s\", \\$hmmtop_home,\"-trim=s\" =>\
\\$trim ,\"-print=s\" =>\\$print,\"-cov=s\" =>\\$c\
ov , \"-sample=s\" =>\\$sample, \"-mode=s\" =>\\$m\
ode, \"-gor_home=s\"=>\\$gor_home, \"-gor_seq=s\"=\
>\\$gor_seq,\"-gor_obs=s\"=>\\$gor_obs);\n\n\nif (\
!$mode){$mode = \"hmmtop\"}\nelsif ($mode eq \"hmm\
top\"){;}\nelsif ($mode eq \"gor\"){;}\nelse {myex\
it(flush_error (\"-mode=$mode is unknown\"));}\n\n\
\nour $HOME=$ENV{\"HOME\"};\nour $MCOFFEE=($ENV{\"\
MCOFFEE_4_TCOFFEE\"})?$ENV{\"MCOFFEE_4_TCOFFEE\"}:\
\"$HOME/.t_coffee/mcoffee\";\n\nif ($mode eq \"hmm\
top\")\n  {\n    check_configuration (\"hmmtop\");\
\n    if (-e $arch){$ENV{'HMMTOP_ARCH'}=$arch;}\n \
   elsif (-e $ENV{HMMTOP_ARCH}){$arch=$ENV{HMMTOP_\
ARCH};}\n    elsif (-e \"$MCOFFEE/hmmtop.arch\"){$\
arch=$ENV{'HMMTOP_ARCH'}=\"$MCOFFEE/hmmtop.arch\";\
}\n    elsif (-e \"$hmmtop_home/hmmtop.arc\"){$arc\
h=$ENV{'HMMTOP_ARCH'}=\"$hmmtop_home/hmmtop.arc\";\
}\n    else {myexit(flush_error ( \"Could not find\
 ARCH file for hmmtop\"));}\n    \n    \n    if (-\
e $psv){$ENV{'HMMTOP_PSV'}=$psv;}\n    elsif (-e $\
ENV{HMMTOP_PSV}){$psv=$ENV{HMMTOP_PSV};}\n    elsi\
f (-e \"$MCOFFEE/hmmtop.psv\"){$psv=$ENV{'HMMTOP_P\
SV'}=\"$MCOFFEE/hmmtop.psv\";}\n    elsif (-e \"$h\
mmtop_home/hmmtop.psv\"){$psv=$ENV{'HMMTOP_PSV'}=\\
"$hmmtop_home/hmmtop.psv\";}\n    else {myexit(flu\
sh_error ( \"Could not find PSV file for hmmtop\")\
);}\n  }\nelsif ($mode eq \"gor\")\n  {\n    our $\
GOR_SEQ;\n    our $GOR_OBS;\n    \n    check_confi\
guration (\"gorIV\");\n    if (-e $gor_seq){$GOR_S\
EQ=$gor_seq;}\n    elsif (-e $ENV{GOR_SEQ}){$GOR_S\
EQ=$ENV{GOR_SEQ};}\n    elsif (-e \"$MCOFFEE/New_K\
S.267.seq\"){$GOR_SEQ=\"$MCOFFEE/New_KS.267.seq\";\
}\n    elsif (-e \"$gor_home/New_KS.267.seq\"){$GO\
R_SEQ=\"$gor_home/New_KS.267.seq\";}\n    else {my\
exit(flush_error ( \"Could not find SEQ file for g\
or\"));}\n\n    if (-e $gor_obs){$GOR_OBS=$gor_obs\
;}\n    elsif (-e $ENV{GOR_OBS}){$GOR_OBS=$ENV{GOR\
_OBS};}\n    elsif (-e \"$MCOFFEE/New_KS.267.obs\"\
){$GOR_OBS=\"$MCOFFEE/New_KS.267.obs\";}\n    elsi\
f (-e \"$gor_home/New_KS.267.obs\"){$GOR_OBS=\"$go\
r_home/New_KS.267.obs\";}\n    else {myexit(flush_\
error ( \"Could not find OBS file for gor\"));}\n \
 }\n\n\nif ( ! -e $fmsq1){myexit(flush_error (\"Co\
uld Not Read Input file $fmsq1\"));}\n\n\nmy $fmsq\
2=vtmpnam();\nmy $fmsq3=vtmpnam();\nmy $tmpfile=vt\
mpnam();\nmy $predfile=vtmpnam();\n\nif ($trim){$t\
rim_action=\" +trim _aln_%%$trim\\_K1 \";}\nif ($c\
ov) {$cov_action= \" +sim_filter _aln_c$cov \";}\n\
&safe_system(\"t_coffee -other_pg seq_reformat -in\
 $fmsq1 -action +convert 'BOUJXZ-' $cov_action $tr\
im_action -output fasta_aln -out $fmsq2\");\nmy (%\
pred, %seq, %predA);\n\n\n%seq=read_fasta_seq($fms\
q2);\n%seq=fasta2sample(\\%seq, $sample);\n\nif (1\
==2 && $mode eq \"hmmtop\" && $output eq \"cons\")\
\n  {\n    fasta2hmmtop_cons($outfile,\\%seq);\n  \
}\nelse\n  {\n    %pred=fasta2pred(\\%seq, $mode);\
\n    %predA=pred2aln (\\%pred, \\%seq);\n    \n  \
  \n    if (!$output || $output eq \"prediction\")\
{output_fasta_seq (\\%predA, $outfile);}\n    elsi\
f ($output eq \"color_html\"){pred2color (\\%pred,\
\\%seq, $outfile);}\n    elsif ($output eq \"cons\\
"){pred2cons($outfile,\\%predA);}\n    else {flush\
_error (\"$output is an unknown output mode\");}\n\
  }\n\nsub fasta2sample\n  {\n    my $SR=shift;\n \
   my $it=shift;\n    my %S=%$SR;\n    \n    my $s\
eq=index2seq_name (\\%S, 1);\n    my $l=length($S{\
$seq}{seq});\n    my @sl=keys(%S);\n    my $nseq=$\
#sl+1;\n    my $index=$nseq;\n  \n    if (!$sample\
) {return %S;}\n    for (my $a=0; $a<$it; $a++)\n \
     {\n	my $newseq=\"\";\n	my $nname=\"$seq\\_sam\
pled_$index\";\n	for (my $p=0; $p<$l; $p++)\n	  {\\
n	    my $i=int(rand($nseq));\n	    \n	    my $nam\
e = $sl[$i];\n	    my $seq=$S{$name}{seq};\n	    m\
y $r=substr ($seq, $p, 1);\n	    $newseq.=$r;\n	  \
}\n	$S{$nname}{name}=$nname;\n	$S{$nname}{seq}=$ne\
wseq;\n	$S{$nname}{com}=\"sampled\";\n	$S{$nname}{\
index}=++$index;\n      }\n    return %S;\n  }\n	 \
     \nsub fasta2pred\n  {\n    my $s=shift;\n    \
my $mode=shift;\n\n    if ( $mode eq \"hmmtop\"){r\
eturn fasta2hmmtop_pred($s);}\n    elsif ($mode eq\
 \"gor\"){return fasta2gor_pred ($s);}\n  }\nsub f\
asta2hmmtop_cons\n  {\n    my $outfile=shift;\n   \
 my $SR=shift;\n    \n    my $o = new FileHandle;\\
n    my $i = new FileHandle;\n    my $tmp_in =vtmp\
nam();\n    my $tmp_out=vtmpnam();\n    my %seq=%$\
SR;\n    my %pred;\n    my $N=keys(%seq);\n    \n \
   output_fasta_seq (\\%seq,$tmp_in, \"seq\");\n  \
  `hmmtop -pi=mpred -if=$tmp_in -sf=FAS -pl 2>/dev\
/null >$tmp_out`;\n    open ($o, \">$outfile\");\n\
    open ($i, \"$tmp_out\");\n    while (<$i>)\n  \
    {\n	my $l=$_;\n	if (($l=~/>HP\\:\\s+(\\d+)\\s+\
(.*)/)){my $line=\">$2 NSEQ: $N\\n\";print $o \"$l\
ine\";}\n	elsif ( ($l=~/.*pred(.*)/))  {my $line=\\
"$1\\n\";print $o \"$line\";}\n      }\n    close \
($o);\n    close ($i);\n    return read_fasta_seq(\
$tmp);\n  }\nsub fasta2hmmtop_pred\n  {\n    my $S\
R=shift;\n    my $o = new FileHandle;\n    my $i =\
 new FileHandle;\n    my $tmp    =vtmpnam();\n    \
my $tmp_in =vtmpnam();\n    my $tmp_out=vtmpnam();\
\n    my %seq=%$SR;\n    my %pred;\n    \n\n    ou\
tput_fasta_seq (\\%seq,$tmp_in, \"seq\");\n    `hm\
mtop -if=$tmp_in -sf=FAS -pl 2>/dev/null >$tmp_out\
`;\n    open ($o, \">$tmp\");\n    open ($i, \"$tm\
p_out\");\n    while (<$i>)\n      {\n	my $l=$_;\n\
	if (($l=~/>HP\\:\\s+(\\d+)\\s+(.*)/)){my $line=\"\
>$2\\n\";print $o \"$line\";}\n	elsif ( ($l=~/.*pr\
ed(.*)/))  {my $line=\"$1\\n\";print $o \"$line\";\
}\n      }\n    close ($o);\n    close ($i);\n    \
return read_fasta_seq($tmp);\n  }\n    \n	\n	\n	  \
  \n	\n	\n\n	\nsub fasta2gor_pred\n  {\n    my $SR\
=shift;\n    my $o = new FileHandle;\n    my $i = \
new FileHandle;\n    my $tmp    =vtmpnam();\n    m\
y $tmp_in =vtmpnam();\n    my $tmp_out=vtmpnam();\\
n    my %seq=%$SR;\n    my %pred;\n    \n\n    out\
put_fasta_seq (\\%seq,$tmp_in, \"seq\");\n    `gor\
IV -prd $tmp_in -seq $GOR_SEQ -obs $GOR_OBS >$tmp_\
out`;\n    open ($o, \">$tmp\");\n    open ($i, \"\
$tmp_out\");\n    while (<$i>)\n      {\n	my $l=$_\
;\n\n	\n	if ( $l=~/>/){print $o \"$l\";}\n	elsif (\
 $l=~/Predicted Sec. Struct./){$l=~s/Predicted Sec\
. Struct\\.//;print $o \"$l\";}\n      }\n    clos\
e ($o);\n    close ($i);\n    return read_fasta_se\
q($tmp);\n  }\n			\n			     \nsub index2seq_name\n\
  {\n    \n    my $SR=shift;\n    my $index=shift;\
\n    \n    \n    my %S=%$SR;\n    \n    foreach m\
y $s (%S)\n      {\n	if ( $S{$s}{index}==$index){r\
eturn $s;}\n      }\n    return \"\";\n  }\n\nsub \
pred2cons\n  {\n    my $outfile=shift;\n    my $pr\
edR=shift;\n    my $seq=shift;\n    my %P=%$predR;\
\n    my %C;\n    my ($s,@r,$nseq);\n    my $f= ne\
w FileHandle;\n\n    open ($f, \">$outfile\");\n\n\
    if (!$seq){$seq=index2seq_name(\\%P,1);}\n    \
foreach my $s (keys(%P))\n      {\n	$nseq++;\n	$st\
ring= $P{$s}{seq};\n	$string = uc $string;\n	my @r\
=split (//,$string);\n	for (my $a=0; $a<=$#r; $a++\
)\n	  {\n	    if (($r[$a]=~/[OHICE]/)){$C{$a}{$r[$\
a]}++;}\n	  }\n      }\n    @l=keys(%C);\n    \n  \
  \n    $s=$P{$seq}{seq};\n    print $f \">$seq pr\
ed based on $nseq\\n\";\n    @r=split (//,$s);\n  \
  \n    for (my $x=0; $x<=$#r; $x++)\n      {\n	if\
 ($r[$x] ne \"-\")\n	  {\n	    my $h=$C{$x}{H};\n	\
    my $i=$C{$x}{I};\n	    my $o=$C{$x}{O};\n	    \
my $c=$C{$x}{C};\n	    my $e=$C{$x}{E};\n	    my $\
l=$i+$o;\n	    \n	    if ($h>=$i && $h>=$o && $h>=\
$c && $h>=$e){$r[$x]='H';}\n	    elsif ($i>=$o && \
$i>=$c && $i>=$e){$r[$x]='I';}\n	    elsif ($o>=$c\
 && $o>=$e){$r[$x]='O';}\n	    elsif ($c>=$e){$r[$\
x]='C';}\n	    else {$r[$x]='E';}\n	  }\n      }\n\
    $j=join ('', @r);\n    print $f \"$j\\n\";\n  \
  close ($f);\n    return $j;\n  }\n\nsub pred2aln\
\n  {\n    my $PR=shift;\n    my $AR=shift;\n    \\
n    my $f=new FileHandle;\n    my %P=%$PR;\n    m\
y %A=%$AR;\n    my %PA;\n    my $tmp=vtmpnam();\n \
   my $f= new FileHandle;\n    \n    open ($f, \">\
$tmp\");\n    foreach my $s (sort{$A{$a}{index}<=>\
$A{$b}{index}}(keys (%A)))\n      {\n	my (@list, $\
seq, @plist, @pseq, $L, $PL, $c, $w);\n	my $seq;\n\
	my $seq=$A{$s}{seq};\n	my $pred=$P{$s}{seq};\n	$s\
eq=pred2alnS($P{$s}{seq},$A{$s}{seq});\n	print $f \
\">$s\\n$seq\\n\";\n      }\n    close ($f);\n    \
return read_fasta_seq ($tmp);\n  }\nsub pred2alnS\\
n  {\n    my $pred=shift;\n    my $aln= shift;\n  \
  my ($j,$a,$b);\n    my @P=split (//, $pred);\n  \
  my @A=split (//, $aln);\n    for ($a=$b=0;$a<=$#\
A; $a++)\n      {\n	if ($A[$a] ne \"-\"){$A[$a]=$P\
[$b++];}\n      }\n    if ($b!= ($#P+1)){add_warni\
ng (\"Could not thread sequence: $b $#P\");}\n    \
\n    $j= join ('', @A);\n    return $j;\n  }\nsub\
 pred2color\n  {\n    my $predP=shift;\n    my $al\
nP=shift;\n    my $out=shift;\n    my $F=new FileH\
andle;\n    my $struc=vtmpnam();\n    my $aln=vtmp\
nam();\n    \n\n    output_fasta_seq ($alnP, $aln)\
;\n    my %p=%$predP;\n    \n    open ($F, \">$str\
uc\");\n    \n    \n    foreach my $s (keys(%p))\n\
      {\n	\n	print $F \">$s\\n\";\n	my $s=uc($p{$s\
}{seq});\n	\n	$s=~s/[Oo]/0/g;\n	$s=~s/[Ee]/0/g;\n	\
\n	$s=~s/[Ii]/5/g;\n	$s=~s/[Cc]/5/g;\n	\n	$s=~s/[H\
h]/9/g;\n	\n	print $F \"$s\\n\";\n      }\n    clo\
se ($F);\n    \n    \n    \n    safe_system ( \"t_\
coffee -other_pg seq_reformat -in $aln -struc_in $\
struc -struc_in_f number_fasta -output color_html \
-out $out\");\n    return;\n  }\n	  \n    \nsub di\
splay_fasta_seq\n  {\n    my $SR=shift;\n    my %S\
=%$SR;\n    \n    foreach my $s (sort{$S{$a}{index\
}<=>$S{$b}{index}}(keys (%S)))\n      {\n	print ST\
DERR \">$s\\n$S{$s}{seq}\\n\";\n      }\n    close\
 ($f);\n  }\nsub output_fasta_seq\n  {\n    my $SR\
=shift;\n    my $outfile=shift;\n    my $mode =shi\
ft;\n    my $f= new FileHandle;\n    my %S=%$SR;\n\
    \n    \n    open ($f, \">$outfile\");\n    for\
each my $s (sort{$S{$a}{index}<=>$S{$b}{index}}(ke\
ys (%S)))\n      {\n	my $seq=$S{$s}{seq};\n	if ( $\
mode eq \"seq\"){$seq=~s/\\-//g;}\n	print $f \">$s\
\\n$seq\\n\";\n      }\n    close ($f);\n  }\n    \
  \nsub read_fasta_seq \n  {\n    my $f=$_[0];\n  \
  my %hseq;\n    my (@seq, @com, @name);\n    my (\
$a, $s,$nseq);\n    my $index;\n    open (F, $f);\\
n    while (<F>)\n      {\n	$s.=$_;\n      }\n    \
close (F);\n\n    \n    @name=($s=~/>(\\S*).*\\n[^\
>]*/g);\n    \n    @seq =($s=~/>.*.*\\n([^>]*)/g);\
\n    @com =($s=~/>.*(.*)\\n([^>]*)/g);\n\n\n    $\
nseq=$#name+1;\n    \n  \n    for ($a=0; $a<$nseq;\
 $a++)\n      {\n	my $n=$name[$a];\n	my $s;\n	$hse\
q{$n}{name}=$n;\n	$s=$seq[$a];$s=~s/\\s//g;\n	$hse\
q{$n}{index}=++$index;\n	$hseq{$n}{seq}=$s;\n	$hse\
q{$n}{com}=$com[$a];\n      }\n    return %hseq;\n\
  }\n\n\nsub file2head\n      {\n	my $file = shift\
;\n	my $size = shift;\n	my $f= new FileHandle;\n	m\
y $line;\n	open ($f,$file);\n	read ($f,$line, $siz\
e);\n	close ($f);\n	return $line;\n      }\nsub fi\
le2tail\n      {\n	my $file = shift;\n	my $size = \
shift;\n	my $f= new FileHandle;\n	my $line;\n	\n	o\
pen ($f,$file);\n	seek ($f,$size*-1, 2);\n	read ($\
f,$line, $size);\n	close ($f);\n	return $line;\n  \
    }\n\n\nsub vtmpnam\n      {\n	my $r=rand(10000\
0);\n	my $f=\"file.$r.$$\";\n	while (-e $f)\n	  {\\
n	    $f=vtmpnam();\n	  }\n	push (@TMPFILE_LIST, $\
f);\n	return $f;\n      }\n\nsub myexit\n  {\n    \
my $code=@_[0];\n    if ($CLEAN_EXIT_STARTED==1){r\
eturn;}\n    else {$CLEAN_EXIT_STARTED=1;}\n    ##\
# ONLY BARE EXIT\n    exit ($code);\n  }\nsub set_\
error_lock\n    {\n      my $name = shift;\n      \
my $pid=$$;\n\n      \n      &lock4tc ($$,\"LERROR\
\", \"LSET\", \"$$ -- ERROR: $name $PROGRAM\\n\");\
\n      return;\n    }\nsub set_lock\n  {\n    my \
$pid=shift;\n    my $msg= shift;\n    my $p=getppi\
d();\n    &lock4tc ($pid,\"LLOCK\",\"LRESET\",\"$p\
$msg\\n\");\n  }\nsub unset_lock\n   {\n     \n   \
 my $pid=shift;\n    &lock4tc ($pid,\"LLOCK\",\"LR\
ELEASE\",\"\");\n  }\nsub shift_lock\n  {\n    my \
$from=shift;\n    my $to=shift;\n    my $from_type\
=shift;\n    my $to_type=shift;\n    my $action=sh\
ift;\n    my $msg;\n    \n    if (!&lock4tc($from,\
 $from_type, \"LCHECK\", \"\")){return 0;}\n    $m\
sg=&lock4tc ($from, $from_type, \"LREAD\", \"\");\\
n    &lock4tc ($from, $from_type,\"LRELEASE\", $ms\
g);\n    &lock4tc ($to, $to_type, $action, $msg);\\
n    return;\n  }\nsub isshellpid\n  {\n    my $p=\
shift;\n    if (!lock4tc ($p, \"LLOCK\", \"LCHECK\\
")){return 0;}\n    else\n      {\n	my $c=lock4tc(\
$p, \"LLOCK\", \"LREAD\");\n	if ( $c=~/-SHELL-/){r\
eturn 1;}\n      }\n    return 0;\n  }\nsub isroot\
pid\n  {\n    if(lock4tc (getppid(), \"LLOCK\", \"\
LCHECK\")){return 0;}\n    else {return 1;}\n  }\n\
sub lock4tc\n	{\n	  my ($pid,$type,$action,$value)\
=@_;\n	  my $fname;\n	  my $host=hostname;\n	  \n	\
  if ($type eq \"LLOCK\"){$fname=\"$LOCKDIR/.$pid.\
$host.lock4tcoffee\";}\n	  elsif ( $type eq \"LERR\
OR\"){ $fname=\"$LOCKDIR/.$pid.$host.error4tcoffee\
\";}\n	  elsif ( $type eq \"LWARNING\"){ $fname=\"\
$LOCKDIR/.$pid.$host.warning4tcoffee\";}\n	  \n	  \
if ($debug_lock)\n	    {\n	      print STDERR \"\\\
n\\t---lock4tc(tcg): $action => $fname =>$value (R\
D: $LOCKDIR)\\n\";\n	    }\n\n	  if    ($action eq\
 \"LCHECK\") {return -e $fname;}\n	  elsif ($actio\
n eq \"LREAD\"){return file2string($fname);}\n	  e\
lsif ($action eq \"LSET\") {return string2file ($v\
alue, $fname, \">>\");}\n	  elsif ($action eq \"LR\
ESET\") {return string2file ($value, $fname, \">\"\
);}\n	  elsif ($action eq \"LRELEASE\") \n	    {\n\
	      if ( $debug_lock)\n		{\n		  my $g=new FileH\
andle;\n		  open ($g, \">>$fname\");\n		  print $g\
 \"\\nDestroyed by $$\\n\";\n		  close ($g);\n		  \
safe_system (\"mv $fname $fname.old\");\n		}\n	   \
   else\n		{\n		  unlink ($fname);\n		}\n	    }\n	\
  return \"\";\n	}\n	\nsub file2string\n	{\n	  my \
$file=@_[0];\n	  my $f=new FileHandle;\n	  my $r;\\
n	  open ($f, \"$file\");\n	  while (<$f>){$r.=$_;\
}\n	  close ($f);\n	  return $r;\n	}\nsub string2f\
ile \n    {\n    my ($s,$file,$mode)=@_;\n    my $\
f=new FileHandle;\n    \n    open ($f, \"$mode$fil\
e\");\n    print $f  \"$s\";\n    close ($f);\n  }\
\n\nBEGIN\n    {\n      srand;\n    \n      $SIG{'\
SIGUP'}='signal_cleanup';\n      $SIG{'SIGINT'}='s\
ignal_cleanup';\n      $SIG{'SIGQUIT'}='signal_cle\
anup';\n      $SIG{'SIGILL'}='signal_cleanup';\n  \
    $SIG{'SIGTRAP'}='signal_cleanup';\n      $SIG{\
'SIGABRT'}='signal_cleanup';\n      $SIG{'SIGEMT'}\
='signal_cleanup';\n      $SIG{'SIGFPE'}='signal_c\
leanup';\n      \n      $SIG{'SIGKILL'}='signal_cl\
eanup';\n      $SIG{'SIGPIPE'}='signal_cleanup';\n\
      $SIG{'SIGSTOP'}='signal_cleanup';\n      $SI\
G{'SIGTTIN'}='signal_cleanup';\n      $SIG{'SIGXFS\
Z'}='signal_cleanup';\n      $SIG{'SIGINFO'}='sign\
al_cleanup';\n      \n      $SIG{'SIGBUS'}='signal\
_cleanup';\n      $SIG{'SIGALRM'}='signal_cleanup'\
;\n      $SIG{'SIGTSTP'}='signal_cleanup';\n      \
$SIG{'SIGTTOU'}='signal_cleanup';\n      $SIG{'SIG\
VTALRM'}='signal_cleanup';\n      $SIG{'SIGUSR1'}=\
'signal_cleanup';\n\n\n      $SIG{'SIGSEGV'}='sign\
al_cleanup';\n      $SIG{'SIGTERM'}='signal_cleanu\
p';\n      $SIG{'SIGCONT'}='signal_cleanup';\n    \
  $SIG{'SIGIO'}='signal_cleanup';\n      $SIG{'SIG\
PROF'}='signal_cleanup';\n      $SIG{'SIGUSR2'}='s\
ignal_cleanup';\n\n      $SIG{'SIGSYS'}='signal_cl\
eanup';\n      $SIG{'SIGURG'}='signal_cleanup';\n \
     $SIG{'SIGCHLD'}='signal_cleanup';\n      $SIG\
{'SIGXCPU'}='signal_cleanup';\n      $SIG{'SIGWINC\
H'}='signal_cleanup';\n      \n      $SIG{'INT'}='\
signal_cleanup';\n      $SIG{'TERM'}='signal_clean\
up';\n      $SIG{'KILL'}='signal_cleanup';\n      \
$SIG{'QUIT'}='signal_cleanup';\n      \n      our \
$debug_lock=$ENV{\"DEBUG_LOCK\"};\n      \n      \\
n      \n      \n      foreach my $a (@ARGV){$CL.=\
\" $a\";}\n      if ( $debug_lock ){print STDERR \\
"\\n\\n\\n********** START PG: $PROGRAM **********\
***\\n\";}\n      if ( $debug_lock ){print STDERR \
\"\\n\\n\\n**********(tcg) LOCKDIR: $LOCKDIR $$ **\
***********\\n\";}\n      if ( $debug_lock ){print\
 STDERR \"\\n --- $$ -- $CL\\n\";}\n      \n	     \
\n      \n      \n    }\nsub flush_error\n  {\n   \
 my $msg=shift;\n    return add_error ($EXIT_FAILU\
RE,$$, $$,getppid(), $msg, $CL);\n  }\nsub add_err\
or \n  {\n    my $code=shift;\n    my $rpid=shift;\
\n    my $pid=shift;\n    my $ppid=shift;\n    my \
$type=shift;\n    my $com=shift;\n    \n    $ERROR\
_DONE=1;\n    lock4tc ($rpid, \"LERROR\",\"LSET\",\
\"$pid -- ERROR: $type\\n\");\n    lock4tc ($$, \"\
LERROR\",\"LSET\", \"$pid -- COM: $com\\n\");\n   \
 lock4tc ($$, \"LERROR\",\"LSET\", \"$pid -- STACK\
: $ppid -> $pid\\n\");\n   \n    return $code;\n  \
}\nsub add_warning \n  {\n    my $rpid=shift;\n   \
 my $pid =shift;\n    my $command=shift;\n    my $\
msg=\"$$ -- WARNING: $command\\n\";\n    print STD\
ERR \"$msg\";\n    lock4tc ($$, \"LWARNING\", \"LS\
ET\", $msg);\n  }\n\nsub signal_cleanup\n  {\n    \
print dtderr \"\\n**** $$ (tcg) was killed\\n\";\n\
    &cleanup;\n    exit ($EXIT_FAILURE);\n  }\nsub\
 clean_dir\n  {\n    my $dir=@_[0];\n    if ( !-d \
$dir){return ;}\n    elsif (!($dir=~/tmp/)){return\
 ;}#safety check 1\n    elsif (($dir=~/\\*/)){retu\
rn ;}#safety check 2\n    else\n      {\n	`rm -rf \
$dir`;\n      }\n    return;\n  }\nsub cleanup\n  \
{\n    #print stderr \"\\n----tc: $$ Kills $PIDCHI\
LD\\n\";\n    #kill (SIGTERM,$PIDCHILD);\n    my $\
p=getppid();\n    $CLEAN_EXIT_STARTED=1;\n    \n  \
  \n    \n    if (&lock4tc($$,\"LERROR\", \"LCHECK\
\", \"\"))\n      {\n	my $ppid=getppid();\n	if (!$\
ERROR_DONE) \n	  {\n	    &lock4tc($$,\"LERROR\", \\
"LSET\", \"$$ -- STACK: $p -> $$\\n\");\n	    &loc\
k4tc($$,\"LERROR\", \"LSET\", \"$$ -- COM: $CL\\n\\
");\n	  }\n      }\n    my $warning=&lock4tc($$, \\
"LWARNING\", \"LREAD\", \"\");\n    my $error=&loc\
k4tc($$,  \"LERROR\", \"LREAD\", \"\");\n    #rele\
ase error and warning lock if root\n    \n    if (\
isrootpid() && ($warning || $error) )\n      {\n	\\
n	print STDERR \"**************** Summary ********\
*****\\n$error\\n$warning\\n\";\n\n	&lock4tc($$,\"\
LERROR\",\"RELEASE\",\"\");\n	&lock4tc($$,\"LWARNI\
NG\",\"RELEASE\",\"\");\n      } \n    \n    \n   \
 foreach my $f (@TMPFILE_LIST)\n      {\n	if (-e $\
f){unlink ($f);} \n      }\n    foreach my $d (@TM\
PDIR_LIST)\n      {\n	clean_dir ($d);\n      }\n  \
  #No More Lock Release\n    #&lock4tc($$,\"LLOCK\\
",\"LRELEASE\",\"\"); #release lock \n\n    if ( $\
debug_lock ){print STDERR \"\\n\\n\\n********** EN\
D PG: $PROGRAM ($$) *************\\n\";}\n    if (\
 $debug_lock ){print STDERR \"\\n\\n\\n**********(\
tcg) LOCKDIR: $LOCKDIR $$ *************\\n\";}\n  \
}\nEND \n  {\n    \n    &cleanup();\n  }\n   \n\ns\
ub safe_system \n{\n  my $com=shift;\n  my $ntry=s\
hift;\n  my $ctry=shift;\n  my $pid;\n  my $status\
;\n  my $ppid=getppid();\n  if ($com eq \"\"){retu\
rn 1;}\n  \n  \n\n  if (($pid = fork ()) < 0){retu\
rn (-1);}\n  if ($pid == 0)\n    {\n      set_lock\
($$, \" -SHELL- $com (tcg)\");\n      exec ($com);\
\n    }\n  else\n    {\n      lock4tc ($$, \"LLOCK\
\", \"LSET\", \"$pid\\n\");#update parent\n      $\
PIDCHILD=$pid;\n    }\n  if ($debug_lock){printf S\
TDERR \"\\n\\t .... safe_system (fasta_seq2hmm)  p\
: $$ c: $pid COM: $com\\n\";}\n\n  waitpid ($pid,W\
TERMSIG);\n\n  shift_lock ($pid,$$, \"LWARNING\",\\
"LWARNING\", \"LSET\");\n\n  if ($? == $EXIT_FAILU\
RE || lock4tc($pid, \"LERROR\", \"LCHECK\", \"\"))\
\n    {\n      if ($ntry && $ctry <$ntry)\n	{\n	  \
add_warning ($$,$$,\"$com failed [retry: $ctry]\")\
;\n	  lock4tc ($pid, \"LRELEASE\", \"LERROR\", \"\\
");\n	  return safe_system ($com, $ntry, ++$ctry);\
\n	}\n      elsif ($ntry == -1)\n	{\n	  if (!shift\
_lock ($pid, $$, \"LERROR\", \"LWARNING\", \"LSET\\
"))\n	    {\n	      add_warning ($$,$$,\"$com fail\
ed\");\n	    }\n	  else\n	    {\n	      lock4tc ($\
pid, \"LRELEASE\", \"LERROR\", \"\");\n	    }\n	  \
return $?;}\n      else\n	{\n	  if (!shift_lock ($\
pid,$$, \"LERROR\",\"LERROR\", \"LSET\"))\n	    {\\
n	      myexit(add_error ($EXIT_FAILURE,$$,$pid,ge\
tppid(), \"UNSPECIFIED system\", $com));\n	    }\n\
	}\n    }\n  return $?;\n}\n\nsub check_configurat\
ion \n    {\n      my @l=@_;\n      my $v;\n      \
foreach my $p (@l)\n	{\n	  \n	  if   ( $p eq \"EMA\
IL\")\n	    { \n	      if ( !($EMAIL=~/@/))\n		{\n\
		add_warning($$,$$,\"Could Not Use EMAIL\");\n		m\
yexit(add_error ($EXIT_FAILURE,$$,$$,getppid(),\"E\
MAIL\",\"$CL\"));\n	      }\n	    }\n	  elsif( $p \
eq \"INTERNET\")\n	    {\n	      if ( !&check_inte\
rnet_connection())\n		{\n		  myexit(add_error ($EX\
IT_FAILURE,$$,$$,getppid(),\"INTERNET\",\"$CL\"));\
\n		}\n	    }\n	  elsif( $p eq \"wget\")\n	    {\n\
	      if (!&pg_is_installed (\"wget\") && !&pg_is\
_installed (\"curl\"))\n		{\n		  myexit(add_error \
($EXIT_FAILURE,$$,$$,getppid(),\"PG_NOT_INSTALLED:\
wget\",\"$CL\"));\n		}\n	    }\n	  elsif( !(&pg_is\
_installed ($p)))\n	    {\n	      myexit(add_error\
 ($EXIT_FAILURE,$$,$$,getppid(),\"PG_NOT_INSTALLED\
:$p\",\"$CL\"));\n	    }\n	}\n      return 1;\n   \
 }\nsub pg_is_installed\n  {\n    my @ml=@_;\n    \
my $r, $p, $m;\n    my $supported=0;\n    \n    my\
 $p=shift (@ml);\n    if ($p=~/::/)\n      {\n	if \
(safe_system (\"perl -M$p -e 1\")==$EXIT_SUCCESS){\
return 1;}\n	else {return 0;}\n      }\n    else\n\
      {\n	$r=`which $p 2>/dev/null`;\n	if ($r eq \\
"\"){return 0;}\n	else {return 1;}\n      }\n  }\n\
\n\n\nsub check_internet_connection\n  {\n    my $\
internet;\n    my $tmp;\n    &check_configuration \
( \"wget\"); \n    \n    $tmp=&vtmpnam ();\n    \n\
    if     (&pg_is_installed    (\"wget\")){`wget \
www.google.com -O$tmp >/dev/null 2>/dev/null`;}\n \
   elsif  (&pg_is_installed    (\"curl\")){`curl w\
ww.google.com -o$tmp >/dev/null 2>/dev/null`;}\n  \
  \n    if ( !-e $tmp || -s $tmp < 10){$internet=0\
;}\n    else {$internet=1;}\n    if (-e $tmp){unli\
nk $tmp;}\n\n    return $internet;\n  }\nsub check\
_pg_is_installed\n  {\n    my @ml=@_;\n    my $r=&\
pg_is_installed (@ml);\n    if (!$r && $p=~/::/)\n\
      {\n	print STDERR \"\\nYou Must Install the p\
erl package $p on your system.\\nRUN:\\n\\tsudo pe\
rl -MCPAN -e 'install $pg'\\n\";\n      }\n    els\
if (!$r)\n      {\n	myexit(flush_error(\"\\nProgra\
m $p Supported but Not Installed on your system\")\
);\n      }\n    else\n      {\n	return 1;\n      \
}\n  }\n\n\n\n","\n\n\n\n\nmy $FMODEL =\"\"; \nmy \
$TMPDIR = \"/tmp\";\n\n\n\n\nmy $NUCALPH = \"ACGTU\
NRYMKSWHBVD\";\nmy $PRIMNUCALPH = \"ACGTUN\";\nuse\
 vars qw($NUCALPH $PRIMNUCALPH $TMPDIR);\n\n\nmy $\
errmsg;\nuse vars qw($errmsg);\n\n\n\nuse Getopt::\
Long;\nuse Cwd;\nuse File::Basename;\nuse File::Te\
mp qw/ tempfile tempdir /;\nuse File::Copy;\nuse F\
ile::Path;\n\n\n\nsub usage(;$)\n{\n    my ($errms\
g) = @_;\n    my $myname = basename($0);\n\n    if\
 ($errmsg) {\n        print STDERR \"ERROR: $errms\
g\\n\";\n    }\n\n    print STDERR << \"EOF\";\n  \
  \n$myname: align two sequences by means of consa\
n\\'s sfold\nUsage:\n $myname -i file -o file -d p\
ath\nOptions:\n -i|--in : pairwise input sequence \
file\n -o|--out: output alignment\n -d|--directory\
 containing data\n\nEOF\n}\n\nsub read_stk_aln \n \
 {\n    my $f=$_[0];\n    my ($seq, $id);\n    \n \
   my %hseq;\n\n    open (STK, \"$f\");\n    while\
 (<STK>)\n      {\n	if ( /^#/ || /^\\/\\// || /^\\\
s*$/){;}\n	else\n	  {\n	    ($id,$seq)=/(\\S+)\\s+\
(\\S+)/;\n	    $hseq{$id}{'seq'}.=$seq;\n	  }\n   \
   }\n    close (STK);\n    return %hseq;\n  }\nsu\
b read_fasta_seq \n  {\n    my $f=$_[0];\n    my %\
hseq;\n    my (@seq, @com, @name);\n    my ($a, $s\
,$nseq);\n\n    open (F, $f);\n    while (<F>)\n  \
    {\n	$s.=$_;\n      }\n    close (F);\n\n    \n\
    @name=($s=~/>(.*).*\\n[^>]*/g);\n    \n    @se\
q =($s=~/>.*.*\\n([^>]*)/g);\n    @com =($s=~/>.*(\
.*)\\n([^>]*)/g);\n\n    \n    $nseq=$#name+1;\n  \
  \n    for ($a=0; $a<$nseq; $a++)\n      {\n	my $\
n=$name[$a];\n	$hseq{$n}{name}=$n;\n	$hseq{$n}{seq\
}=$seq[$a];\n	$hseq{$n}{com}=$com[$a];\n      }\n \
   return %hseq;\n  }\n\n\n\nsub sfold_parseoutput\
($$)\n{\n    my ($frawout, $foutfa) = @_;\n    my \
%haln;\n    my ($fstk, $cmd, $id);\n    open FOUTF\
A, \">$foutfa\";\n    \n    $fstk = $frawout . \".\
stk\";\n    \n    # first line of raw out contains\
 info\n    # remaining stuff is stockholm formatte\
d\n    $cmd = \"sed -e '1d' $frawout\";\n    syste\
m(\"$cmd > $fstk\");\n    if ($? != 0) {\n        \
$errmsg = \"command failed with exit status $?.\";\
\n        $errmsg .=  \"Command was \\\"$cmd\\\"\"\
;\n        return -1;\n    }\n\n    # this gives a\
n error message. just ignore it...\n    %haln=read\
_stk_aln ( $fstk);\n    foreach $i (keys (%haln))\\
n      {\n	my $s;\n	$s=$haln{$i}{'seq'};\n	$s =~ s\
/\\./-/g;\n	print FOUTFA \">$i\\n$s\\n\";\n      }\
\n    close FOUTFA;\n    return 0;\n}\n\n\n\n\nsub\
 sfold_wrapper($$$$)\n{\n    \n    my ($fs1, $fs2,\
 $fmodel, $foutfa) = @_;\n    \n\n    my ($cmd, $f\
rawout, $ferrlog, $freadme, $ftimelog, $fstk);\n\n\
    # add  basename($fmsqin) (unknown here!)\n    \
$frawout = \"sfold.log\";\n    $ferrlog = \"sfold.\
err\";\n    $ftimelog = \"sfold.time\";\n    $frea\
dme =  \"sfold.README\";\n    $fstk = \"sfold.stk\\
";\n    \n    # prepare execution...\n    #\n    #\
 ./tmp is essential for dswpalign\n    # otherwise\
 you'll get a segfault\n    mkdir \"./tmp\";\n    \
\n    $cmd = \"sfold -m $fmodel $fs1 $fs2\";\n    \
open(FREADME,\">$freadme\");\n    print FREADME \"\
$cmd\\n\"; \n    close(FREADME);\n\n    # and go\n\
    #\n    system(\"/usr/bin/time -p -o $ftimelog \
$cmd >$frawout 2>$ferrlog\");\n    if ($? != 0) {\\
n        $errmsg = \"command failed with exit stat\
us $?\";\n        $errmsg .= \"command was \\\"$cm\
d\\\". See \" . getcwd . \"\\n\";\n        return \
-1;\n    }\n\n    return sfold_parseoutput($frawou\
t, $foutfa);\n}\n\n\n\n\n\n\n\nmy ($help, $fmsqin,\
 $fmsaout);\nGetOptions(\"help\"  => \\$help,\n   \
        \"in=s\" => \\$fmsqin,\n           \"out=s\
\" => \\$fmsaout,\n	   \"data=s\" => \\$ref_dir);\\
n\n\n\nif ($help) {\n    usage();\n    exit(0);\n}\
\nif (! defined($fmsqin)) {\n    usage('missing in\
put filename');\n    exit(1);\n}\nif (! defined($f\
msaout)) {\n    usage('missing output filename');\\
n    exit(1);\n\n}\nif (scalar(@ARGV)) {\n    usag\
e('Unknown remaining args');\n    exit(1);\n}\n\n$\
FMODEL = \"$ref_dir/mix80.mod\";\nif (! -e \"$FMOD\
EL\") {\n    die(\"couldn't find sfold grammar mod\
el file. Expected $FMODEL\\n\");\n}\n\n\nmy %hseq=\
read_fasta_seq ($fmsqin);\nmy $id;\n\nforeach $id \
(keys(%hseq))\n  {\n    push(@seq_array, $hseq{$id\
});\n  }\n\nif ( scalar(@seq_array) != 2 ) {\n    \
die(\"Need *exactly* two sequences as input (pairw\
ise alignment!).\")\n}\n\n\n\nmy ($sec, $min, $hou\
r, $mday, $mon, $year, $wday, $yday, $isdst) = loc\
altime(time);\nmy $datei = sprintf(\"%4d-%02d-%02d\
\", $year+1900, $mon+1, $mday);\nmy $templ = basen\
ame($0) . \".\" . $datei . \".pid-\" . $$ . \".XXX\
XXX\";\nmy $wd = tempdir ( $templ, DIR => $TMPDIR)\
;\n\ncopy($fmsqin, \"$wd/\" . basename($fmsqin) . \
\".org\"); # for reproduction\ncopy($FMODEL, \"$wd\
\");\nmy $fmodel = basename($FMODEL);\nmy $orgwd =\
 getcwd;\nchdir $wd;\n\n\n\nmy @sepseqfiles;\nfore\
ach $id (keys(%hseq)) {\n    my ($seq, $orgseq, $f\
name, $sout);\n    $seq=$hseq{$id}{'seq'};\n    \n\
    $fname = basename($fmsqin) . \"_$id.fa\";\n   \
 # replace funnies in file/id name (e.g. \"/\" \" \
\" etc)\n    $fname =~ s,[/ ],_,g;\n    open (PF, \
\">$fname\");\n    print (PF \">$id\\n$seq\\n\");\\
n    close (PF);\n\n    push(@sepseqfiles, $fname)\
;\n}\n\nmy ($f1, $f2, $fout);\n$f1 = $sepseqfiles[\
0];\n$f2 = $sepseqfiles[1];\n$fout = $wd . basenam\
e($fmsqin) . \".out.fa\";\nif (sfold_wrapper($f1, \
$f2, $fmodel, \"$fout\") != 0) {\n    printf STDER\
R \"ERROR: See logs in $wd\\n\";\n    exit(1);\n} \
else {\n    chdir $orgwd;\n    copy($fout, $fmsaou\
t);\n    rmtree($wd);\n   exit(0);\n}\n","\nuse En\
v qw(HOST);\nuse Env qw(HOME);\nuse Env qw(USER);\\
n\n\n$tmp=clean_cr ($ARGV[0]);\nopen (F, $tmp);\n\\
nwhile ( <F>)\n  {\n    my $l=$_;\n    if ( $l=~/^\
# STOCKHOLM/){$stockholm=1;}\n    elsif ( $stockho\
lm && $l=~/^#/)\n      {\n	$l=~/^#(\\S+)\\s+(\\S+)\
\\s+(\\S*)/g;\n	$l=\"_stockholmhasch_$1\\_stockhol\
mspace_$2 $3\\n\";\n      }\n    $file.=$l;\n  }\n\
close (F);\nunlink($tmp);\n$file1=$file;\n\n$file=\
~s/\\#/_hash_symbol_/g;\n$file=~s/\\@/_arobase_sym\
bol_/g;\n\n\n$file=~s/\\n[\\.:*\\s]+\\n/\\n\\n/g;\\
n\n$file=~s/\\n[ \\t\\r\\f]+(\\b)/\\n\\1/g;\n\n\n$\
file=~s/(\\n\\S+)(\\s+)(\\S)/\\1_blank_\\3/g;\n\n$\
file=~s/[ ]//g;\n$file=~s/_blank_/ /g;\n\n\n\n$fil\
e =~s/\\n\\s*\\n/#/g;\n\n$file.=\"#\";\n$file =~s/\
\\n/@/g;\n\n\n\n\n@blocks=split /\\#/, $file;\nshi\
ft (@blocks);\n@s=split /\\@/, $blocks[0];\n$nseq=\
$#s+1;\n\n\n\n$file=join '@', @blocks;\n@lines=spl\
it /\\@/,$file;\n\n$c=0;\n\nforeach $l (@lines)\n \
 {\n    if (!($l=~/\\S/)){next;}\n    elsif ($stoc\
kholm && ($l=~/^\\/\\// || $l=~/STOCKHOLM/)){next;\
}#get read of STOCHOLM Terminator\n   \n    $l=~/(\
\\S+)\\s+(\\S*)/g;\n    $n=$1; $s=$2;\n    \n    $\
seq[$c].=$s;\n    $name[$c]=$n;\n    $c++;\n    \n\
    if ( $c==$nseq){$c=0;}\n    \n  } \n\nif ( $c!\
=0)\n      {\n	print STDERR \"ERROR: $ARGV[0] is N\
OT an MSA in Clustalw format: make sure there is n\
o blank line within a block [ERROR]\\n\";\n	exit (\
EXIT_FAILURE);\n      }\n\nfor ($a=0; $a< $nseq; $\
a++)\n  {\n    $name[$a]=cleanstring ($name[$a]);\\
n    $seq[$a]=cleanstring ($seq[$a]);\n    $seq[$a\
]=breakstring($seq[$a], 60);\n    \n    $line=\">$\
name[$a]\\n$seq[$a]\\n\";\n    \n    print \"$line\
\";\n  }\nexit (EXIT_SUCCESS);\n\nsub cleanstring\\
n  {\n    my $s=@_[0];\n    $s=~s/_hash_symbol_/\\\
#/g;\n    $s=~s/_arobase_symbol_/\\@/g;\n    $s=~s\
/[ \\t]//g;\n    return $s;\n  }\nsub breakstring\\
n  {\n    my $s=@_[0];\n    my $size=@_[1];\n    m\
y @list;\n    my $n,$ns, $symbol;\n    \n    @list\
=split //,$s;\n    $n=0;$ns=\"\";\n    foreach $sy\
mbol (@list)\n      {\n	if ( $n==$size)\n	  {\n	  \
  $ns.=\"\\n\";\n	    $n=0;\n	  }\n	$ns.=$symbol;\\
n	$n++;\n      }\n    return $ns;\n    }\n\nsub cl\
ean_cr\n  {\n    my $f=@_[0];\n    my $file;\n    \
\n    $tmp=\"f$.$$\";\n    \n    \n    open (IN, $\
f);\n    open (OUT, \">$tmp\");\n    \n    while (\
 <IN>)\n      {\n	$file=$_;\n	$file=~s/\\r\\n/\\n/\
g;\n	$file=~s/\\n\\r/\\n/g;\n	$file=~s/\\r\\r/\\n/\
g;\n	$file=~s/\\r/\\n/g;\n	print OUT \"$file\";\n \
     }\n    \n    close (IN);\n    close (OUT);\n \
   return $tmp;\n  }\n","use Env qw(HOST);\nuse En\
v qw(HOME);\nuse Env qw(USER);\n\n\n$query_start=-\
1;\n$query_end=-1;\n\nwhile (<>)\n  {\n    if ( /\\
\/\\//){$in_aln=1;}\n    elsif ( $in_aln && /(\\S+\
)\\s+(.*)/)\n      {\n\n\n	$name=$1;\n	\n\n	$seq=$\
2;\n	$seq=~s/\\s//g;\n        $seq=~s/\\~/\\-/g;\n\
	$seq=~s/\\./\\-/g;\n	if ( $list{$n}{'name'} && $l\
ist{$n}{'name'} ne $name)\n	  {\n	    print \"$lis\
t{$n}{'name'} Vs $name\";\n	    \n	    exit (EXIT_\
FAILURE);\n	  }\n	else\n	  {\n	    $list{$n}{'name\
'}= $name;\n	  }\n\n	$list{$n}{'seq'}=$list{$n}{'s\
eq'}.$seq;\n	\n	$nseq=++$n;\n	\n      }\n    else\\
n      {$n=0;}\n  }\n\n\nfor ($a=0; $a<$nseq; $a++\
)\n  {\n    print \">$list{$a}{'name'}\\n$list{$a}\
{'seq'}\\n\";\n  }\n      \n","\nuse Env qw(HOST);\
\nuse Env qw(HOME);\nuse Env qw(USER);\n\n        \
                                                \n\
use strict;                                       \
      \nuse warnings;\nuse diagnostics;\n\nmy $in_\
hit_list, my $in_aln=0, my(%name_list)=(),my (%lis\
t)=(),my $n_seq=0; my $test=0;\nmy($j)=0, my $n=0,\
 my $nom, my $lg_query, my %vu=();\n\nopen (F, \">\
tmp\");\n\n$/=\"\\n\";\nwhile (<>)\n{\n    print F\
 $_;\n    if($_ =~ /Query=\\s*(.+?)\\s/i) { $nom=$\
1;}\n\n    if ( /Sequences producing significant a\
lignments/){$in_hit_list=1;}\n    \n    if ($_=~ /\
^pdb\\|/i) { $_=~ s/pdb\\|//g; }\n    if ($_=~ /^(\
1_\\d+)\\s+\\d+/) { $_=~ s/$1/QUERY/;}\n      \n  \
  if ( /^(\\S+).+?\\s+[\\d.]+\\s+([\\de.-]+)\\s+$/\
 && $in_hit_list)	\n    {\n	my($id)=$1; # \n	$id=~\
 s/\\|/_/g; #\n	if ($id =~ /.+_$/) { chop($id) }; \
#\n	$name_list{$n_seq++}=$id;\n	$name_list{$n_seq-\
1}=~ s/.*\\|//g;     \n    }\n  \n    if (/query/i\
) {$in_aln=1;}\n    if ( /^(\\S+)\\s+(\\d+)\\s+([a\
-zA-Z-]+)\\s+(\\d+)/ || /^(\\S+)(\\s+)(\\-+)(\\s+)\
/ && ($in_aln == 1))\n    {\n	my $name=$1;\n	my $s\
tart=$2;\n	my $seq=$3;\n	my $end=$4;\n		\n	if ($na\
me =~ /QUERY/i) { $lg_query=length($seq); }\n\n	un\
less ($test > $n) #m\n	{\n	    my(@seqq)= split(''\
,$seq);\n	    my($gap_missing)= scalar(@seqq);\n	 \
   \n	    while ($gap_missing != $lg_query)  { uns\
hift (@seqq,\"-\"); $gap_missing= scalar(@seqq); }\
\n	    $seq=join('',@seqq);  #m\n	}\n	\n	if ($name\
 =~ /QUERY/i)\n	{\n	    $n=0; %vu=(); $j=0;\n	    \
$list{$n}{'real_name'}=\"$nom\";\n	}	\n	else\n	{\n\
	    unless (exists $vu{$name}) { ++$j;}	\n	    $l\
ist{$n}{'real_name'}=$name_list{$j-1};\n	}\n		\n	$\
list{$n}{'name'}=$name;\n\n	$seq=~tr/a-z/A-Z/;\n	$\
list{$n}{'seq'}=$list{$n}{'seq'};\n	$list{$n}{'seq\
'}.=$seq;\n\n	$n++;\n	$vu{$name}++;\n	$test++;\n  \
 } \n    \n}\n\nmy @numero=();\n\nfor (my $a=0; $a\
<$n; $a++) #m\n{\n    my $long=length($list{0}{'se\
q'});  \n    my $long1= length($list{$a}{'seq'});\\
n  \n    while ($long1 ne $long)\n    {\n	$list{$a\
}{'seq'}.=\"-\";\n	$long1= length ($list{$a}{'seq'\
});\n    } \n \n    push (@numero,\"$list{$a}{'nam\
e'} $list{$a}{'real_name'}\\n\");\n}\n\nmy %dejavu\
=();\n\n\nfor (my $i=0; $i<=$#numero; $i++)\n{\n  \
  my $s=\">$list{$i}{'real_name'}\\n$list{$i}{'seq\
'}\\n\";\n    my $k=0;\n    \n    if (exists $deja\
vu{$numero[$i]}) {next;}\n    else\n    {	\n	for (\
$j=0; $j<$n ; $j++)\n	{\n	    if (\"$numero[$i]\" \
eq \"$numero[$j]\" && $j != $i )\n	    {\n		++$k;\\
n		$s .=\">$list{$j}{'real_name'}\\n$list{$j}{'seq\
'}\\n\";\n	    }\n	}	\n    }\n    \n    if ($k>0) \
\n    {\n	my $cons;\n	open (SOR,\">tempo_aln2cons\\
"); print SOR $s;  close SOR ;\n	open (COM,\"t_cof\
fee -other_pg seq_reformat -in tempo_aln2cons -act\
ion +aln2cons +upper |\") ; \n     	while (<COM>)\\
n	{	\n	    if (/^>/) { $cons =\">$list{$i}{'real_n\
ame'}\\n\"; next;}\n	    $_=~ s/\\n//g;\n	    $con\
s .=$_;\n	}\n	close COM; unlink (\"tempo_aln2cons\\
");\n	print $cons,\"\\n\"; print F $cons,\"\\n\";\\
n    }	\n    else  { print $s;  print F $s; }\n   \
 \n    $dejavu{$numero[$i]}++;\n} #m\n\nexit;\n\n\\
n\n\n\n\n\n\n\n\n\n","use Env;\n\n\n$tmp_dir=\"\";\
\n$init_dir=\"\";\n$program=\"tc_generic_method.pl\
\";\n\n$blast=@ARGV[0];\n\n$name=\"query\";$seq=\"\
\";\n%p=blast_xml2profile($name,$seq,100, 0, 0, $b\
last);\n&output_profile (%p);\n\n\nsub output_prof\
ile\n  {\n    my (%profile)=(@_);\n    my ($a);\n \
   for ($a=0; $a<$profile{n}; $a++)\n      {\n	\n	\
print \">$profile{$a}{name} $profile{$a}{comment}\\
\n$profile{$a}{seq}\\n\";\n      }\n    return;\n \
 }\nsub file_contains \n  {\n    my ($file, $tag, \
$max)=(@_);\n    my ($n);\n    $n=0;\n    \n    if\
 ( !-e $file && ($file =~/$tag/)) {return 1;}\n   \
 elsif ( !-e $file){return 0;}\n    else \n      {\
\n	open (FC, \"$file\");\n	while ( <FC>)\n	  {\n	 \
   if ( ($_=~/$tag/))\n	      {\n		close (FC);\n		\
return 1;\n	      }\n	    elsif ($max && $n>$max)\\
n	      {\n		close (FC);\n		return 0;\n	      }\n	\
    $n++;\n	  }\n      }\n    close (FC);\n    ret\
urn 0;\n  }\n	    \n	  \nsub file2string\n  {\n   \
 my $f=@_[0];\n    my $string, $l;\n    open (F,\"\
$f\");\n    while (<F>)\n      {\n\n	$l=$_;\n	#cho\
mp ($l);\n	$string.=$l;\n      }\n    close (F);\n\
    $string=~s/\\r\\n//g;\n    $string=~s/\\n//g;\\
n    return $string;\n  }\n\n\n\nsub tag2value \n \
 {\n    \n    my $tag=(@_[0]);\n    my $word=(@_[1\
]);\n    my $return;\n    \n    $tag=~/$word=\"([^\
\"]+)\"/;\n    $return=$1;\n    return $return;\n \
 }\n      \nsub hit_tag2pdbid\n  {\n    my $tag=(@\
_[0]);\n    my $pdbid;\n       \n    $tag=~/id=\"(\
\\S+)\"/;\n    $pdbid=$1;\n    $pdbid=~s/_//;\n   \
 return $pdbid;\n  }\nsub id2pdbid \n  {\n    my $\
id=@_[0];\n  \n    if ($id =~/pdb/)\n      {\n	$id\
=~/pdb(.*)/;\n	$id=$1;\n      }\n    $id=~s/[|¦_]/\
/g;\n    return $id;\n  }\nsub set_blast_type \n  \
{\n    my $file =@_[0];\n    if (&file_contains ($\
file,\"EBIApplicationResult\",100)){$BLAST_TYPE=\"\
EBI\";}\n    elsif (&file_contains ($file,\"NCBI_B\
lastOutput\",100)) {$BLAST_TYPE=\"NCBI\";}\n    el\
se\n      {\n	$BLAST_TYPE=\"\";\n      }\n    retu\
rn $BLAST_TYPE;\n  }\nsub blast_xml2profile \n  {\\
n    my ($name,$seq,$maxid, $minid, $mincov, $file\
)=(@_);\n    my (%p, $a, $string, $n);\n    \n\n\n\
    if ($BLAST_TYPE eq \"EBI\" || &file_contains (\
$file,\"EBIApplicationResult\",100)){%p=ebi_blast_\
xml2profile(@_);}\n    elsif ($BLAST_TYPE eq \"NCB\
I\" || &file_contains ($file,\"NCBI_BlastOutput\",\
100)){%p=ncbi_blast_xml2profile(@_);}\n    else \n\
      {\n	print \"************ ERROR: Blast Return\
ed an unknown XML Format **********************\";\
\n	die;\n      }\n    for ($a=0; $a<$p{n}; $a++)\n\
      {\n	my $name=$p{$a}{name};\n	$p{$name}{seq}=\
$p{$a}{seq};\n      }\n    return %p;\n  }\nsub nc\
bi_blast_xml2profile \n  {\n    my ($name,$seq,$ma\
xid, $minid, $mincov, $string)=(@_);\n    my ($L,$\
l, $a,$b,$c,$d,$nhits,@identifyerL);\n    \n    \n\
    $seq=~s/[^a-zA-Z]//g;\n    $L=length ($seq);\n\
    \n    %hit=&xml2tag_list ($string, \"Hit\");\n\
    \n    \n    for ($nhits=0,$a=0; $a<$hit{n}; $a\
++)\n      {\n	my ($ldb,$id, $identity, $expectati\
on, $start, $end, $coverage, $r);\n	my (%ID,%DE,%H\
SP);\n	\n	$ldb=\"\";\n\n	%ID=&xml2tag_list ($hit{$\
a}{body}, \"Hit_id\");\n	$identifyer=$ID{0}{body};\
\n	\n	%DE=&xml2tag_list ($hit{$a}{body}, \"Hit_def\
\");\n	$definition=$DE{0}{body};\n	\n	%HSP=&xml2ta\
g_list ($hit{$a}{body}, \"Hsp\");\n	for ($b=0; $b<\
$HSP{n}; $b++)\n	  {\n	    my (%START,%END,%E,%I,%\
Q,%M);\n\n	 \n	    %START=&xml2tag_list ($HSP{$b}{\
body}, \"Hsp_query-from\");\n	    %HSTART=&xml2tag\
_list ($HSP{$b}{body}, \"Hsp_hit-from\");\n	    \n\
	    %LEN=  &xml2tag_list ($HSP{$b}{body}, \"Hsp_a\
lign-len\");\n	    %END=  &xml2tag_list ($HSP{$b}{\
body}, \"Hsp_query-to\");\n	    %HEND=  &xml2tag_l\
ist ($HSP{$b}{body}, \"Hsp_hit-to\");\n	    %E=&xm\
l2tag_list     ($HSP{$b}{body}, \"Hsp_evalue\");\n\
	    %I=&xml2tag_list     ($HSP{$b}{body}, \"Hsp_i\
dentity\");\n	    %Q=&xml2tag_list     ($HSP{$b}{b\
ody}, \"Hsp_qseq\");\n	    %M=&xml2tag_list     ($\
HSP{$b}{body}, \"Hsp_hseq\");\n	    \n	    for ($e\
=0; $e<$Q{n}; $e++)\n\n	      {\n		$qs=$Q{$e}{body\
};\n		$ms=$M{$e}{body};\n		if ($seq eq\"\"){$seq=$\
qs;$L=length($seq);}\n		\n		$expectation=$E{$e}{bo\
dy};\n		$identity=($LEN{$e}{body}==0)?0:$I{$e}{bod\
y}/$LEN{$e}{body}*100;\n		$start=$START{$e}{body};\
\n		$end=$END{$e}{body};\n		$Hstart=$HSTART{$e}{bo\
dy};\n		$Hend=$HEND{$e}{body};\n	\n		$coverage=(($\
end-$start)*100)/$L;\n\n	\n		if ($identity>$maxid \
|| $identity<$minid || $coverage<$mincov){next;}\n\
		@lr1=(split (//,$qs));\n		@lr2=(split (//,$ms));\
\n		$l=$#lr1+1;\n		for ($c=0;$c<$L;$c++){$p[$nhits\
][$c]=\"-\";}\n		for ($d=0,$c=0; $c<$l; $c++)\n		 \
 {\n		    $r=$lr1[$c];\n		    if ( $r=~/[A-Za-z]/)\
\n		      {\n			\n			$p[$nhits][$d + $start-1]=$lr\
2[$c];\n			$d++;\n		      }\n		  }\n		$Qseq[$nhits\
]=$qs;\n		$Hseq[$nhits]=$ms;\n		$QstartL[$nhits]=$\
start;\n		$HstartL[$nhits]=$Hstart;\n		$identityL[\
$nhits]=$identity;\n		$endL[$nhits]=$end;\n		$defi\
nitionL[$nhits]=$definition;\n		$identifyerL[$nhit\
s]=$identifyer;\n		$comment[$nhits]=\"$ldb|$identi\
fyer [Eval=$expectation][id=$identity%][start=$Hst\
art end=$Hend]\";\n		$nhits++;\n	      }\n	  }\n  \
    }\n    \n    $profile{n}=0;\n    $profile{$pro\
file{n}}{name}=$name;\n    $profile{$profile{n}}{s\
eq}=$seq;\n    $profile {n}++;\n    \n    for ($a=\
0; $a<$nhits; $a++)\n      {\n	$n=$a+1;\n	\n	$prof\
ile{$n}{name}=\"$name\\_$a\";\n	$profile{$n}{seq}=\
\"\";\n	$profile{$n}{Qseq}=$Qseq[$a];\n	$profile{$\
n}{Hseq}=$Hseq[$a];\n	$profile{$n}{Qstart}=$Qstart\
L[$a];\n	$profile{$n}{Hstart}=$HstartL[$a];\n	$pro\
file{$n}{identity}=$identityL[$a];\n	$profile{$n}{\
definition}=$definitionL[$a];\n	$profile{$n}{ident\
ifyer}=$identifyerL[$a];\n	$profile{$n}{comment}=$\
comment[$a];\n	for ($b=0; $b<$L; $b++)\n	  {\n	   \
 if ($p[$a][$b])\n	      {\n		$profile{$n}{seq}.=$\
p[$a][$b];\n	      }\n	    else\n	      {\n		$prof\
ile{$n}{seq}.=\"-\";\n	      }\n	  }\n      }\n   \
 \n    $profile{n}=$nhits+1;\n    return %profile;\
\n  }\nsub ebi_blast_xml2profile \n  {\n    my ($n\
ame,$seq,$maxid, $minid, $mincov, $string)=(@_);\n\
    my ($L,$l, $a,$b,$c,$d,$nhits,@identifyerL,$id\
entifyer);\n    \n\n    \n    $seq=~s/[^a-zA-Z]//g\
;\n    $L=length ($seq);\n    %hit=&xml2tag_list (\
$string, \"hit\");\n    \n    for ($nhits=0,$a=0; \
$a<$hit{n}; $a++)\n      {\n	my ($ldb,$id, $identi\
ty, $expectation, $start, $end, $coverage, $r);\n	\
my (%Q,%M,%E,%I);\n	\n	$ldb=&tag2value ($hit{$a}{o\
pen}, \"database\");\n	$identifyer=&tag2value ($hi\
t{$a}{open}, \"id\");\n\n	$description=&tag2value \
($hit{$a}{open}, \"description\");\n	\n	%Q=&xml2ta\
g_list ($hit{$a}{body}, \"querySeq\");\n	%M=&xml2t\
ag_list ($hit{$a}{body}, \"matchSeq\");\n	%E=&xml2\
tag_list ($hit{$a}{body}, \"expectation\");\n	%I=&\
xml2tag_list ($hit{$a}{body}, \"identity\");\n	\n\\
n	for ($b=0; $b<$Q{n}; $b++)\n	  {\n	    \n	    \n\
	    $qs=$Q{$b}{body};\n	    $ms=$M{$b}{body};\n	 \
   if ($seq eq\"\"){$seq=$qs;$L=length($seq);}\n\n\
	    $expectation=$E{$b}{body};\n	    $identity=$I\
{$b}{body};\n	    \n	    	    \n	    $start=&tag2v\
alue ($Q{$b}{open}, \"start\");\n	    $end=&tag2va\
lue ($Q{$b}{open}, \"end\");\n	    $startM=&tag2va\
lue ($M{$b}{open}, \"start\");\n	    $endM=&tag2va\
lue ($M{$b}{open}, \"end\");\n	    $coverage=(($en\
d-$start)*100)/$L;\n	    \n	   # print \"$id: ID: \
$identity COV: $coverage [$start $end]\\n\";\n	   \
 \n	    \n	    if ($identity>$maxid || $identity<$\
minid || $coverage<$mincov){next;}\n	    # print \\
"KEEP\\n\";\n\n	    \n	    @lr1=(split (//,$qs));\\
n	    @lr2=(split (//,$ms));\n	    $l=$#lr1+1;\n	 \
   for ($c=0;$c<$L;$c++){$p[$nhits][$c]=\"-\";}\n	\
    for ($d=0,$c=0; $c<$l; $c++)\n	      {\n		$r=$\
lr1[$c];\n		if ( $r=~/[A-Za-z]/)\n		  {\n		    \n	\
	    $p[$nhits][$d + $start-1]=$lr2[$c];\n		    $d\
++;\n		  }\n	      }\n	  \n	    \n	    $identifyer\
L[$nhits]=$identifyer;\n	    $comment[$nhits]=\"$l\
db|$identifyer [Eval=$expectation][id=$identity%][\
start=$startM end=$endM]\";\n	    $nhits++;\n	  }\\
n      }\n    \n    $profile{n}=0;\n    $profile{$\
profile{n}}{name}=$name;\n    $profile{$profile{n}\
}{seq}=$seq;\n    $profile {n}++;\n    \n    for (\
$a=0; $a<$nhits; $a++)\n      {\n	$n=$a+1;\n	$prof\
ile{$n}{name}=\"$name\\_$a\";\n	$profile{$n}{seq}=\
\"\";\n	$profile{$n}{identifyer}=$identifyerL[$a];\
\n	\n	$profile{$n}{comment}=$comment[$a];\n	for ($\
b=0; $b<$L; $b++)\n	  {\n	    if ($p[$a][$b])\n	  \
    {\n		$profile{$n}{seq}.=$p[$a][$b];\n	      }\\
n	    else\n	      {\n		$profile{$n}{seq}.=\"-\";\\
n	      }\n	  }\n      }\n    $profile{n}=$nhits+1\
;\n    \n    return %profile;\n  }\n\nsub blast_xm\
l2hit_list\n  {\n    my $string=(@_[0]);\n    retu\
rn &xml2tag_list ($string, \"hit\");\n  }\nsub xml\
2tag_list  \n  {\n    my ($string_in,$tag)=@_;\n  \
  my $tag_in, $tag_out;\n    my %tag;\n    \n    i\
f (-e $string_in)\n      {\n	$string=&file2string \
($string_in);\n      }\n    else\n      {\n	$strin\
g=$string_in;\n      }\n    $tag_in1=\"<$tag \";\n\
    $tag_in2=\"<$tag>\";\n    $tag_out=\"/$tag>\";\
\n    $string=~s/>/>##1/g;\n    $string=~s/</##2</\
g;\n    $string=~s/##1/<#/g;\n    $string=~s/##2/#\
>/g;\n    @l=($string=~/(\\<[^>]+\\>)/g);\n    $ta\
g{n}=0;\n    $in=0;$n=-1;\n  \n \n\n    foreach $t\
 (@l)\n      {\n\n	$t=~s/<#//;\n	$t=~s/#>//;\n	\n	\
if ( $t=~/$tag_in1/ || $t=~/$tag_in2/)\n	  {\n	 \n\
	    $in=1;\n	    $tag{$tag{n}}{open}=$t;\n	    $n\
++;\n	    \n	  }\n	elsif ($t=~/$tag_out/)\n	  {\n	\
    \n\n	    $tag{$tag{n}}{close}=$t;\n	    $tag{n\
}++;\n	    $in=0;\n	  }\n	elsif ($in)\n	  {\n	   \\
n	    $tag{$tag{n}}{body}.=$t;\n	  }\n      }\n  \\
n    return %tag;\n  }\n\n\n\n\n","use Env qw(HOST\
);\nuse Env qw(HOME);\nuse Env qw(USER);\nwhile (<\
>)\n  {\n    if ( /^>(\\S+)/)\n      {\n	if ($list\
{$1})\n	  {\n	    print \">$1_$list{$1}\\n\";\n	  \
  $list{$1}++;\n	  }\n	else\n	  {\n	    print $_;\\
n	    $list{$1}=1;\n	  }\n      }\n    else\n     \
 {\n	print $_;\n      }\n  }\n      \n","\n\n\nuse\
 Env qw(HOST);\nuse Env qw(HOME);\nuse Env qw(USER\
);\n\n\nopen (F,$ARGV[0]);\nwhile ( <>)\n  {\n    \
@x=/([^:,;\\)\\(\\s]+):[^:,;\\)\\(]*/g;\n    @list\
=(@list,@x);\n  }\n$n=$#list+1;\nforeach $n(@list)\
{print \">$n\\nsequence\\n\";}\n\n\nclose (F);\n",\
"\nopen (F, $ARGV[0]);\n\nwhile ( <F>)\n  {\n    @\
l=($_=~/(\\S+)/g);\n    \n    $name=shift @l;\n   \
 \n    print STDOUT \"\\n>$name\\n\";\n    foreach\
 $e (@l){$e=($e eq \"0\")?\"O\":\"I\";print \"$e\"\
;}\n  }\nclose (F);\n\n		       \n    \n","use Env\
 qw(HOST);\nuse Env qw(HOME);\nuse Env qw(USER);\n\
\n$tmp=\"$ARGV[0].$$\";\nopen (IN, $ARGV[0]);\nope\
n (OUT, \">$tmp\");\n\nwhile ( <IN>)\n  {\n    $fi\
le=$_;\n    $file=~s/\\r\\n/\\n/g;\n    $file=~s/\\
\n\\r/\\n/g;\n    $file=~s/\\r\\r/\\n/g;\n    $fil\
e=~s/\\r/\\n/g;\n    print OUT \"$file\";\n  }\ncl\
ose (IN);\nclose (OUT);\n\nopen (OUT, \">$ARGV[0]\\
");\nopen (IN, \"$tmp\");\n\nwhile ( <IN>)\n{\n  p\
rint OUT \"$_\";\n}\nclose (IN);\nclose (OUT);\nun\
link ($tmp);\n\n"};
/******************************COPYRIGHT NOTICE*******************************/
/*© Centro de Regulacio Genomica */
/*and */
/*Cedric Notredame */
/*Fri Feb 18 08:27:45 CET 2011 - Revision 596. */
/*All rights reserved.*/
/*This file is part of T-COFFEE.*/
/**/
/*    T-COFFEE is free software; you can redistribute it and/or modify*/
/*    it under the terms of the GNU General Public License as published by*/
/*    the Free Software Foundation; either version 2 of the License, or*/
/*    (at your option) any later version.*/
/**/
/*    T-COFFEE is distributed in the hope that it will be useful,*/
/*    but WITHOUT ANY WARRANTY; without even the implied warranty of*/
/*    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the*/
/*    GNU General Public License for more details.*/
/**/
/*    You should have received a copy of the GNU General Public License*/
/*    along with Foobar; if not, write to the Free Software*/
/*    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA*/
/*...............................................                                                                                      |*/
/*  If you need some more information*/
/*  cedric.notredame@europe.com*/
/*...............................................                                                                                                                                     |*/
/**/
/**/
/*	*/
/******************************COPYRIGHT NOTICE*******************************/