drupal/modules/meta.module

<?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();
  }
}

?>