\n"; echo "
".__("Submit")."
\n"; echo "
\n"; # Debugging $DBUG = 0; if ($_COOKIE["AURSID"]) { # track upload errors # $error = ""; if ($DBUG) { print "
\n";
		print_r($_REQUEST);
        print "
"; print_r($_FILES); print "
\n"; } if ($_REQUEST["pkgsubmit"]) { #Before processing, make sure we even have a file # if ($_FILES['pfile']['size'] == 0){ $error = __("Error - No file uploaded"); } # temporary dir to put the tarball contents $tempdir = uid_from_sid($_COOKIE['AURSID']) . time(); if (!$error) { if (!@mkdir(UPLOAD_DIR . $tempdir)) { $error = __("Could not create incoming directory: %s.", array(UPLOAD_DIR . $tempdir)); } else { if (!@chdir(UPLOAD_DIR . $tempdir)) { $error = __("Could not change directory to %s.", array(UPLOAD_DIR . $tempdir)); } else { exec("/bin/sh -c 'tar xzf " . $_FILES["pfile"]["tmp_name"] . "'", $trash, $retval); if ($retval) { exec("/bin/sh -c 'tar xjf " . $_FILES["pfile"]["tmp_name"] . "'", $trash, $retval); } if ($retval) { $error = __("Unknown file format for uploaded file."); } } } } # where is the pkgbuild?! if (!$error) { $d = dir(UPLOAD_DIR . $tempdir); $pkgbuild = ""; $deepdir = ""; while ($file = $d->read()) { # try to find a PKGBUILD in the top level (naughty! :O) and # also the first directory found to use for the next part if required if ($file == "PKGBUILD") { $pkgbuild = UPLOAD_DIR . $tempdir . "/PKGBUILD"; $pkg_dir = UPLOAD_DIR . $tempdir; break; } else if (is_dir($file)) { # we'll assume the first directory we find is the one with # the pkgbuild in it if ($file != "." && $file != "..") { $deepdir = $file; break; } } } # if we couldn't find a pkgbuild in the top level we'll # check in the first dir we found, if it's not there we assume # there isn't any (even if there was the user should upload a proper tarball) if ($pkgbuild == "" && $deepdir != "") { $d = dir(UPLOAD_DIR . $tempdir . "/" . $deepdir); while ($file = $d->read()) { if ($file == "PKGBUILD") { # oh my $pkgbuild = UPLOAD_DIR . $tempdir . "/" . $deepdir ."/PKGBUILD"; $pkg_dir = UPLOAD_DIR . $tempdir . "/" . $deepdir; break; } } if ($pkgbuild == "") { $error = __("Error trying to unpack upload - PKGBUILD does not exist."); } } # we know where our pkgbuild is now, woot woot } # 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($pkg_dir . "/" . $f); if (preg_match("/^(.*\.pkg\.tar\.gz|filelist)$/", $f)) { $error = __("Binary packages and filelists are not allowed for upload."); } } } $d->close(); # process PKGBIULD - remove line concatenation # $pkgbuild = array(); $fp = fopen($pkg_dir."/PKGBUILD", "r"); $line_no = 0; $lines = array(); $continuation_line = 0; $current_line = ""; while (!feof($fp)) { $line = trim(fgets($fp)); $char_counts = count_chars($line, 0); if (substr($line, strlen($line)-1) == "\\") { # continue appending onto existing line_no # $current_line .= substr($line, 0, strlen($line)-1); $continuation_line = 1; } elseif ($char_counts[ord('(')] > $char_counts[ord(')')]) { # assumed continuation # continue appending onto existing line_no # $current_line .= $line . " "; $continuation_line = 1; } else { # maybe the last line in a continuation, or a standalone line? # if ($continuation_line) { # append onto existing line_no # $current_line .= $line; $lines[$line_no] = $current_line; $current_line = ""; } else { # it's own line_no # $lines[$line_no] = $line; } $continuation_line = 0; $line_no++; } } fclose($fp); # Now process the lines and put any var=val lines into the # 'pkgbuild' array. Also check to make sure it has the build() # function. # $seen_build_function = 0; while (list($k, $line) = each($lines)) { $lparts = explode("=", $line, 2); if (count($lparts) == 2) { # this is a variable/value pair, strip out # array parens and any quoting, except in pkgdesc # for pkgdesc, only remove start/end pairs of " or ' if ($lparts[0]=="pkgdesc") { if ($lparts[1]{0} == '"' && $lparts[1]{strlen($lparts[1])-1} == '"') { $pkgbuild[$lparts[0]] = substr($lparts[1], 1, -1); } elseif ($lparts[1]{0} == "'" && $lparts[1]{strlen($lparts[1])-1} == "'") { $pkgbuild[$lparts[0]] = substr($lparts[1], 1, -1); } else { $pkgbuild[$lparts[0]] = $lparts[1]; } } else { $pkgbuild[$lparts[0]] = str_replace(array("(",")","\"","'"), "", $lparts[1]); } } else { # either a comment, blank line, continued line, or build function # if (substr($lparts[0], 0, 5) == "build") { $seen_build_function = 1; } } # XXX: closes bug #2280? Might as well let the loop complete rather # than break after the build() function. # #if ($seen_build_function) {break;} } # some error checking on PKGBUILD contents - just make sure each # variable has a value. This does not do any validity checking # on the values, or attempts to fix line continuation/wrapping. # if (!$seen_build_function) { $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("license", $pkgbuild)) { $error = __("Missing license 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("arch", $pkgbuild)) { $error = __("Missing arch variable in PKGBUILD."); } if (!array_key_exists("pkgname", $pkgbuild)) { $error = __("Missing pkgname variable in PKGBUILD."); } } # TODO This is where other additional error checking can be # performed. Examples: #md5sums == #sources?, md5sums of any # included files match?, install scriptlet file exists? # # Check for http:// or other protocol in url # if (!$error) { $parsed_url = parse_url($pkgbuild['url']); if (!$parsed_url['scheme']) { $error = __("Package URL is missing a protocol (ie. http:// ,ftp://)"); } } # Now, run through the pkgbuild array and do any $pkgname/$pkgver # substituions. # #TODO: run through and do ALL substitutions, to cover custom vars if (!$error) { $pkgname_var = $pkgbuild["pkgname"]; $pkgver_var = $pkgbuild["pkgver"]; $new_pkgbuild = array(); while (list($k, $v) = each($pkgbuild)) { $v = str_replace("\$pkgname", $pkgname_var, $v); $v = str_replace("\${pkgname}", $pkgname_var, $v); $v = str_replace("\$pkgver", $pkgver_var, $v); $v = str_replace("\${pkgver}", $pkgver_var, $v); $new_pkgbuild[$k] = $v; } } # now we've parsed the pkgbuild, let's move it to where it belongs # if (!$error) { $pkg_name = str_replace("'", "", $pkgbuild['pkgname']); $pkg_name = escapeshellarg($pkg_name); $pkg_name = str_replace("'", "", $pkg_name); # get rid of single quotes # Solves the problem when you try to submit PKGBUILD # that have the name with a period like (gstreamer0.10) # Added support for packages with + characters like (mysql++). $presult = preg_match("/^[a-z0-9][a-z0-9\.+_-]*$/", $pkg_name); if ($presult == FALSE || $presult <= 0) { # FALSE => error processing regex, 0 => invalid characters # $error = __("Invalid name: only lowercase letters are allowed."); } } if (!$error) { # first, see if this package already exists, and if it can be overwritten # $pkg_exists = package_exists($pkg_name); if (can_submit_pkg($pkg_name, $_COOKIE["AURSID"])) { if (file_exists(INCOMING_DIR . $pkg_name)) { # blow away the existing file/dir and contents # rm_rf(INCOMING_DIR . $pkg_name); } if (!@mkdir(INCOMING_DIR.$pkg_name)) { $error = __("Could not create directory %s.", array(INCOMING_DIR.$pkg_name)); } $shcmd = "/bin/mv " . $pkg_dir . " " . escapeshellarg(INCOMING_DIR . $pkg_name . "/" . $pkg_name); @exec($shcmd); } else { $error = __("You are not allowed to overwrite the %h%s%h package.", array("", $pkg_name, "")); } } # Re-tar the package for consistency's sake # if (!$error) { if (!@chdir(INCOMING_DIR.$pkg_name)) { $error = __("Could not change directory to %s.", array(INCOMING_DIR.$pkg_name)); } } if (!$error) { @exec("/bin/sh -c 'tar czf ".$pkg_name.".tar.gz ".$pkg_name."'", $trash, $retval); if ($retval) { $error = __("Could not re-tar"); } } # whether it failed or not we can clean this out if (file_exists(UPLOAD_DIR . $tempdir)) { rm_rf(UPLOAD_DIR . $tempdir); } # update the backend database # if (!$error) { $dbh = db_connect(); # 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_real_escape_string($new_pkgbuild['pkgname'])."'"; $result = db_query($q, $dbh); $pdata = mysql_fetch_assoc($result); if ($pdata) { # 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); # update package data # $q = "UPDATE Packages SET "; # if the package was a dummy, undummy it and change submitter # also give it a maintainer so we dont go making an orphan if ($pdata['DummyPkg'] == 1) { $q.= "DummyPkg = 0, "; $q.= "SubmitterUID = ".uid_from_sid($_COOKIE["AURSID"]).", "; $q.= "MaintainerUID = ".uid_from_sid($_COOKIE["AURSID"]).", "; $q.= "SubmittedTS = UNIX_TIMESTAMP(), "; } else { $q.="ModifiedTS = UNIX_TIMESTAMP(), "; } $q.="Name='".mysql_real_escape_string($new_pkgbuild['pkgname'])."', "; $q.="Version='".mysql_real_escape_string($new_pkgbuild['pkgver'])."-". mysql_real_escape_string($new_pkgbuild['pkgrel'])."',"; $q.="CategoryID=".mysql_real_escape_string($_REQUEST['category']).", "; $q.="License='".mysql_real_escape_string($new_pkgbuild['license'])."', "; $q.="Description='".mysql_real_escape_string($new_pkgbuild['pkgdesc'])."', "; $q.="URL='".mysql_real_escape_string($new_pkgbuild['url'])."', "; $q.="LocationID=2, "; $fspath=INCOMING_DIR.$pkg_name."/".$_FILES["pfile"]["name"]; $q.="FSPath='".mysql_real_escape_string($fspath)."', "; $urlpath=URL_DIR.$pkg_name."/".$_FILES["pfile"]["name"]; $q.="URLPath='".mysql_real_escape_string($urlpath)."' "; $q.="WHERE ID = " . $pdata["ID"]; $result = db_query($q, $dbh); # update package contents # while (list($k, $v) = each($pkg_contents)) { $q = "INSERT INTO PackageContents "; $q.= "(PackageID, FSPath, URLPath, FileSize) VALUES ("; $q.= $pdata['ID'].", "; $q.= "'".INCOMING_DIR.$pkg_name."/".$pkg_name."/".$k."', "; $q.= "'".URL_DIR.$pkg_name."/".$pkg_name."/".$k."', "; $q.= $v.")"; db_query($q); } # update package depends # $depends = explode(" ", $new_pkgbuild['depends']); while (list($k, $v) = each($depends)) { $q = "INSERT INTO PackageDepends (PackageID, DepPkgID, DepCondition) VALUES ("; $deppkgname = preg_replace("/[<>]?=.*/", "", $v); $depcondition = str_replace($deppkgname, "", $v); # Solve the problem with comments and deps # added by: dsa if ($deppkgname == "#") break; $deppkgid = create_dummy($deppkgname, $_COOKIE['AURSID']); if(!empty($depcondition)) $q .= $pdata["ID"].", ".$deppkgid.", '".$depcondition."')"; else $q .= $pdata["ID"].", ".$deppkgid.", '')"; db_query($q, $dbh); } $sources = explode(" ", $new_pkgbuild['source']); while (list($k, $v) = each($sources)) { $q = "INSERT INTO PackageSources (PackageID, Source) VALUES ("; $q .= $pdata["ID"].", '".mysql_real_escape_string($v)."')"; db_query($q, $dbh); } } else { # this is a brand new package # $q = "INSERT INTO Packages "; $q.= " (Name, License, Version, CategoryID, Description, URL, LocationID, "; $q.= " SubmittedTS, SubmitterUID, MaintainerUID, FSPath, URLPath) "; $q.= "VALUES ('"; $q.= mysql_real_escape_string($new_pkgbuild['pkgname'])."', '"; $q.= mysql_real_escape_string($new_pkgbuild['license'])."', '"; $q.= mysql_real_escape_string($new_pkgbuild['pkgver'])."-". mysql_real_escape_string($new_pkgbuild['pkgrel'])."', "; $q.= mysql_real_escape_string($_REQUEST['category']).", '"; $q.= mysql_real_escape_string($new_pkgbuild['pkgdesc'])."', '"; $q.= mysql_real_escape_string($new_pkgbuild['url']); $q.= "', 2, "; $q.= "UNIX_TIMESTAMP(), "; $q.= uid_from_sid($_COOKIE["AURSID"]).", "; $q.= uid_from_sid($_COOKIE["AURSID"]).", '"; $fspath=INCOMING_DIR.$pkg_name."/".$_FILES["pfile"]["name"]; $q.= mysql_real_escape_string($fspath)."', '"; $urlpath=URL_DIR.$pkg_name."/".$_FILES["pfile"]["name"]; $q.= mysql_real_escape_string($urlpath)."')"; $result = db_query($q, $dbh); # print $result . "
"; $packageID = mysql_insert_id($dbh); # update package contents # while (list($k, $v) = each($pkg_contents)) { $q = "INSERT INTO PackageContents "; $q.= "(PackageID, FSPath, URLPath, FileSize) VALUES ("; $q.= $packageID.", "; $q.= "'".INCOMING_DIR.$pkg_name."/".$pkg_name."/".$k."', "; $q.= "'".URL_DIR.$pkg_name."/".$pkg_name."/".$k."', "; $q.= $v.")"; db_query($q); } # update package depends # $depends = explode(" ", $new_pkgbuild['depends']); while (list($k, $v) = each($depends)) { $q = "INSERT INTO PackageDepends (PackageID, DepPkgID) VALUES ("; $deppkgname = preg_replace("/[<>]?=.*/", "", $v); # Solve the problem with comments and deps # added by: dsa if ($deppkgname == "#") break; $deppkgid = create_dummy($deppkgname, $_COOKIE['AURSID']); $q .= $packageID.", ".$deppkgid.")"; db_query($q, $dbh); } $sources = explode(" ", $new_pkgbuild['source']); while (list($k, $v) = each($sources)) { $q = "INSERT INTO PackageSources (PackageID, Source) VALUES ("; $q .= $packageID.", '".mysql_real_escape_string($v)."')"; db_query($q, $dbh); } } } # must chdir because include dirs are relative! chdir($_SERVER['DOCUMENT_ROOT']); } if (!$_REQUEST["pkgsubmit"] || $error) { # User is not uploading, or there were errors uploading - then # give the visitor the default upload form # if (ini_get("file_uploads")) { if ($error) { print "".$error."
\n"; print "
\n"; } if ($warning) { print "
".$warning."
\n"; print "
\n"; } $pkg_categories = pkgCategories(); $pkg_locations = pkgLocations(); print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; # print "\n"; # print " \n"; # print " \n"; # print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print "
"; print __("Package Category").":"; print "
"; # print __("Package Location").":"; # print "
"; print __("Upload package file").":"; print "\n"; print "
 "; print "\n"; print "
\n"; print "
\n"; } else { print __("Sorry, uploads are not permitted by this server."); print "
\n"; } } else { print __("Package upload successful."); if ($warning) { print "".$warning."
\n"; print "
\n"; } } } else { # visitor is not logged in # print __("You must create an account before you can upload packages."); print "
\n"; } echo "
\n"; echo "\n"; html_footer(AUR_VERSION); # vim: ts=2 sw=2 noet ft=php ?>