#!/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::LibXML;

my $WSFC_HOME='/opt/wso2/wsf_c/';

my $q = new CGI;

# get the endpoitn from the configuration service
sub get_endpoint {

    $config_endpoint = $q->cookie('endpoint');
    $input_xml = <<XML;
    <ClientConfigRequest xmlns="http://wso2.org/interop/stocktrader/xsd">
        <Client>PERL_CLIENT</Client>
    </ClientConfigRequest>
XML

    my $client = new WSO2::WSF::WSClient( { 'to' => $config_endpoint,
                                          'log_file' => '/tmp/stocktrader.log',
                                          'log_level' => 4,
                                          'wsfc_home' =>  $WSFC_HOME } );
    my $response_msg = $client->request( { 'payload' => $input_xml } );
    my $response_str = $response_msg->{str};

    my $response_parser = XML::LibXML->new();
    $response_xml = $response_parser->parse_string($response_str);

    my $xpc = XML::LibXML::XPathContext->new($response_xml);
    $xpc->registerNs('ns'=> 'http://wso2.org/interop/stocktrader/xsd');

    $bs =  $xpc->findvalue('//ns:BS');   
    
    return $bs;
}


# get market summary
sub get_market_summary {
    my $get_market_summary_request = <<XML;
    <getMarketSummary xmlns="http://trade.samples.websphere.ibm.com"/>
XML
    
    my $endpoint = get_endpoint();
    my $client = new WSO2::WSF::WSClient( { 'to' => $endpoint,
                                          'log_file' => '/tmp/stocktrader.log',
                                          'log_level' => 4,
                                          'wsfc_home' => $WSFC_HOME } );
    my $response = $client->request( { 'payload' => $get_market_summary_request } );
    my $get_market_summary_response = $response->{str};

#    my $get_market_summary_response = <<XML;
#          <getMarketSummaryResponse xmlns="http://trade.samples.websphere.ibm.com">
#             <getMarketSummaryReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#                <TSIA>100.000000</TSIA>
#                <openTSIA>100.000000</openTSIA>
#                <volume>0</volume>
#                <topGainers>
#                   <QuoteDataBean>
#                      <symbol>s:100</symbol>
#                      <companyName>S100 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:101</symbol>
#                      <companyName>S101 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:102</symbol>
#                      <companyName>S102 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:103</symbol>
#                      <companyName>S103 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:104</symbol>
#                      <companyName>S104 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                </topGainers>
#                <topLosers>
#                   <QuoteDataBean>
#                      <symbol>s:100</symbol>
#                      <companyName>S100 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:101</symbol>
#                      <companyName>S101 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:102</symbol>
#                      <companyName>S102 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:103</symbol>
#                      <companyName>S103 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                   <QuoteDataBean>
#                      <symbol>s:104</symbol>
#                      <companyName>S104 Incorporated</companyName>
#                      <price>100.00</price>
#                      <open>100.00</open>
#                      <low>100.00</low>
#                      <high>100.00</high>
#                      <change>0</change>
#                      <volume>0</volume>
#                   </QuoteDataBean>
#                </topLosers>
#                <summaryDate>2008-07-18T16:06:36.328125+05:30</summaryDate>
#             </getMarketSummaryReturn>
#          </getMarketSummaryResponse>
#XML
  
    my $parser = XML::LibXML->new();
    $market_summary_xml = $parser->parse_string($get_market_summary_response);
  
    return  $market_summary_xml;
}

