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

# check for logged in cookie and redirect to home if its' not set
$username = $q->cookie('username');
if(!$username) {
    print redirect('/cgi-bin/trader_login');
    exit(0);
}

print $q->header();


# 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 UpdateAccountProfile {
    $userID = shift;
    $fullName = shift;
    $email = shift;
    $address = shift;
    $creditCard = shift;
    $password = shift;

    $request = <<XML;
      <updateAccountProfile xmlns="http://trade.samples.websphere.ibm.com">
         <profileData>
            <userID>${userID}</userID>
            <password>${password}</password>
            <fullName>${fullName}</fullName>
            <address>${address}</address>
            <email>${email}</email>
            <creditCard>${creditCard}</creditCard>
         </profileData>
      </updateAccountProfile>
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' => $request } );
    
    $get_closed_orders_response = $response->{str};

#    my $get_closed_orders_response = <<XML;
#      <updateAccountProfileResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <updateAccountProfileReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#         </updateAccountProfileReturn>
#      </updateAccountProfileResponse>
#XML

    return  $get_closed_orders_response;

}

sub get_orders {
    my $userID = shift;

    $request = <<XML;
      <getOrders xmlns="http://trade.samples.websphere.ibm.com">
         <userID>${userID}</userID>
      </getOrders>
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' => $request } );
    
    my $get_orders_response = $response->{str};

#    my $get_orders_response = <<XML;
#      <getOrdersResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <getOrdersReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#            <OrderDataBean>
#               <orderID>46</orderID>
#               <orderType>sell</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-05-21T16:01:44.157</openDate>
#               <completionDate>2008-05-21T16:01:44.157</completionDate>
#               <quantity>200</quantity>
#               <price>100.00</price>
#               <orderFee>24.50</orderFee>
#               <symbol>s:9</symbol>
#            </OrderDataBean>
#            <OrderDataBean>
#               <orderID>46</orderID>
#               <orderType>buy</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-05-21T16:01:44.157</openDate>
#               <completionDate>2008-05-21T16:01:44.157</completionDate>
#               <quantity>200</quantity>
#               <price>100.00</price>
#               <orderFee>21.50</orderFee>
#               <symbol>s:9</symbol>
#            </OrderDataBean>
#            <OrderDataBean>
#               <orderID>42</orderID>
#               <orderType>buy</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-05-21T16:01:44.157</openDate>
#               <completionDate>2008-05-21T16:01:44.157</completionDate>
#               <quantity>200</quantity>
#               <price>100.00</price>
#               <orderFee>24.50</orderFee>
#               <symbol>s:8</symbol>
#            </OrderDataBean>
#            <OrderDataBean>
#               <orderID>37</orderID>
#               <orderType>buy</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-05-21T16:01:44.157</openDate>
#               <completionDate>2008-05-21T16:01:44.157</completionDate>
#               <quantity>200</quantity>
#               <price>100.00</price>
#               <orderFee>24.50</orderFee>
#               <symbol>s:7</symbol>
#            </OrderDataBean>
#            <OrderDataBean>
#               <orderID>32</orderID>
#               <orderType>buy</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-05-21T16:01:44.157</openDate>
#               <completionDate>2008-05-21T16:01:44.157</completionDate>
#               <quantity>200</quantity>
#               <price>100.00</price>
#               <orderFee>24.50</orderFee>
#               <symbol>s:6</symbol>
#            </OrderDataBean>
#            <OrderDataBean>
#               <orderID>26</orderID>
#               <orderType>buy</orderType>
#               <orderStatus>completed</orderStatus>
#               <openDate>2008-05-21T16:01:44.14</openDate>
#               <completionDate>2008-05-21T16:01:44.14</completionDate>
#               <quantity>200</quantity>
#               <price>100.00</price>
#               <orderFee>24.50</orderFee>
#               <symbol>s:5</symbol>
#            </OrderDataBean>
#         </getOrdersReturn>
#      </getOrdersResponse>
#XML

    my $parser = XML::LibXML->new();
    $get_orders_xml = $parser->parse_string($get_orders_response);

    return $get_orders_xml;
}

