txp_form with arbitrary types

<?php

/*
    This is Textpattern

    Copyright 2005 by Dean Allen
    www.textpattern.com
    All rights reserved

    Use of this software indicates acceptance of the Textpattern license agreement

$HeadURL: https://textpattern.googlecode.com/svn/development/4.x/textpattern/include/txp_form.php $
$LastChangedRevision: 3560 $

*/

    if (!defined('txpinterface')) die('txpinterface is undefined.');

    global $vars;
    $vars = array('Form','type','new_type','name','savenew','oldname');
    $essential_forms = array('comments','comments_display','comment_form','default','Links','files');

    if ($event == 'form') {
        require_privs('form');

        bouncer($step,
            array(
                'form_edit'       => false,
                'form_create'     => false,
                'form_delete'     => true,
                'form_multi_edit' => true,
                'form_save'       => true,
                'save_pane_state' => true
            )
        );

        switch(strtolower($step)) {
            case "":                form_edit();             break;
            case "form_edit":       form_edit();             break;
            case "form_create":     form_create();           break;
            case "form_delete":     form_delete();           break;
            case "form_multi_edit": form_multi_edit();       break;
            case "form_save":       form_save();             break;
            case "save_pane_state": form_save_pane_state();  break;
        }

    }

// -------------------------------------------------------------
    function form_list($curname)
    {
        global $step,$essential_forms;
        $out[] = '<p class="action-create smallerbox">'.sLink('form','form_create',gTxt('create_new_form')).'</p>';

        $methods = array('delete'=>gTxt('delete'));

        $rs = safe_rows_start("*", "txp_form", "1 order by type asc, name asc");

        if ($rs) {
            $ctr = 1;
            $prev_type = '';
            while ($a = nextRow($rs)){
                extract($a);
                $editlink = ($curname!=$name)
                    ?   eLink('form','form_edit','name',$name,$name)
                    :   htmlspecialchars($name);
                $modbox = (!in_array($name, $essential_forms))
                    ?   '<input type="checkbox" name="selected_forms[]" value="'.$name.'" />'
                    :   '';

                if ($prev_type != $type) {
                    $visipref = 'pane_form_'.$type.'_visible';
                    //TODO: Add 'article', 'comment', 'misc' to rpc server for gTxt()
                    $group_start = '<div class="form-list-group '.$type.'"><h3 class="plain lever'.(get_pref($visipref) ? ' expanded' : '').'"><a href="#'.$type.'">'.ucfirst(gTxt($type)).'</a></h3>'.n.
                        '<div id="'.$type.'" class="toggle form-list" style="display:'.(get_pref($visipref) ? 'block' : 'none').'">'.n.
                        '<ul class="plain-list">'.n;
                    $group_end = ($ctr > 1) ? '</ul></div></div>'.n : '';
                } else {
                    $group_start = $group_end = '';
                }

                $out[] = $group_end.$group_start;
                $out[] = '<li class="'.(($ctr%2 == 0) ? 'even' : 'odd').'">'.n.'<span class="form-list-action">'.$modbox.'</span><span class="form-list-name">'.$editlink.'</span></li>';
                $prev_type = $type;
                $ctr++;
            }

            $out[] = '</ul></div></div>';
            $out[] = eInput('form').sInput('form_multi_edit');
            $out[] = graf(selectInput('edit_method',$methods,'',1).sp.gTxt('selected').sp.
                fInput('submit','form_multi_edit',gTxt('go'),'smallerbox')
                , ' align="right"');

            return form( join('',$out),'',"verify('".gTxt('are_you_sure')."')", 'post', '', '', 'allforms_form' );
        }
    }

// -------------------------------------------------------------

    function form_multi_edit()
    {
        global $essential_forms;

        $method = ps('edit_method');
        $forms = ps('selected_forms');

        if ($forms and is_array($forms))
        {
            if ($method == 'delete')
            {
                foreach ($forms as $name)
                {
                    if (!in_array($name, $essential_forms) && form_delete($name))
                    {
                        $deleted[] = $name;
                    }
                }

                $message = gTxt('forms_deleted', array('{list}' => join(', ', $deleted)));

                form_edit($message);
            }
        }

        else
        {
            form_edit();
        }
    }

// -------------------------------------------------------------
    function form_create()
    {
        form_edit();
    }

