%SKYLIGHTS_PREFS = ( ############################################### ############################################### ##### STERLING SPECIAL SETTINGS ##### ############################################### ############################################### # Forces the customer to put in their flyme PNR on the contact page! STERLING_FLYME_ENABLED => "false", #### sub getHash { my $self = shift; #my ($strxml) = $_[0]; my %params = (ref $_[0] eq 'HASH') ? %{$_[0]} : @_; # important adding new line char to reqXML my $reqXML = $params{SkylightsHash}; print "Content-type: text/plain\n\n"; print SOAP::Lite -> uri('http://sterlingSOAP/Demo') -> proxy('http://localhost/skylights/cgi-bin/sterlingSOAP.cgi') -> hi(SOAP::Serializer->serialize($reqXML)) -> result(), "\n"; };