- added support for http only

lib/SLUB/LZA/Rosetta/TA/Command/init.pm

@@ -22,6 +22,7 @@ sub opt_spec {
         ["rosettahost|r=s" => "host adress where Rosetta runs", {required=>1}],
         ["logdir|l=s" => "logdir where rosetta stores it server log files", {required=>1}],
         ["authentication|a" => "enable authentification (needed if Rosetta's general parameter 'sru_authentication=true'), password is stored salted only in config file!", {required=>0}]
+        ["httponly" => "with this flag only HTTP (instead HTTPS) is used", {required=>0}],
     );
 }
 sub validate_args {
@@ -35,6 +36,7 @@ sub execute {
     my %config;
     $config{host} = $opt->{rosettahost};
     $config{logdir} = $opt->{logdir};
+    $config{httponly} = $opt->{httponly};
     if (defined $opt->{authentication}) {
         warn "HINT: The password will stored in config file!";
         my $user = prompt('User:' );

lib/SLUB/LZA/Rosetta/TA/SOAP.pm

@@ -8,9 +8,13 @@ use warnings;
 
 sub get_ie_pid_by_sip {
     my $sip = shift;
-    my $protocol = "https";
     my $host = $SLUB::LZA::Rosetta::TA::config{host};
+    my $protocol = "https";
     my $port = 8443;
+    if (defined $SLUB::LZA::Rosetta::TA::Command::config{httponly}) {
+        $protocol = 'http';
+        $port = 1801;
+    }
     my $wsdl_url="${protocol}://${host}:${port}/dpsws/repository/SipWebServices?wsdl";
     #print "DEBUG: $wsdl_url";
     my $soap = SOAP::Lite->new;

lib/SLUB/LZA/Rosetta/TA/SRU.pm

@@ -36,9 +36,13 @@ sub sru_search {
     if (!exists $searchpaths{$searchtype}){
         croak ("Code error, wrong searchtype ($searchtype) used!");
     }
-    my $protocol = 'https';
     my $host = $SLUB::LZA::Rosetta::TA::config{host};
+    my $protocol = 'https';
     my $port = '8443';
+    if (defined $SLUB::LZA::Rosetta::TA::Command::config{httponly}) {
+        $protocol = 'http';
+        $port = '1801';
+    }
     my $searchpath = $searchpaths{$searchtype};
     my $srubase="${protocol}://${host}:${port}/search/${searchpath}/sru";
     my $sru = "${srubase}?version=1.2&operation=searchRetrieve&startRecord=$startrecord&maximumRecords=$maxrecords&recordSchema=dc&query=${query}";