From 7a45d84a9f9458387bf4f57ac5a520f31c1604ab Mon Sep 17 00:00:00 2001
From: Dries Buytaert <dries@buytaert.net>
Date: Thu, 14 Dec 2000 14:13:37 +0000
Subject: [PATCH] - added a whole bunch of NEW modules
---
modules/account.module | 125 +++++++++++++++++++++++++
modules/backend.module | 118 +++++++++++++++++++++++
modules/ban.module | 107 +++++++++++++++++++++
modules/calendar.module | 76 +++++++++++++++
modules/comment.module | 96 +++++++++++++++++++
modules/comment/comment.module | 96 +++++++++++++++++++
modules/cron.module | 24 +++++
modules/development.module | 123 +++++++++++++-----------
modules/diary.module | 90 ++++++++++++++++++
modules/documentation.module | 156 +++++++++++++++++++++++++------
modules/droplet.module | 84 +++++++++++++++++
modules/faq.module | 14 ++-
modules/module-list.module | 14 ---
modules/modules.module | 20 ++++
modules/story.module | 127 +++++++++++++++++++++++++
modules/story/story.module | 127 +++++++++++++++++++++++++
modules/watchdog.module | 73 +++++++++++++++
modules/watchdog/watchdog.module | 73 +++++++++++++++
modules/wishlist.module | 138 ++++++++++++++-------------
19 files changed, 1514 insertions(+), 167 deletions(-)
create mode 100644 modules/account.module
create mode 100644 modules/backend.module
create mode 100644 modules/ban.module
create mode 100644 modules/calendar.module
create mode 100644 modules/comment.module
create mode 100644 modules/comment/comment.module
create mode 100644 modules/cron.module
create mode 100644 modules/diary.module
create mode 100644 modules/droplet.module
delete mode 100644 modules/module-list.module
create mode 100644 modules/modules.module
create mode 100644 modules/story.module
create mode 100644 modules/story/story.module
create mode 100644 modules/watchdog.module
create mode 100644 modules/watchdog/watchdog.module
diff --git a/modules/account.module b/modules/account.module
new file mode 100644
index 000000000000..7169da5ff7ce
--- /dev/null
+++ b/modules/account.module
@@ -0,0 +1,125 @@
+<?
+
+$module = array("admin" => "account_admin");
+
+function account_display($order = "username") {
+ $sort = array("ID" => "id", "fake e-mail address" => "fake_email", "homepage" => "url", "hostname" => "last_host", "last access date" => "last_access", "real e-mail address" => "real_email", "real name" => "name", "status" => "status", "theme" => "theme", "timezone" => "timezone", "username" => "userid");
+ $show = array("ID" => "id", "username" => "userid", "$order" => "$sort[$order]", "status" => "status");
+ $stat = array(0 => "blocked", 1 => "not confirmed", 2 => "open");
+
+ // Perform query:
+ $result = db_query("SELECT u.id, u.userid, u.$sort[$order], u.status FROM users u ORDER BY $sort[$order]");
+
+ // Generate output:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"". (sizeof($show) + 1) ."\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=account\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($sort as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+ $output .= " <TR>\n";
+ foreach ($show as $key=>$value) {
+ $output .= " <TH>$key</TH>\n";
+ }
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($account = db_fetch_array($result)) {
+ $output .= " <TR>\n";
+ foreach ($show as $key=>$value) {
+ switch($value) {
+ case "real_email":
+ $output .= " <TD>". format_email($account[$value]) ."</TD>\n";
+ break;
+ case "last_access":
+ $output .= " <TD>". format_date($account[$value]) ."</TD>\n";
+ break;
+ case "status":
+ $output .= " <TD ALIGN=\"center\">". $stat[$account[$value]] ."</TD>\n";
+ break;
+ case "timezone":
+ $output .= " <TD ALIGN=\"center\">". format_data($account[$value] / 3600) ."</TD>\n";
+ break;
+ case "url":
+ $output .= " <TD>". format_url($account[$value]) ."</TD>\n";
+ break;
+ case "userid":
+ $output .= " <TD>". format_username($account[$value], 1) ."</TD>\n";
+ break;
+ default:
+ $output .= " <TD>". format_data($account[$value]) ."</TD>\n";
+ }
+ }
+ $output .= " <TD ALIGN=\"center\"><A HREF=\"admin.php?mod=account&op=view&name=$account[userid]\">view</A></TD>\n";
+ $output .= " </TR>\n";
+ }
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function account_stories($id) {
+ $result = db_query("SELECT * FROM stories WHERE author = $id ORDER BY timestamp DESC");
+ while ($story = db_fetch_object($result)) {
+ $output .= "<LI><A HREF=\"discussion.php?id=$story->id\">". check_output($story->subject) ."</A></LI>\n";
+ }
+ return $output;
+}
+
+function account_comments($id) {
+ $result = db_query("SELECT * FROM comments WHERE author = $id ORDER BY timestamp DESC");
+ while ($comment = db_fetch_object($result)) {
+ $output .= "<LI><A HREF=\"discussion.php?id=$comment->sid&cid=$comment->cid&pid=$comment->pid#$comment->cid\">". check_output($comment->subject) ."</A></LI>\n";
+ }
+ return $output;
+}
+
+function account_view($name) {
+ $status = array(0 => "blocked", 1 => "not confirmed", 2 => "open");
+
+ $result = db_query("SELECT * FROM users WHERE userid = '$name'");
+
+ if ($account = db_fetch_object($result)) {
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>ID:</B></TD><TD>$account->id</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Status:</B></TD><TD>". $status[$account->status] ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Username:</B></TD><TD>$account->userid</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Real name:</B></TD><TD>". format_data($account->name) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Real e-mail address:</B></TD><TD>". format_email($account->real_email) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Fake e-mail address:</B></TD><TD>". format_data($account->fake_email) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>URL of homepage:</B></TD><TD>". format_url($account->url) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Last access:</B></TD><TD>". format_date($account->last_access) ." from $account->last_host</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Bio information:</B></TD><TD>". format_data($account->bio) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Signature:</B></TD><TD>". format_data($account->signature) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Theme:</B></TD><TD>". format_data($account->theme) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Timezone:</B></TD><TD>". format_data($account->timezone / 3600) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\" VALIGN=\"top\"><B>Submitted stories:</B></TD><TD>". format_data(account_stories($account->id)) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\" VALIGN=\"top\"><B>Submitted comments:</B></TD><TD>". format_data(account_comments($account->id)) ."</TD></TR>\n";
+ $output .= "</TABLE>\n";
+ print "$output";
+ }
+}
+
+function account_admin() {
+ global $op, $name, $order;
+
+ switch ($op) {
+ case "view":
+ account_view($name);
+ break;
+ case "Update":
+ account_display($order);
+ break;
+ default:
+ account_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/backend.module b/modules/backend.module
new file mode 100644
index 000000000000..003619e58c33
--- /dev/null
+++ b/modules/backend.module
@@ -0,0 +1,118 @@
+<?
+
+$module = array("page" => "backend_page",
+ "admin" => "backend_admin");
+
+include "includes/theme.inc";
+include "modules/backend.class";
+
+function backend_page() {
+ global $theme;
+
+ // Get channel info:
+ $result = db_query("SELECT * FROM channel ORDER BY id");
+
+ $theme->header();
+
+ print "<TABLE BORDER=\"0\">\n";
+ while ($channel = db_fetch_object($result)) {
+ if ($state % 3 == 0) print " <TR>\n";
+
+ print " <TD ALIGN=\"center\" VALIGN=\"top\" WIDTH=\"33%\">\n";
+
+ // Load backend from database:
+ $backend = new backend($channel->id);
+
+ // Read headlines from backend class:
+ $content = "";
+ for (reset($backend->headlines); $headline = current($backend->headlines); next($backend->headlines)) {
+ $content .= "<LI>$headline</LI>\n";
+ }
+
+ // Print backend box to screen:
+ $theme->box($backend->site, "$content<P ALIGN=\"right\">[ <A HREF=\"$backend->url\">more</A> ]\n");
+ print " </TD>\n";
+
+ if ($state % 3 == 2) print " </TR>\n";
+
+ $state += 1;
+ }
+ print "</TABLE>\n";
+
+ $theme->footer();
+}
+
+
+function backend_admin_main() {
+ global $theme;
+
+ // Get channel info:
+ $result = db_query("SELECT * FROM channel ORDER BY id");
+
+ $output .= "<TABLE BORDER=\"1\" CELLSPADDING=\"2\" CELLSPACING=\"2\">\n";
+ $output .= " <TH>Site</TH><TH>Contact</TH><TH>Last updated</TH><TH COLSPAN=\"2\">Operations</TH></TR>\n";
+
+ while ($channel = db_fetch_object($result)) {
+ // Load backend from database:
+ $backend = new backend($channel->id);
+
+ $output .= "<TR>\n";
+ $output .= " <TD><A HREF=\"$backend->url\">$backend->site</A></TD>\n";
+ $output .= " <TD><A HREF=\"mailto:$backend->contact\">$backend->contact</A></TD>\n";
+ $output .= " <TD ALIGN=\"center\">". round((time() - $backend->timestamp) / 60) ." min. ago</TD>\n";
+ $output .= " <TD ALIGN=\"center\"><A HREF=\"admin.php?mod=backend&op=refresh&id=$backend->id\">refresh</A></TD>\n";
+ $output .= " <TD ALIGN=\"center\"><A HREF=\"admin.php?mod=backend&op=delete&id=$backend->id\">delete</A></TD>\n";
+ $output .= "</TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+ $output .= "<BR><BR>\n";
+ $output .= "<HR>\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=backend\" METHOD=\"post\">\n";
+ $output .= " <P>\n";
+ $output .= " <B>Site name:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"site\" SIZE=\"50\">\n";
+ $output .= " </P>\n";
+ $output .= " <P>\n";
+ $output .= " <B>URL:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"url\" SIZE=\"50\">\n";
+ $output .= " </P>\n";
+ $output .= " <P>\n";
+ $output .= " <B>Backend file:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"file\" SIZE=\"50\">\n";
+ $output .= " </P>\n";
+ $output .= " <P>\n";
+ $output .= " <B>Contact information:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"contact\" SIZE=\"50\">\n";
+ $output .= " </P>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Add backend\">\n";
+ $output .= " </FORM>\n";
+
+ print $output;
+}
+
+function backend_admin() {
+ global $op, $id, $site, $url, $file, $contact;
+
+ switch($op) {
+ case "refresh":
+ $backend = new backend($id);
+ $backend->refresh();
+ backend_admin_main();
+ break;
+ case "delete":
+ $backend = new backend($id);
+ $backend->dump();
+ $backend->delete();
+ backend_admin_main();
+ break;
+ case "Add backend":
+ $backend = new backend($id, $site, $url, $file, $contact);
+ $backend->add();
+ // fall through:
+ default:
+ backend_admin_main();
+ }
+}
+
+?>
diff --git a/modules/ban.module b/modules/ban.module
new file mode 100644
index 000000000000..df7bb5aef67c
--- /dev/null
+++ b/modules/ban.module
@@ -0,0 +1,107 @@
+<?
+
+$module = array("admin" => "ban_admin");
+
+include "includes/ban.inc";
+
+function ban_check($mask, $category) {
+ $ban = ban_match($mask, $category);
+ $output .= "". ($ban ? "Matched ban '<B>$ban->mask</B>' with reason: <I>$ban->reason</I>.<P>\n" : "No matching bans for '$mask'.<P>\n") ."";
+ print $output;
+}
+
+function ban_new($mask, $category, $reason) {
+ ban_add($mask, $category, $reason, &$message);
+ $output .= "$message\n";
+ print $output;
+}
+
+function ban_display($category = "") {
+ global $type2index;
+
+ // initialize variable:
+ $category = $category ? $category : 1;
+
+ // Perform query:
+ $result = db_query("SELECT * FROM bans WHERE type = $category ORDER BY mask");
+
+ // Generate output:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH COLSPAN=\"3\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=ban\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"category\">\n";
+ for (reset($type2index); $cur = current($type2index); next($type2index)) {
+ $output .= " <OPTION VALUE=\"$cur\"". ($cur == $category ? " SELECTED" : "") .">Sort by ". key($type2index) ."</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+ $output .= " <TR>\n";
+ $output .= " <TH>mask</TH>\n";
+ $output .= " <TH>reason</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($ban = db_fetch_object($result)) {
+ $output .= " <TR><TD>$ban->mask</TD><TD>$ban->reason</TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=ban&op=delete&category=$category&id=$ban->id\">delete</A></TD></TR>\n";
+ }
+
+ $output .= " <TR><TD COLSPAN=\"3\"><SMALL>%: matches any number of characters, even zero characters.<BR>_: matches exactly one character.</SMALL></TD></TR>\n";
+ $output .= "</TABLE>\n";
+ $output .= "<BR><HR>\n";
+
+ $output .= "<H3>Add new ban:</H3>\n";
+ $output .= "<FORM ACTION=\"admin.php?mod=ban\" METHOD=\"post\">\n";
+ $output .= "<B>Banmask:</B><BR>\n";
+ $output .= "<INPUT TYPE=\"text\" NAME=\"mask\" SIZE=\"35\"><P>\n";
+ $output .= "<B>Type:</B><BR>\n";
+ $output .= "<SELECT NAME=\"category\"\">\n";
+ for (reset($type2index); $cur = current($type2index); next($type2index)) {
+ $output .= "<OPTION VALUE=\"$cur\"". ($cur == $category ? " SELECTED" : "") .">". key($type2index) ."</OPTION>\n";
+ }
+ $output .= "</SELECT><P>\n";
+ $output .= "<B>Reason:</B><BR>\n";
+ $output .= "<TEXTAREA NAME=\"reason\" COLS=\"50\" ROWS=\"5\"></TEXTAREA><P>\n";
+ $output .= "<INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Add ban\"><BR>\n";
+ $output .= "</FORM>\n";
+ $output .= "<BR><HR>\n";
+
+ $output .= "<H3>Ban check:</H3>\n";
+ $output .= "<FORM ACTION=\"admin.php?mod=ban\" METHOD=\"post\">\n";
+ $output .= "<B>Banmask:</B><BR>\n";
+ $output .= "<INPUT TYPE=\"text\" NAME=\"mask\" SIZE=\"35\"><P>\n";
+ $output .= "<B>Type:</B><BR>\n";
+ $output .= "<SELECT NAME=\"category\"\">\n";
+ for (reset($type2index); $cur = current($type2index); next($type2index)) {
+ $output .= "<OPTION VALUE=\"$cur\"". ($cur == $category ? " SELECTED" : "") .">". key($type2index) ."</OPTION>\n";
+ }
+ $output .= "</SELECT><P>\n";
+ $output .= "<INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Check ban\"><BR>\n";
+ $output .= "</FORM>\n";
+
+ print $output;
+}
+
+function ban_admin() {
+ global $op, $id, $mask, $category, $reason;
+
+ switch ($op) {
+ case "Add ban":
+ ban_new($mask, $category, $reason);
+ ban_display($category);
+ break;
+ case "Check ban":
+ ban_check($mask, $category);
+ ban_display($category);
+ break;
+ case "delete":
+ ban_delete($id);
+ default:
+ ban_display($category);
+ }
+}
+
+?>
diff --git a/modules/calendar.module b/modules/calendar.module
new file mode 100644
index 000000000000..dc4ccaef1089
--- /dev/null
+++ b/modules/calendar.module
@@ -0,0 +1,76 @@
+<?
+
+class Calendar {
+ var $date;
+
+ function calendar($date) {
+ $this->date = $date;
+ }
+
+ function display() {
+ global $PHP_SELF;
+
+ // Extract information from the given date:
+ $month = date("n", $this->date);
+ $year = date("Y", $this->date);
+ $day = date("d", $this->date);
+
+ // Extract first day of the month:
+ $first = date("w", mktime(0, 0, 0, $month, 1, $year));
+
+ // Extract last day of the month:
+ $last = date("t", mktime(0, 0, 0, $month, 1, $year));
+
+ // Calculate previous and next months dates:
+ $prev = mktime(0, 0, 0, $month - 1, $day, $year);
+ $next = mktime(0, 0, 0, $month + 1, $day, $year);
+
+ // Generate calendar header:
+ $output .= "\n<!-- calendar -->\n";
+ $output .= "<TABLE WIDTH=\"100%\" BORDER=\"1\" CELLSPACING=\"0\" CELLPADDING=\"1\">\n";
+ $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"7\"><SMALL><A HREF=\"$PHP_SELF?date=$prev\"><</A> ". date("F Y", $this->date) ." <A HREF=\"$PHP_SELF?date=$next\">></A></SMALL></TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"center\"><SMALL>S</SMALL></TD><TD ALIGN=\"center\"><SMALL>M</SMALL></TD><TD ALIGN=\"center\"><SMALL>T</SMALL></TD><TD ALIGN=\"center\"><SMALL>W</SMALL></TD><TD ALIGN=\"center\"><SMALL>T</SMALL></TD><TD ALIGN=\"center\"><SMALL>F</SMALL></TD><TD ALIGN=\"center\"><SMALL>S</SMALL></TD></TR>\n";
+
+ // Initialize temporary variables:
+ $nday = 1;
+ $sday = $first;
+
+ // Loop through all the days of the month:
+ while ($nday <= $last) {
+ // Set up blank days for first week of the month:
+ if ($first) {
+ $output .= " <TR><TD COLSPAN=\"$first\"> </TD>\n";
+ $first = 0;
+ }
+
+ // Start every week on a new line:
+ if ($sday == 0) $output .= " <TR>\n";
+
+ // Print one cell:
+ $date = mktime(24, 0, 0, $month, $nday, $year);
+ if ($nday == $day) $output .= " <TD ALIGN=\"center\"><SMALL><B>$nday</B></SMALL></TD>\n";
+ else if ($date > time()) $output .= " <TD ALIGN=\"center\"><SMALL>$nday</SMALL></TD>\n";
+ else $output .= " <TD ALIGN=\"center\"><SMALL><A HREF=\"$PHP_SELF?date=$date\" STYLE=\"text-decoration: none;\">$nday</A></SMALL></TD>\n";
+
+ // Start every week on a new line:
+ if ($sday == 6) $output .= " </TR>\n";
+
+ // Update temporary variables:
+ $sday++;
+ $sday = $sday % 7;
+ $nday++;
+ }
+
+ // Complete the calendar:
+ if ($sday) {
+ $end = 7 - $sday;
+ $output .= " <TD COLSPAN=\"$end\"> </TD>\n </TR>\n";
+ }
+ $output .= "</TABLE>\n\n";
+
+ // Return calendar:
+ return $output;
+ }
+}
+
+?>
diff --git a/modules/comment.module b/modules/comment.module
new file mode 100644
index 000000000000..d7de2460aaa5
--- /dev/null
+++ b/modules/comment.module
@@ -0,0 +1,96 @@
+<?
+
+$module = array("admin" => "comment_admin");
+
+function comment_edit($id) {
+ $result = db_query("SELECT c.*, u.userid FROM comments c LEFT JOIN users u ON c.author = u.id WHERE c.cid = $id");
+
+ $comment = db_fetch_object($result);
+
+ $output .= "<FORM ACTION=\"admin.php?mod=comment&op=save&id=$id\" METHOD=\"post\">\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Author:</B><BR>\n";
+ $output .= " ". format_username($comment->userid, 1) ."\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Subject:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"subject\" SIZE=\"50\" VALUE=\"". check_output(check_field($comment->subject)) ."\"><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Comment:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"comment\">". check_output($comment->comment) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Save comment\">\n";
+ $output .= "</P>\n";
+ $output .= "</FORM>\n";
+
+ print $output;
+}
+
+function comment_save($id, $subject, $comment) {
+ db_query("UPDATE comments SET subject = '". check_input($subject) ."', comment = '". check_input($comment) ."' WHERE cid = $id");
+ watchdog("message", "modified comment `$subject'.");
+}
+
+function comment_display($order = "date") {
+ // Initialize variables:
+ $fields = array("author" => "author", "date" => "timestamp DESC", "subject" => "subject");
+
+ // Perform SQL query:
+ $result = db_query("SELECT c.*, u.userid FROM comments c LEFT JOIN users u ON u.id = c.author ORDER BY c.$fields[$order] LIMIT 50");
+
+ // Display comments:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"5\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=comment\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+
+ $output .= " <TR>\n";
+ $output .= " <TH>subject</TH>\n";
+ $output .= " <TH>author</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($comment = db_fetch_object($result)) {
+ $output .= " <TR><TD><A HREF=\"discussion.php?id=$comment->sid&cid=$comment->cid&pid=$comment->pid#$comment->cid\">". check_output($comment->subject) ."</A></TD><TD>". format_username($comment->userid, 1) ."</TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=comment&op=edit&id=$comment->cid\">edit</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function comment_admin() {
+ global $op, $id, $subject, $comment, $order;
+
+ switch ($op) {
+ case "edit":
+ comment_edit($id);
+ break;
+ case "Save comment":
+ comment_save($id, $subject, $comment);
+ comment_edit($id);
+ break;
+ case "Update":
+ comment_display($order);
+ break;
+ default:
+ comment_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/comment/comment.module b/modules/comment/comment.module
new file mode 100644
index 000000000000..d7de2460aaa5
--- /dev/null
+++ b/modules/comment/comment.module
@@ -0,0 +1,96 @@
+<?
+
+$module = array("admin" => "comment_admin");
+
+function comment_edit($id) {
+ $result = db_query("SELECT c.*, u.userid FROM comments c LEFT JOIN users u ON c.author = u.id WHERE c.cid = $id");
+
+ $comment = db_fetch_object($result);
+
+ $output .= "<FORM ACTION=\"admin.php?mod=comment&op=save&id=$id\" METHOD=\"post\">\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Author:</B><BR>\n";
+ $output .= " ". format_username($comment->userid, 1) ."\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Subject:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"subject\" SIZE=\"50\" VALUE=\"". check_output(check_field($comment->subject)) ."\"><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Comment:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"comment\">". check_output($comment->comment) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Save comment\">\n";
+ $output .= "</P>\n";
+ $output .= "</FORM>\n";
+
+ print $output;
+}
+
+function comment_save($id, $subject, $comment) {
+ db_query("UPDATE comments SET subject = '". check_input($subject) ."', comment = '". check_input($comment) ."' WHERE cid = $id");
+ watchdog("message", "modified comment `$subject'.");
+}
+
+function comment_display($order = "date") {
+ // Initialize variables:
+ $fields = array("author" => "author", "date" => "timestamp DESC", "subject" => "subject");
+
+ // Perform SQL query:
+ $result = db_query("SELECT c.*, u.userid FROM comments c LEFT JOIN users u ON u.id = c.author ORDER BY c.$fields[$order] LIMIT 50");
+
+ // Display comments:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"5\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=comment\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+
+ $output .= " <TR>\n";
+ $output .= " <TH>subject</TH>\n";
+ $output .= " <TH>author</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($comment = db_fetch_object($result)) {
+ $output .= " <TR><TD><A HREF=\"discussion.php?id=$comment->sid&cid=$comment->cid&pid=$comment->pid#$comment->cid\">". check_output($comment->subject) ."</A></TD><TD>". format_username($comment->userid, 1) ."</TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=comment&op=edit&id=$comment->cid\">edit</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function comment_admin() {
+ global $op, $id, $subject, $comment, $order;
+
+ switch ($op) {
+ case "edit":
+ comment_edit($id);
+ break;
+ case "Save comment":
+ comment_save($id, $subject, $comment);
+ comment_edit($id);
+ break;
+ case "Update":
+ comment_display($order);
+ break;
+ default:
+ comment_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/cron.module b/modules/cron.module
new file mode 100644
index 000000000000..b54b1fdcbe37
--- /dev/null
+++ b/modules/cron.module
@@ -0,0 +1,24 @@
+<?
+
+$module = array("admin" => "cron_admin");
+
+function cron_admin() {
+ // Perform query:
+ $result = db_query("SELECT * FROM cron");
+
+ // Generate output:
+ while ($cron = db_fetch_object($result)) {
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
+ $output .= " <TR><TH VALIGN=\"top\">Name:</TH><TD>". check_output($cron->name) ."</TD></TR>\n";
+ $output .= " <TR><TH VALIGN=\"top\">Help:</TH><TD>". check_output($cron->help) ."</TD></TR>\n";
+ $output .= " <TR><TH VALIGN=\"top\">Code:</TH><TD><CODE>". nl2br($cron->code) ."</CODE></TD></TR>\n";
+ $output .= " <TR><TH VALIGN=\"top\">Last run:</TH><TD>". format_date($cron->timestamp) ."</TD></TR>\n";
+ $output .= " <TR><TH VALIGN=\"top\">Scheduled:</TH><TD>every $cron->scheduled seconds</TD></TR>\n";
+ $output .= "</TABLE>\n";
+ $output .= "<BR><BR>\n";
+ }
+
+ print $output;
+}
+
+?>
diff --git a/modules/development.module b/modules/development.module
index 8280e04e49b0..a379cf11ed58 100644
--- a/modules/development.module
+++ b/modules/development.module
@@ -1,108 +1,117 @@
-<H1>Development</H1>
-<I><SMALL>$Id$</SMALL></I>
+<?
-<P>drop.org is open source. It is possible for each and every user to become a contributor. The fact is that most drop.org users, even those skilled in programming arts, have never contributed to the code even though most of us had days where we thought to ourselves: "I wish drop.org could do this ...". Through this page, I hope I can make drop.org programming more accessible to at least a small percentage of people.</P>
+$module = array("page" => "development_page");
-<P>We use diff and patch for content control even though we distribute our code via CVS. Why? Because diff and patch provide an immense amount of control. Patches can be submitted via e-mail and in plain text; maintainers can read and judge the patch before it ever gets near a tree. It allows maintainers to look at changes easily without blindly integrating them.</P>
+function development_page() {
+ ?>
+ <H1>Development</H1>
+ <I><SMALL>$Id$</SMALL></I>
-<H2>Chapter 1: CVS</H2>
+ <P>drop.org is open source. It is possible for each and every user to become a contributor. The fact is that most drop.org users, even those skilled in programming arts, have never contributed to the code even though most of us had days where we thought to ourselves: "I wish drop.org could do this ...". Through this page, I hope I can make drop.org programming more accessible to at least a small percentage of people.</P>
+ <P>We use diff and patch for content control even though we distribute our code via CVS. Why? Because diff and patch provide an immense amount of control. Patches can be submitted via e-mail and in plain text; maintainers can read and judge the patch before it ever gets near a tree. It allows maintainers to look at changes easily without blindly integrating them.</P>
- <H3>Introduction</H3>
+ <H2>Chapter 1: CVS</H2>
+
+ <H3>Introduction</H3>
-<P>CVS is a tool to manage software revisions and release control in a multi-developer, multi-directory, multi-group environment. It comes in very handy to maintain local modificiations.</P>
+ <P>CVS is a tool to manage software revisions and release control in a multi-developer, multi-directory, multi-group environment. It comes in very handy to maintain local modificiations.</P>
-<P>Thus, CVS helps you if you are part of a group of people working on the same project. In large software development projects, it's usually necessary for more then one software developer to be modifying modules of the code at the same time. Without CVS, it is all too easy to overwrite each others' changes unless you are extremely careful.</P>
+ <P>Thus, CVS helps you if you are part of a group of people working on the same project. In large software development projects, it's usually necessary for more then one software developer to be modifying modules of the code at the same time. Without CVS, it is all too easy to overwrite each others' changes unless you are extremely careful.</P>
-<P>We can hand out CVS accounts rather then full-features shell accounts or ftp accounts, and having to mess with groups to give everyone access to the sources. We could create a public read-only CVS account so beta testers could checkout the latest snapshot of the code.</P>
+ <P>We can hand out CVS accounts rather then full-features shell accounts or ftp accounts, and having to mess with groups to give everyone access to the sources. We could create a public read-only CVS account so beta testers could checkout the latest snapshot of the code.</P>
-<P>In addition, CVS helps to keep track of all changes. Therefore, the CVS server has been setup to mail all CVS commits to all maintainers. Thus, it does not require any effort to inform the other people about the work you have done, and by reading the mails everyone is kept up to date.</P>
+ <P>In addition, CVS helps to keep track of all changes. Therefore, the CVS server has been setup to mail all CVS commits to all maintainers. Thus, it does not require any effort to inform the other people about the work you have done, and by reading the mails everyone is kept up to date.</P>
-<H3>Basic usage</H3>
+ <H3>Basic usage</H3>
-<B>Linux</B>
+ <B>Linux</B>
-<P>To gain access via (anonymous) cvs use the following steps. For this example it is assumed that you want a copy of the drop.org source code.</P>
+ <P>To gain access via (anonymous) cvs use the following steps. For this example it is assumed that you want a copy of the drop.org source code.</P>
-<P>1. Install a recent copy of cvs. All you really need is a copy of the CVS client binary. Or you can download the latest CVS source code from <A HREF="http://www.cyclic.com">Cyclic Software</A>. Don't get your panties in a nod; CVS is free software under the GNU GPL.</P>
+ <P>1. Install a recent copy of cvs. All you really need is a copy of the CVS client binary. Or you can download the latest CVS source code from <A HREF="http://www.cyclic.com">Cyclic Software</A>. Don't get your panties in a nod; CVS is free software under the GNU GPL.</P>
-<P>2. Set CVSROOT in your environment:</P>
+ <P>2. Set CVSROOT in your environment:</P>
-<BLOCKQUOTE>export CVSROOT=":pserver:your_username@drop.org:/home/dries/cvs"</BLOCKQUOTE>
+ <BLOCKQUOTE>export CVSROOT=":pserver:your_username@drop.org:/home/dries/cvs"</BLOCKQUOTE>
-<P>3. Login by running the command:</P>
+ <P>3. Login by running the command:</P>
-<BLOCKQUOTE>cvs login</BLOCKQUOTE>
+ <BLOCKQUOTE>cvs login</BLOCKQUOTE>
-<P>4. To check out the latest drop.org sources, run the command:</P>
+ <P>4. To check out the latest drop.org sources, run the command:</P>
-<BLOCKQUOTE>cvs co drop</BLOCKQUOTE>
+ <BLOCKQUOTE>cvs co drop</BLOCKQUOTE>
-<P>This will create a directory called <CODE>drop</CODE> containing the latest drop.org source tree. For the other source code repositories on this system just substitute the correct package name.</P>
+ <P>This will create a directory called <CODE>drop</CODE> containing the latest drop.org source tree. For the other source code repositories on this system just substitute the correct package name.</P>
-<P>5. Whenever you want to merge in the latest code changes, use the following command from within the <CODE>drop</CODE> directory:</P>
+ <P>5. Whenever you want to merge in the latest code changes, use the following command from within the <CODE>drop</CODE> directory:</P>
-<BLOCKQUOTE>cvs ci file1 file2 file3</BLOCKQUOTE>
+ <BLOCKQUOTE>cvs ci file1 file2 file3</BLOCKQUOTE>
-<P>6. To add binary files like gifs you have to use:</P>
+ <P>6. To add binary files like gifs you have to use:</P>
-<BLOCKQUOTE>cvs add <B>-kb</B> file1 file2 file3</BLOCKQUOTE>
+ <BLOCKQUOTE>cvs add <B>-kb</B> file1 file2 file3</BLOCKQUOTE>
-<P>If a binary file accidentically gets added without `-kb', one can use the <I>cvs admin</I> command to recover. For example:</P>
+ <P>If a binary file accidentically gets added without `-kb', one can use the <I>cvs admin</I> command to recover. For example:</P>
-<BLOCKQUOTE>cvs admin -kb file1 file2 file3<BR>cvs commit file1 file2 file3</BLOCKQUOTE>
+ <BLOCKQUOTE>cvs admin -kb file1 file2 file3<BR>cvs commit file1 file2 file3</BLOCKQUOTE>
-<P>After you did, make sure to check out a fresh copy of the files (if they were broken):</P>
+ <P>After you did, make sure to check out a fresh copy of the files (if they were broken):</P>
-<BLOCKQUOTE>cvs update -A file1 file2 file3</BLOCKQUOTE>
+ <BLOCKQUOTE>cvs update -A file1 file2 file3</BLOCKQUOTE>
-<B>Windows</B>
+ <B>Windows</B>
-<P>A graphical CVS client is available for MS Windows and for Macs. You can download the latest version from <A HREF="http://www.wincvs.org">http://www.wincvs.org/</A>.</P>
+ <P>A graphical CVS client is available for MS Windows and for Macs. You can download the latest version from <A HREF="http://www.wincvs.org">http://www.wincvs.org/</A>.</P>
-<P>If you can want to interface the CVS repository just like Linux users do (raw and uncut), then check <A HREF="http://oodt.jpl.nasa.gov/doc/developers-resources/developing/windows/index.html">this site</A>.</P>
+ <P>If you can want to interface the CVS repository just like Linux users do (raw and uncut), then check <A HREF="http://oodt.jpl.nasa.gov/doc/developers-resources/developing/windows/index.html">this site</A>.</P>
-<H3>Additional references</H3>
- <UL>
- <LI><A HREF="http://cvsbook.red-bean.com/">CVS book</A></LI>
- <LI><A HREF="http://www.loria.fr/~molli/cvs/doc/cvs_toc.html">CVS docs</A></LI>
- <LI><A HREF="http://cellworks.washington.edu/pub/docs/cvs/cvs-FAQ/">CVS FAQ</A></LI>
-</UL>
+ <H3>Additional references</H3>
+ <UL>
+ <LI><A HREF="http://cvsbook.red-bean.com/">CVS book</A></LI>
+ <LI><A HREF="http://www.loria.fr/~molli/cvs/doc/cvs_toc.html">CVS docs</A></LI>
+ <LI><A HREF="http://cellworks.washington.edu/pub/docs/cvs/cvs-FAQ/">CVS FAQ</A></LI>
+ </UL>
-<H2>Chapter 2: diff and patch</H2>
+ <H2>Chapter 2: diff and patch</H2>
-<P>Diff is the first command in the set. It has the simple purpose to create a file called a <I>patch</I> or a <I>diff</I> which contains the differences between two text files or two groups of text files. diff can write into different formats, although the unified difference format is preferred. The patches this command generates are much easier to distribute and allow maintainers to see quickly and easily what changed and to make a judgement.</P>
+ <P>Diff is the first command in the set. It has the simple purpose to create a file called a <I>patch</I> or a <I>diff</I> which contains the differences between two text files or two groups of text files. diff can write into different formats, although the unified difference format is preferred. The patches this command generates are much easier to distribute and allow maintainers to see quickly and easily what changed and to make a judgement.</P>
-<P>Patch is diff's complement and takes a patch file generated by diff and applies it against a file or a group of files.</P>
+ <P>Patch is diff's complement and takes a patch file generated by diff and applies it against a file or a group of files.</P>
-<P>The actual usage of diff and patch is not complicated.</P>
+ <P>The actual usage of diff and patch is not complicated.</P>
-<P>At its simplest, a diff command for comparing two files would be:</P>
+ <P>At its simplest, a diff command for comparing two files would be:</P>
-<BLOCKQUOTE>diff old.txt new.txt > oldnew.patch</BLOCKQUOTE>
+ <BLOCKQUOTE>diff old.txt new.txt > oldnew.patch</BLOCKQUOTE>
-<P>For drop.org, we prefer patches in unified format, so we add -u to the command line:</P>
+ <P>For drop.org, we prefer patches in unified format, so we add -u to the command line:</P>
+
+ <BLOCKQUOTE>diff -u old.txt new.txt > oldnew.patch</BLOCKQUOTE>
-<BLOCKQUOTE>diff -u old.txt new.txt > oldnew.patch</BLOCKQUOTE>
+ <P>Generally, however, a comparison of two source trees is often desired. A possible command to do so is:</P>
-<P>Generally, however, a comparison of two source trees is often desired. A possible command to do so is:</P>
+ <BLOCKQUOTE>diff -ruN old new > oldnew.patch</BLOCKQUOTE>
-<BLOCKQUOTE>diff -ruN old new > oldnew.patch</BLOCKQUOTE>
+ <P>Once a patch is generated, the process of patching the file is even simpler. Based on our examples above, we could do:</P>
-<P>Once a patch is generated, the process of patching the file is even simpler. Based on our examples above, we could do:</P>
+ <BLOCKQUOTE>patch < oldnew.patch</BLOCKQUOTE>
-<BLOCKQUOTE>patch < oldnew.patch</BLOCKQUOTE>
+ <H2>Chapter 3: creating and sending your patches</H2>
-<H2>Chapter 3: creating and sending your patches</H2>
+ <P>For a person or company who wishes to submit a change, the process can sometimes be daunting if you're not familiar with "the system". This text is a collection of suggestions which can greatly increase the chances of your change being accepted.</P>
-<P>For a person or company who wishes to submit a change, the process can sometimes be daunting if you're not familiar with "the system". This text is a collection of suggestions which can greatly increase the chances of your change being accepted.</P>
+ <P>1. <B>Coding style:</B><BR>If your code deviates too much from the "standard" coding style, it is more likely to be rejected without further review and without comment.</P>
-<P>1. <B>Coding style:</B><BR>If your code deviates too much from the "standard" coding style, it is more likely to be rejected without further review and without comment.</P>
+ <P>2. <B>"diff -u":</B><BR>Use "diff -u" or "diff -urN" to create patches: when creating your patch, make sure to create it in "unified diff" format, as supplied by the '-u' argument to diff. Patches should be based in the root source directory, not in any lower subdirectory. Make sure to create patches against a "vanilla", or unmodified source tree.</P>
-<P>2. <B>"diff -u":</B><BR>Use "diff -u" or "diff -urN" to create patches: when creating your patch, make sure to create it in "unified diff" format, as supplied by the '-u' argument to diff. Patches should be based in the root source directory, not in any lower subdirectory. Make sure to create patches against a "vanilla", or unmodified source tree.</P>
+ <P>3. <B>Describe your changes:</B><BR>Describe the technical detail of the change(s) your patch includes and try to be as specific as possible. Note that we prefer technical reasoning above marketing: give us clear reasons why "this way" is good. Justify your changes and try to cary enough weigth. It is important to note the version to which this patch applies.</P>
-<P>3. <B>Describe your changes:</B><BR>Describe the technical detail of the change(s) your patch includes and try to be as specific as possible. Note that we prefer technical reasoning above marketing: give us clear reasons why "this way" is good. Justify your changes and try to cary enough weigth. It is important to note the version to which this patch applies.</P>
+ <P>4. <B>Separate your changes:</B><BR>Separate each logical change into its own patch. For example, if your changes include both bug fixes and performance enhancements, separate those changes into two or more patches. If your changes include an API update, and a new module which uses that new API, separate those into two patches.</P>
-<P>4. <B>Separate your changes:</B><BR>Separate each logical change into its own patch. For example, if your changes include both bug fixes and performance enhancements, separate those changes into two or more patches. If your changes include an API update, and a new module which uses that new API, separate those into two patches.</P>
+ <P>5. <B>Mail or submit the patch:</B><BR>Remember: no MIME, no HTML mail, no links, no compression, no attachments. Just plain text.</P>
+ <?
+}
-<P>5. <B>Mail or submit the patch:</B><BR>Remember: no MIME, no HTML mail, no links, no compression, no attachments. Just plain text.</P>
+?>
diff --git a/modules/diary.module b/modules/diary.module
new file mode 100644
index 000000000000..da92e746d2d7
--- /dev/null
+++ b/modules/diary.module
@@ -0,0 +1,90 @@
+<?
+
+function diary_edit($id) {
+ $result = db_query("SELECT d.*, u.userid FROM diaries d LEFT JOIN users u ON d.author = u.id WHERE d.id = $id");
+
+ $diary = db_fetch_object($result);
+
+ $output .= "<FORM ACTION=\"admin.php?mod=diary&op=save&id=$id\" METHOD=\"post\">\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Author:</B><BR>\n";
+ $output .= " ". format_username($diary->userid, 1) ."\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Diary entry:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"text\">". check_output($diary->text) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Save diary entry\">\n";
+ $output .= "</P>\n";
+ $output .= "</FORM>\n";
+
+ print $output;
+}
+
+function diary_save($id, $text) {
+ db_query("UPDATE diaries SET text = '". check_input($text) ."' WHERE id = $id");
+ watchdog("message", "modified diary entry #$id.");
+}
+
+function diary_display($order = "date") {
+ // Initialize variables:
+ $fields = array("author" => "author", "date" => "timestamp DESC");
+
+ // Perform SQL query:
+ $result = db_query("SELECT d.*, u.userid FROM diaries d LEFT JOIN users u ON u.id = d.author ORDER BY d.$fields[$order] LIMIT 50");
+
+ // Display stories:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"5\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=diary\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+
+ $output .= " <TR>\n";
+ $output .= " <TH>subject</TH>\n";
+ $output .= " <TH>author</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($diary = db_fetch_object($result)) {
+ $output .= " <TR><TD><A HREF=\"diary.php?op=view&name=$diary->userid\">$diary->userid on ". format_date($diary->date, "small") ."</A></TD><TD>". format_username($diary->userid, 1) ."</TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=diary&op=edit&id=$diary->id\">edit</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+
+function diary_admin() {
+ global $op, $id, $text, $order;
+
+ switch ($op) {
+ case "edit":
+ diary_edit($id);
+ break;
+ case "Save diary entry":
+ diary_save($id, $text);
+ diary_edit($id);
+ break;
+ case "Update":
+ diary_display($order);
+ break;
+ default:
+ diary_display();
+ }
+}
+
+?>
diff --git a/modules/documentation.module b/modules/documentation.module
index 3925308014e9..a72f2609b023 100644
--- a/modules/documentation.module
+++ b/modules/documentation.module
@@ -1,28 +1,128 @@
-<H1>Documentation:<BR>user guide, administrator guide, technical manual</H1>
-<SMALL><I>$Id$</I></SMALL>
-
- <H3>Blobs</H3>
-
-<P>The site can be almost entirely configured through a web interface by using <I>blobs</I>. Simply put, blobs are small bit of PHP code which will get plugged into the engine or modules powering the site. Blobs are typically used to link modules with the mainstream engine or to customize various aspects of the engine itself.</P>
-<P>If you know how to script in PHP, blobs are pretty simple to create. Don't get your panties in a knot if you are not confident with PHP: simply use the standard blobs (i.e. those available by default) as they are just fine or ask an expert blobber to help you creating custom blobs that fit your need.</P>
-<P>Each blob consist of a key of maximum 255 characters and an associated block of PHP code which can be as long as you want it to be. You can use any piece of PHP code to make up a blob. A blob's code is stored in the database and the engine or a particular module will use the key to find the associated piece of PHP code which will then be dynamically embedded in the engine or the module just-in-time for execution.</P>
-<P>There are however some factors to keep in mind when using and creating blobs: blobs can be extremly useful and flexible, yet be dangerous and insecure if not properly used. If you are not confident with PHP, SQL or even with the site engine for that matter, avoid experimenting with blobs because you can - and you probably will - corrupt your database or even break your site!</P>
-<P>Remember that the code within each blob must be valid PHP code, including things like terminating statements with a semicolon so the parser won't die. Therefore, it is highly recommended to test your blobs seperatly using a simple test script on top of a test database before migrating to your production environment running your real database.</P>
-<P>Note that you can use any global variables, such as configuration parameters within the scope of a blob and keep in mind that variables that have been given values in a blob will retain these values in the engine or module afterwards.</P>
-<P>You may as well use the <CODE>return</CODE> statement to return a value back to the engine.</P>
-<P><U>A basic example:</U></P>
-<P>Given the blob with key <CODE>sumbit_information</CODE>, used in <CODE>submit.php</CODE> to retrieve and display submission guidelines at the top of the story submission page. A simple code block for this blob could look like this:</P>
-<PRE>
- return "Welcome visitor, ... sumbission guidelines go here ...";
-</PRE>
-<P>If we are however dealing with a registered user, we can customize the message by using:
-<PRE>
- if ($user) {
- return "Welcome $user->userid, ... submission guidelines go here ...";
- }
- else {
- return "Welcome visitor, ... sumbission guidelines go here ...";
- }
-</PRE>
-<P>For more in depth example, we recommand you to check any of the available modules and to go from there.</P>
-<P>As said above, you can virtually use any piece of PHP code in a blob: you can declare and use functions, consult the SQL database, access configuration settings and so on.</P>
+<?
+
+$module = array("page" => "documentation_page");
+
+function documentation_page() {
+ ?>
+ <H1>Documentation</H1>
+ <SMALL><I>$Id$</I></SMALL>
+
+ <H2>Chapter 1: installation guide</H2>
+
+ <H3>System requirements</H3>
+ <P>We assume that you have some working experience with Apache, MySQL and PHP. The installation of these required packages is beyond the scope of this document.</P>
+ <PRE>
+ MySQL - http://mysql.com/
+ (development with version 3.22.32)
+
+ PHP4 - http://php.net/
+ (development with version 4.0.0)
+
+ Apache - http://apache.org/
+ (development with version 1.3.14)
+ </PRE>
+
+ <H3>Installation process</H3>
+
+ <H3>More than one engines on one machine</H3>
+
+ <P>Apache supports both IP- and name-based virtual hosts (vhosts). While running more than one engine (by using vhosts) can be very useful for development and testing purpose, it might even be more interesting for hosting companies. Therefore, we tried to support vhosts in the best possible way in order to make life of any administrator easier. We do so by making it possible to run an unlimited amount of vhosts on the same physical source tree, though by using different configuration files. Moreover, you can setup multiple configuration files in your <CODE>includes</CODE>-directory.</P>
+ <PRE>
+ [drop@localhost drop]$ ls -l includes/*.conf
+ -rw-rw-r-- 1 drop drop includes/www.yourdomain1.com.conf
+ -rw-rw-r-- 1 drop drop includes/www.yourdomain2.com.conf
+ </PRE>
+ <P>The only thing left to be done is to setup the corresponding vhosts in your Apache configuration file. Note that the <CODE>DocumentRoot</CODE> points to the same source tree:</P>
+ <PRE>
+ NameVirtualHost 127.0.0.1
+
+ <VirtualHost 127.0.0.1>
+ DocumentRoot /home/www/drop
+ ServerName www.yourdomain1.com
+ </VirtualHost>
+
+ <VirtualHost 127.0.0.1>
+ DocumentRoot /home/www/drop
+ ServerName www.yourdomain2.com
+ </VirtualHost>
+ </PRE>
+
+ <H2>Chapter 2: technical guide</H2>
+
+ <H3>Modules</H3>
+
+ <P>When developing drop.org it became clear that we wanted to have a system which is as modular as possible. A modular design will provide flexibility, adaptability, and continuity which in turn allows people to customize the site to their needs and likings.</P>
+ <P>A drop module is simply a file containing a set of routines written in PHP. When used, the module code executes entirely within the context of the site. Hence it can use all the functions and access all variables and structures of the main egine. In fact, a module is not any different from any other PHP file: it is more of a notion that automatically leads to good design principles and a good development model. Modularity better suits the open-source development model, because otherwise you can't easily have people working in parallel without risk of interference.</P>
+
+ <P>The idea is to be able to run random code at given places in the engine. This random code should then be able to do whatever needed to enhance the functionality. The places where code can be executed are called "hooks" and are defined by a fixed interface.</P>
+ <P>Even though we aim towards modularity, a basic rule is to avoid defined interfaces. We are exceptionally careful when it comes down to adding interfaces because once you give an interface to developers they will start coding to it and once somebody starts coding to it you are stuck with it.</P>
+ <P>In places where hooks are made available, the engine calls each module's exported functions. This is done by iterating through the <CODE>./modules</CODE> directory where all modules must reside. If your module is named <CODE>foo</CODE> (i.e. <CODE>./modules/foo.module</CODE>) and if there was a hook called <CODE>bar</CODE>, the engine will call <CODE>foo_bar()</CODE> if this was exported by your module.</P>
+ <P>Each module has to declare a associative array named <CODE>$module</CODE> that serves as the list of hooks that a module wants to export or carry out. Each entry in the array contains the name of a hook and an export function.</P>
+ <P>In our above example, <CODE>$module</CODE> would look like:</P>
+ <PRE>
+ $module = array("bar" => "foo_bar");
+ </PRE>
+
+ <TABLE BORDER="1">
+ <TR>
+ <TH>Hook name</TH>
+ <TH>Hook description</TH>
+ </TR>
+ <TR>
+ <TD VALIGN="top"><CODE>page</CODE></TD>
+ <TD VALIGN="top">If a module requires it's own page, typically exported as <CODE>http://www.yourdomain.com/module.php?mod=module</CODE>, the engine will invoke <CODE>module_page</CODE> to generate a modules page.</TD>
+ </TR>
+ <TR>
+ <TD VALIGN="top"></TD>
+ <TD VALIGN="top"></TD>
+ </TR>
+ <TR>
+ <TD VALIGN="top"></TD>
+ <TD VALIGN="top"></TD>
+ </TR>
+ <TR>
+ <TD VALIGN="top"></TD>
+ <TD VALIGN="top"></TD>
+ </TR>
+ <TR>
+ <TD VALIGN="top"></TD>
+ <TD VALIGN="top"></TD>
+ </TR>
+ <TR>
+ <TD VALIGN="top"></TD>
+ <TD VALIGN="top"></TD>
+ </TR>
+ <TR>
+ <TD VALIGN="top"></TD>
+ <TD VALIGN="top"></TD>
+ </TR>
+ </TABLE>
+ <H3>Droplets</H3>
+
+ <P>The site can be almost entirely configured through a web interface by using <I>droplets</I>. Simply put, droplets are small bit of PHP code which will get plugged into the engine or modules powering the site. Droplets are typically used to link modules with the mainstream engine or to customize various aspects of the engine itself.</P>
+ <P>If you know how to script in PHP, droplets are pretty simple to create. Don't get your panties in a knot if you are not confident with PHP: simply use the standard droplets (i.e. those available by default) as they are just fine or ask an expert dropletber to help you creating custom droplets that fit your need.</P>
+ <P>Each droplet consist of a key of maximum 255 characters and an associated block of PHP code which can be as long as you want it to be. You can use any piece of PHP code to make up a droplet. A droplet's code is stored in the database and the engine or a particular module will use the key to find the associated piece of PHP code which will then be dynamically embedded in the engine or the module just-in-time for execution.</P>
+ <P>There are however some factors to keep in mind when using and creating droplets: droplets can be extremly useful and flexible, yet be dangerous and insecure if not properly used. If you are not confident with PHP, SQL or even with the site engine for that matter, avoid experimenting with droplets because you can - and you probably will - corrupt your database or even break your site!</P>
+ <P>Remember that the code within each droplet must be valid PHP code, including things like terminating statements with a semicolon so the parser won't die. Therefore, it is highly recommended to test your droplets seperatly using a simple test script on top of a test database before migrating to your production environment running your real database.</P>
+ <P>Note that you can use any global variables, such as configuration parameters within the scope of a droplet and keep in mind that variables that have been given values in a droplet will retain these values in the engine or module afterwards.</P>
+ <P>You may as well use the <CODE>return</CODE> statement to return a value back to the engine.</P>
+ <P><U>A basic example:</U></P>
+ <P>Given the droplet with key <CODE>sumbit_information</CODE>, used in <CODE>submit.php</CODE> to retrieve and display submission guidelines at the top of the story submission page. A simple code block for this droplet could look like this:</P>
+ <PRE>
+ return "Welcome visitor, ... sumbission guidelines go here ...";
+ </PRE>
+ <P>If we are however dealing with a registered user, we can customize the message by using:
+ <PRE>
+ if ($user) {
+ return "Welcome $user->userid, ... submission guidelines go here ...";
+ }
+ else {
+ return "Welcome visitor, ... sumbission guidelines go here ...";
+ }
+ </PRE>
+ <P>For more in depth example, we recommand you to check any of the available modules and to go from there.</P>
+ <P>As said above, you can virtually use any piece of PHP code in a droplet: you can declare and use functions, consult the SQL database, access configuration settings and so on.</P>
+ <?
+}
+
+?>
diff --git a/modules/droplet.module b/modules/droplet.module
new file mode 100644
index 000000000000..a85cdd884d7b
--- /dev/null
+++ b/modules/droplet.module
@@ -0,0 +1,84 @@
+<?
+
+$module = array("admin" => "droplet_admin");
+
+include_once "includes/droplet.inc";
+
+function droplet_display() {
+ $result = db_query("SELECT * FROM droplets");
+
+ ### Generate output:
+ while ($block = db_fetch_object($result)) {
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR><TD ALIGN=\"right\" VALIGN=\"top\">Name:</TD><TD>". check_output($block->name) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\" VALIGN=\"top\">Help:</TD><TD>". check_output($block->help) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\" VALIGN=\"top\">Code:</TD><TD><CODE>". nl2br(htmlentities($block->code)) ."</CODE></TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\" VALIGN=\"top\">Operations:</TD><TD><A HREF=\"admin.php?mod=droplet&op=edit&id=$block->id\">edit</A>, <A HREF=\"admin.php?mod=droplet&op=delete&id=$block->id\">delete</A></TD></TR>\n";
+ $output .= "</TABLE>\n";
+ $output .= "<BR><BR>\n";
+ }
+
+ $output .= "<H3>Add new block:</H3>\n";
+ $output .= "<FORM ACTION=\"admin.php?mod=droplet\" METHOD=\"post\">\n";
+ $output .= "<B>Name:</B><BR>\n";
+ $output .= "<INPUT TYPE=\"text\" NAME=\"name\" SIZE=\"35\"><P>\n";
+ $output .= "<B>Help:</B><BR>\n";
+ $output .= "<TEXTAREA NAME=\"help\" COLS=\"50\" ROWS=\"5\"></TEXTAREA><P>\n";
+ $output .= "<B>Code:</B><BR>\n";
+ $output .= "<TEXTAREA NAME=\"code\" COLS=\"50\" ROWS=\"5\"></TEXTAREA><P>\n";
+ $output .= "<INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Add block\"><BR>\n";
+ $output .= "</FORM>\n";
+ $output .= "<BR><HR>\n";
+
+ print $output;
+}
+
+function droplet_edit($id) {
+ $result = db_query("SELECT * FROM droplets WHERE id = $id");
+
+ if ($block = db_fetch_object($result)) {
+ $output .= "<FORM ACTION=\"admin.php?mod=droplet\" METHOD=\"post\">\n";
+ $output .= "<B>Name:</B><BR>\n";
+ $output .= "<INPUT TYPE=\"text\" NAME=\"name\" VALUE=\"". check_field($block->name) ."\" SIZE=\"35\"><P>\n";
+ $output .= "<B>Help:</B><BR>\n";
+ $output .= "<TEXTAREA NAME=\"help\" COLS=\"50\" ROWS=\"5\">$block->help</TEXTAREA><P>\n";
+ $output .= "<B>Code:</B><BR>\n";
+ $output .= "<TEXTAREA NAME=\"code\" COLS=\"50\" ROWS=\"5\">$block->code</TEXTAREA><P>\n";
+ $output .= "<INPUT TYPE=\"hidden\" NAME=\"id\" VALUE=\"$id\">\n";
+ $output .= "<INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Save block\"><BR>\n";
+ $output .= "</FORM>\n";
+ $output .= "<BR><HR>\n";
+ }
+
+ print $output;
+}
+
+function droplet_save($id, $name, $help, $code) {
+ db_query("UPDATE droplets SET name = '". check_input($name) ."', help = '". check_input($help) ."', code = '". check_code($code) ."' WHERE id = $id");
+ watchdog("message", "modified block `$name'.");
+}
+
+function droplet_admin() {
+ global $op, $id, $name, $help, $code;
+
+ switch ($op) {
+ case "Add block":
+ droplet_add($name, $help, $code);
+ droplet_display();
+ break;
+ case "Save block":
+ droplet_save($id, $name, $help, $code);
+ droplet_display();
+ break;
+ case "edit":
+ droplet_edit($id);
+ break;
+ case "delete":
+ droplet_delete($id);
+ // fall through
+ default:
+ droplet_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/faq.module b/modules/faq.module
index 150f0d043c93..31ea797cf02d 100644
--- a/modules/faq.module
+++ b/modules/faq.module
@@ -1,8 +1,13 @@
<?
+$module = array("page" => "faq_page");
+
include "includes/theme.inc";
-$output = "
+function faq_page() {
+ global $theme;
+
+ $output = "
<DL>
<DT><B>What is a FAQ?</B></DT>
<DD>
@@ -77,8 +82,9 @@
</DD>
</DL>";
-$theme->header();
-$theme->box("Frequently Asked Questions", $output);
-$theme->footer();
+ $theme->header();
+ $theme->box("Frequently Asked Questions", $output);
+ $theme->footer();
+}
?>
diff --git a/modules/module-list.module b/modules/module-list.module
deleted file mode 100644
index 6cc3b2aa1b16..000000000000
--- a/modules/module-list.module
+++ /dev/null
@@ -1,14 +0,0 @@
-<H1>Module list</H1>
-<SMALL><I>$Id$</I></SMALL>
-
-<P>Installed or available modules:</P>
- <UL>
- <?
- $handle = opendir("modules");
- while ($file = readdir($handle)) {
- $name = substr($file, 0, strpos($file, ".module"));
- if ($name) print "<LI><A HREF=\"module.php?mod=$name\">$name</A></LI>";
- }
- closedir($handle);
- ?>
- </UL>
diff --git a/modules/modules.module b/modules/modules.module
new file mode 100644
index 000000000000..8e02bf5d966e
--- /dev/null
+++ b/modules/modules.module
@@ -0,0 +1,20 @@
+<?
+
+$module = array("admin" => "modules_admin");
+
+function modules_admin() {
+ $output .= "<P>Installed or available modules:</P>\n";
+ $output .= " <UL>\n";
+
+ $handle = opendir("modules");
+ while ($file = readdir($handle)) {
+ if ($name = substr($file, 0, strpos($file, ".module"))) $output .= "<LI><A HREF=\"module.php?mod=$name\">$name</A></LI>";
+ }
+ closedir($handle);
+
+ $output .= "</UL>\n";
+
+ print $output;
+}
+
+?>
diff --git a/modules/story.module b/modules/story.module
new file mode 100644
index 000000000000..172cdfdcb2d3
--- /dev/null
+++ b/modules/story.module
@@ -0,0 +1,127 @@
+<?
+
+$module = array("admin" => "story_admin");
+
+function story_edit($id) {
+ global $categories;
+
+ $result = db_query("SELECT s.*, u.userid FROM stories s LEFT JOIN users u ON s.author = u.id WHERE s.id = $id");
+ $story = db_fetch_object($result);
+
+ $output .= "<FORM ACTION=\"admin.php?mod=story&op=save&id=$id\" METHOD=\"post\">\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Author:</B><BR>\n";
+ $output .= " ". format_username($story->userid) ."\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Subject:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"subject\" SIZE=\"50\" VALUE=\"". check_output(check_field($story->subject)) ."\"><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P><B>Category:</B><BR>\n";
+ $output .= " <SELECT NAME=\"category\">\n";
+ for ($i = 0; $i < sizeof($categories); $i++) {
+ $output .= " <OPTION VALUE=\"$categories[$i]\" ";
+ if ($story->category == $categories[$i]) $output .= "SELECTED";
+ $output .= ">$categories[$i]</OPTION>\n";
+ }
+ $output .= "</SELECT>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Abstract:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"abstract\">". check_output($story->abstract) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Editor's note/updates:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"updates\">". check_output($story->updates) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Extended story:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"15\" NAME=\"article\">". check_output($story->article) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P><B>Status:</B><BR>\n";
+ $output .= " <SELECT NAME=\"status\">\n";
+ $output .= ($story->status == 0) ? " <OPTION VALUE=\"0\" SELECTED>Deleted story</OPTION>\n" : " <OPTION VALUE=\"0\">Deleted story </OPTION>\n";
+ $output .= ($story->status == 1) ? " <OPTION VALUE=\"1\" SELECTED>Pending story</OPTION>\n" : " <OPTION VALUE=\"1\">Pending story</OPTION>\n";
+ $output .= ($story->status == 2) ? " <OPTION VALUE=\"2\" SELECTED>Public story</OPTION>\n" : " <OPTION VALUE=\"2\">Public story</OPTION>\n";
+ $output .= "</SELECT>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Save story\">\n";
+ $output .= "</P>\n";
+ $output .= "</FORM>\n";
+
+ print $output;
+}
+
+function story_save($id, $subject, $abstract, $updates, $article, $category, $status) {
+ db_query("UPDATE stories SET subject = '". check_input($subject) ."', abstract = '". check_input($abstract) ."', updates = '". check_input($updates) ."', article = '". check_input($article) ."', category = '". check_input($category) ."', status = '$status' WHERE id = $id");
+ watchdog("message", "modified story `$subject'.");
+}
+
+function story_display($order = "date") {
+ ### Initialize variables:
+ $status = array("deleted", "pending", "public");
+ $fields = array("author" => "author", "category" => "category", "date" => "timestamp DESC", "status" => "status DESC");
+
+ ### Perform SQL query:
+ $result = db_query("SELECT s.*, u.userid FROM stories s LEFT JOIN users u ON u.id = s.author ORDER BY s.$fields[$order]");
+
+ ### Display stories:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"5\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=story\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+
+ $output .= " <TR>\n";
+ $output .= " <TH>subject</TH>\n";
+ $output .= " <TH>author</TH>\n";
+ $output .= " <TH>category</TH>\n";
+ $output .= " <TH>status</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($story = db_fetch_object($result)) {
+ $output .= " <TR><TD><A HREF=\"discussion.php?id=$story->id\">". check_output($story->subject) ."</A></TD><TD>". format_username($story->userid, 1) ."</TD><TD>$story->category</TD><TD ALIGN=\"center\">". $status[$story->status] ."</TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=story&op=edit&id=$story->id\">edit</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function story_admin() {
+ global $op, $id, $subject, $abstract, $updates, $article, $category, $status, $order;
+ switch ($op) {
+ case "edit":
+ story_edit($id);
+ break;
+ case "Save story":
+ story_save($id, $subject, $abstract, $updates, $article, $category, $status);
+ story_edit($id);
+ break;
+ case "Update":
+ story_display($order);
+ break;
+ default:
+ story_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/story/story.module b/modules/story/story.module
new file mode 100644
index 000000000000..172cdfdcb2d3
--- /dev/null
+++ b/modules/story/story.module
@@ -0,0 +1,127 @@
+<?
+
+$module = array("admin" => "story_admin");
+
+function story_edit($id) {
+ global $categories;
+
+ $result = db_query("SELECT s.*, u.userid FROM stories s LEFT JOIN users u ON s.author = u.id WHERE s.id = $id");
+ $story = db_fetch_object($result);
+
+ $output .= "<FORM ACTION=\"admin.php?mod=story&op=save&id=$id\" METHOD=\"post\">\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Author:</B><BR>\n";
+ $output .= " ". format_username($story->userid) ."\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Subject:</B><BR>\n";
+ $output .= " <INPUT TYPE=\"text\" NAME=\"subject\" SIZE=\"50\" VALUE=\"". check_output(check_field($story->subject)) ."\"><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P><B>Category:</B><BR>\n";
+ $output .= " <SELECT NAME=\"category\">\n";
+ for ($i = 0; $i < sizeof($categories); $i++) {
+ $output .= " <OPTION VALUE=\"$categories[$i]\" ";
+ if ($story->category == $categories[$i]) $output .= "SELECTED";
+ $output .= ">$categories[$i]</OPTION>\n";
+ }
+ $output .= "</SELECT>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Abstract:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"abstract\">". check_output($story->abstract) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= "<B>Editor's note/updates:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"10\" NAME=\"updates\">". check_output($story->updates) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <B>Extended story:</B><BR>\n";
+ $output .= " <TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"15\" NAME=\"article\">". check_output($story->article) ."</TEXTAREA><BR>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P><B>Status:</B><BR>\n";
+ $output .= " <SELECT NAME=\"status\">\n";
+ $output .= ($story->status == 0) ? " <OPTION VALUE=\"0\" SELECTED>Deleted story</OPTION>\n" : " <OPTION VALUE=\"0\">Deleted story </OPTION>\n";
+ $output .= ($story->status == 1) ? " <OPTION VALUE=\"1\" SELECTED>Pending story</OPTION>\n" : " <OPTION VALUE=\"1\">Pending story</OPTION>\n";
+ $output .= ($story->status == 2) ? " <OPTION VALUE=\"2\" SELECTED>Public story</OPTION>\n" : " <OPTION VALUE=\"2\">Public story</OPTION>\n";
+ $output .= "</SELECT>\n";
+ $output .= "</P>\n";
+
+ $output .= "<P>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Save story\">\n";
+ $output .= "</P>\n";
+ $output .= "</FORM>\n";
+
+ print $output;
+}
+
+function story_save($id, $subject, $abstract, $updates, $article, $category, $status) {
+ db_query("UPDATE stories SET subject = '". check_input($subject) ."', abstract = '". check_input($abstract) ."', updates = '". check_input($updates) ."', article = '". check_input($article) ."', category = '". check_input($category) ."', status = '$status' WHERE id = $id");
+ watchdog("message", "modified story `$subject'.");
+}
+
+function story_display($order = "date") {
+ ### Initialize variables:
+ $status = array("deleted", "pending", "public");
+ $fields = array("author" => "author", "category" => "category", "date" => "timestamp DESC", "status" => "status DESC");
+
+ ### Perform SQL query:
+ $result = db_query("SELECT s.*, u.userid FROM stories s LEFT JOIN users u ON u.id = s.author ORDER BY s.$fields[$order]");
+
+ ### Display stories:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"5\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=story\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+
+ $output .= " <TR>\n";
+ $output .= " <TH>subject</TH>\n";
+ $output .= " <TH>author</TH>\n";
+ $output .= " <TH>category</TH>\n";
+ $output .= " <TH>status</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($story = db_fetch_object($result)) {
+ $output .= " <TR><TD><A HREF=\"discussion.php?id=$story->id\">". check_output($story->subject) ."</A></TD><TD>". format_username($story->userid, 1) ."</TD><TD>$story->category</TD><TD ALIGN=\"center\">". $status[$story->status] ."</TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=story&op=edit&id=$story->id\">edit</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function story_admin() {
+ global $op, $id, $subject, $abstract, $updates, $article, $category, $status, $order;
+ switch ($op) {
+ case "edit":
+ story_edit($id);
+ break;
+ case "Save story":
+ story_save($id, $subject, $abstract, $updates, $article, $category, $status);
+ story_edit($id);
+ break;
+ case "Update":
+ story_display($order);
+ break;
+ default:
+ story_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/watchdog.module b/modules/watchdog.module
new file mode 100644
index 000000000000..f60e4eaeb4f1
--- /dev/null
+++ b/modules/watchdog.module
@@ -0,0 +1,73 @@
+<?
+
+$module = array("admin" => "watchdog_admin");
+
+function watchdog_display($order = "date") {
+ $colors = array("#D8BFD8", "#6495ED", "#6A5ADF", "#FFFFFF", "#FFA500", "#FF3C3C");
+ $fields = array("date" => "id DESC", "username" => "user", "location" => "location", "message" => "message DESC", "level" => "level DESC");
+
+ ### Perform query:
+ $result = db_query("SELECT l.*, u.userid FROM watchdog l LEFT JOIN users u ON l.user = u.id ORDER BY l.$fields[$order]");
+
+ ### Generate output:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"4\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=watchdog\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+ $output .= " <TR>\n";
+ $output .= " <TH>date</TH>\n";
+ $output .= " <TH>message</TH>\n";
+ $output .= " <TH>user</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($watchdog = db_fetch_object($result)) {
+ $output .= " <TR BGCOLOR=\"". $colors[$watchdog->level] ."\"><TD>". format_date($watchdog->timestamp) ."</TD><TD>". substr(check_output($watchdog->message), 0, 44) ."</TD><TD ALIGN=\"center\">". format_username($watchdog->userid, 1) ."</A></TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=watchdog&op=view&id=$watchdog->id\">more</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function watchdog_view($id) {
+ $result = db_query("SELECT l.*, u.userid FROM watchdog l LEFT JOIN users u ON l.user = u.id WHERE l.id = $id");
+
+ if ($watchdog = db_fetch_object($result)) {
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Level:</B></TD><TD>$watchdog->level</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Date:</B></TD><TD>". format_date($watchdog->timestamp, "extra large") ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>User:</B></TD><TD>". format_username($watchdog->userid, 1) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Location:</B></TD><TD>$watchdog->location</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Message:</B></TD><TD>$watchdog->message</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Hostname:</B></TD><TD>$watchdog->hostname</TD></TR>\n";
+ $output .= "</TABLE>\n";
+ print $output;
+ }
+}
+
+function watchdog_admin() {
+ global $op, $id, $order;
+
+ switch ($op) {
+ case "view":
+ watchdog_view($id);
+ break;
+ case "Update":
+ watchdog_display($order);
+ break;
+ default:
+ watchdog_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/watchdog/watchdog.module b/modules/watchdog/watchdog.module
new file mode 100644
index 000000000000..f60e4eaeb4f1
--- /dev/null
+++ b/modules/watchdog/watchdog.module
@@ -0,0 +1,73 @@
+<?
+
+$module = array("admin" => "watchdog_admin");
+
+function watchdog_display($order = "date") {
+ $colors = array("#D8BFD8", "#6495ED", "#6A5ADF", "#FFFFFF", "#FFA500", "#FF3C3C");
+ $fields = array("date" => "id DESC", "username" => "user", "location" => "location", "message" => "message DESC", "level" => "level DESC");
+
+ ### Perform query:
+ $result = db_query("SELECT l.*, u.userid FROM watchdog l LEFT JOIN users u ON l.user = u.id ORDER BY l.$fields[$order]");
+
+ ### Generate output:
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR>\n";
+ $output .= " <TH ALIGN=\"right\" COLSPAN=\"4\">\n";
+ $output .= " <FORM ACTION=\"admin.php?mod=watchdog\" METHOD=\"post\">\n";
+ $output .= " <SELECT NAME=\"order\">\n";
+ foreach ($fields as $key=>$value) {
+ $output .= " <OPTION VALUE=\"$key\"". ($key == $order ? " SELECTED" : "") .">Sort by $key</OPTION>\n";
+ }
+ $output .= " </SELECT>\n";
+ $output .= " <INPUT TYPE=\"submit\" NAME=\"op\" VALUE=\"Update\">\n";
+ $output .= " </FORM>\n";
+ $output .= " </TH>\n";
+ $output .= " </TR>\n";
+ $output .= " <TR>\n";
+ $output .= " <TH>date</TH>\n";
+ $output .= " <TH>message</TH>\n";
+ $output .= " <TH>user</TH>\n";
+ $output .= " <TH>operations</TH>\n";
+ $output .= " </TR>\n";
+
+ while ($watchdog = db_fetch_object($result)) {
+ $output .= " <TR BGCOLOR=\"". $colors[$watchdog->level] ."\"><TD>". format_date($watchdog->timestamp) ."</TD><TD>". substr(check_output($watchdog->message), 0, 44) ."</TD><TD ALIGN=\"center\">". format_username($watchdog->userid, 1) ."</A></TD><TD ALIGN=\"center\"><A HREF=\"admin.php?mod=watchdog&op=view&id=$watchdog->id\">more</A></TD></TR>\n";
+ }
+
+ $output .= "</TABLE>\n";
+
+ print $output;
+}
+
+function watchdog_view($id) {
+ $result = db_query("SELECT l.*, u.userid FROM watchdog l LEFT JOIN users u ON l.user = u.id WHERE l.id = $id");
+
+ if ($watchdog = db_fetch_object($result)) {
+ $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"3\" CELLSPACING=\"0\">\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Level:</B></TD><TD>$watchdog->level</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Date:</B></TD><TD>". format_date($watchdog->timestamp, "extra large") ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>User:</B></TD><TD>". format_username($watchdog->userid, 1) ."</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Location:</B></TD><TD>$watchdog->location</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Message:</B></TD><TD>$watchdog->message</TD></TR>\n";
+ $output .= " <TR><TD ALIGN=\"right\"><B>Hostname:</B></TD><TD>$watchdog->hostname</TD></TR>\n";
+ $output .= "</TABLE>\n";
+ print $output;
+ }
+}
+
+function watchdog_admin() {
+ global $op, $id, $order;
+
+ switch ($op) {
+ case "view":
+ watchdog_view($id);
+ break;
+ case "Update":
+ watchdog_display($order);
+ break;
+ default:
+ watchdog_display();
+ }
+}
+
+?>
\ No newline at end of file
diff --git a/modules/wishlist.module b/modules/wishlist.module
index f3908e65a94f..cef706ccd0e6 100644
--- a/modules/wishlist.module
+++ b/modules/wishlist.module
@@ -1,73 +1,83 @@
-<H1>Whislist</H1>
-<SMALL><I>$Id$</I></SMALL>
+<?
- <H3>Users</H3>
- <UL>
- <LI>auto. set default theme according to popularity or date</LI>
- <LI>enhance "track drop.org" functionality: should be made more complete and more comprehensive</LI>
- <LI>translation/localization support: let's not add this too soon as it will turn out to be a pain to maintain</LI>
- <LI>allow users to change their e-mail address: this will require validation through our confirmation procedure</LI>
- <LI>advanced search so people can search stories, comments, diaries, users, and so on by date</LI>
- <LI><I>see section "Modules" for more user oriented features</I></LI>
- </UL>
-
- <H3>Adminstration</H3>
- <UL>
- <LI>enhance user administration</LI>
- <LI>auto. backup functionality</LI>
- <LI>auto. clean-up functionality (e.g. user's history field)</LI>
- </UL>
+$module = array("page" => "wishlist_page");
+
+function wishlist_page() {
+ ?>
- <H3>Engine</H3>
- <UL>
- <LI>blocks and flexible block placement strategies by means of "layout managers" (cfr. Java) and tightly integrated with the module support</LI>
- <LI>post/edit hash - magic cookie: to prevent malicious external access and to prevent duplicate posts because of hitting the "reload" button</LI>
- <LI>cron job emulation:</LI>
+ <H1>Whislist</H1>
+ <SMALL><I>$Id$</I></SMALL>
+
+ <H3>Users</H3>
<UL>
- <LI>auto. set default theme according to popularity</LI>
- <LI>auto. database clean-up (e.g. history field)</LI>
- <LI>auto. recalculate adaptive/dynamic settings like thresholds</LI>
- <LI>auto. mail digests</LI>
+ <LI>auto. set default theme according to popularity or date</LI>
+ <LI>enhance "track drop.org" functionality: should be made more complete and more comprehensive</LI>
+ <LI>translation/localization support: let's not add this too soon as it will turn out to be a pain to maintain</LI>
+ <LI>allow users to change their e-mail address: this will require validation through our confirmation procedure</LI>
+ <LI>advanced search so people can search stories, comments, diaries, users, and so on by date</LI>
+ <LI><I>see section "Modules" for more user oriented features</I></LI>
</UL>
- <LI>URL validator</LI>
- <LI>more adaptive submission queue</LI>
- <LI>archive function</LI>
- <LI>caching</LI>
- <LI>more configuration options:</LI>
+
+ <H3>Adminstration</H3>
<UL>
- <LI>enable/disable open submission queue</LI>
- <LI>enable/disable anonymous users</LI>
- <LI>enable/disable comments - pending comments</LI>
+ <LI>enhance user administration</LI>
+ <LI>auto. backup functionality</LI>
+ <LI>auto. clean-up functionality (e.g. user's history field)</LI>
</UL>
- </UL>
- <H3>Modules</H3>
- <UL>
- <LI>convert diary system to a module (?)</LI>
- <LI>RDF/XML/RSS syndication import/export</LI>
- <LI>messaging between administrators/users</LI>
- <LI>links/bookmarks manager</LI>
- <LI>public userlist</LI>
- <LI>visitor/referals statistics</LI>
- <LI>banner ad/rotation/tracking or affiliate program</LI>
- <LI>messaging system between users</LI>
- <LI>voting polls</LI>
- <LI>daily/weekly e-mail digest - mailing list</LI>
- <LI>e-commerce/shop</LI>
-</UL>
-
- <H3>Public release</H3>
- <UL>
- <LI>write minimum amount of documentation like installation guidelines, administrator guide, and so on</LI>
- <LI>make (or find and install) a "task manager / todo list / progress meter / bug report"-tool so we can get ourselves and the project somewhat organized</LI>
- <LI>integration and testing with latest version of PHP (just to avoid bug reports that could have been easily avoided)</LI>
- <LI>security revision</LI>
- </UL>
+ <H3>Engine</H3>
+ <UL>
+ <LI>blocks and flexible block placement strategies by means of "layout managers" (cfr. Java) and tightly integrated with the module support</LI>
+ <LI>post/edit hash - magic cookie: to prevent malicious external access and to prevent duplicate posts because of hitting the "reload" button</LI>
+ <LI>cron job emulation:</LI>
+ <UL>
+ <LI>auto. set default theme according to popularity</LI>
+ <LI>auto. database clean-up (e.g. history field)</LI>
+ <LI>auto. recalculate adaptive/dynamic settings like thresholds</LI>
+ <LI>auto. mail digests</LI>
+ </UL>
+ <LI>URL validator</LI>
+ <LI>more adaptive submission queue</LI>
+ <LI>archive function</LI>
+ <LI>caching</LI>
+ <LI>more configuration options:</LI>
+ <UL>
+ <LI>enable/disable open submission queue</LI>
+ <LI>enable/disable anonymous users</LI>
+ <LI>enable/disable comments - pending comments</LI>
+ </UL>
+ </UL>
+
+ <H3>Modules</H3>
+ <UL>
+ <LI>convert diary system to a module (?)</LI>
+ <LI>RDF/XML/RSS syndication import/export</LI>
+ <LI>messaging between administrators/users</LI>
+ <LI>links/bookmarks manager</LI>
+ <LI>public userlist</LI>
+ <LI>visitor/referals statistics</LI>
+ <LI>banner ad/rotation/tracking or affiliate program</LI>
+ <LI>messaging system between users</LI>
+ <LI>voting polls</LI>
+ <LI>daily/weekly e-mail digest - mailing list</LI>
+ <LI>e-commerce/shop</LI>
+ </UL>
- <H3>Themes</H3>
- <UL>
- <LI>create a theme with topic icons - graphical theme</LI>
- <LI>create a theme with black background - darker theme</LI>
- <LI>try to get existing themes HTML validated</LI>
- </UL>
+ <H3>Public release</H3>
+ <UL>
+ <LI>write minimum amount of documentation like installation guidelines, administrator guide, and so on</LI>
+ <LI>make (or find and install) a "task manager / todo list / progress meter / bug report"-tool so we can get ourselves and the project somewhat organized</LI>
+ <LI>integration and testing with latest version of PHP (just to avoid bug reports that could have been easily avoided)</LI>
+ <LI>security revision</LI>
+ </UL>
+
+ <H3>Themes</H3>
+ <UL>
+ <LI>create a theme with topic icons - graphical theme</LI>
+ <LI>create a theme with black background - darker theme</LI>
+ <LI>try to get existing themes HTML validated</LI>
+ </UL>
+ <?
+}
+?>
--
GitLab