diff options
Diffstat (limited to 'modules/meta.module')
| -rw-r--r-- | modules/meta.module | 165 |
1 files changed, 165 insertions, 0 deletions
diff --git a/modules/meta.module b/modules/meta.module new file mode 100644 index 000000000..e8e6fc0dc --- /dev/null +++ b/modules/meta.module @@ -0,0 +1,165 @@ +<?php + +function meta_help() { + ?> + To be written. + <?php +} + +function meta_form($type, $edit = array()) { + $c = db_query("SELECT * FROM collection WHERE types LIKE '%". check_input($type) ."%'"); + while ($collection = db_fetch_object($c)) { + unset($array); + $t = db_query("SELECT * FROM tag WHERE collections LIKE '%$collection->name%'"); + while ($tag = db_fetch_object($t)) { + $array[$tag->attributes] = $tag->name; + } + $form .= form_select($collection->name, $collection->name, $edit[$collection->name], $array); + } + return $form; +} + +function meta_save($type, $edit = array()) { + $result = db_query("SELECT * FROM collection WHERE types LIKE '%". check_input($type) ."%'"); + while ($collection = db_fetch_object($result)) { + $output = field_merge($output, $edit[$collection->name]); + } + return $output; +} + +function meta_get_collection($cid) { + return db_fetch_array(db_query("SELECT * FROM collection WHERE cid = '". check_input($cid) ."'")); +} + +function meta_get_tag($tid) { + return db_fetch_array(db_query("SELECT * FROM tag WHERE tid = '". check_input($tid) ."'")); +} + +function meta_form_collection($edit = array()) { + global $REQUEST_URI; + + $form .= form_textfield("Collection name", "name", $edit[name], 50, 64, "Required. The name for this group or collection of meta-tags. Example: 'Software'."); + $form .= form_textfield("Types", "types", $edit[types], 50, 64, "Required. A comma-seperated list of node types you want to associate this collection with. Example: 'story, book'."); + $form .= form_submit("Submit"); + + if ($edit[cid]) { + $form .= form_submit(t("Delete")); + $form .= form_hidden("cid", $edit[cid]); + } + + return form($REQUEST_URI, $form); +} + +function meta_form_tag($edit = array()) { + global $REQUEST_URI; + + $form .= form_textfield("Meta-tag name", "name", $edit[name], 50, 64, "Required. The name for this meta-tag. Example: 'Apache'."); + $form .= form_textfield("Attributes", "attributes", $edit[attributes], 50, 64, htmlentities("Required. Format: <type>:<value>;<type>:<value>;. Example: 'software=apache,type=webserver,os=linux,'.")); + $form .= form_textfield("Collections", "collections", $edit[collections], 50, 64, "Required. A comma-seperated list of collections you want to associate this meta-tag with. Example: 'Software, Internet'"); + $form .= form_submit("Submit"); + + if ($edit[tid]) { + $form .= form_submit(t("Delete")); + $form .= form_hidden("tid", $edit[tid]); + } + + return form($REQUEST_URI, $form); +} + +function meta_save_collection($edit) { + if ($edit[cid] && $edit[name]) { + db_query("UPDATE collection SET name = '". check_input($edit[name]) ."', types = '". check_input($edit[types]) ."' WHERE cid = '$edit[cid]'"); + } + else if ($edit[cid]) { + db_query("DELETE FROM collection WHERE cid = '". check_input($edit[cid]) ."'"); + } + else { + db_query("INSERT INTO collection (name, types) VALUES ('". check_input($edit[name]) ."', '". check_input($edit[types]) ."')"); + } +} + +function meta_save_tag($edit) { + if ($edit[tid] && $edit[name]) { + db_query("UPDATE tag SET name = '". check_input($edit[name]) ."', attributes = '". check_input($edit[attributes]) ."', collections = '". check_input($edit[collections]) ."' WHERE tid = '$edit[tid]'"); + } + else if ($edit[tid]) { + db_query("DELETE FROM tag WHERE tid = '". check_input($edit[tid]) ."'"); + } + else { + db_query("INSERT INTO tag (name, attributes, collections) VALUES ('". check_input($edit[name]) ."', '". check_input($edit[attributes]) ."', '". check_input($edit[collections]) ."')"); + } +} + +function meta_verify() { + foreach (module_list() as $name) { + if (module_hook($name, "status") && $name != "node") { + $output .= "<H3>". ucfirst($name) ." type</H3>"; + $output .= meta_form($name) ."<HR>"; + } + } + return form("", $output); +} + +function meta_overview() { + $result = db_query("SELECT * FROM collection ORDER BY name"); + + $output .= "<H3>Collection overview</H3>"; + $output .= "<TABLE BORDER=\"1\" CELLSPADDING=\"2\" CELLSPACING=\"2\">\n"; + $output .= " <TR><TH>name</TH><TH>node types</TH><TH>operations</TH></TR>\n"; + while ($collection = db_fetch_object($result)) { + $output .= " <TR><TD>". check_output($collection->name) ."</TD><TD>". check_output($collection->types) ."</TD><TD><A HREF=\"admin.php?mod=meta&type=collection&op=edit&id=$collection->cid\">edit collection</A></TD></TR>\n"; + } + $output .= "</TABLE>\n"; + + $result = db_query("SELECT * FROM tag ORDER BY name"); + + $output .= "<H3>Meta-tag overview</H3>"; + $output .= "<TABLE BORDER=\"1\" CELLSPADDING=\"2\" CELLSPACING=\"2\">\n"; + $output .= " <TR><TH>name</TH><TH>collections</TH><TH>meta attributes</TH><TH>operations</TH></TR>\n"; + while ($tag = db_fetch_object($result)) { + $output .= " <TR><TD>". check_output($tag->name) ."</TD><TD>". check_output($tag->collections) ."</TD><TD>". check_output($tag->attributes) ."</TD><TD><A HREF=\"admin.php?mod=meta&type=tag&op=edit&id=$tag->tid\">edit tag</A></TD></TR>\n"; + } + $output .= "</TABLE>\n"; + + return $output; +} + +function meta_admin() { + global $edit, $type, $op, $id; + + print "<SMALL><A HREF=\"admin.php?mod=meta&type=collection&op=add\">add new collection</A> | <A HREF=\"admin.php?mod=meta&type=tag&op=add\">add new meta-tag</A> | <A HREF=\"admin.php?mod=meta&op=verify\">verify node forms</A> | <A HREF=\"admin.php?mod=meta\">overview</A> | <A HREF=\"admin.php?mod=meta&op=help\">help</A></SMALL><HR>\n"; + + switch ($op) { + case "add": + if ($type == "collection") + print meta_form_collection(); + else + print meta_form_tag(); + break; + case "edit": + if ($type == "collection") + print meta_form_collection(meta_get_collection($id)); + else + print meta_form_tag(meta_get_tag($id)); + break; + case "help": + print meta_help(); + break; + case "verify": + print meta_verify(); + break; + case "Delete": + $edit[name] = 0; + // fall through: + case "Submit": + if ($type == "collection") + print status(meta_save_collection($edit)); + else + print status(meta_save_tag($edit)); + // fall through: + default: + print meta_overview(); + } +} + +?>
\ No newline at end of file |