<?php

// smtp_beta_help function
function smtp_beta_help( $section ) {
    switch($section){
    case 'admin/modules#description':
      return t('smtp beta sign up form');
    }
}

/**
 * Implementation of hook_perm().
 */
function smtp_beta_perm() {
  return array('smtp_beta');
}

/**
 * Implementation of hook_access().
 */
function smtp_beta_access($op, $node) {
  if (user_access('smtp_beta')) {
    return TRUE;
  }
}

/**
 * Implementation of hook_menu().
 */
function smtp_beta_menu($may_cache) {
  $items = array();
  $items[] = array(
    'path' => 'smtp-beta-test', 'title' => t('CiviMail SMTP Beta Test Registration'),
    'callback' => 'smtp_beta',
    'access' => user_access('smtp_beta')
  );
  return $items;
}

function smtp_beta_submit($form_id,$form_values){
  smtp_beta_reg_email($form_values);
  drupal_goto(variable_get('smtp_beta_success_redirect',''));
}

function smtp_beta_reg_email($form_values){
  civicrm_initialize( true );
  require_once 'CRM/Utils/Mail.php';
  $toEmail   = variable_get('smtp_beta_reg_to_email','');
  $subject   = variable_get('smtp_beta_reg_email_subject','');
  $fromName  = variable_get('smtp_beta_reg_from_name','');
  $fromEmail = variable_get('smtp_beta_reg_from_email','');
  $from      = CRM_Utils_Mail::encodeAddressHeader( $fromName, $fromEmail );
  $from      = "From: $from\r\n";
  $params    = print_r( $form_values, true );
  mail($toEmail,$subject,$params, $from);
}

