<?
include("aur.inc");         # access AUR common functions
include("submit_po.inc");   # use some form of this for i18n support
set_lang();                 # this sets up the visitor's language
check_sid();                # see if they're still logged in
html_header();              # print out the HTML header

print "<center>\n";

# this is the directory that new packages will be uploaded to
#
$UPLOAD_DIR = "/tmp/aur/temp/";
$INCOMING_DIR = "/tmp/aur/incoming/";

if ($_COOKIE["AURSID"]) {
	# track upload errors
	#
	$error = "";

	if ($_REQUEST["pkgsubmit"]) {

		$pkg_name = escapeshellarg($_FILES["pfile"]["name"]);

		# first, see if this package already exists, and if it can be overwritten
	 	#	
		$pkg_exists = package_exists($pkg_name);
		if ($pkg_exists) {
			# ok, it exists - should it be overwritten, and does the user have
			# the permissions to do so?
			#
			if (can_overwrite_pkg($pkg_name, $_COOKIE["AURSID"])) {
				if (!$_REQUEST["overwrite"]) {
					$error = __("You did not tag the 'overwrite' checkbox.");
				}
			} else {
				$error = __("You are not allowed to overwrite the %h%s%h package.",
						array("<b>", $pkg_name, "</b>"));
			}
		}

		if (!$error) {
			# no errors checking upload permissions, go ahead and try to process
			# the uploaded package file.
			#

			$upload_file = $UPLOAD_DIR . $pkg_name;
			if (move_uploaded_file($_FILES["pfile"]["tmp_name"], $upload_file)) {
				# ok, we can proceed
				#
				if (file_exists($INCOMING_DIR . $pkg_name)) {
					# blow away the existing file/dir and contents
					#
					rm_rf($INCOMING_DIR . $pkg_name);
				}

			} else {
				# errors uploading file...
				#
				$error = __("Error trying to upload file - please try again.");
			}
		}

		# at this point, we can safely unpack the uploaded file and parse
		# its contents.
		#
		if (!mkdir($INCOMING_DIR.$pkg_name)) {
			$error = __("Could not create incoming directory: %s.",
					array($INCOMING_DIR.$pkg_name));
		} else {
			if (!chdir($INCOMING_DIR.$pkg_name)) {
				$error = __("Could not change directory to %s.",
						array($INCOMING_DIR.$pkg_name));
			} else {
				# try .gz first
				#
				exec("/bin/sh -c 'tar xzf ".$upload_file."'", $retval);
				if (!$retval) {
					# now try .bz2 format
					#
					exec("/bin/sh -c 'tar xjf ".$upload_file."'", $retval);
				}
				if (!$retval) {
					$error = __("Unknown file format for uploaded file.");
				}
			}
		}

		# At this point, if no error exists, the package has been extracted
		# There should be a $INCOMING_DIR.$pkg_name."/".$pkg_name directory
		# if the user packaged it correctly.  However, the final sub-directory
		# may not exist, in which case, the files will live in,
		# $INCOMING_DIR.$pkg_name.
		#
		if (is_dir($INCOMING_DIR.$pkg_name."/".$pkg_name) &&
				is_file($INCOMING_DIR.$pkg_name."/".$pkg_name."/PKGBUILD")) {
			# the files were packaged correctly
			#
			if (!chdir($INCOMING_DIR.$pkg_name."/".$pkg_name)) {
				$error = __("Could not change to directory %s.",
						array($INCOMING_DIR.$pkg_name."/".$pkg_name));
			}
			$pkg_dir = $INCOMING_DIR.$pkg_name."/".$pkg_name;
		} elseif (is_file($INCOMING_DIR.$pkg_name."/PKGBUILD")) {
			# not packaged correctly, but recovery is possible
			#
			if (!mkdir($INCOMING_DIR.$pkg_name."/".$pkg_name)) {
				$error = __("Could not create directory %s.",
						array($INCOMING_DIR.$pkg_name."/".$pkg_name));
			} else {
				exec("/bin/sh -c 'mv * ".$pkg_name."'");
				if (!file_exists($INCOMING_DIR.$pkg_name."/".$pkg_name."/PKGBUILD")) {
					$error = __("Error exec'ing the mv command.");
				}
			}
			if (!chdir($INCOMING_DIR.$pkg_name."/".$pkg_name)) {
				$error = __("Could not change to directory %s.",
						array($INCOMING_DIR.$pkg_name."/".$pkg_name));
			}
			$pkg_dir = $INCOMING_DIR.$pkg_name."/".$pkg_name;
		} else {
			# some wierd packaging/extraction error - baal
			#
			$error = __("Error trying to unpack upload - PKGBUILD does not exist.");
		}

		# if no error, get list of directory contents and process PKGBUILD
		#
		if (!$error) {
			# get list of files
			#
			$d = dir($pkg_dir);
			$pkg_contents = array();
			while ($f = $d->read()) {
				if ($f != "." && $f != "..") {
					$pkg_contents[$f] = filesize($f);
				}
			}
			$d->close();

			# process PKGBIULD
			#
			$pkgbuild = array();
			$fp = fopen($pkg_dir."/PKGBUILD", "r");
			$seen_build = 0;
			while (!feof($fp)) {
				$line = trim(fgets($fp));
				$lparts = explode("=", $line);
				if (count($lparts) == 2) {
					# this is a variable/value pair
					#
					$pkgbuild[$lparts[0]] = $lparts[1];
				} else {
					# either a comment, blank line, or build function
					#
					if (substr($lparts[0], 0, 5) == "build") {
						$seen_build = 1;
					}
				}
				if ($seen_build) {break;}
			}
			fclose($fp);

			# some error checking on PKGBUILD contents
			#
			if (!$seen_build) {
				$error = __("Missing build function in PKGBUILD.");
			}
			if (!array_key_exists("md5sums", $pkgbuild)) {
				$error = __("Missing md5sums variable in PKGBUILD.");
			}
			if (!array_key_exists("source", $pkgbuild)) {
				$error = __("Missing source variable in PKGBUILD.");
			}
			if (!array_key_exists("url", $pkgbuild)) {
				$error = __("Missing url variable in PKGBUILD.");
			}
			if (!array_key_exists("pkgdesc", $pkgbuild)) {
				$error = __("Missing pkgdesc variable in PKGBUILD.");
			}
			if (!array_key_exists("pkgrel", $pkgbuild)) {
				$error = __("Missing pkgrel variable in PKGBUILD.");
			}
			if (!array_key_exists("pkgver", $pkgbuild)) {
				$error = __("Missing pkgver variable in PKGBUILD.");
			}
			if (!array_key_exists("pkgname", $pkgbuild)) {
				$error = __("Missing pkgname variable in PKGBUILD.");
			}
		}


		# update the backend database if there are no errors
		#
		if (!$error) {
			$dbh = db_connect();
			if ($pkg_exists) {

				# this is an overwrite of an existing package, the database ID
				# needs to be preserved so that any votes are retained.  However,
				# PackageDepends, PackageSources, and PackageContents can be
				# purged.
				#
				$q = "SELECT * FROM Packages ";
				$q.= "WHERE Name = '".mysql_escape_string($_FILES["pfile"]["name"])."'";
				$result = db_query($q, $dbh);
				$pdata = mysql_fetch_assoc($result);

				# flush out old data that will be replaced with new data
				#
				$q = "DELETE FROM PackageContents WHERE PackageID = ".$pdata["ID"];
				db_query($q, $dbh);
				$q = "DELETE FROM PackageDepends WHERE PackageID = ".$pdata["ID"];
				db_query($q, $dbh);
				$q = "DELETE FROM PackageSources WHERE PackageID = ".$pdata["ID"];
				db_query($q, $dbh);

				# TODO
				# $q = "UPDATE Packages ..."

			} else {
				# this is a brand new package
				#
				# TODO
				# $q = "INSERT ..."
			}
		}

		# TODO clean up on error?  How much cleaning to do?
		#
		if ($error) {
			# TODO clean house (filesystem/database)
			#
		}

	}


	if (!$_REQUEST["pkgsubmit"] || $error) {
		# give the visitor the default upload form
		#
		if (ini_get("file_uploads")) {
			if ($error) {
				print "<span class='error'>".$error."</span><br />\n";
				print "<br />&nbsp;<br />\n";
			}
			print "<form action='/pkgsubmit.php' method='post'";
			print "	enctype='multipart/form-data'>\n";
			print "<input type='hidden' name='pkgsubmit' value='1' />\n";
			print "<input type='hidden' name='MAX_FILE_SIZE' value='";
			print initeger(ini_get("upload_max_filesize"))."' />\n";
			print "<table border='0' cellspacing='5'>\n";
			print "<tr>\n";
			print "  <td span='f4' align='right'>";
			print __("Upload package").":</td>\n";
			print "  <td span='f4' align='left'>";
			print "<input type='file' name='pfile' size='30' />\n";
			print "  </td>\n";
			print "</tr>\n";
			print "<tr>\n";
			print "  <td span='f4' align='right'>";
			print __("Overwrite existing package?");
			print "  </td>\n";
			print "  <td span='f4' align='left'>";
			print "<input type='checkbox' name='overwrite' value='1'> ".__("Yes");
			print "&nbsp;&nbsp;&nbsp;";
			print "<input type='checkbox' name='overwrite' value='0' checked> ";
			print __("No");
			print "  </td>\n";
			print "</tr>\n";

			print "<tr>\n";
			print "  <td>&nbsp;</td>\n";
			print "  <td align='left'>";
			print "<input class='button' type='submit' value='".__("Upload")."' />\n";
			print "</td>\n";
			print "</tr>\n";
			print "</table>\n";

			print "</form>\n";
		} else {
			print __("Sorry, uploads are not permitted by this server.");
			print "<br />\n";
		}
	}

} else {
	# visitor is not logged in
	#
	print __("You must create an account before you can upload packages.");
	print "<br />\n";
}

print "</center>\n";
html_footer("\$Id$");
?>