=begin WSDL _IN smis @int session message id's to get data for _RETURN @SmiData smi data for each existing modality =end WSDL =cut sub getSmisData { my $class = shift; my (@smis) = @_; my $smiData = []; my $dbh = open_db(); if ($dbh) { # do something } else { # do something else } return ($smiData); }