sub get_user_account_summary {
    $orders_return_xml = shift;

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

    @nodes = $xpc->findnodes('//ns:OrderDataBean');
        
    $tax = 0;
    $buys = 0;
    $sells = 0;
    foreach my $bean (@nodes) {

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

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

        if ($order_type eq "buy")
        {
            $buys = $buys + (($price) *
                int($quantity)) +
                ($order_fee);
        }
        elsif ($order_type eq "sell")
        {
            $sells = $sells +  (($price) *
                int($quantity)) - 
                ($order_fee);
        }
        $tax = $tax + $order_fee;
    }

    return %account_summary = ('totalBuys' => $buys,
                              'totalSells' => $sells,
                              'totalTax' => $tax,
                              'totalImpact' => $buys + $tax - $sells);
}

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

    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_account_data_request} );

    my $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_account_profile_data {
    my($username) = shift;

    $request = <<E;
      <getAccountProfileData xmlns="http://trade.samples.websphere.ibm.com">
          <userID>${username}</userID>
      </getAccountProfileData>
E

    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' => $request } );
    $response_str = $response->{str};


#    $response_str = <<E;
#      <getAccountProfileDataResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <getAccountProfileDataReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#            <userID>uid:0</userID>
#            <password>xxx</password>
#            <fullName>Full Name 0</fullName>
#            <address>111 First Street, Redmond, WA 98033</address>
#            <email>user0@company.com</email>
#            <creditCard>469023-0320</creditCard>
#         </getAccountProfileDataReturn>
#      </getAccountProfileDataResponse>
#E

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

    return $account_data_xml;
}


# If the user requested to update his profile information
if ($q->param('UPDATEUSERPROFILE'))
{
    $userID = $q->cookie("username");
    $password = $q->cookie('PASSWORD');
    $fullName = $q->cookie('FULLNAME');
    $address = $q->cookie('ADDRESS');
    $email = $q->cookie('EMAIL');
    $creditCard = $q->cookie('CREDITCARD');

    UpdateAccountProfile($userID,
        $fullName, $email, $address, $creditCard, $password);
}

$orders_return = get_orders($username);
%account_summary = get_user_account_summary($orders_return);
$user_account_data = get_account_data($username);
$user_account_profile_data = get_account_profile_data($username);


#convert the date
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 "";
}


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


$get_closed_orders_return = get_closed_orders($username);



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

# call WSClient and get data





print $html_begin;
if($get_closed_orders_return) {

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


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

    if(@nodes) { 
        # checking whether a new status change happened in a particular order
        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>");



        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>");
        }
        # get order details and display
        print("</tbody></table><br/><br/>");
    }
}



