mkdomTest

>P36091#DCW1_YEAST
MLVNKVIGLLGVLFATRFTNAVELDLDNYESLQNATSLIAYGLMDYYTGNQYGKTVGMFSDPYYWWEAGGAWGCMLDYWFFMDNDTYNDEIIAAMIHQAGDDNDYIPLNQSTTEGNDDQAFWGIAAMTAAERNFTNPPENEPQWLYLAQAVFNTMALRWDADSCGGGLRWQIFVWNSGYDYKNTVSNGALFHIAARLARYTGNQTYVDWAEKVYEWMVGVNLISNGTYKYVYDGVSIDDNCTKVTSYQWTYNQGLLLAGSAYLYNFTGSDLWHTRTKEFLNASQVFFHDGIVYEAACQGPNSCNTDQRSFKAYFARFLGVTAQLVPETRNQIMSWLNTSAIAAAKSCSGGTDGHTCGLNWFNGTWDGMYGLGEQMSALEVMVNTRALDKPAPYTAENGGSSVGDGAAGTQAQPTNLAPLNITKGSKAGAGIITAVIGISIVACALWLVF
>Q75DG6#DCW1_ASHGO
MLAVTFTAAAVLSLLAASGRTLNLDVDDLQSIREATSLLATGLMDYYHGHDYGETVGKFSDPYYWWEAGGAWGSILDYWYYMENSTYNDLLTDSLLHQAGEDLSYTPWNETTTEGNDDQFFWGMAVMDAAERKNPNPPADQPQRLALAQAVFNTMALRWDMETCNGGLRWQIFRWNDGYHYKNSVSNGALFHMAARLTRYTGNATYLEWAERVYDWMYGVGLISIVQPNWHVVYDGTDINDNCTNLNKLQWTYNHGLIMAGCAFIYNHTQDELWHQRTLRFLDSARIFLSNDTLYEAGCQGGDNCNIDQRSFKAYFSRFLGLTAQLVPESRETIVRWIRASAQGAAASCSGGRDGHTCGLNWLINGWDGKWGLGEQMAALEIIQNLRCLERPAPYTAMNGGTSPGDPAAGTKTKAENLPPLDIKAGDRAGAGIITALIGSSFLACTLWLII
>Q6FLP9#DCW1_CANGA
MRLVTLLSGLVSLVSVFGLELDLDDYASLQNATALVAYGLMDYYTGDQYGKTVGMFSDPYYWWQAGGAWGCMLDYWYFMQNDTYNDKIMAALLHQTGDNNDYVPLNQSTTEGNDDQAFWGIAVMQAAERKFPNPPDDKPQWLYLTQAVFNTMALRWDSETCGGGLRWQIFVWNSGYDYKNTVSNGALFHIAARLARYTGNQSYVDWAERVYDWMEDVHLIDNGTYRYVYDGVSINDNCTTVTKYQWTYNQGLMLSGSAYLFNMTGSDLWHERTHAFLNASRVFFNNSILYEAACQGPNTCNTDQRSFKAYFARFLGSTAELVPETRQQIMTWLNTSALAAAKSCSGGTDGHTCGLNWFRDDWDGMYGLGEQMAALEVMVNTQALKRAPPYNATNGGNSTGDGAAGTKPHPTNLAPLHITGGSRAGAGIITAIIGISIIACALWLVY
>Q9P6I3#YHG7_SCHPO
MLAVIVAIVRWERAMIGLLRHCAARLVAFVNNTTISKPYFSTFFEGGIHSLLFFYPKRNWWFFIKMRYLSFFFEFFFLFSFAFAFDFDVTSDDSINSALTTVTDGMLNYYQSTSHTFTAYWWMTGAGLNSMTDTYAATGNTTHLDMLISALVANKGDNNDYAPNSEKFDLGNDDQGIWGLSAMSAAEVNMTTGDSSASFTELAQAVFNEIMSRWDTSSCGGGVRWQIYSFNNGYSYKNSISNGILFQLAARLARYTNNDTYVDLAQKVWDWSTTVGFVDLDDYTVYDGASVTSNCSSITNEQWSYNVGVYLAGTAFLYNYTNGSSVWQTHMEGLMNKALDYYFTSDKIIYEPSCEPTESCNSDQTAFKGMLARFLGYTMQLAPYTVETILPYIQSSAEAAALACSGGSDGVTCGYMWYWNNGTWDDHYGLGEQISAVETFQALLAQQSATILTLDTGASSESNPDAGTDDGDTVTITPATKSDKGWAGFLTFAFSFVFLLFSIWLYF
>Q9P6I4#YHG6_SCHPO
MNIYSVGLFYFFLVFIGAQAMDLDITDYQSIDNTVNIMMKDLMNYWNASSQAFVASYWWVTGATMGALLYNYELFNNDTYVDLISSSLLYNAGSGFDYQPSFEYFNLGNDDQGMWAAAAMDAAEANFSPPNSTEHSWLELTQAAFNRMSGRWDSSTCGGGLRWQAFAWLNGYSYKASVSNALLFQLSSRLARFTNESVYSDWANKIWDWTTDVGFVNTTTYAVYDGADTSTNCTTLDPSQWSYNIGIFMVGAAYMYNYTGETVWRERLDGLISHATSYFFTDDIAWDPQCEYFDDCNSDQTAFKGIFMQSFGNTIRLAPYTYDTLYPLIQTSAAAAAKQCCGGYSGTSCGIYWFWNNGTWDDNYGVQEQFSALQAVQMLMIEYAPEIATLASSTDNRSNSTYASNVVINDTNTTTTIVVKEKDRGGAGFLTFLSAIFILGASIWALVEDEEGKIPSRGKKGIAISS
>O74556#YCZ2_SCHPO
MSLTIFISLATILFSFAEAISVDLNDTSSVDLATSLVADGLLNYYAGQHKGGTIGMFLPPAYWWEAGAAWNGLLNRYIATGNSTYNELVKTSMLYQSGEDSDYMPSNYTTSEGNDDQAFWGLTVISAAEANFSNPAADEPQWLELAQAVFNQQVTRWDTDHCNGGLRWQITEFNSGYNYKNTVSNGAFFQLAARLARFTDNDTYAEWANVAYDWSQRIGFIQEDYTVFDGSSIKDNCSSIEITQWTYNIGLYMAGAAYMYNYTNSTVWKTRVEGFANKTAKTFFFKDIMFEPVCEIALSCNYDQTSFKGFLTRFMVYTAQMAPFTAPLLEPLLISTAKAAAGACCGGYDGVTCGVQWWWNNDTWDGLYGLGEQMSALEAIQAPLLLKSLQVFKASNGGSSTGDPNAGLYTAPVSFANKNFENLRKHWMLLGFFLLVPTLVLY
>Q05031#DFG5_YEAST
MIVNISAKMILSICFTFLSFFKATHAMDLDTTSKTSICDATALIQGGMLDYYEGTRYGGTVGMFQSPYYWWHAGEAFGGMLENWFLCENDTYQELLYDALLAQTGSNYDYIPSNQTMVEGNDDQGIWGITVMGAVERNFTDPGDGKPGWLAMVQAVFNTMYSRWDSEHCGGGLRWQIFTWNSGYNYKNTVSNACLFQIAARLGRYTGNTTYLEVAEQVFDWLVDVGYVVLNDTANVFDGAEIDTNCTDITKIEWTYNHGIVLGGLAYMYNATNGTGEWETSLTKILNGAKSYFFKDSIMYESACQDYGTCNTDQRTFKSIFSRMLGLTSVMAPFTRDTIDDLIKTSAEAAAKSCNGGTDGHTCGLNWQKQTNDGYYGLGEQMSALEVIQNLLIHDRPAPYKEDNGGTSKGDANAGMNSSTTNVLQNNLNIKKGDRAGAAIITAVILSVLTGGAVWMLF

