<?php
//
// Author:  David Roessli (roessli@sc2a.unige.ch)
// Created: Fri, 10 May, 1996 @ 12:27:56 pm
// Desc:    Arlequin's Library Routines
// Stage:   Final
//
// History:
//				2002-08-08 : removed filectime in page footer
//				2002-08-07 : ported to virtual server
//				Wed, 07 Mar, 2000: genesis
//
// Interface:
//				(string) page_footer ($lang,$location)
//				(string) page_header ($lang,$section,$alt)
//				(string) page_navbar ($lang,$section)
//				(string) getinfo($dirname,$alt)
//				(string) getbin($dirname, $registered)
//				(string) filename($dirname, $alt)
//				(string) lastaccess($filename)
//				(string) size($filename)
//
// ===============================================================================
//
function page_footer($filename,$location) {

	global $PHP_SELF, $DOCUMENT_ROOT;
	
	// windows returns "/cgi-bin/php.exe/arlequin/<filename>"
	// unix returns "/arlequin/<filename>"

//	$filename = substr($filename,26,strlen($filename)-26);
	$filename = substr($filename,10,strlen($filename)-10);

	$align= ($location == "home") ? "center" : "left";
	
	$str  = "<table border=\"0\" cellpadding=\"3\" cellspacing=\"0\" width=\"100%\">\n";
	$str .= "<tr>\n";
	$str .= "<td align=\"".$align."\"><font size=\"1\" color=\"gray\" face=\"Verdana,Helvetica,Arial,SunSans Regular\">All Contents Copyright &copy; 1996-";
	$str .= date("Y")." <a href=\"mailto:laurent.excoffier@zoo.unibe.ch\">Laurent Excoffier</a>. All Rights Reserved.<br>\n";
/*
	$lastaccess = filectime($filename);
	$str .= "Last modified on ".date("l F d, Y", $lastaccess);
	$str .= " by <a href=\"mailto:david.roessli@anthro.unige.ch\">David Roessli</a></font></td>\n";
*/
	switch ($location) {

		case "home":
			$str .= "";
			break;
			
		default:
			$str .= "<td align=\"right\" valign=\"top\" nowrap><font size=\"1\" face=\"Verdana,Helvetica,Arial,SunSans Regular\" color=\"gray\">Access: ";
			
			$mysql_result = mysql_query("SELECT access_id, access FROM access WHERE shortname='$location'") or die(mysql_error());
			if (mysql_num_rows($mysql_result) != 0) {

				$row = mysql_fetch_row($mysql_result);
				$id = $row[0];
				$nb = $row[1];
				
				$nb++;
				$mysql_result = mysql_query("UPDATE access SET access='$nb' WHERE access_id='$id'") or die(mysql_error());
				$str .= $nb;

			} else {
			
				$str .= 'n/a';
			}
			
			$str .= "</font></td>\n";
	}
	
	$str .= "</tr>\n";
	$str .= "</table>\n";
	
	// added on 2000-07-03 to kill all Net-Mind activity
	$str .= "</URL-MINDER-IGNORE>\n";
	
	return ($str);
}
//
// ===============================================================================
//
function page_header ($lang, $section, $alt) {

	global $image_path, $absolute_image_path;
	
	$main_src  = "logo_small.jpg";
	$main_alt  = "Arlequin";
	$main_size = getimagesize($absolute_image_path."/".$main_src);
	$sub_src   = $section."-title.jpg";
	$sub_alt   = $alt;
	$sub_size  = getimagesize($absolute_image_path."/".$sub_src);


	// added on 2000-07-03 to kill all Net-Mind activity
	$str  = "<!--$url-minder-options$ owner=webmaster@anthro.unige.ch -->\n";
	$str .= "<URL-MINDER-IGNORE>\n";

	$str .= "<table width=\"100%\" cellpadding=0 border=0>\n";
	$str .= "<tr>\n";
	$str .= "<td align=left valign=top><font size=\"+2\"><strong><img src=\"".$image_path."/".$main_src."\" alt=\"".$main_alt."\" ".$main_size[3]." border=\"0\"></strong></font></td>\n";
	$str .= "<td align=right valign=top><font size=\"+2\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" \" align=\"bottom\" width=\"180\" height=\"1\" border=\"0\">";
	$str .= "<br><i><img align=\"bottom\" src=\"".$image_path."/".$sub_src."\" alt=\"".$alt."\"  ".$sub_size[3]." border=\"0\"></i></font>\n";
	$str .= "</tr>\n";
	$str .= "</table>\n";
	
	return ($str);
}
//
// ===============================================================================
//
function page_navbar($lang, $section) {

	global $image_path;
	$font_size = "2";
	
	$str .= "<!-- Toolbar automagically inserted (begin) -->\n";
	$str .= "<p>\n";
	$str .= "<center>\n";
	$str .= "<table width=\"100%\" cellpadding=0 cellspacing=0 border=0>\n";
	$str .= "<tr>\n";
	$str .= "<td align=center><img src=\"".$image_path."/dot-gray.jpg\" alt=\" \" align=bottom width=\"100%\" height=\"1\" border=\"0\">\n";
	$str .= "<table width=\"100%\" border=0>\n";
	$str .= "<tr>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
	$str .= "<td align=center><a href='../' title =\"back to the home page .. what else ?\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">home</font></a></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
	$str .= ($section == "news") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">news</font></a></td>\n" : "<td align=center><a href='../news/news.php' title =\"read the latest news about arlequin\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">news</font></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
	$str .= ($section == "soft") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">software</font></td>\n" : "<td align=center><a href=\"../software/\" title =\"download the latest binaries for your computer\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">software</font></a></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
	$str .= ($section == "registration") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">register</font></td>\n" : "<td align=center><a href=\"../registration/registration.php\" title =\"register as an official arlequin user\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">register</font></a></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
	$str .= ($section == "bugrep") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">bug report</font></td>\n" : "<td align=center><a href=\"../bug-report/bug-report.php\" title =\"found a bug ? Submit it to us through our bug report form\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">bug report</font></a></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
	$str .= ($section == "feedback") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">feedback</font></td>\n" : "<td align=center><a href=\"../feedback/feedback.php\" title =\"tell us what you think of arlequin\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">feedback</font></a></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "\n";
//	$str .= ($section == "help") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">help</font></td>\n" : "<td align=center><a href=\"../help.php\" title =\"nedd help ? This is the place to start\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">help</font></a></td>\n";
//	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
//	$str .= "\n";
	$str .= ($section == "about") ? "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\" color=\"gray\">about</font></td>\n" : "<td align=center><a href='../about/about.php' title =\"learn more about all this\"><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\">about</font></a></td>\n";
	$str .= "<td align=center><font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"".$font_size."\"><img src=\"".$image_path."/dot-gray.jpg\" alt=\" | \" align=bottom width=\"3\" height=\"3\" border=\"0\" hspace=\"2\"></font></td>\n";
	$str .= "</tr>\n";
	$str .= "</table></td>\n";
	$str .= "</tr>\n";
	$str .= "</table>\n";
	$str .= "</center>\n";
	$str .= "<!-- Toolbar automagically inserted (end) -->\n";
	
return($str);
}
//
// ===============================================================================
//
function getinfo($dirname,$alt) {

	// normally contains only 1 file

	$directory = opendir($dirname);
	
	while ($entryName = readdir($directory)) {
	
		if (($entryName != "index.html") && ($entryName != "images") && ($entryName != "..") && ($entryName != ".") && ($entryName != "Icon?") && ($entryName != ".AppleFileInfo"))	{
		
			$lastaccess = filectime($dirname."/".$entryName);
			$lastaccess_str = date("l F d, Y", $lastaccess);		
			$size = filesize($dirname."/".$entryName);
			$size_str = ($size > 1024) ? round($size / 1024)." Kb" : $size." bytes";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= "<a href=\"".$dirname."/".$entryName."\">".$alt."</a>";
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $size_str;
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $lastaccess_str;
			$str .= "<font>";
			$str .= "</td>";
		}
	}
		
	closedir($directory);
	return($str);
}
//
// ===============================================================================
//
function getbin($dirname, $registered) {

//	global $item;
	
//	if ($registered == 2) {
//			
//		$registered = 1;
//		$getIt = 1;
//	}
//	else {
//	
//		$getIt = 0;
//	}

	// normally contains only 1 file

	$directory = opendir($dirname."/complete");
	while ($entryName = readdir($directory)) {
	
		if (($entryName != "index.html") && ($entryName != "..") && ($entryName != ".") && ($entryName != ".AppleFileInfo"))	{
			$lastaccess = filectime($dirname."/complete/".$entryName);
			$lastaccess_str = date("l F d, Y", $lastaccess);		
			$size = filesize($dirname."/complete/".$entryName);
			$size_str = ($size > 1024) ? round($size / 1024)." Kb" : $size." bytes";

			if ($registered) {
				$str .= "<td align=\"right\"nowrap>";
				$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
				$str .= "complete package : ";
				$str .= "<font>";
				$str .= "</td>";
			}
			
			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= ($registered) ? "<a href=\"".$dirname."/complete/".$entryName."\">".$entryName."</a>" : "<a href=\"register.php?bin=".$dirname."\">complete distribution</a> (bin + jre)";
//			$str .= ($getIt) ? "<a href=\"register.php?item=".$dirname."/".$entryName."&registered=2&status=download\">".$entryName."</a>" : "<a href=\"register.php?bin=".$dirname."\">complete distribution</a> (bin + jre)";
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $size_str;
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $lastaccess_str;
			$str .= "<font>";
			$str .= "</td>\n";
		}
	}
	closedir($directory);
	
	$str .= "</tr>\n";
	$str .= "<tr>\n";
			
	$directory = opendir($dirname."/bin");
	while ($entryName = readdir($directory)) {
	
		if (($entryName != "index.html") && ($entryName != "..") && ($entryName != ".") && ($entryName != ".AppleFileInfo"))	{
			$lastaccess = filectime($dirname."/bin/".$entryName);
			$lastaccess_str = date("l F d, Y", $lastaccess);		
			$size = filesize($dirname."/bin/".$entryName);
			$size_str = ($size > 1024) ? round($size / 1024)." Kb" : $size." bytes";

			if ($registered) {
				$str .= "<td align=\"right\"nowrap>";
				$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
				$str .= "arlequin program : ";
				$str .= "<font>";
				$str .= "</td>";
			}
			
			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= ($registered) ? "<a href=\"".$dirname."/bin/".$entryName."\">".$entryName."</a>" : "<a href=\"register.php?bin=".$dirname."\">arlequin program</a> (bin)";
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $size_str;
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $lastaccess_str;
			$str .= "<font>";
			$str .= "</td>\n";
		}
	}
	closedir($directory);

	$str .= "</tr>\n";
	$str .= "<tr>\n";

	$directory = opendir($dirname."/jre");
	while ($entryName = readdir($directory)) {
	
		if (($entryName != "index.html") && ($entryName != "..") && ($entryName != ".") && ($entryName != ".AppleFileInfo"))	{
			$lastaccess = filectime($dirname."/jre/".$entryName);
			$lastaccess_str = date("l F d, Y", $lastaccess);		
			$size = filesize($dirname."/jre/".$entryName);
			$size_str = ($size > 1024) ? round($size / 1024)." Kb" : $size." bytes";

			if ($registered) {
				$str .= "<td align=\"right\"nowrap>";
				$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
				$str .= "java runtime : ";
				$str .= "<font>";
				$str .= "</td>";
			}
			
			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= ($registered) ? "<a href=\"".$dirname."/jre/".$entryName."\">".$entryName."</a>" : "<a href=\"".$dirname."/jre/".$entryName."\">Java runtime</a> (jre)";
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $size_str;
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $lastaccess_str;
			$str .= "<font>";
			$str .= "</td>\n";
		}
	}
	closedir($directory);

	$str .= "</tr>\n";
	$str .= "<tr>\n";

	$directory = opendir($dirname."/patch");
	while ($entryName = readdir($directory)) {
	
		if (($entryName != "index.html") && ($entryName != "..") && ($entryName != ".") && ($entryName != ".AppleFileInfo"))	{
			$lastaccess = filectime($dirname."/patch/".$entryName);
			$lastaccess_str = date("l F d, Y", $lastaccess);		
			$size = filesize($dirname."/patch/".$entryName);
			$size_str = ($size > 1024) ? round($size / 1024)." Kb" : $size." bytes";

			if ($registered) {
				$str .= "<td align=\"right\"nowrap>";
				$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
				$str .= "patch : ";
				$str .= "<font>";
				$str .= "</td>";
			}
			
			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= "<b><a href='../news/news.php?version=2001&dirname=$dirname'>Arlequin 2001 update</a> (patch)</b>";
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $size_str;
			$str .= "<font>";
			$str .= "</td>";

			$str .= "<td nowrap>";
			$str .= "<font face=\"Verdana,Helvetica,Arial,SunSans Regular\" size=\"2\">";
			$str .= $lastaccess_str;
			$str .= "<font>";
			$str .= "</td>\n";
		}
	}
	closedir($directory);

	return($str);
}
//
// ===============================================================================
//
function filename($dirname, $alt) {

	$directory = opendir($dirname);
	
	while ($entryName = readdir($directory)) {
	
		if (($entryName != "index.html") && ($entryName != "..") && ($entryName != ".") && ($entryName != ".AppleFileInfo"))	{
	
			$alt = (strlen($alt) > 1) ? $alt : $entryName;
			$str = "<a href='".$dirname."/".$entryName."'>".$alt."</a>";
		}
	}
	
	return($str);
}
//
// ===============================================================================
//
function lastaccess($filename) {
	
	if (file_exists($filename)) {
	
		$lastaccess = filectime($filename);
		$str = date("l F d, Y", $lastaccess);
	} else {
	
		$str = "n/a";
	}
	
	return($str);
}
//
// ===============================================================================
//
function size($filename) {

	if (file_exists($filename)) {
	
		$size = filesize($filename);
		$str = ($size > 1024) ? round($size / 1024)." Kb" : $size." bytes";
	} else {
	
		$str = "n/a";
	}
	
	return($str);
}
//
// ===============================================================================
//
function nb_access($location) {

	$str = "<font size=\"1\" face=\"Verdana,Helvetica,Arial,SunSans Regular\" color=\"gray\">";
	
	switch ($location) {
	
		case "all":
			$mysql_result = mysql_query("SELECT access FROM access") or die(mysql_error());
			while ($row = mysql_fetch_row($mysql_result)) {
			
				$nb += $row[0];
			}
			$nb = 2*$nb;
			$str .= $nb;
			break;

		case "bin":
			$mysql_result = mysql_query("SELECT nb_downloads FROM downloads WHERE downloads_id!=3 AND downloads_id!=9") or die(mysql_error());
			if (mysql_num_rows($mysql_result) != 0) {

				while($row = mysql_fetch_row($mysql_result)) {

					$nb += $row[0];
				}
				$str .= $nb;
			}
			else {
				$str .= "n/a";
			}
			break;
			
		case "man":
			$mysql_result = mysql_query("SELECT nb_downloads FROM downloads WHERE downloads_id=3 OR downloads_id=9") or die(mysql_error());
			if (mysql_num_rows($mysql_result) != 0) {

				while($row = mysql_fetch_row($mysql_result)) {

					$nb += $row[0];
				}
				$str .= $nb;
			}
			else {
				$str .= "n/a";
			}
			break;
			
		case "reguser":
			$mysql_result = mysql_query("SELECT * FROM registered_users") or die(mysql_error());
			$str .= mysql_num_rows($mysql_result);
			break;
			
		default:
			$mysql_result = mysql_query("SELECT access FROM access WHERE shortname='$location'") or die(mysql_error());
			if (mysql_num_rows($mysql_result) != 0) {

				$row = mysql_fetch_row($mysql_result);
				$nb = $row[0];
				$str .= $nb;
			}
			else {
				$str .= "n/a";
			}
			break;
	}
	$str .= "</font>";
	
	return($str);
}
//
// ===============================================================================
//

?>