sub get_account_data {
    my($username) = shift;

    my $get_account_data_request = <<XML;
          <getAccountData xmlns="http://trade.samples.websphere.ibm.com">
             <userID>${username}</userID>
          </getAccountData>
XML

    $endpoint = get_endpoint();
    my $client = new WSO2::WSF::WSClient( { 'to' => $endpoint,
                                          'log_file' => '/tmp/stocktrader.log',
                                          'log_level' => 4,
                                          'wsfc_home' => $WSFC_HOME } );
    $response = $client->request( { 'payload' => $get_account_data_request} );
    $get_account_data_response = $response->{str};

#    my $get_account_data_response = <<XML;
#          <getAccountDataResponse xmlns="http://trade.samples.websphere.ibm.com">
#             <getAccountDataReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#                <accountID>1</accountID>
#                <loginCount>5</loginCount>
#                <logoutCount>0</logoutCount>
#                <lastLogin>2008-07-18T16:06:35.42</lastLogin>
#                <creationDate>2008-05-21T16:01:44.063</creationDate>
#                <balance>100000.00</balance>
#                <openBalance>200000.00</openBalance>
#                <profileID>uid:0</profileID>
#             </getAccountDataReturn>
#          </getAccountDataResponse>
#XML


    my $parser = XML::LibXML->new();
    $account_data_xml = $parser->parse_string($get_account_data_response);

    return $account_data_xml;
}

sub get_holdings {
    my($username) = shift;

    my $get_holdings_request = <<XML;
      <getHoldings xmlns="http://trade.samples.websphere.ibm.com">
         <userID>${username}</userID>
      </getHoldings
XML
  
    $endpoint = get_endpoint();
    my $client = new WSO2::WSF::WSClient( { 'to' => $endpoint,
                                          'log_file' => '/tmp/stocktrader.log',
                                          'log_level' => 4,
                                          'wsfc_home' => $WSFC_HOME } );
    $response = $client->request( { 'payload' => $get_holdings_request} );

    my $get_holdings_response = $response->{str};
  
#    my $get_holdings_response = <<XML;
#      <getHoldingsResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <getHoldingsReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#            <HoldingDataBean>
#               <holdingID>46</holdingID>
#               <quantity>200</quantity>
#               <purchasePrice>100.00</purchasePrice>
#               <purchaseDate>2008-05-21T16:01:44.157</purchaseDate>
#               <quoteID>s:9</quoteID>
#            </HoldingDataBean>
#            <HoldingDataBean>
#               <holdingID>41</holdingID>
#               <quantity>200</quantity>
#               <purchasePrice>100.00</purchasePrice>
#               <purchaseDate>2008-05-21T16:01:44.157</purchaseDate>
#               <quoteID>s:8</quoteID>
#            </HoldingDataBean>
#            <HoldingDataBean>
#               <holdingID>37</holdingID>
#               <quantity>200</quantity>
#               <purchasePrice>100.00</purchasePrice>
#               <purchaseDate>2008-05-21T16:01:44.157</purchaseDate>
#               <quoteID>s:7</quoteID>
#            </HoldingDataBean>
#            <HoldingDataBean>
#               <holdingID>32</holdingID>
#               <quantity>200</quantity>
#               <purchasePrice>100.00</purchasePrice>
#               <purchaseDate>2008-05-21T16:01:44.14</purchaseDate>
#               <quoteID>s:6</quoteID>
#            </HoldingDataBean>
#            <HoldingDataBean>
#               <holdingID>25</holdingID>
#               <quantity>200</quantity>
#               <purchasePrice>100.00</purchasePrice>
#               <purchaseDate>2008-05-21T16:01:44.14</purchaseDate>
#               <quoteID>s:5</quoteID>
#            </HoldingDataBean>
#         </getHoldingsReturn>
#      </getHoldingsResponse>
#XML

    my $parser = XML::LibXML->new();
    $holdings_xml = $parser->parse_string($get_holdings_response);

    return $holdings_xml;
}

sub get_quote {
    my($quote_id) = shift;

    my $get_quotes_request = <<XML;
      <getQuote xmlns="http://trade.samples.websphere.ibm.com">
         <symbol>${quote_id}</symbol>
      </getQuote>
XML
 
    $endpoint = get_endpoint();
    my $client = new WSO2::WSF::WSClient( { 'to' => $endpoint,
                                          'log_file' => '/tmp/stocktrader.log',
                                          'log_level' => 4,
                                          'wsfc_home' => $WSFC_HOME } );
    $response = $client->request( { 'payload' => $get_quotes_request } );
  
    my $get_quotes_response = $response->{str};

#    my $get_quotes_response = <<XML;
#      <getQuoteResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <getQuoteReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#            <symbol>s:0</symbol>
#            <companyName>S0 Incorporated</companyName>
#            <price>100.00</price>
#            <open>100.00</open>
#            <low>100.00</low>
#            <high>100.00</high>
#            <change>0</change>
#            <volume>0</volume>
#         </getQuoteReturn>
#      </getQuoteResponse>
#XML

    my $parser = XML::LibXML->new();
    $quote_xml = $parser->parse_string($get_quotes_response);

    return $quote_xml;
}