#!/usr/bin/perl -w

use SOAP::Lite;

# Connecting to the webservice
my $service = SOAP::Lite
	-> service('http://prodom.prabi.fr/prodom/2006.1/wsdl/essairunmkdom.wsdl');
#	-> on_fault(
#			sub { my($self, $res) = @_;
#			      print STDOUT "Error while establishing connexion with the service\n";
#			      exit 1;
#			     }
#                    );

my $method;
my $file;
my $arg;
my $error;
my @result;

$error = 0;
$method = "runMkDom";
$file = "mkdomTest.fasta";

open(FILE,$file);
while (<FILE>){
	 $arg .= $_;
}
close(FILE);  

@result= $service->$method($arg);

# Testing the different components of the result : xdom, log, srs, webdom link

if ( $#result == -1 ) {
	print STDOUT "runMkDom output is empty !\n";
	$error = 2;
	exit $error;
}

else {

	#Check if the xdom output is OK
	my @xdom = split(">",$result[0]);
	if ( $#xdom != 7 ) {
		print STDOUT "runMkDom did not return a correct xdom output\n";
		$error = 3;
	}

	# Check if the log file ended properly
	if ( $result[1] !~ "bye-bye\nStatus : 0\nOK." ) {
		print STDOUT "runMkDom did not finish correctly, check the log file for more detail\n";
		$error = 4;
	}

	# Check if the srs file is OK
	my @srs = split("\/\/\n",$result[2]);
	if ( $#srs != 3 ) {
		print STDOUT "runMkDom did not return a correct srs output\n";
		$error = 5;
	}

	# Check if the webdom link is OK
	if ( $result[3] !~ /http\:\/\/prodom\.prabi\.fr\/webdom\/\?jobID\=\d+/ ) {
		print STDOUT "runMkDom did not return a correct webdom link \n";
		$error = 6;
	}
}


if ( $error == 0 ) {
	print STDOUT "Everything worked fine\n";
	exit $error;
}
else {
	print STDOUT "Last error code : $error\n";
	exit $error;
}