sub _new
{ my ($self, @param) = @_;
$self->SUPER::_new(@param); } | sub _retrieveDatasetInfo
{
my ($self,$vSchemaName, $virtualSchemaDefault)=@_;
$vSchemaName = $self->serverVirtualSchema;
my @datasets;
my $qualifier ="type=datasets&virtualschema=".$vSchemaName."&mart=".
$self->name."&martuser=".$self->martUser;
my @include_datasets=split(/\,/,$self->includeDatasets);
foreach my $el ($self->getResultSet($qualifier,"GET")){
unless ($el =~/^\s/){
my @line = split(/\t/,$el);
if (scalar (@include_datasets)>0){
foreach my $ds (@include_datasets){
if ($ds eq $line[1]){
my %data = ('type' => $line[0],
'dataset' => $line[1],
'displayName' => $line[2],
'visible' => $line[3],
'version' => $line[4],
'initialBatchSize' => $line[5],
'maxBatchSize' => $line[6],
'interfaces' => $line[7] ,
'modified' => $line[8]);
push (@datasets,\% data);
}
}
} else {
my %data = ('type' => $line[0],
'dataset' => $line[1],
'displayName' => $line[2],
'visible' => $line[3],
'version' => $line[4],
'initialBatchSize' => $line[5],
'maxBatchSize' => $line[6],
'interfaces' => $line[7],
'modified' => $line[8]);
push (@datasets,\% data);
}
}
}
$self->datasetNumber(scalar @datasets);
return @datasets;
}
1;} | sub getDatasetConfigXML
{ my ($self,$virtualSchema,$dataSetName,$interface,$dsCounter, $noMessage)=@_;
$virtualSchema = $self->serverVirtualSchema;
my $dbhost = $self->host;
my $dbport = $self->port;
if (!$noMessage)
{
$self->configureMessage($virtualSchema,$dataSetName,"WEB",$dsCounter);
}
my $qualifier="type=configuration&virtualschema=".$virtualSchema.
"&dataset=".$dataSetName."&interface=".$interface."&martuser=".
$self->martUser;
my $xml = join "",$self->getResultSet($qualifier,"GET");
return $xml;} | sub interfaces
{ my ($self,$dataset)=@_;
my $qualifier ="type=interfaces&virtualschema=".
$self->serverVirtualSchema."&mart=".$self->name."&martuser=".
$self->martUser."&dataset=".$dataset;
my $interfaces = join "",$self->getResultSet($qualifier,"GET");
return $interfaces;} | sub version
{ my ($self)=@_;
my $virtualSchema = $self->serverVirtualSchema;
my $qualifier="type=version&virtualschema=".$virtualSchema."&mart=".
$self->name;
my $version = join "",$self->getResultSet($qualifier,"GET");
return $version;} | sub versionCheck
{ my ($self,$version)=@_;
my $virtualSchema = $self->serverVirtualSchema;
my $qualifier="type=versioncheck&virtualschema=".$virtualSchema.
"&mart=".$self->name."&version=".$version;
my $count = join "",$self->getResultSet($qualifier,"GET");
return $count;} |