more polish (particularly uploading is untested).
# Hacky makefile to compile everything and run the tests in some kind of sane order.
# V=--verbose for verbose tests.
+# This can be overridden on cmdline to generate pages elsewhere.
+WEBDIR=webpages/
+
CFLAGS=-g -Wall -Wstrict-prototypes -Wold-style-definition -Wmissing-prototypes -Wmissing-declarations -Werror -Iccan -I.
ALL=$(patsubst ccan/%/test, %, $(wildcard ccan/*/test))
ALL_DIRS=$(patsubst %, ccan/%, $(ALL))
ALL_DEPENDS=$(patsubst %, ccan/%/.depends, $(ALL))
-ALL_LIBS=$(patsubst %, ccan/%.o, $(ALL))
+ALL_PAGES=$(patsubst ccan/%, $(WEBDIR)/info/%.html, $(ALL_DIRS))
+DIRECT_TARBALLS=$(patsubst ccan/%, $(WEBDIR)/tarballs/%.tar.bz2, $(ALL_DIRS))
+DEPEND_TARBALLS=$(patsubst ccan/%, $(WEBDIR)/tarballs/with-deps/%.tar.bz2, $(ALL_DIRS))
+WEB_SUBDIRS=$(WEBDIR)/tarballs $(WEBDIR)/tarballs/with-deps $(WEBDIR)/info
-libccan.a: $(ALL_LIBS)
- $(AR) r $@ $^
+include Makefile-ccan
check: $(ALL_DIRS:%=test-%)
distclean: clean
rm -f $(ALL_DEPENDS)
+ rm -rf $(WEBDIR)
+
+webpages: $(WEB_SUBDIRS) $(WEBDIR)/junkcode $(ALL_PAGES) $(WEBDIR)/list.html $(WEBDIR)/index.html $(WEBDIR)/upload.html $(WEBDIR)/example-config.h $(WEBDIR)/ccan.jpg $(DIRECT_TARBALLS) $(DEPEND_TARBALLS) $(WEBDIR)/ccan.tar.bz2 $(WEBDIR)/Makefile-ccan
+
+$(WEB_SUBDIRS):
+ mkdir -p $@
+
+$(WEBDIR)/junkcode:
+ cp -a junkcode $@
+
+# Override implicit attempt to link directory.
+$(ALL_DIRS):
+ @touch $@
+
+$(WEBDIR)/ccan.tar.bz2:
+ tar cvfj $@ `bzr ls --versioned --kind=file ccan`
+
+$(ALL_PAGES): tools/doc_extract web/staticmoduleinfo.php
+
+$(WEBDIR)/list.html: web/staticall.php tools/doc_extract $(DIRECT_TARBALLS) $(DEPEND_TARBALLS) $(WEBDIR)/ccan.tar.bz2
+ php5 web/staticall.php ccan/ $(WEBDIR) > $@
+
+$(WEBDIR)/upload.html: web/staticupload.php
+ php5 web/staticupload.php > $@
+
+$(WEBDIR)/index.html: web/staticindex.php
+ php5 web/staticindex.php > $@
+
+$(WEBDIR)/example-config.h: config.h
+ cp $< $@
+
+$(WEBDIR)/Makefile-ccan: Makefile-ccan
+ cp $< $@
+
+$(WEBDIR)/ccan.jpg: web/ccan.jpg
+ cp $< $@
+
+$(WEBDIR)/info/%.html: ccan/% ccan/%/test $(WEBDIR)/tarballs/%.tar.bz2 $(WEBDIR)/tarballs/with-deps/%.tar.bz2
+ URLPREFIX=../ php5 web/staticmoduleinfo.php ccan/$* > $@
+
+$(WEBDIR)/tarballs/%.tar.bz2: ccan/% ccan/%/test
+ tar -c -v -j -f $@ `bzr ls --versioned --kind=file ccan/$*`
+
+$(WEBDIR)/tarballs/with-deps/%.tar.bz2: ccan/% ccan/%/test tools/ccan_depends
+ tar cvfj $@ $$(echo ccan/$* $$(tools/ccan_depends ccan/$*) | xargs -n 1 bzr ls --versioned --kind=file)
$(ALL_DEPENDS): %/.depends: tools/ccan_depends
tools/ccan_depends $* > $@ || ( rm -f $@; exit 1 )
-$(ALL_LIBS):
- $(LD) -r -o $@ $^ /dev/null
-
test-ccan/%: tools/run_tests ccan/%.o
@echo Testing $*...
@if tools/run_tests $(V) ccan/$* | grep ^'not ok'; then exit 1; else exit 0; fi
test-depends: $(ALL_DEPENDS)
for f in $(ALL_DEPENDS); do echo test-ccan/`basename \`dirname $$f\``: `sed -n 's,ccan/\(.*\),test-ccan/\1,p' < $$f`; done > $@
-lib-depends: $(foreach D,$(ALL),$(wildcard $D/*.[ch]))
- for c in $(ALL); do echo ccan/$$c.o: `ls ccan/$$c/*.c | grep -v /_info.c | sed 's/.c$$/.o/'`; done > $@
-
include tools/Makefile
-include inter-depends
-include test-depends
--include lib-depends
--- /dev/null
+# Example makefile which makes a "libccan.a" of everything under ccan/
+# You could just do:
+# SRCFILES += $(shell find ccan/ -name '[a-z]*.c')
+
+CFLAGS=-g -O2 -Wall -Wstrict-prototypes -Wold-style-definition -Wmissing-prototypes -Wmissing-declarations -Werror -Iccan -I.
+
+CFILES=$(wildcard ccan/*/[a-z]*.c)
+OBJFILES=$(CFILES:.c=.o)
+
+libccan.a: $(OBJFILES)
+ $(AR) r $@ $^
+<?php
+session_start();
+// Pages created in subdirs need ../ appended.
+$url_prefix = getenv("URLPREFIX");
+?>
<html>
<head>
<title>ccan</title>
<table align="center" width="100%" bgcolor="FFFFFF">
<tr>
<th>
- <img src="ccan.jpg" width="250" height="80">
+ <img src="<?=$url_prefix?>ccan.jpg" width="250" height="80">
</th>
<th>
<h1>Comprehensive C Archieve Network <h1>
</th>
</tr>
-</table>
\ No newline at end of file
+</table>
<?php
session_start();
+// Pages created in subdirs need ../ appended.
+$url_prefix = getenv("URLPREFIX");
?>
<table align="center" width="100%" cellpadding="4" cellspacing="1" border="0" bgcolor="lightblue">
- <tr align="left" bgcolor="CCFFCC" ><td>Welcome <?=$_SESSION['susername']?>! </td>
+ <tr align="left" bgcolor="CCFFCC" >
<td align="center">
- <a href="login.php"> Login</a>
+ <a href="<?=$url_prefix?>upload.html">Upload Code</a>
</td>
- <td align="center">
- <a href="requestid.php">
- Request CCAN account</a>
- </td>
<td align="center">
- <a href="changedetail.php">
- Change CCAN account detail</a>
+ <a href="<?=$url_prefix?>list.html">Download Code</a>
</td>
<td align="center">
- <a href="upload.php">
- Upload Code</a>
+ <a href="<?=$url_prefix?>index.html">About</a>
</td>
<td align="center">
- <a href="search.php">
- Search CCAN</a>
- </td>
- <td align="center">
- <a href="logout.php">
- Logout</a>
+ <form method="get" action="http://www.google.com/search">
+ <input type="text" name="q" size="25"
+ maxlength="255" value="" />
+ <input type="hidden" name="sitesearch" value="ccan.ozlabs.org"/>
+ <input type="submit" value="Search CCAN (Google)" />
+ </form>
</td>
</table>
<hr>
--- /dev/null
+<?php
+//temp folder for uploads
+$tempfolder = "/home/ccan/upload-temp/";
+
+//location of upload script (for posting uploads)
+$uploadscript = "http://ccan.ozlabs.org/uploader.php";
+
+//infofile
+$infofile = '/_info.c';
+
+//ccan admin
+$ccanadmin = "rusty@rustcorp.com.au";
+
+//email from
+$frommail = "ccan@ozlabs.org";
+
+//tar home dir
+$tar_dir = 'tarballs';
+
+//where bzr repo is: attach module name to browse
+$repo_base = 'http://ccan.ozlabs.org/repo/?cmd=inventory;path=';
+
+function extract_field($field,$module)
+{
+ return htmlspecialchars(shell_exec('tools/doc_extract '.$field.' '.$module.'/_info.c'));
+}
+
+# Convert double line breaks into paragraphs, and blank spaces into preformat.
+function htmlize_field($field,$module)
+{
+ $state="inpara";
+ $result="<p>";
+ $raw=extract_field($field,$module);
+ foreach (explode("\n", $raw) as $line) {
+ if ($line == "") {
+ switch ($state) {
+ case "inpara":
+ $state="endpara";
+ $result .= "</p>";
+ break;
+ }
+ } else if ($line[0] == " " || $line[0] == "\t") {
+ switch ($state) {
+ case "literal":
+ break;
+ case "inpara":
+ $result .= "</p>";
+ case "endpara":
+ $result .= "<pre>";
+ $state = "literal";
+ }
+ } else {
+ switch ($state) {
+ case "literal":
+ $result .= "</pre>";
+ case "endpara":
+ $result .= "<p>";
+ $state = "inpara";
+ }
+ }
+ $result .= $line . "\n";
+ }
+
+ switch ($state) {
+ case "literal":
+ $result .= "</pre>";
+ break;
+ case "inpara":
+ $result .= "</p>";
+ break;
+ }
+ return $result;
+}
+?>
--- /dev/null
+<?php
+session_start();
+include('logo.html');
+include('menulist.html');
+include('static-configuration');
+
+$tarballsize=round((filesize($argv[2]."/ccan.tar.bz2") + 1023) / 1024);
+?>
+
+<h1> List of all CCAN modules: </h1>
+
+<p>
+Note that two downloads are offered: the first includes with all the
+other ccan modules this module uses, the second is a standalone
+download.
+</p>
+
+<p>
+Or you can just download the <a href="ccan.tar.bz2">tarball of everything (<?=$tarballsize?>K)</a>.
+</p>
+
+<table align="center" width="80%" border="0" cellpadding="3" cellspacing="1">
+<th align="left">Name</th>
+<th align="left">Summary / Link to details</th>
+<th align="right">Download</th>
+
+<?php
+$d = dir($argv[1]);
+$modules = array();
+while (false !== ($entry = $d->read())) {
+ if ($entry[0] != '.') {
+ array_push($modules, $entry);
+ }
+}
+sort($modules);
+
+foreach ($modules as $module) {
+ $summary=extract_field('summary',$argv[1].$module);
+ $with_deps="$tar_dir/with-deps/$module.tar.bz2";
+ $no_deps="$tar_dir/$module.tar.bz2";
+ $with_dep_size = round((filesize($argv[2]."/".$with_deps) + 1023) / 1024);
+ $no_dep_size = round((filesize($argv[2]."/".$no_deps) + 1023) / 1024);
+ ?>
+ <tr>
+ <td><?=$module?></td>
+ <td><a href="info/<?=$module?>.html"><?=$summary?></a></td>
+ <td align="right"><a href="<?=$with_deps?>"><?=$with_dep_size?>K</a> /
+ <a href="<?=$no_deps?>"><?=$no_dep_size?>K</a></td>
+ </tr>
+ <?php
+}
+$d->close();
+?>
+</table>
+
+<h2> Contents of Junkcode: </h2>
+
+(This is contributed code which was dumped here: these gems may need some polishing.)
+
+<table align="center" width="80%" border="0" cellpadding="3" cellspacing="1">
+
+<?php
+$d = dir($argv[2]."/junkcode");
+$files = array();
+while (false !== ($entry = $d->read())) {
+ if ($entry[0] != '.') {
+ array_push($files, $entry);
+ }
+}
+
+sort($files);
+foreach ($files as $file) {
+ $size = round((filesize($argv[2]."/junkcode/".$file) + 1023) / 1024);
+ echo "<tr><td><a href=\"junkcode/$file\">$file (${size}K)</a></td><tr>\n";
+}
+$d->close();
+?>
+</table>
+<hr>
+</body></html>
--- /dev/null
+<?php
+session_start();
+include('logo.html');
+include('menulist.html');
+include('static-configuration');
+?>
+
+<h2>The Idea</h2>
+
+<p>
+That nice snippets of C code should be moved out of junkcode
+directories and exposed to a wider world, where they can become
+something useful.
+</p>
+
+<p>
+CCAN is loosely modelled after the succesful <a href="http://cpan.org">CPAN project</a>
+for Perl code development and sharing.
+</p>
+
+<h2>Getting The Code</h2>
+
+<p>
+Once you <a href="list.html">grab some modules</a>, there are two basic
+ways to use it:
+<ol>
+<li> Just hack it to compile in your project.
+
+<li> Use it in place by giving it a "config.h" (steal
+ <a href="example-config.h">this example</a>) and compiling all the .c
+ files which don't start with "_" (eg. as in this <a href="Makefile-ccan">simple Makefile</a>).
+</ol>
+</p>
+
+<p>
+There's also a
+<a href="http://bazaar-vcs.org/">Bazaar</a> repository for all the CCAN
+infrastructure at
+<a href="http://ccan.ozlabs.org/repo">http://ccan.ozlabs.org/repo</a>.
+</p>
+
+<h2>Module Contributions</h2>
+
+<p>
+We welcome new code! The guide to creating new modules is a work in
+progress (just copy an existing module), but anyone can
+just <a href="upload.html">upload code</a>.
+</p>
+
+<p>
+"GPLv2 or later" and supersets thereof (eg. LGPLv2+ or BSD)
+licenses preferred.
+</p>
+
+<h2>Complaints, Ideas and Infrastructure</h2>
+
+<p>
+We have a <a href="http://ozlabs.org/mailman/listinfo/ccan">low volume
+mailing list</a> for discussion of CCAN in general, and you're welcome
+to join.
+
+</p>
+
+<p>
+We also have an IRC channel: #ccan on <a href="http://freenode.net">Freenode</a>.
+</p>
+
+<p>
+We also have a <a href="Wiki/">wiki</a>; feel free to enhance it.
+</p>
+
+<p>
+<i>Rusty Russell</i>
+</p>
+
+<hr>
+</body></html>
--- /dev/null
+<?php
+session_start();
+include('logo.html');
+include('menulist.html');
+include('static-configuration');
+$module=$argv[1];
+
+$maintainer=extract_field('maintainer',$module);
+$author=extract_field('author',$module);
+$summary=extract_field('summary',$module);
+$description=htmlize_field('description',$module);
+$example=extract_field('example',$module);
+$dependencies=htmlspecialchars(shell_exec('tools/ccan_depends --direct '.$module));
+$licence=extract_field('licence',$module);
+?>
+<table align="center" bgcolor="lightblue" width="70%" border="0" cellpadding="3" cellspacing="1">
+<tr align="center" bgcolor="FFFFCC">
+<td>
+<a href="<?=$repo_base.$module?>">Browse Source</a>
+</td>
+<td>
+Download:
+<a href="../<?=$tar_dir?>/<?=basename($module)?>.tar.bz2">(standalone)</a>
+<a href="../<?=$tar_dir?>/with-deps/<?=basename($module)?>.tar.bz2">(with all dependencies)</a>
+</tr>
+</table>
+
+<p>
+</p>
+
+<table align="center" bgcolor="lightblue" width="70%" border="0" cellpadding="8" cellspacing="1">
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Module: </h3> <?=$module?> </td>
+</tr>
+
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Summary: </h3> <?=$summary?></td>
+</tr>
+
+<?php
+if ($maintainer) {
+?>
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Maintainer: </h3> <?=$maintainer?></td>
+</tr>
+<?php
+}
+
+if ($author) {
+?>
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Author: </h3> <?=$author?></td>
+</tr>
+<?php
+}
+
+if ($dependencies) {
+?>
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Dependencies: </h3> <pre> <?php
+ foreach (preg_split("/\s+/", $dependencies) as $dep) {
+ echo '<a href="'.substr($dep, 5).'.html">'.$dep.'</a> ';
+ }
+?></pre></td>
+</tr>
+<?php
+}
+?>
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Description: </h3> <?=$description;?> </td>
+</tr>
+<?php
+if ($example) {
+?>
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Example: </h3> <pre><?=$example?></pre></td>
+</tr>
+<?php
+}
+
+if ($licence) {
+?>
+<tr align="left" bgcolor="FFFFCC">
+<td><h3>Licence: </h3> <?=$licence?></td>
+</tr>
+<?php
+}
+?>
+</table><hr>
+</body></html>
--- /dev/null
+<?php
+session_start();
+
+include('logo.html');
+include('menulist.html');
+include('static-configuration');
+?>
+<html>
+<h3 align="center"> Upload Code</h3>
+
+<table width="70%" align="center">
+<tr>
+<td>
+<p>
+Got C code sitting around which might help someone? Put it to work
+by uploading here; .tar.gz, .zip or even single C files.
+</p>
+
+<p>
+If it has a valid _info.c file and a testsuite, it'll go into the
+main repository. Otherwise, it'll go into our "junkcode" area where
+people can browse and download it.
+</p>
+</td>
+</tr>
+</table>
+
+<table width="70%" align="center">
+<tr>
+<p>
+<form enctype="multipart/form-data" action="<?=$uploadscript?>" method="POST">
+<td align="right">
+ Email address:
+</td>
+<td>
+<input type="text" name="email" size="25"
+ maxlength="255" value="" />
+</td>
+</tr>
+<tr>
+<td align="right">
+ <input type="hidden" name="MAX_FILE_SIZE" value="10000000" />
+ Choose a file to upload:
+</td>
+<td>
+<input name="uploadedfile" type="file" /><br />
+</td>
+</tr>
+<td></td>
+<td><input type="submit" value="Upload File" /></td>
+</tr>
+</table>
+</form>
+<hr>
+</html>
?>
<html>
<h3 align="center"> Upload Code</h3>
+
+<p>Got C code sitting around which might help someone? Put it to work
+by uploading here; .tar.gz, .zip or even single C files.
+</p>
+
+<p>If it has a valid _info.c file and a testsuite, it'll go into the
+main repository. Otherwise, it'll go into our "junkcode" area where
+people can browse and download it.
+</p>
+
<table width="80%" align="center">
<tr>
<th>
<form enctype="multipart/form-data" action="uploader.php" method="POST">
<table align="center">
<tr align="left">
+<td>
+ Email address: <input type="text" name="email" size="25"
+ maxlength="255" value="" />
+</td>
<td>
<input type="hidden" name="MAX_FILE_SIZE" value="10000000" />
Choose a file to upload:
session_start();
include('logo.html');
include('menulist.html');
-include('configuration');
-include('functions.php');
-include('searchengine.php');
+include('static-configuration');
+// We just email notification for now. Auto-analysis RSN.
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,"Error: cannot extract(tar error).");
+$dest = tempnam($tempfolder, "upload-");
+move_uploaded_file($_FILES["uploadedfile"]["tmp_name"], $dest);
- //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";
-
- $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();
- }
+$subject = "CCAN: code upload by '" . $_POST['email'] . "' with name " . $_FILES["uploadedfile"]["name"];
+$message = "File type: ".$_FILES["uploadedfile"]["type"]."\n".
+ "Size: ".$_FILES["uploadedfile"]["size"]."\n".
+ "Claimed email: ".$_POST['email']."\n".
+ "File destination: ".$dest."\n";
- //running ccanlint
- exec($ccanlint.$tempfolder.$folder, $score, $status);
-
- //if not junk code
- if($status == 0) {
- $rename = $folder;
- $exactpath = $repopath . $_SESSION['susername'] .'/';
-
- if (file_exists($exactpath)) {
- echo "<div align=\"center\"> Your another upload is in progress please wait...</div>";
- exit();
- }
-
- //bzr local repo for commit
- chdir($repopath);
- unset($op); exec($bzr_clone . $_SESSION['susername'], $op, $status);
- checkerror($status, "Error: bzr local repo.");
- chdir('..');
-
- //if module already exist
- if (file_exists($exactpath . $ccan_home_dir . $folder)) {
-
- // if owner is not same
- if(!(getowner($ccan_home_dir . $folder, $db) == $_SESSION['susername'])) {
- if(!file_exists($repopath . $ccan_home_dir . $folder . '-' . $_SESSION['susername']))
- echo "<div align=\"center\">". $ccan_home_dir . $folder .
- " already exists. Renaming to " . $folder . "-" . $_SESSION['susername'] . "</div>";
- else
- echo "<div align=\"center\">". $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($ccan_home_dir . $folder, $_SESSION['susername'], $db);
- }
-
- rmdirr($exactpath . $ccan_home_dir . $rename);
- rename($tempfolder . $folder, $exactpath . $ccan_home_dir . $rename);
-
- chdir($exactpath);
- unset($op); exec($infotojson . $ccan_home_dir . $rename . " " . $ccan_home_dir.
- $rename."/_info.c ". $ccan_home_dir . $rename . "/json_" . $rename . " "
- . $_SESSION['susername']. " ../../" . $db, $op, $status);
- checkerror($status,"Error: In infotojson.");
-
- unset($op); exec('bzr add', $op, $status);
- checkerror($status,"Error: bzr add error.");
-
- unset($op); exec('bzr commit --unchanged -m "commiting from ccan web ' . $rename .
- " " . $_SESSION['susername'] . '"', $op, $status);
- checkerror($status,"Error: bzr commit error.");
-
- unset($op); exec($bzr_push, $op, $status);
- checkerror($status,"Error: bzr push error.");
-
- unset($op); exec($create_dep_tar . " " . $ccan_home_dir. $rename . " ../../" .
- $tar_dir . " ../../" . $db , $op, $status);
- checkerror($status,"Error: bzr push error.");
-
- chdir('../..');
- rmdirr($exactpath);
- echo "<div align=\"center\"> Stored to ". $ccan_home_dir . $rename . "</div>";
- }
-
- //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
+mail($ccanadmin, $subject, $message, "From: $frommail");
+echo "<div align=\"center\"> Thanks!<br>Stored to temporary location.
+ Mail will be send to admin to get verification of the code.<//div>";
+?>