sub get_holding_information {
    my($holdings) = shift;
   
    my $index = 0;
    my $total_holdings = 0;
    my $market_value = 0;
    my @sub_nodes;

    my %quote_info;

    my $xpc = XML::LibXML::XPathContext->new($holdings);
    $xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');

    @nodes = $xpc->findnodes('//ns:HoldingDataBean');
    foreach my $bean (@nodes) {
        my $xpc = XML::LibXML::XPathContext->new($bean);
        $xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');

        $quote_id = $xpc->findvalue('./ns:quoteID');


        $quantity = $xpc->findvalue('./ns:quantity');

        $purchase_price = $xpc->findvalue('./ns:purchasePrice');

        if(!$quote_info{$quote_id}) {
            $quotes = get_quote($quote_id);
            my $xpc_inner = XML::LibXML::XPathContext->new($quotes);
            $xpc_inner->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');
            $price = $xpc_inner->findvalue('//ns:price');
           
            $quote_info{$quote_id} = $price;
        }
        
        $quote_price = $quote_info{$quote_id};
        $market_value += $quote_price + $quantity;

        $total_holdings += $quantity * $purchase_price;

        $index ++;
    }

    %holding_info = ('totalHoldings' => $market_value,
                    'noOfHoldings' => $index);

    return %holding_info;
}

sub convert_date {
  my($str) = shift;
  if($str) {
    $str =~ s/[T:\.]/-/g;
    @date_arr = split("-", $str);
    $year = @date_arr[0];
    $mon = @date_arr[1];
    $date = @date_arr[2];
    $hour = @date_arr[3];
    $min = @date_arr[4];
    $sec = @date_arr[5];

    if($hour > 12) {
      $hour = $hour - 12;
      $ampm = "PM";
    }
    else {
      $ampm = "AM";
    }
    return "${mon}/${date}/${year} ${hour}:${min}:${sec} ${ampm}";
  }
  return "";
}


my $market_summary_xml  = get_market_summary();
    
my $xpc = XML::LibXML::XPathContext->new($market_summary_xml);
$xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');

 
my $tsia = $xpc->findvalue('//ns:TSIA');

print $q->header();

$open_tsia = $xpc->findvalue('//ns:openTSIA');

my $gain = $tsia - $open_tsia;

$volume = $xpc->findvalue('//ns:getMarketSummaryReturn/ns:volume');

my @top_gainers = $xpc->findnodes('//ns:topGainers/ns:QuoteDataBean');
my @top_losers = $xpc->findnodes('//ns:topLosers/ns:QuoteDataBean');

my $username = $q->cookie('username');


$account_xml = get_account_data($username);

my $xpc = XML::LibXML::XPathContext->new($account_xml);
$xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');

my @account_data_arr = $xpc->findnodes('//ns:getAccountDataReturn');
my $account_data = @account_data_arr[0];


my $holdings = get_holdings($username);
my %holding_info = get_holding_information($holdings);

my $no_of_holdings = $holding_info{"noOfHoldings"};
my $total_holdings = $holding_info{"totalHoldings"};