# Display the account summary information of a particular user.
if (%account_summary)
{
    $total_buys = $account_summary{"totalBuys"};
    $total_sells = $account_summary{"totalSells"};
    $total_tax = $account_summary{"totalTax"};
    $total_impact = $account_summary{"totalImpact"};

    print ("<div class=\"main-title\"><h1>Account 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>Subtotal Buys</th><th>Subtotal Sells</th><th>Subtotal Fees
        </th><th>Net Impact Cash Balance</th></tr></thead><tbody><tr>");

    printf("<td class=\"currency\">\$%.2f</td>", $total_buys);
    printf("<td class=\"currency\">\$%.2f</td>", $total_sells);
    printf("<td class=\"currency\">\$%.2f</td>", $total_tax);
    printf("<td class=\"currency\">");

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


# Display the orders a particular user is associated with.
if ($orders_return)
{
    print("<div><p><b>Total Orders Shown</b></p></div>");
    print("<table class=\"table-outer\" cellspacing=\"0\" align=\"center\"><thead><tr>");
    print("<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><th>Price
        </th><th>Total</th></tr></thead><tbody>");

    $index = 0;

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

        $calculated_fee = (($price *
            $quantity) +
            $order_fee);

        print ("<tr><td>${order_id}</td>
            <td>${order_status}</td>
            <td>${open_date}
            </td><td>${completion_date}</td>
            <td class=\"currency\">\$${order_fee}</td>
            <td>${order_type}</td>");

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

        print ("<td class=\"currency\">${quantity}</td>
            <td class=\"currency\">\$${price}</td>
            <td class=\"currency\">\$${calculated_fee}</td></tr>");

        $index ++;
    }
    print ("</tbody></table>");
}

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

    $fullName = $xpc->findvalue('//ns:fullName');
    $email = $xpc->findvalue('//ns:email');
    $address = $xpc->findvalue('//ns:address');
    $creditCard = $xpc->findvalue('//ns:creditCard');
    $password = $xpc->findvalue('//ns:password');

    print ("<form action = \"/cgi-bin/trader_account\"  method =\"post\">
        <table class=\"profile\" cellspacing=\"0\" width=\"100%\"><thead><tr>
        <th>Update Account Profile:${username}</th></tr></thead><tbody><tr><td>");
    print ("<table cellspacing=\"0\" align=\"center\">");
    print ("<tr><td>Full Name:</td><td><input name=\"FULLNAME\" type=\"text\" value=\"${fullName}\" id=\"\" size=\"25\"/>
        </td><td>Email Address:</td><td><input name=\"EMAIL\" type=\"text\" value=\"${email}\" id=\"\" size=\"25\"/></td></tr>");
    print ("<tr><td>Address:</td><td><input name=\"ADDRESS\" type=\"text\" value=\"${address}\" id=\"\" size=\"25\"/></td>
        <td>Password:</td><td><input type=\"password\" name=\"PASSWORD\" type=\"text\" value=\"${password}\" id=\"\" size=\"25\"/></td></tr>");
    print ("<tr><td>Credit Card:</td><td><input name=\"CREDITCARD\" type=\"text\" value=\"${creditCard}\" id=\"\" size=\"25\"/></td>
        <td>Confirm Password:</td><td><input type=\"password\" name=\"PASSWORD\" type=\"text\" value=\"${password}\" id=\"\" size=\"25\"/></td></tr>");
    print ("<tr><td colspan=\"4\" class=\"button\"><input type=\"submit\" 
        name=\"UPDATEUSERPROFILE\"value=\"Update\" class=\"button\"/></td></tr>");
    print ("</table></form");


    # Display the account information of a the user
    if ($user_account_data)
    {

        my $xpc = XML::LibXML::XPathContext->new($user_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 $logout_count = $xpc->findvalue('//ns:logoutCount');

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



        print("<table align=\"center\" class=\"profile-content\" cellspacing=\"0\"><tbody>");
        print ("<tr><td class=\"left\">Account ID:</td>
            <td>${account_id}</td><td class=\"left\">
            Account Created</td><td>${creation_date}</td></tr>");
        print ("<tr><td class=\"left\">User ID:</td>
            <td>${profile_id}</td><td class=\"left\">
            Last Login:</td><td>${last_login}</td></tr>");
        print ("<tr><td class=\"left\">Opening Balance:</td>
            <td>${open_balance}</td>
            <td class=\"left\">Total Logins:</td>
            <td>${login_count}</td></tr>");
        print("<tr><td class=\"left\">Cash Balance:</td>");

        if ($balance > 0)
        {
            print("<td><span class=\"price-gain\">\$
                ${balance}</span></td>");
        }
        elsif($balance < 0)
        {
            $positive_balance = -1 * $balance;
            print("<td><span class=\"price-loss\">\$${positive_balance}</span></td>");
        }
        else
        {
            print("<td>\$${balance}</td>");
        }
        print("<td class=\"left\">Total Logous:</td>
            <td>${logout_count}</td></tr>");
        print("</tbody></table>");
    }
    print("</td></tr></tbody></table>");
}

print <<E;
            <div class="bottom">
            <form method = "post"  action = "/cgi-bin/trader_quotes">
            <input type="text" value="${symbol}" 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