function smtp_beta_settings(){
  $form['smtp_beta_reg_to_email'] = array(
    '#type' => 'textfield',
    '#title' => t('To email address'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_reg_to_email', ''),
  );

  $form['smtp_beta_reg_email_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('email subject'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_reg_email_subject', ''),
  );

  $form['smtp_beta_reg_from_name'] = array(
    '#type' => 'textfield',
    '#title' => t('From name'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_reg_from_name', ''),
  );

  $form['smtp_beta_reg_from_email'] = array(
    '#type' => 'textfield',
    '#title' => t('From email address'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_reg_from_email', ''),
  );

  $form['smtp_beta_terms_url'] = array(
    '#type' => 'textfield',
    '#title' => t('Terms URL'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_terms_url', ''),
  );

  $form['smtp_beta_how_to_url'] = array(
    '#type' => 'textfield',
    '#title' => t('How to URL'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_how_to_url', ''),
  );

  $form['smtp_beta_success_redirect'] = array(
    '#type' => 'textfield',
    '#title' => t('Redirect URL after registration'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_success_redirect', ''),
  );

  return $form;  
}

function get_smtp_intro_text(){
  $terms_url = variable_get('smtp_beta_terms_url','');
  $how_to_url = variable_get('smtp_beta_how_to_url','');


  return '
<p>
Filling out and submitting the form below will register you for the UAS SMTP Beta Test.  A red star (<font color="#ff0000">*</font>) indicates that the field is required.  Also, the terms and conditions check box is also required even though it does not have a red star next to it. 
</p>
<p>
Beta Testing Dates: <strong>July 17, 2007 - August 14, 2007</strong> 
</p>
<p>
Before submitting the form, please read, understand and agree with
the terms and conditions laid out at this link:
</p>
<p>
<a href="'.$terms_url.'" target="_blank">SMTP Beta Test Terms and Conditions</a>
</p>
<p>
What you will need to do to participate in the Beta Test is described here:
</p>
<p>
<a href="'.$how_to_url.'" target="_blank">SMTP Beta - How To Participate</a>
</p>
<p>
The information and steps on the how to participate page are there for informational purposes only.  Once you have been approved for the Beta Test, you will be provided with a user account where you will be able to modify any of the info that is related to your account.
</p>
<p>
For your participation, you will receive a free one-month subscription that is commensurate with the amount of testing you do up to 20,000 emails.  For example, if you send 5,000 test emails during the beta period, you will receive a  one-month subscription for up to 5,000 emails.  If you send up 20,000+ emails then you will receive a one month subscription allowing for up to 20,000 emails. 
</p>
<p>
<strong>Please note that during beta testing you might incur bandwidth charges from your service provider dependent upon your hosting arrangements.  
</strong>
</p>
<p>
If you have any other questions please email <a href="mailto:smtp-beta@uas.coop">smtp-beta@uas.coop</a>
</p>
<p align="center">
===============================
</p>
<p>
The goal of the beta test is to push as many CiviMail mailings as possible in 4 weeks.  All beta testers will be provided
with test data and scenarios and be asked to execute the scenarios at
various times throughout the Beta period.   The test scenarios will
create test groups in your CCRM installation with test email
addresses that point back to our email servers.  You will then send a
provided test mailing to the test group as usual.  
</p>
<p>
Each
test scenario will come with a set of statistics that
can be used to verify that the test is successful.  For example, a
test scenario might be a mailing to 5000 email addresses that has 500
bounces, 120 replies and 30 unsubscribes.  After the test successfully
completes, the tester
would check the CiviMail mailing stats and see if what is reported by
CiviMail matches the expectations set by the test scenario.
</p>
<p>
The recommended set up for beta testing is to use a
development / test installation of CCRM / CiviMail rather than a
live deployment, that way any problems that arise during testing will
not affect live deployments.  I do not expect there to be problems, but
this is a beta and it is best to play it safe.
</p>
<p>
&nbsp;
</p>
  ';
}

function smtp_beta(){

  $form['smtp_beta_intro_text'] = array(
    '#type' => 'markup',
    '#value' => t(get_smtp_intro_text()),
  );

  $form['smtp_beta_primary_name'] = array(
    '#type' => 'textfield',
    '#title' => t('Primary Contact Name'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_primary_name', ''),
  );

  $form['smtp_beta_primary_phone'] = array(
    '#type' => 'textfield',
    '#title' => t('Primary Contact Phone'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_primary_phone', ''),
  );

  $form['smtp_beta_primary_email'] = array(
    '#type' => 'textfield',
    '#title' => t('Primary Contact Email Address'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#description' => t(''),
    '#default_value' =>  variable_get('smtp_beta_primary_email', ''),
  );

  $form['smtp_beta_secondary_name'] = array(
    '#type' => 'textfield',
    '#title' => t('Secondary Contact Name'),
    '#size' => 60,
    '#maxlength' => 64,
    '#default_value' =>  variable_get('smtp_beta_secondary_name', ''),
  );

  $form['smtp_beta_secondary_phone'] = array(
    '#type' => 'textfield',
    '#title' => t('Secondary Contact Phone'),
    '#size' => 60,
    '#maxlength' => 64,
    '#default_value' =>  variable_get('smtp_beta_secondary_phone', ''),
  );

  $form['smtp_beta_secondary_email'] = array(
    '#type' => 'textfield',
    '#title' => t('Secondary Contact Email Address'),
    '#size' => 60,
    '#maxlength' => 64,
    '#default_value' =>  variable_get('smtp_beta_secondary_email', ''),
  );

  $form['smtp_beta_org_name'] = array(
    '#type' => 'textfield',
    '#title' => t('Name of your Organization or Company'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#default_value' =>  variable_get('smtp_beta_org_name', ''),
  );

  $form['smtp_beta_org_url'] = array(
    '#type' => 'textfield',
    '#title' => t('Company Or Organization URL'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#default_value' =>  variable_get('smtp_beta_org_url', ''),
  );

  $form['smtp_beta_org_type'] = array(
    '#type' => 'radios',
    '#title' => t('Organization type'),
    '#default_value' => variable_get('smtp_beta_org_type', ''),
    '#required' => TRUE,
    '#options' => array(t('Non-Profit'), t('Public (Governmental)'), t('For-Profit (Private Sector)')),
  );

  $form['smtp_beta_org_desc'] = array(
    '#type' => 'textarea',
    '#title' => t('Description of your Organization or Company'),
    '#default_value' =>  variable_get('smtp_beta_org_desc', ''),
    '#cols' => 60,
    '#rows' => 5,
    '#description' => t('Please briefly describe the nature of your organization or company'),
    '#required' => TRUE,
  );

  $form['smtp_beta_max_mailings_month'] = array(
    '#type' => 'textfield',
    '#title' => t('Max mailings that you send in a month'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#default_value' =>  variable_get('smtp_beta_max_mailings_month', ''),
  );

  $form['smtp_beta_max_mailings_day'] = array(
    '#type' => 'textfield',
    '#title' => t('Max mailings that you send in a single day'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#default_value' =>  variable_get('smtp_beta_max_mailings_day', ''),
  );

  $form['smtp_beta_hosting'] = array(
    '#type' => 'textarea',
    '#title' => t('In what sort of environment is your CiviCRM installation deployed?'),
    '#default_value' =>  variable_get('smtp_beta_hosting', ''),
    '#cols' => 60,
    '#rows' => 5,
    '#description' => t('For example, Shared, VPS, Dedicated, I manage the whole operation, co-located, etc.'),
    '#required' => TRUE,
  );

  $form['smtp_beta_ccrm_version'] = array(
    '#type' => 'textfield',
    '#title' => t('Which version of CCRM are you currently using?'),
    '#size' => 60,
    '#maxlength' => 64,
    '#required' => TRUE,
    '#default_value' =>  variable_get('smtp_beta_ccrm_version', ''),
  );

  $terms_url = variable_get('smtp_beta_terms_url','');
  $form['smtp_beta_terms'] = array(
    '#type' => 'checkbox',
    '#title' => t('I agree to the terms and conditions of the CiviMail SMTP Beta Test'),
    '#default_value' => variable_get('smtp_beta_terms',''),
    '#required' => TRUE,
    '#description' => t('<br>by checking the box above and submitting this form you agree to all of the terms and conditions as described at the following link:<br><br> <a href="'.$terms_url.'" target="another_window">SMTP Beta Test Terms and Conditions</a>'),    
  );

  $form['smtp_beta_spacer'] = array(
    '#type' => 'markup',
    '#value' => t('<br>'),
  );

  $form['submit'] = array('#type' => 'submit', '#value' => t('Register for the SMTP Beta Test'));
  $output = drupal_get_form('smtp_beta',$form);
  return $output;
}

?>