my $html_begin =<<E;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

	<head>
		<meta http-equiv="content-type" content="text/html;charset=utf-8" />
		<meta name="generator" content="Adobe GoLive" />
		<title>WSF/PHP StockTrader Welcome</title>
		<link href="/trader/style.css" rel="stylesheet" type="text/css" media="all" />
	</head>

	<body>
		<div id="content">
			<div id="header">
				<div class="logo"><img src="/trader/images/logo.gif"></div>
			</div>
			<div id="header-links">
				<table>
					<tr>
					<td>
						<a href="/cgi-bin/trader">Welcome</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_home">Home</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_account">Account</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_portfolio">Portfolio</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_quotes">Quotes/Trade</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_glossary">Glossary</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_config">Config</a>
					</td>
					<td>
						<a href="/cgi-bin/trader_login">Login/Logout</a>
					</td>
					</tr>
				</table>
			</div>
			<div id="middle">

				<div class="main-title"><h1>Home</h1><script type="text/javascript">var thisdate = new Date();
					document.writeln(thisdate.toLocaleString());</script></div>
				<h3>${username}</h3>

				<table>
				<tr>
				<td>
				<div class="left">
					<table class="normal">
						<thead><tr><th colspan="2">User Statistics</th></tr></thead>
E

print $html_begin;

if($account_data) {

    my $xpc = XML::LibXML::XPathContext->new($account_data);
    $xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');

    my $creation_date = convert_date($xpc->findvalue('//ns:creationDate'));

    my $last_login = convert_date($xpc->findvalue('//ns:lastLogin'));

    my $account_id = $xpc->findvalue('//ns:accountID');

    my $login_count = $xpc->findvalue('//ns:loginCount');


my $xml = <<XML;
    <tbody>
    <tr><td class="left">Account ID:</td>
       <td>${account_id}</td></tr>
    <tr><td class="left">Account Created:</td>
       <td>${creation_date}</td></tr>
    <tr><td class="left">Total Logins:</td>
       <td>${login_count}</td></tr>
    <tr><td class="left">Session Created:</td>
       <td>${last_login}</td></tr>
    </tbody>
XML
    print $xml;
}

print <<E;
    <thead><tr><th colspan="2">Summary</th></tr></thead>
E