// -------------------------------------------------------------
    function form_edit($message='')
    {
        global $event,$step,$essential_forms;
        pagetop(gTxt('edit_forms'),$message);

        extract(gpsa(array('Form','name','type')));
        $name = trim(preg_replace('/[<>&"\']/', '', $name));

        if ($step=='form_create') {
            $inputs = fInput('submit','savenew',gTxt('save_new'),'publish').
                eInput("form").sInput('form_save');
        } else {
            $name = (!$name or $step=='form_delete') ? 'default' : $name;
            $rs = safe_row("*", "txp_form", "name='".doSlash($name)."'");
//          if ($rs)
 {
                extract($rs);
                $inputs = fInput('submit','save',gTxt('save'),'publish').
                    eInput("form").sInput('form_save').hInput('oldname',$name);
            }
        }

        if (!in_array($name, $essential_forms))
            $changename = graf(gTxt('form_name').br.fInput('text','name',$name,'edit','','',15));
        else
            $changename = graf(gTxt('form_name').br.tag($name, 'em').hInput('name',$name));

        // Generate the tagbuilder links
        // Format of each entry is popTagLink -> array ( gTxt string, class/ID, popHelp ref )
        $tagbuild_items = array(
            'article' => array('articles', 'article-tags', 'form_articles'),
            'link' => array('links', 'link-tags', 'form__place_link'),
            'comment' => array('comments', 'comment-tags', 'form_comments'),
            'comment_details' => array('comment_details', 'comment-detail-tags', 'form_comment_details'),
            'comment_form' => array('comment_form', 'comment-form-tags', 'form_comment_form'),
            'search_result' => array('search_results_form', 'search-result-tags', 'form_search_results'),
            'file_download' => array('file_download_tags', 'file-tags', 'form_file_download_tags'),
            'category' => array('category_tags', 'category-tags', 'form_category_tags'),
            'section' => array('section_tags', 'section-tags', 'form_section_tags'),
        );

        $tagbuild_links = '';
        foreach ($tagbuild_items as $tb => $item) {
            $tagbuild_links .= '<div class="'.$item[1].'">'.hed('<a href="#'.$item[1].'">'.gTxt($item[0]).'</a>'.
                    sp.popHelp($item[2]), 3, ' class="plain lever'.(get_pref('pane_form_'.$item[1].'_visible') ? ' expanded' : '').'"').
                    '<div id="'.$item[1].'" class="toggle on" style="display:'.(get_pref('pane_form_'.$item[1].'_visible') ? 'block' : 'none').'">'.popTagLinks($tb).'</div></div>';
        }

        $out =
            '<div id="'.$event.'_container" class="txp-container txp-edit">'.
            startTable('edit').
            tr(
                tdtl(
                    '<div id="tagbuild_links">'.hed(gTxt('tagbuilder'), 2).
                    $tagbuild_links.
                    '</div>'
                , ' class="column"').
                tdtl(
                    '<form action="index.php" method="post" id="form_form">'.
                        '<div id="main_content">'.
                        '<div class="edit-title">'.gTxt('you_are_editing_form').sp.strong(($name) ? $name : gTxt('untitled')).'</div>'.
                        '<textarea id="form" class="code" name="Form" cols="60" rows="20">'.htmlspecialchars($Form).'</textarea>'.

                    $changename.

                    graf(gTxt('form_type').br.
                        formtypes($type)).
                    (empty($type) ? graf(gTxt('only_articles_can_be_previewed')) : '').
                    (empty($type) || $type == 'article' ? fInput('submit','form_preview',gTxt('preview'),'smallbox') : '' ).
                    graf($inputs).
                    '</div>'.
                    n.tInput().
                    n.'</form>'

                , ' class="column"').
                tdtl(
                    '<div id="content_switcher" class="list">'.hed(gTxt('all_forms'), 2).
                    form_list($name).
                    '</div>'
                , ' class="column"')
            ).endTable().'</div>';

        echo $out;
    }

// -------------------------------------------------------------

    function form_save()
    {
        global $vars, $step, $essential_forms;

        extract(doSlash(gpsa($vars)));
        $name = doSlash(trim(preg_replace('/[<>&"\']/', '', gps('name'))));

        if (!$name)
        {
            $step = 'form_create';
            $message = gTxt('form_name_invalid');

            return form_edit(array($message, E_ERROR));
        }

        if ($new_type != '') {
            $type = trim($new_type);
        }

        if ($type == '')
        {
            $step = 'form_create';
            $message = gTxt('form_type_missing');

            return form_edit(array($message, E_ERROR));
        }

        if ($savenew)
        {
            $exists = safe_field('name', 'txp_form', "name = '$name'");

            if ($exists)
            {
                $step = 'form_create';
                $message = gTxt('form_already_exists', array('{name}' => $name));

                return form_edit(array($message, E_ERROR));
            }

            safe_insert('txp_form', "Form = '$Form', type = '$type', name = '$name'");

            update_lastmod();

            $message = gTxt('form_created', array('{name}' => $name));

            return form_edit($message);
        }

        safe_update('txp_form', "Form = '$Form', type = '$type', name = '$name'", "name = '$oldname'");

        update_lastmod();

        $message = gTxt('form_updated', array('{name}' => $name));

        form_edit($message);
    }

// -------------------------------------------------------------
    function form_delete($name)
    {
        global $essential_forms;
        if (in_array($name, $essential_forms)) return false;
        $name = doSlash($name);
        if (safe_delete("txp_form","name='$name'")) {
            return true;
        }
        return false;
    }

// -------------------------------------------------------------
    function formTypes($type)
    {
        $all_types = safe_column('type', 'txp_form', '1=1 GROUP BY type');
        $fixed_types = array(''=>'','article'=>'article','category'=>'category','comment'=>'comment',
            'file'=>'file','link'=>'link','misc'=>'misc','section'=>'section');
        $types = array_merge($fixed_types, $all_types);
        natsort($types);
        return selectInput('type', $types, $type) . fInput('text', 'new_type', '', 'edit', '', '', 15);
    }

// -------------------------------------------------------------
    function form_save_pane_state()
    {
        global $event;
        $all_types = safe_column('type', 'txp_form', '1=1 GROUP BY type');
        $panes = array('article', 'category', 'comment', 'file', 'link', 'misc', 'section', 'article-tags', 'link-tags', 'comment-tags', 'comment-detail-tags', 'comment-form-tags', 'search-result-tags', 'file-tags', 'category-tags', 'section-tags');
        $pane = gps('pane');
        if (in_array($pane, $panes + $all_types))
        {
            set_pref("pane_form_{$pane}_visible", (gps('visible') == 'true' ? '1' : '0'), $event, PREF_HIDDEN, 'yesnoradio', 0, PREF_PRIVATE);
            send_xml_response();
        } else {
            send_xml_response(array('http-status' => '400 Bad Request'));
        }
    }

?>