<?php
   /*
     * $Id$
     *
     * MAIA MAILGUARD LICENSE v.1.0
     *
     * Copyright 2011 by Robert LeBlanc <rjl@renaissoft.com>
     *                   David Morton <mortonda@dgrmm.net>
     * All rights reserved.
     *
     * PREAMBLE
     *
     * This License is designed for users of Maia Mailguard
     * ("the Software") who wish to support the Maia Mailguard project by
     * leaving "Maia Mailguard" branding information in the HTML output
     * of the pages generated by the Software, and providing links back
     * to the Maia Mailguard home page.  Users who wish to remove this
     * branding information should contact the copyright owner to obtain
     * a Rebranding License.
     *
     * DEFINITION OF TERMS
     *
     * The "Software" refers to Maia Mailguard, including all of the
     * associated PHP, Perl, and SQL scripts, documentation files, graphic
     * icons and logo images.
     *
     * GRANT OF LICENSE
     *
     * Redistribution and use in source and binary forms, with or without
     * modification, are permitted provided that the following conditions
     * are met:
     *
     * 1. Redistributions of source code must retain the above copyright
     *    notice, this list of conditions and the following disclaimer.
     *
     * 2. Redistributions in binary form must reproduce the above copyright
     *    notice, this list of conditions and the following disclaimer in the
     *    documentation and/or other materials provided with the distribution.
     *
     * 3. The end-user documentation included with the redistribution, if
     *    any, must include the following acknowledgment:
     *
     *    "This product includes software developed by Robert LeBlanc
     *    <rjl@renaissoft.com>."
     *
     *    Alternately, this acknowledgment may appear in the software itself,
     *    if and wherever such third-party acknowledgments normally appear.
     *
     * 4. At least one of the following branding conventions must be used:
     *
     *    a. The Maia Mailguard logo appears in the page-top banner of
     *       all HTML output pages in an unmodified form, and links
     *       directly to the Maia Mailguard home page; or
     *
     *    b. The "Powered by Maia Mailguard" graphic appears in the HTML
     *       output of all gateway pages that lead to this software,
     *       linking directly to the Maia Mailguard home page; or
     *
     *    c. A separate Rebranding License is obtained from the copyright
     *       owner, exempting the Licensee from 4(a) and 4(b), subject to
     *       the additional conditions laid out in that license document.
     *
     * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS
     * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
     * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
     * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
     * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
     * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
     * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
     * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
     * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
     * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
     * USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     *
     */


  function pre_check_14() {
    global $dbh;

    $coltype = column_type("maia_mail", "contents");
    if (is_mysql()) {
	   $desired_type = 'longblob';
	} else {
	   $desired_type = 'bytea';
	}
	if ($coltype == $desired_type) {
       return array(false, "Column 'contents' is already type " . strtoupper($desired_type));
    } else {
       return array(true, "");
    }
  }

  function upgrade_14() {
    global $dbh;

    if (is_mysql()) {
        $sql_stmts = array(

                     "ALTER TABLE maia_mail
                      MODIFY COLUMN sender_email VARBINARY(255) NOT NULL,
                      MODIFY COLUMN envelope_to BLOB NOT NULL,
                      MODIFY COLUMN subject VARBINARY(255) NOT NULL,
                      MODIFY COLUMN contents LONGBLOB NOT NULL",

                     "ALTER TABLE users
                      MODIFY COLUMN email VARBINARY(255) NOT NULL",

                     "ALTER TABLE users DROP INDEX email",

                     "ALTER TABLE users ADD UNIQUE email (email)",

                     "ALTER TABLE mailaddr
                      MODIFY COLUMN email VARBINARY(255) NOT NULL",

                     "ALTER TABLE mailaddr DROP INDEX email",

                     "ALTER TABLE mailaddr ADD UNIQUE email (email)"

                    );
    } else {
      $sql_stmts = array(

                     "ALTER TABLE maia_mail
                      ALTER COLUMN sender_email DROP NOT NULL,
                      ALTER COLUMN sender_email TYPE BYTEA USING decode(sender_email, 'escape'),
                      ALTER COLUMN sender_email SET NOT NULL,
                      ALTER COLUMN envelope_to DROP NOT NULL,
                      ALTER COLUMN envelope_to TYPE BYTEA USING decode(envelope_to, 'escape'),
                      ALTER COLUMN envelope_to SET NOT NULL,
                      ALTER COLUMN subject DROP NOT NULL,
                      ALTER COLUMN subject TYPE BYTEA USING decode(subject, 'escape'),
                      ALTER COLUMN subject SET NOT NULL,
                      ALTER COLUMN contents DROP NOT NULL,
                      ALTER COLUMN contents TYPE BYTEA USING decode(contents, 'escape'),
                      ALTER COLUMN contents SET NOT NULL",

                     "DROP INDEX IF EXISTS users_idx_email",

                     "ALTER TABLE users
                      DROP CONSTRAINT users_email_key,
                      ALTER COLUMN email DROP NOT NULL,
                      ALTER COLUMN email TYPE BYTEA USING decode(email, 'escape'),
                      ALTER COLUMN email SET NOT NULL,
                      ADD UNIQUE (email)",

                     "CREATE UNIQUE INDEX users_idx_email ON users (email)",

                     "DROP INDEX IF EXISTS mailaddr_idx_email",

                     "ALTER TABLE mailaddr
                      DROP CONSTRAINT mailaddr_email_key,
                      ALTER COLUMN email DROP NOT NULL,
                      ALTER COLUMN email TYPE BYTEA USING decode(email, 'escape'),
                      ALTER COLUMN email SET NOT NULL,
                      ADD UNIQUE (email)",

                     "CREATE UNIQUE INDEX mailaddr_idx_email ON mailaddr (email)"

                   );
    }
    foreach ($sql_stmts as $sql) {
       $result = $dbh->query($sql);
       if (PEAR::isError($result)) {
         $str = $result->getMessage() . " = [" . $sql . "]" ;
         /* return array(false, $result->getMessage()); */
         return array(false, $str );
       }
    }

    return array(true,"");
  }

  function post_check_14() {
    global $dbh;

    $coltype = column_type("maia_mail", "contents");
    if (is_mysql()) {
      $desired_type = 'longblob';
    } else {
      $desired_type = 'bytea';
    }

    if ($coltype != $desired_type) {
       return array(false, "Column 'contents' is still type " . strtoupper($coltype));
    } else {
       return array(true, "");
    }
  }

?>
