cvs: /pearweb/sql aliases.sql domains.sql versions.sql /pearweb/include pear-prepend.php /pearweb/public_html add-author.php index.php
list-authors.php /pearweb/sql Makefile data.sql packages.sql
| From: | Stig Bakken | Date: | Mon, 28 Feb 2000 04:15:41 +0000 |
| Subject: | cvs: /pearweb/sql aliases.sql domains.sql versions.sql /pearweb/include pear-prepend.php /pearweb/public_html add-author.php index.php list-authors.php /pearweb/sql Makefile data.sql packages.sql |
||
| Groups: | php.pear | ||
| Request: | Send a blank email to php-pear+get-5@lists.php.net to get a copy of this message | ||
ssb Sun Feb 27 20:15:41 2000 EDT
Added files:
/pearweb/sql aliases.sql domains.sql versions.sql
Modified files:
/pearweb/include pear-prepend.php
/pearweb/public_html add-author.php index.php list-authors.php
/pearweb/sql Makefile data.sql packages.sql
Log:
Still very much "work in progress".
Index: pearweb/include/pear-prepend.php
diff -u pearweb/include/pear-prepend.php:1.1 pearweb/include/pear-prepend.php:1.2
--- pearweb/include/pear-prepend.php:1.1 Sun Dec 12 04:44:31 1999
+++ pearweb/include/pear-prepend.php Sun Feb 27 20:15:09 2000
@@ -44,6 +44,14 @@
print "</BODY></HTML>\n";
}
+function formMultipleInputRow($data) {
+ reset($data);
+ while (list($var, $title) = each($data)) {
+ global $$var;
+ formInputRow($title, $var, $$var);
+ }
+}
+
function formInputCell($name, $default = '', $size = 20) {
print " <TD><INPUT NAME=\"$name\" VALUE=\"$default\"
SIZE=\"$size\"></TD>\n";
}
@@ -117,6 +125,15 @@
return 'invalid URL';
}
+class Author {
+ var $handle, $password, $name, $email, $homepage, $created,
+ $homepage, $modified, $createdby, $showemail, $registered,
+ $credentials, $authorinfo;
+ function Author() {
+
+ }
+}
+
function add_author(&$dbh, $handle, $name, $email, $homepage, $createdby,
$showemail, $credentials, $authorinfo)
{
@@ -124,7 +141,11 @@
'created,modified,createdby,showemail,registered,credentials,'.
'authorinfo) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)';
$stmt = $dbh->prepare($query);
-// return $dbh->execute(
+ // XXX not finished
+ return $dbh->execute($stmt, array($handle, $passwd, $name, $email,
+ $homepage, $created, $modified,
+ $modifiedy, $showemail, $registered,
+ $credentials, $authorinfo));
}
?>
Index: pearweb/public_html/add-author.php
diff -u pearweb/public_html/add-author.php:1.1 pearweb/public_html/add-author.php:1.2
--- pearweb/public_html/add-author.php:1.1 Sun Dec 12 04:44:31 1999
+++ pearweb/public_html/add-author.php Sun Feb 27 20:15:09 2000
@@ -12,7 +12,8 @@
formInputRow("Name", "name", '', 40);
formInputRow("Email", "email", '', 40);
formInputRow("Homepage", "homepage", '', 40);
-formCheckboxRow("Show email?", "homepage", '', 40);
+
+formCheckboxRow("Show email?", "showemail", '', 40);
print " <TR>\n";
print " <TH ALIGN=\"right\">Credentials</TH>\n";
Index: pearweb/public_html/index.php
diff -u pearweb/public_html/index.php:1.1 pearweb/public_html/index.php:1.2
--- pearweb/public_html/index.php:1.1 Sun Dec 12 04:44:31 1999
+++ pearweb/public_html/index.php Sun Feb 27 20:15:09 2000
@@ -4,10 +4,13 @@
pageHeader();
+print "<H1>PEAR: PHP Extension and Add-on Repository</H1>\n";
+
print "<A HREF=\"add-package.php\">ADD NEW
PACKAGE</A><BR>\n";
print "<A HREF=\"add-author.php\">ADD NEW AUTHOR</A><BR>\n";
print "<A HREF=\"list-packages.php\">LIST
PACKAGES</A><BR>\n";
print "<A HREF=\"list-authors.php\">LIST AUTHORS</A><BR>\n";
+print "<A HREF=\"domains.php\">DOMAIN
ADMINISTRATION</A><BR>\n";
pageFooter();
Index: pearweb/public_html/list-authors.php
diff -u pearweb/public_html/list-authors.php:1.1 pearweb/public_html/list-authors.php:1.2
--- pearweb/public_html/list-authors.php:1.1 Sun Dec 12 04:44:31 1999
+++ pearweb/public_html/list-authors.php Sun Feb 27 20:15:09 2000
@@ -24,10 +24,12 @@
print " <TH>Modified</TH>\n";
print " <TH>Created By</TH>\n";
print " <TH>Show Email?</TH>\n";
-print " <TH>Registered?</TH>\n";
+print " <TH>Reg'ed?</TH>\n";
+print " <TH>Creds</TH>\n";
+print " <TH>Info</TH>\n";
print " </TR>\n";
-while ($row = $sth->fetchRow()) {
+while (is_array($row = $sth->fetchRow())) {
print " <TR>\n";
print " <TD>";
print implode("</TD>\n <TD>", $row);
Index: pearweb/sql/Makefile
diff -u pearweb/sql/Makefile:1.1 pearweb/sql/Makefile:1.2
--- pearweb/sql/Makefile:1.1 Sun Dec 12 04:44:32 1999
+++ pearweb/sql/Makefile Sun Feb 27 20:15:09 2000
@@ -17,7 +17,7 @@
# +----------------------------------------------------------------------+
#
-TABLE_FILES=authors.sql mytable.sql #packages.sql
+TABLE_FILES=authors.sql packages.sql aliases.sql
SQL_TYPE=mysql
SQL_USER=pear
SQL_PASSWORD=
Index: pearweb/sql/data.sql
diff -u pearweb/sql/data.sql:1.1 pearweb/sql/data.sql:1.2
--- pearweb/sql/data.sql:1.1 Sun Dec 12 04:44:32 1999
+++ pearweb/sql/data.sql Sun Feb 27 20:15:11 2000
@@ -1 +1 @@
-INSERT INTO authors VALUES('SSB','azCfFoKW7AwzQ','Stig
Bakken','ssb@fast.no','http://www.pvv.org/~ssb/',944079834,944079834,'SSB',1,1,3,NULL);
+INSERT INTO authors VALUES('SSB','azCfFoKW7AwzQ','Stig
Bakken','stig@php.net','http://www.pvv.org/~ssb/',944079834,944079834,'SSB',1,1,3,NULL);
Index: pearweb/sql/packages.sql
diff -u pearweb/sql/packages.sql:1.1 pearweb/sql/packages.sql:1.2
--- pearweb/sql/packages.sql:1.1 Sun Dec 12 04:44:32 1999
+++ pearweb/sql/packages.sql Sun Feb 27 20:15:11 2000
@@ -1,2 +1,12 @@
CREATE TABLE packages (
+ name VARCHAR(80) NOT NULL,
+ originator VARCHAR(20) NOT NULL REFERENCES authors(handle),
+ maintainer VARCHAR(20) NOT NULL REFERENCES authors(handle),
+ currentstable VARCHAR(20),
+ currentdevel VARCHAR(20),
+ copyright VARCHAR(20) NOT NULL,
+ summary VARCHAR(100),
+ description TEXT,
+
+ PRIMARY KEY(name)
);