if(%holding_info && $account_data)
{

    my $xpc = XML::LibXML::XPathContext->new($account_data);
    $xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');

    my $balance = $xpc->findvalue('//ns:balance');

    my $open_balance = $xpc->findvalue('//ns:openBalance');

    my $total_cash = $total_holdings + $balance;

    my $gain =  (($total_holdings + $balance) - $open_balance);
   
    print ("<tbody>");
    print ("<tr><td class=\"left\">Cash Balance:</td>
        <td>${balance}</td></tr>");

    print ("<tr><td class=\"left\">Number of Holdings:</td>
        <td>${no_of_holdings}</td></tr>");

    print ("<tr><td class=\"left\">Total of Holdings:</td><td>");
    printf("\$ %.2f",$total_holdings);
    print ("</td></tr>");

    print ("<tr><td class=\"left\">Sum of Cash and Holdings:</td><td>");
    printf("\$ %.2f",($total_cash));
    print ("</td></tr>");

    print ("<tr><td class=\"left\">Opening Balance:</td><td>");
    printf ("\$ %.2f", $open_balance);
    print ("</td></tr>");

    print ("<tr><td class=\"left\">Current Gain/(Loss):</td>
        <td><span class=\"price\">");
    if ($gain < 0)
    {
        printf("\$ (%.2f)", ((-1) * $gain));
    }
    elsif ($gain >= 0)
    {
        printf("\$ %.2f", $gain);
    }
    $gain_percent = ($gain/$open_balance) * 100;
    print ("</span></td></tr>");


    print ("<tr><td class=\"left\">%Gain/(Loss):</td><td>");

    if ($gain_percent > 0)
    {
        print ("<span class=\"price-gain\">${gain_percent}%</span>");
    }
    elsif ($gain_percent < 0)
    {
        print ("<span class=\"price-loss\">${gain_percent}%</span>");
    }
    else
    {
        print ("<span>${gain_percent}%</span>");
    }
    print ("</td></tr>");
    print("</tbody>");
}

print <<E;
    </table>
</td>
E

print <<E;
<td>
<div class="right">
<h3>Market Summary</h3>
<p>
E

$time = ($sec,$min,$hour,$mday,$mon,$year,$wday,
$yday,$isdst)=localtime(time);
printf "%4d-%02d-%02d %02d:%02d:%02d\n",
$year+1900,$mon+1,$mday,$hour,$min,$sec;
print <<E;
</p>
<table class="table-outer" cellspacing="0">
E
    if (%holding_info && $account_data)
    {
        print ("<tr><td class=\"special\">Trade Stock Index (TSIA)</td><td>");
        print($tsia);
        print(" ");
        print("<span");

        if ($gain > 0)
        {
            print (" class=\"price-gain\">\$");
        }
        elsif ($gain < 0)
        {
            print (" class=\"price-loss\">\$");
        }
        else
        {
            print(">");
        }
        printf("%.2f</span>", $gain);
        print ("</td></tr>");

        print ("<tr><td class=\"special\">Trading Volume</td><td>");

        print ($volume);
        print ("</td></tr>");

        print("<tr><td class=\"special\">Top Gainers</td><td>");
        print ("<table class=\"table-inner\" cellspacing=\"0\">");
        print("<thead><tr><th>Symbol</th><th>Price</th><th>Change</th></tr></thead>");
        print("<tbody>");
        
        foreach my $account_data (@top_gainers)
        {
            my $xpc = XML::LibXML::XPathContext->new($account_data);
            $xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');


            my $symbol = $xpc->findvalue('./ns:symbol');

            my $change = $xpc->findvalue('./ns:change');

            my $price = $xpc->findvalue('./ns:price');
                
            print ("<tr><td><form action = \"/cgi-bin/trader_quotes\" method = \"post\">
                <input type=\"hidden\" name=\"SYMBOLS\" value=\"${symbol}\"/>
                <input type=\"submit\" name=\"GETQUOTE\" value=\"${symbol}\"></input></form></td>");

            printf ("<td>\$%.2f</td>", $price);
            print ("<td><span");

            if (($change) > 0)
            {
                print ("class=\"price-gain\">\$");
            }
            elsif (($change) < 0)
            {
                print ("class=\"price-loss\">\$");
            }
            else
            {
                print(">\$");
            }

            printf ("%.2f", $change);
            print ("</span></td>");
            print ("</form></tr>");

        }

        print ("</tbody></table></td></tr>");

        print ("<tr><td class=\"special\">Top Losers</td><td>
            <table class=\"table-inner\" cellspacing=\"0\"><thead>
            <tr><th>Symbol</th><th>Price</th><th>Change</th></tr></thead><tbody>");

        $index = 0;
        foreach my $account_data (@top_losers)
        {
            my $xpc = XML::LibXML::XPathContext->new($account_data);
            $xpc->registerNs('ns'=> 'http://trade.samples.websphere.ibm.com');


            my $symbol = $xpc->findvalue('./ns:symbol');

            my $change = $xpc->findvalue('./ns:change');

            my $price = $xpc->findvalue('./ns:price');


            print ("<tr><td><form action = \"cgi-bin/trader_quotes\" method = \"post\">
                <input type=\"submit\" name=\"SYMBOLS\" value=\"${symbol}\"></input></form></td>");

            printf ("<td>\$%.2f</td>", $price);
            print ("<td><span");

            if (($change) > 0)
            {
                print (" class=\"price-gain\">\$");
            }
            elsif (($change) < 0)
            {
                print (" class=\"price-loss\">\$");
            }
            else
            {
                print(">\$");
            }
            printf ("%.2f", $change);
            print ("</span></td>");
            print ("</tr>");

        }
        print("</tbody></table>");
        print("</td></tr></table>");
        print("</div>");
        print("</td></tr></table>");
    }


my $html_end = <<E;

      <div class="bottom">
      <form method = "post"  action = "/cgi-bin/trader_quotes">
      <input type="text" value="" name="SYMBOLS" size="25"/>
      <input type="submit" value="Get Quote" name="GETQUOTE" class="button"/>
      </form>

      </div>
      </div>

      <div id="footer">
        <div style="float:left;">Copyright 2008, WSO2 Inc.</div>
        <div style="margin-left:432px;float:left;">Powered by 
        <img align="top" src="/trader/images/powered-by-logo.gif" style="margin-top:-3px; margin-left: 0px;"/></div>
      </div>
    </div>
  </body>
</html>
E

print $html_end;