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

$username = $q->cookie('username');
if(!$username) {
    #print redirect('/cgi-bin/trader_login');
}

print $q->header();

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 "";
}


# 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;
}


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

    
    my $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 } );

    $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 $quote_parser = XML::LibXML->new();
    $quote_xml = $quote_parser->parse_string($get_quotes_response);

    return $quote_xml;
}



# Gets holding details of given user
# @param userid user id of current user
# returns collection of holding if success. NULL otherwise
sub get_holdings {
    my($username) = shift;

    my $get_holdings_request = <<XML;
      <getHoldings xmlns="http://trade.samples.websphere.ibm.com">
         <userID>${username}</userID>
      </getHoldings
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 } );
    $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: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 $holdings_parser = XML::LibXML->new();
    $holdings_xml = $holdings_parser->parse_string($get_holdings_response);

    return $holdings_xml;
}


# Gets closed orders of current user
# @return collection of orders whose status is closed

sub get_closed_orders
{
    my($username) = shift;

    my $get_closed_orders_request = <<XML;
          <getClosedOrders xmlns="http://trade.samples.websphere.ibm.com">
             <userID>${username}</userID>
          </getClosedOrders>
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 } );
    $response = $client->request( { 'payload' => $get_closed_orders_request } );
   
    my $get_closed_orders_response = $response->{str};

#    my $get_closed_orders_response = <<XML;
#      <getClosedOrdersResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <getClosedOrdersReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#            <OrderDataBean>
#               <orderID>100000023</orderID>
#               <orderType>sell</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-07-22T10:02:42.543</openDate>
#               <completionDate>2008-07-22T10:02:42.607</completionDate>
#               <quantity>1</quantity>
#               <price>96.78</price>
#               <orderFee>15.95</orderFee>
#               <symbol>s:0</symbol>
#            </OrderDataBean>
#         </getClosedOrdersReturn>
#      </getClosedOrdersResponse>
#XML

    my $closed_orders_parser = XML::LibXML->new();
    $closed_orders_xml = $closed_orders_parser->parse_string($get_closed_orders_response);

    return $closed_orders_xml;
  
}


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

print <<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">

E

$get_closed_orders_return = get_closed_orders($username);

if($get_closed_orders_return) {
    print("<p style=\"color: red\" align=\"center\">Trade Alert: The following orders have completed.</p>");
    print("<table class=\"table-outer\" cellspacing=\"0\" align=\"center\"><thead>
            <tr><th>Order ID</th><th>Order Status</th><th>Creation Date</th><th>Completion Date</th>
            <th>Txn Fee</th><th>Type</th><th>Symbol</th><th>Quantity</th></tr></thead><tbody>");

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

    @nodes = $xpc->findnodes('//ns:OrderDataBean');

    foreach my $bean (@nodes) {

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

        $open_date = convert_date($xpc->findvalue('./ns:openDate'));

        $completion_date = convert_date($xpc->findvalue('./ns:completionDate'));

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

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

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

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

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

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

        print ("<tr><td>${order_id}</td>
            <td>${order_status}</td>
            <td>${open_date}</td>
            <td>${completion_date}</td>
            <td>${order_fee}</td>
            <td>${order_type}</td>
            <td>${symbol}</td>
            <td>${quantity}</td></tr>");        
    }
    print("</tbody></table><br/><br/>");
}

$holdings_return = get_holdings($username);
if ($holdings_return)
{
    print ("<div class=\"main-title\">
        <h1>Portfolio Information</h1><script type=\"text/javascript\">var thisdate = new Date();
    document.writeln(thisdate.toLocaleString());</script></div>");

    print ("<table class=\"table-outer\" cellspacing=\"0\" align=\"center\">
        <thead><tr><th>Holding ID</th><th>Purchase Date</th><th>Symbol</th>
        <th>Quantity</th><th>Purchase Price</th><th>Current Price</th>
        <th>Purchase Basis</th><th>Market Value</th><th>Gain(Loss)</th>
        <th>Trade</th></tr></thead><tbody>");

    $index = 0;
    $purchaseBasis = 0;
    $marketValue = 0;
    $gain = 0;

    my $xpc = XML::LibXML::XPathContext->new($holdings_return);
    $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');

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

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

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

        my $quote_price = $quote_info{$quote_id};
        $purchase_basis +=  ($purchase_price) * ($quantity);
        $market_value += ($quote_price) * ($quantity);
        $gain = ($quote_price - $purchase_price) * ($quantity);


        print("<tr><td>${holding_id}</td><td><nobr>${purchase_date}</nobr></td><td>
            <form action=\"/cgi-bin/trader_quotes\" method=\"post\">
            <input type=\"hidden\" name=\"SYMBOLS\" value=\"${quote_id}\"/>  
            <input type=\"submit\" name=\"GETQUOTE\" value=\"${quote_id}\"></input>
            </form></td>
            <td class=\"currency\">${quantity}</td><td class=\"currency\">\$${purchase_price}
            </td><td class=\"currency\">${quote_price}</td><td class=\"currency\">${purchase_basis}</td><td class=\"currency\">
            ${market_value}
            </td><td class=\"currency\">");

        if ($gain > 0)
        {
            print ("<span class=\"price-gain\">${gain}</span>");
        }
        elsif ($gain < 0)
        {
            print ("<span class=\"price-loss\">${gain}</span>");
        }
        else
        {
            print ("<span>${gain}</span>");
        }
        print("</td><td class=\"currency\">");
        print("<form action = \"/cgi-bin/trader_confirmation\" method = \"post\">");
        print("<input type=\"hidden\" name=\"HOLDINGID\" value=\"${holding_id}\"></input>");
        print("<input type=\"hidden\" name=\"QUANTITY\" value=\"${quantity}\"></input>");
        print("<input type=\"hidden\" name=\"SYMBOL\" value=\"${quote_id}\"></input>");
        print("<input type=\"submit\" value = \"Sell\" name=\"SELL\">");
        print("</input></td></tr></form>");

    }

    print ("<tr class=\"total\"><td colspan=\"6\">Totals</td><td class=\"currency\">\$${purchase_basis}</td>
            <td class=\"currency\">\$${market_value}</td><td>");

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

print <<E;
            <div class="bottom">
            <form action = "/cgi-bin/trader_quotes" method = "post">
            <input type="text" value="" name="SYMBOLS" id="" size="25"/><input type="submit" name="GETQUOTE" value="Get Quote" 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