<?php
/* ----------------------------------------------------------------------
 * PHP implementation of TPC-W
 * 
 * Copyright (c) 2004, Jan Wieck
 * 
 * Permission to use, copy, modify, and distribute this software and
 * its documentation for any purpose, without fee, and without a
 * written agreement is hereby granted, provided that the above
 * copyright notice and this paragraph and the following two
 * paragraphs appear in all copies.
 * 
 * IN NO EVENT SHALL THE AUTHORS BE LIABLE TO ANY PARTY FOR DIRECT,
 * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES,
 * INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF THIS SOFTWARE
 * AND ITS DOCUMENTATION, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF
 * THE POSSIBILITY OF SUCH DAMAGE.
 * 
 * THE AUTHORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT
 * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
 * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED
 * HEREUNDER IS ON AN "AS IS" BASIS, AND THE AUTHORS HAVE NO
 * OBLIGATIONS TO PROVIDE MAINTENANCE, SUPPORT, UPDATES,
 * ENHANCEMENTS, OR MODIFICATIONS.
 *
 * common.inc -
 *
 * Common initialization and functions included in all modules.
 * ----------------------------------------------------------------------
 */

include('session.inc');
include('config.inc');

$num_customers	= $num_ebs * 2880;

/*
 * Every page in the benchmark participates needs session handling.
 */
session_start();

/*
 * On all pages, if we don't have a shopping session, then this
 * isn't one yet.
 */
if (!isset($_SESSION['shopping_session']))
{
	$_SESSION['shopping_session'] = false;
	session_register('shopping_session');
}


/*
 * Set $vars to the request variables depending on the request method
 */
if ($_SERVER['REQUEST_METHOD'] == "GET")
{
	$vars = $_GET;
}
else if ($_SERVER['REQUEST_METHOD'] == "POST")
{
	$vars = $_POST;
}


/* **********************************************************************
 * End of initialization - common functions follow
 * **********************************************************************/


/* ----
 * tpcw_mklink()
 *
 *	Function to generate a full qualified link. Used to switch at
 *	several places to https and back.
 * ----
 */
function tpcw_mklink($proto, $page)
{
	global $tpcw_basepath;

	return($proto . "://" . $_SERVER['SERVER_NAME'] . $tpcw_basepath . $page);
}


/* ----
 * tpcw_error()
 *
 *	Function to include the error message page and abort the request
 * ----
 */
function tpcw_error ($msg) {
	global $error_message;

	// (Austin) I think this is completely pointless, and makes it
	// impossible to call tpcw_error from within a cachable
	// function.  db_reset simply aborts the current transaction
	// and closes the Postgres link, which will be done
	// automatically by the Postgres module in its post-request
	// hook.
	//@ db_reset();

	$error_message = $msg;
	include('errormsg.inc');

	exit;
}


/* ----
 * tpcw_rand()
 *
 *	Random number generator with auto-initialization
 * ----
 */
function tpcw_rand($x, $y)
{
	global	$tpcw_srand_called;

	if (!isset($tpcw_srand_called))
	{
		list($usec, $sec) = explode(' ', microtime());
		$seed = (float) $sec + ((float) $usec * 100000);
		srand($seed);

		$tpcw_srand_called = 1;
	}

	return(rand($x, $y));
}


/* ----
 * tpcw_digsyl()
 *
 *	DigSyl function according 4.6.2.9
 * ----
 */
function tpcw_digsyl($num, $minsize)
{
	$syl = array('BA', 'OG', 'AL', 'RI', 'RE', 'SE', 'AT', 'UL', 'IN', 'NG');
	$digits = sprintf("%0" . $minsize . "d", $num);
	$result = "";
	for ($i = 0; $i < strlen($digits); $i++) {
		$result = $result . $syl[substr($digits, $i, 1)];
	}

	return ($result);
}


/* ----
 * tpcw_astring()
 *
 *	Random A-String according 2.6.2.2
 * ----
 */
function tpcw_astring($x, $y)
{
	$astrchars = "abcdefghijklmnopqrstyvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" .
				"0123456789!@#\$%^&*()_-=+{}[]|:;,.?/~ ";
	$nastc = strlen($astrchars);

	$len = tpcw_rand($x, $y);
	$res = "";
	for ($i = 0; $i < $len; $i++)
	{
		$res .= substr($astrchars, rand(1, $nastc) - 1, 1);
	}
	
	return ($res);
}


/* ----
 * tpcw_promotional()
 *
 *	Code to generate the 5 promotional book links displayed by
 *	several pages.
 * ----
 */
