#!/usr/bin/perl
# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to You under the Apache License, Version 2.0
# (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
use CGI qw/:standard/;
use WSO2::WSF;
use XML::Twig;
my $q = new CGI;
my $WSFC_HOME='/opt/wso2/wsf_c/';
if ($q->param('SETENDPOINT'))
{
if (($q->param('ENDPOINT')))
{
$cookie = cookie( -name => 'endpoint',
-value => $q->param('ENDPOINT') );
# redirect the endpoint
print $q->header( -cookie => $cookie);
print "";
exit(0);
}
else {
print $q->header();
}
}
else {
print $q->header();
}
sub GetEndpoint() {
return $q->cookie('endpoint');
}
my $endpoint;
if (!GetEndpoint()) {
$endpoint = "http://localhost:8080/config_service/config_svc.php";
}
else {
$endpoint = GetEndpoint();
}
print <WSF/PHP StockTrader Welcome
E