cvs: peclweb /public_html release-upload.php

wez Fri Sep 10 04:41:28 2004 EDT Modified files: /peclweb/public_html release-upload.php Log: more sanity checks http://cvs.php.net/diff.php/peclweb/public_html/release-upload.php?r1=1.32&r2=1.33&ty=u Index: peclweb/public_html/release-upload.php diff -u peclweb/public_html/release-upload.php:1.32 peclweb/public_html/release-upload.php:1.33 --- peclweb/public_html/release-upload.php:1.32 Sat Jul 12 06:42:08 2003 +++ peclweb/public_html/release-upload.php Fri Sep 10 04:41:23 2004 @@ -15,7 +15,7 @@ +----------------------------------------------------------------------+ | Authors: | +----------------------------------------------------------------------+ - $Id: release-upload.php,v 1.32 2003/07/12 10:42:08 mj Exp $ + $Id: release-upload.php,v 1.33 2004/09/10 08:41:23 wez Exp $ */ auth_require(); @@ -75,6 +75,26 @@ display_error("You don't have permissions to upload this release."); break; } + $lic = trim($info['release_license']); + if (!strcasecmp($lic, "GPL") || !strcasecmp($lic, "LGPL")) { + display_error("Illegal license $lic"); + break; + } + /* sanity check for C code */ + $tar = new Archive_Tar($distfile); + $contains_C = false; + foreach ($tar->listContent() as $file_in_tar) { + if (substr($file_in_tar, -2) == ".c") { + $contains_C = true; + break; + } + } + + if (!$contains_C) { + display_error("This package contains no C code"); + break; + } + $e = package::updateInfo($pacid, array( 'summary' => $info['summary'], 'description' => $info['description'], @@ -265,4 +285,4 @@ return ($res === true); } -?> \ No newline at end of file +?>