#!/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 $q = new CGI;

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

# if for some bizarre inexplicable reason, user tries to login for the second time redirect his arse
# back to the home page
# if ( cookie('icanhazlogin') eq "gudkitteh" ) {
#     print redirect( -uri => 'http://localhost', -status => 302 );
# }
#
#

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

# username and password is given
my $username = $q->param('USERNAME');
my $password = $q->param('PASSWORD');

# stores the response XML
my $response;

# if the response XML is good and a cookie is not set, we use this to set one
my $cookie;

if ( defined($username) && defined($password) ) {
    my $login_request =<<EOF;
      <login xmlns="http://trade.samples.websphere.ibm.com">
         <userID>${username}</userID>
         <password>${password}</password>
      </login>
EOF

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

#    $resposne = <<XML;
#      <loginResponse xmlns="http://trade.samples.websphere.ibm.com">
#         <loginReturn xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
#            <accountID>1</accountID>
#            <loginCount>6</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>
#         </loginReturn>
#      </loginResponse>
#XML
    
    my $parser = XML::LibXML->new();

    $xml = $parser->parse_string($response_str);
    # profileID will be set for valid users

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

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

    if ( $pid) {
        # credentials are good, setting the fricking cookie
        $cookie = cookie( -name  => 'username',
                          -value => $pid );

    }
}

if ( defined $cookie ) {
    print $q->header( -cookie => $cookie);
    print "<script type=\"text/javascript\">window.location='/cgi-bin/trader_account'</script>";
    exit(0);
} else {
    print $q->header();
}

my $html_begin =<<EOF;
<!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" />
		<title>WSF/Perl 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>Login</h1>
			<script type="text/javascript">
				var thisdate = new Date();
				document.writeln(thisdate.toLocaleString());
			</script>
			</div>
		
			<div class="login">
EOF

my $login_form =<<EOF;
				<form method="post"  action="/cgi-bin/trader_login">
					<table>
					<tr>
					<td>Username</td>
					<td><input name = "USERNAME" size = "25"/></td>
					</tr>
					<tr>
					<td>Password</td>
					<td><input type="password" name = "PASSWORD" size = "25"/></td>
					</tr>
					<tr>
					<td></td>
					<td><input type = "submit" name = "LOGINREQUEST" value = "Login" class="button"/></td>
					</tr>
					</table>
				</form>
EOF

my $html_end =<<EOF;
				<p>Try password "xxx" for user "uid:0" to access the stock trader web application.</p>
				<p class="new-user">
				<a href="/cgi-bin/trader_register">First time user?</a>
				</p>
			</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>
EOF

print $html_begin;
print $login_form;
print $html_end;