function tpcw_promotional ()
{
	global $num_items;

	$i_id = tpcw_rand(1, $num_items);
	// XXX May not be worth caching.  Maybe this could be run in a
	// separate transaction with a laxer freshness?
	return wrap('tpcw_promotional_impl', $i_id);
}

function tpcw_promotional_impl($i_id)
{
	global $DB;
	global $image_root;

	$res = db_promotional($i_id);

	/*
	 * Begin a table with the red "Click on one ..." text at the top
	 */
	$ret =	"<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\">\n" .
			"  <tr>\n" .
			"	<td align=\"center\" nowrap colspan=\"5\">\n" .
			"	  <h3><font color=\"#dd0000\">\n" .
			"		Click on one of our latest books to find out more !\n" .
			"	  </font></h3>\n" .
			"	</td>\n" .
			"  </tr>\n" .
			"  <tr>\n";

	/*
	 * Put the 5 thumbnail images with links to the product_detai
	 * page into the table.
	 */
	for ($i = 0; $i < 5; $i++)
	{
		if (!$row = db_fetch_row($res))
		{
			break;
		}
		$ret .=	"	<td align=\"center\" width=\"20%\">\n" .
				"	  <a href=\"product_detail.php?I_ID=$row[0]\">\n" .
				"		<img src=\"" . $image_root . "$row[1]\">\n" .
				"	  </a>\n" .
				"	</td>\n";
	}
	$ret .=	"  </tr>\n</table>\n";

	db_freeresult($res);
	return($ret);
}


/* ----
 * tpcw_product_list()
 *
 *	Common part of new_product, best_sellers and search_result
 *	item lists.
 * ----
 */
function tpcw_product_list($res)
{
	$n = db_numrows($res);

	if ($n == 0)
	{
		tpcw_error("Product list is empty");
	}

	$ret = "";
	for ($i = 0; $i < $n; $i++)
	{
		$row = db_fetch_row($res);
		$ret .=	"<tr>\n" .
			"<td align=\"left\" nowrap>" . $row[2] . " " . $row[3] . "</td>\n" .
			"<td align=\"left\" nowrap>" .
			"<a href=\"product_detail.php?I_ID=" . $row[0] . "\">" .
			$row[1] .
			"</a></td>\n</tr>\n";
	}

	return($ret);
}


/* ----
 * tpcw_new_products()
 *
 *	Generate the NewProduct item list
 * ----
 */
function tpcw_new_products($subject_string)
{
	$res = db_new_products($subject_string);
	$ret = tpcw_product_list($res);
	db_freeresult($res);

	return($ret);
}


/* ----
 * tpcw_best_sellers()
 *
 *	Generate the BestSellers item list
 * ----
 */
function tpcw_best_sellers($subject_string)
{
	$res = db_best_sellers($subject_string);
	$ret = tpcw_product_list($res);
	db_freeresult($res);

	return($ret);
}


/* ----
 * tpcw_search_result()
 *
 *	Generate the SearchResult item list
 * ----
 */
function tpcw_search_result($search_type, $search_string)
{
	$res = db_search_result($search_type, $search_string);
	$ret = tpcw_product_list($res);
	db_freeresult($res);

	return($ret);
}


/* ----
 * tpcw_order_display_lines()
 *
 *	Generate the html output for the order lines in the Order Display
 * 	web page.
 * ----
 */
function tpcw_order_display_lines($o_id)
{
	$res = db_order_display_lines($o_id);

	$ret = "";
	while ($row = db_fetch_row($res))
	{
		$ol_i_id		= $row[0];
		$i_title		= $row[1];
		$i_publisher	= $row[2];
		$i_cost			= $row[3];
		$ol_qty			= $row[4];
		$ol_discount	= (double)$row[5] * 100.0;
		$ol_comments	= $row[6];

		$ol_comments = chunk_split($ol_comments, 32, "<wbr>");

		$ret .=	"<tr>\n" .
				"<td align=\"left\" valign=\"top\" nowrap>" . $ol_i_id .
				"</td>\n" .

				"<td align=\"left\" valign=\"top\" nowrap>" .
		  		"Title: " . $i_title . "<br>" .
		  		"Publisher: " . $i_publisher . "</td>\n" .

				"<td align=\"right\" valign=\"top\" nowrap>" . $i_cost .
				"</td>\n" .
				"<td align=\"right\" valign=\"top\" nowrap>" . $ol_qty .
				"</td>\n" .
				"<td align=\"right\" valign=\"top\" nowrap>" . $ol_discount .
				"%</td>\n" .
				"<td align=\"left\" valign=\"top\">" . $ol_comments .
				"</td>\n" .
				"</tr>\n";
	}

	db_freeresult($res);
	return($ret);
}


?>