--- /dev/null
+<?php
+session_start();
+include('logo.html');
+include('menulist.html');
+include('configuration');
+include('functions.php');
+include('searchengine.php');
+
+if ($_FILES["uploadedfile"]["error"] > 0) {
+ echo "Error: " . $_FILES["uploadedfile"]["error"] . "<br />";
+ exit();
+}
+
+//list of file types supported
+if($_FILES["uploadedfile"]["type"] == "application/x-gzip"
+ || $_FILES["uploadedfile"]["type"] == "application/x-tar"
+ || $_FILES["uploadedfile"]["type"] == "application/x-bzip"
+ || $_FILES["uploadedfile"]["type"] == "application/zip") {
+
+ $folder = substr($_FILES["uploadedfile"]["name"], 0, strpos($_FILES["uploadedfile"]["name"],'.'));
+ move_uploaded_file($_FILES["uploadedfile"]["tmp_name"],
+ $tempfolder . $_FILES["uploadedfile"]["name"]);
+
+ //extracting code
+ if($_FILES["uploadedfile"]["type"] == "application/zip") {
+ exec('unzip '.$tempfolder.$_FILES["uploadedfile"]["name"].' -d '.$tempfolder, $op, $status);
+ }
+ else {
+ exec('tar -xf '.$tempfolder.$_FILES["uploadedfile"]["name"].' -C '.$tempfolder, $op, $status);
+ }
+ checkerror($status[0],"Error: cannot extract(tar error).");
+
+ //chmod
+ exec('chmod -R 0777 '. $tempfolder.$folder, $status);
+ checkerror($status[0],"Error: chmod execution error.");
+
+ //running ccanlint
+ exec($ccanlint.$tempfolder.$folder, $score, $status);
+ //checkerror($status,"Error: ccanlint execution error.");
+
+ //if user not logged in
+ if($_SESSION["slogged"] == false) {
+ //move to temp folder
+ if (file_exists($temprepo . $folder))
+ rmdirr($temprepo.$folder);
+ rename($tempfolder.$folder, $temprepo.$folder);
+
+ //send mail for review to admins
+ $subject = "Review: code upload at temporary repository";
+ $message = "Some developer has uploaded code who has not logged in.\n\nModule is stored in ".$temprepo.$folder.".\n\nOutput of ccanlint: \n";
+ foreach($score as $disp)
+ $message = $message.$disp."\n";
+
+ $toaddress = getccanadmin($db);
+ mail($toaddress, $subject, $message, "From: $frommail");
+ echo "<div align=\"center\"> Stored to temporary repository. Mail will be send to admin to get verification of the code.<//div>";
+ unlink($tempfolder.$_FILES["uploadedfile"]["name"]);
+ exit();
+ }
+
+ //if not junk code
+ if($status == 0) {
+ $rename = $folder;
+ //if module already exist
+ if (file_exists($repopath.$ccan_home_dir . $folder)) {
+ // if owner is not same
+ if(!(getowner($repopath.$ccan_home_dir.$folder, $db) == $_SESSION['susername'])) {
+ if(!file_exists($repopath . $ccan_home_dir. $folder.'-'.$_SESSION['susername']))
+ echo "<div align=\"center\">".$repopath . $ccan_home_dir. $folder . " already exists. Renaming to ". $folder."-".$_SESSION['susername']."</div>";
+ else
+ echo "<div align=\"center\">".$repopath . $ccan_home_dir. $folder."-".$_SESSION['susername'] . " already exists. Overwriting ". $folder."-".$_SESSION['susername']."</div>";
+ $rename = $folder."-".$_SESSION['susername'];
+ }
+ else
+ echo "<div align=\"center\">".$repopath. $ccan_home_dir. $folder. " already exists(uploaded by you). Overwriting ". $repopath. $folder."</div>";
+ }
+ //module not exist. store author to db
+ else {
+ storefileowner($repopath . $ccan_home_dir. $folder, $_SESSION['susername'], $db);
+ }
+ rmdirr($repopath. $ccan_home_dir. $rename);
+ rename($tempfolder.$folder, $repopath. $ccan_home_dir. $rename);
+ echo "<div align=\"center\"> Stored to ".$repopath . $ccan_home_dir. $rename . "</div>";
+
+ exec($infotojson . $repopath. $ccan_home_dir. $rename."/_info.c ". $repopath. $ccan_home_dir. $rename."/json_".$rename. " ". $_SESSION['susername']." ".$db, $status);
+ checkerror($status[0],"Error: In infotojson.");
+ //createsearchindex($rename, $repopath.$rename, $infofile, $db, $_SESSION['susername']);
+ }
+
+ //if junk code (no _info.c etc)
+ else {
+ rmdirr($junkcode.$folder.'-'.$_SESSION['susername']);
+ rename($tempfolder.$folder, $junkcode.$folder.'-'.$_SESSION['susername']);
+ if($score == '')
+ $msg = 'Below is details for test.';
+ echo "<div align=\"center\"><table><tr><td> Score for code is low. Cannot copy to repository. Moving to ". $junkcode.$folder.'-'.$_SESSION['susername']."... </br></br>". $msg ." </br></br></td></tr><tr><td>";
+ foreach($score as $disp)
+ echo "$disp</br>";
+ echo "</td></tr></table></div>";
+ }
+ unlink($tempfolder.$_FILES["uploadedfile"]["name"]);
+}
+else {
+ echo "<div align=\"center\"> File type not supported </div>";
+ exit();
+}
+
+function checkerror($status, $msg)
+{
+ if($status != 0) {
+ echo "<div align=\"center\">" . $msg . "Contact ccan admin. </div>";
+ exit();
+ }
+}
+
+function getowner($filename, $db)
+{
+ //getting owner of a file stored at db
+ $handle = sqlite3_open($db) or die("Could not open database");
+ $query = "SELECT owner FROM fileowner users where filename=\"$filename\"";
+ $result = sqlite3_query($handle, $query) or die("Error in query: ".sqlite3_error($handle));
+ $row = sqlite3_fetch_array($result);
+ return $row["owner"];
+}
+
+function storefileowner($filename, $owner, $db)
+{
+ //storing owner of a file stored at db
+ $handle = sqlite3_open($db) or die("Could not open database");
+ $query = "insert into fileowner values(\"$filename\", \"$owner\")";
+ $result = sqlite3_exec($handle, $query) or die("Error in query: ".sqlite3_error($handle));
+}
+?>
\ No newline at end of file