modules/addressbook/addressbook.module

<?php

/**
 * Created by wplaat (Plaatsoft)
 *
 * This software is open source and may be copied, distributed or modified under the terms of the GNU General Public License (GPL) Version 2
 *
 * For more information visit the following website.
 * Website : http://www.plaatsoft.nl 
 *
 * Or send an email to the following address.
 * Email   : info@plaatsoft.nl
 */

// Addressbook module URLs.
define('URL_FAMILY_LIST',  'addressbook/family/list');
define('URL_FAMILY_VIEW',  'addressbook/family/view');
define('URL_FAMILY_EDIT',  'addressbook/family/edit');
define('URL_MEMBER_LIST',  'addressbook/member/list');
define('URL_MEMBER_VIEW',  'addressbook/member/view');
define('URL_MEMBER_EDIT',  'addressbook/member/edit');
define('URL_PICTURE_VIEW', 'addressbook/picture/view');
define('URL_PICTURE_EDIT', 'addressbook/picture/edit');
define('URL_UPLOAD_CSV',   'addressbook/csv/upload');
define('URL_DOWNLOAD_CSV', 'addressbook/csv/download');
define('URL_SEARCH',       'addressbook/search');
define('URL_MAP_VIEW',     'addressbook/map/view');
define('URL_EMAIL',        'addressbook/email');

define('IMAGE_DIR',        file_directory_path().'/addressbook');
define('THUMBNAILS_DIR',   file_directory_path().'/addressbook/thumbnails');

/**
 * help hook()
 * @return help texts
 */
function addressbook_help($path, $arg) {

  $output = '';
  switch ($path) {
    case 'admin/modules#description':
      $output .= t('Addressbook module');
      break;
  }
  return $output;
}

function addressbook_mail($key, &$message, $params) 
{
  $message['subject'] = $params['subject']; 
  $message['body'] = $params['body'];
}

/**
 * menu hook()
 * @return array of menu items
 */
function addressbook_menu()
{

  $items[URL_FAMILY_LIST] = array(
                   'title' => 'Addressbook family list',
                   'page callback' => 'family_list',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                );

  $items[URL_FAMILY_VIEW] = array(
                   'title' => 'Addressbook view family',
                   'page callback' => 'family_view2',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                );

  $items[URL_FAMILY_EDIT] = array(
                   'title' => 'Addressbook edit family',
                   'page callback' => 'family_edit',
                   'access arguments' => array('add address'),
                   'type' => MENU_CALLBACK,
                );

  $items[URL_MEMBER_LIST] = array(
                   'title' => 'Addressbook family list',
                   'page callback' => 'member_list',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                        );

  $items[URL_MEMBER_VIEW] = array(
                   'title' => 'Addressbook view family member',
                   'page callback' => 'member_view',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                        );

  $items[URL_MEMBER_EDIT] = array(
                   'title' => 'Addressbook edit family member',
                   'page callback' => 'member_edit',
                   'access arguments' => array('add address'),
                   'type' => MENU_CALLBACK,
                        );

  $items[URL_PICTURE_VIEW] = array(
                   'title' => 'Addressbook view picture',
                   'page callback' => 'picture_view',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                );

  $items[URL_PICTURE_EDIT] = array(
                   'title' => 'Addressbook edit picture',
                   'page callback' => 'picture_edit',
                   'access arguments' => array('add address'),
                   'type' => MENU_CALLBACK,
                        );

  $items[URL_UPLOAD_CSV] = array(
                   'title' => 'Addressbook CSV upload',
                   'page callback' => 'upload_csv',
                   'access arguments' => array('add address'),
                   'type' => MENU_CALLBACK,
                );

  $items[URL_DOWNLOAD_CSV] = array(
                   'title' => 'Addressbook CSV download',
                   'page callback' => 'download_csv',
                   'access arguments' => array('add address'),
                   'type' => MENU_CALLBACK,
                );

   $items[URL_SEARCH] = array(
                   'title' => 'Addressbook search',
                   'page callback' => 'general_search',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                );

   $items[URL_MAP_VIEW] = array(
                   'title' => 'Addressbook map view',
                   'page callback' => 'map_view',
                   'access arguments' => array('view addressbook'),
                   'type' => MENU_CALLBACK,
                );

   $items[URL_EMAIL] = array(
                   'title' => 'Addressbook email view',
                   'page callback' => 'email_view',
                   'access arguments' => array('add address'),
                   'type' => MENU_CALLBACK,
                );

   $items['admin/settings/addressbook'] = array(
                   'title' => 'Addressbook',
                   'description' => 'Settings of addressbook.',
                   'page callback' => 'drupal_get_form',
                   'page arguments' => array('addressbook_settings'),
                   'access arguments' => array('administer site configuration'),
                   'type' => MENU_NORMAL_ITEM,
                );

  return $items;
}

/**
  * Valid permissions for this module.
  * @return array an array of valid permission for the module
  */
function addressbook_perm() {

  return array('view addressbook','add address');
}

/**
 * Module configuration settings.
 * @return settings HTML or deny access
 */
function addressbook_settings() {

  //only administrators can access this module
  if (!user_access('access administration pages')) {
    return drupal_access_denied();
  }

  $form['settings_general'] = array('#type' => 'fieldset', '#title' => t('General settings'));

  $form['settings_general']['addressbook_name_format'] = array(
     '#type' => 'select',
     '#title' => t('Name format '),
     '#default_value' => variable_get('addressbook_name_format',1),
     '#options' => array( 0 => t('middle last, first'), 1 => t('first middle last') ),
     '#description' => t('Set the name format which will be used in the general addressbook list page.'));

  $form['settings_general']['addressbook_show_sort_bar'] = array(
     '#type' => 'select',
     '#title' => t('Enable sort bar'),
     '#default_value' => variable_get('addressbook_show_sort_bar',1),
     '#options' => array( 0 => t('No'), 1 => t('Yes') ),
     '#description' => t('Enable / disable sort bar in general addressbook list page.'));

  $form['settings_general']['addressbook_roles'] = array(
     '#type' => 'textarea',
     '#title' => t('Roles'),
     '#default_value' => variable_get('addressbook_roles', ''),
     '#rows' => 1,
     '#description' => t("Enter the roles which a person can have (Seperate items with commas (,). No spaces allowed).") );

  $form['settings_general']['addressbook_country'] = array(
     '#type' => 'textfield',
     '#title' => t('Country'),
     '#default_value' => variable_get('addressbook_country', t('Nederland')),
     '#description' => t("Specify default country for new address items."),
     '#maxlength' => '50',
     '#size' => '50');

  $form['settings_general']['addressbook_show_thumbnails'] = array(
     '#type' => 'select',
     '#title' => t('Show thumbnails pictures in list views'),
     '#default_value' => variable_get('addressbook_show_thumbnails',0),
     '#options' => array( 0 => t('No'), 1 => t('Yes') ),
     '#description' => t('Enable / disable thumbnail pictures in family list and family member list.'));

  $form['settings_general']['addressbook_email_manitory'] = array(
     '#type' => 'select',
     '#title' => t('Email field manitory'),
     '#default_value' => variable_get('addressbook_email_manitory',1),
     '#options' => array( 0 => t('No'), 1 => t('Yes') ),
     '#description' => t('Enable / disable email field as mandatory field.'));

  $form['settings_general']['addressbook_wiki_edit_mode'] = array(
     '#type' => 'select',
     '#title' => t('Wiki edit mode'),
     '#default_value' => variable_get('addressbook_wiki_edit_mode',0),
     '#options' => array( 0 => t('Disable'), 1 => t('Enable') ),
     '#description' => t('Enable (anyone can modify existing addresses), Disable (only owner can modify created addresses).'));


  $form['map24'] = array('#type' => 'fieldset', '#title' => t('Map settings'));

  $form['map24']['addressbook_map_link'] = array(
     '#type' => 'select',
     '#title' => t('Activate map link'),
     '#default_value' => variable_get('addressbook_map_link',0),
     '#options' => array( 0 => t('No'), 1 => t('Yes') ),
     '#description' => t('Enable / Disable Activate www.map24.com fast link.'));

  $form['map24']['addressbook_map_key'] = array(
     '#type' => 'textfield',
     '#title' => t('Free www.map24.com access key'),
     '#default_value' => variable_get('addressbook_map_key', ''),
     '#description' => t("Enter access key (Visit http://www.map24.com to obtain a free key)"),
     '#maxlength' => '50',
     '#size' => '50');


  $form['birthday'] = array('#type' => 'fieldset', '#title' => t('Birthday notification settings'));

  $form['birthday']['addressbook_birthday_notification'] = array(
     '#type' => 'select',
     '#title' => t('Birthday email notification'),
     '#default_value' => variable_get('addressbook_birthday_notification',0),
     '#options' => array( 0 => t('No'), 1 => t('Yes') ),
     '#description' => t('Enable / disable email birthday notification.'));

  $form['birthday']['addressbook_birthday_subject'] = array(
     '#type' => 'textfield',
     '#title' => t('Subject of birtday e-mail'),
     '#default_value' => variable_get('addressbook_birthday_subject','Happy birthday %username from %site_name'),
     '#maxlength' => 180,
     '#description' => t('Customize the subject of your birthday e-mail, which is sent to members upon their birthday.') .' '. t('Available variables are:') .' %username, %site_name');

  $form['birthday']['addressbook_birthday_body'] = array(
     '#type' => 'textarea',
     '#title' => t('Body of birthday e-mail'),
     '#default_value' => variable_get('addressbook_birthday_body',"Dear %username,\r\n\r\nCongratulation with your %user_age ste birthday.\r\nHave a nice day!\r\n"),
     '#rows' => 15,
     '#description' => t('Customize the body of the birthday e-mail, which is sent to members upon their birthday.') .' '. t('Available variables are:') .' %username, %user_age, %site_name');

  return system_settings_form($form);

}

/**
  * Find all family members which are celebrating their birthday to day and send them an email.
  * @return emails
  */
function addressbook_cron() {

  // If birthday notification is enabled check all family members.
  if ( variable_get('addressbook_birthday_notification',0)==1 ) {

    // Send the birthday notication only once in any given day (crontab may run more frequently)
    $current_day=date('-m-d');
    $current_time=date('H');

    if ($current_time==0) {
      watchdog('cron', t('Addressbook birthday cron'));

      // Fetch all members with are celebrating there birtday
      $query='SELECT first_name, middle_name, last_name, email, birth_day FROM {addressbook_member} WHERE birth_day LIKE "%'.$current_day.'"';
      $queryResult = db_query($query);
      while ($data = db_fetch_object($queryResult)) {
        $username=view_name($data->first_name,$data->middle_name,$data->last_name,true);

        $email = $data->email;
        $site_name = variable_get('site_name', 'Drupal');

        // Calculate member age
        list($year, $month, $day) = split('[/.-]', $data->birth_day);
        $user_age  = date('Y')-$year;

        // if family member have a email address send a email
        if (($email!='') && ($user_age<100)) {
          $from=$site_name.'<'.variable_get('site_mail', ini_get('sendmail_from')).'>';

          $subject=variable_get('addressbook_birthday_subject','Happy birthday %username from %site_name');
          $subject=str_replace("%username", $username, $subject);
          $subject=str_replace("%site_name", $site_name, $subject);

          $body=variable_get('addressbook_birthday_body',"Dear %username,\r\n\r\nCongratulation with your %user_age ste birthday.\r\nHave a nice day!\r\n");
          $body=str_replace("%username", $username, $body);
          $body=str_replace("%user_age", $user_age, $body);
          $body=str_replace("%site_name", $site_name, $body);

          if (drupal_mail('Addressbook', 'send', $email, user_preferred_language($user), array('subject'=>$subject,'body'=>$body))) 
          {           
            watchdog('cron', t('Sent birthday email to ').$email);
          }
          else 
          {
            watchdog('cron', t('Unable to email to ').$email);
          }
        }
      }
    }
  }
}

/**
  * Find all family members which are celebrating their birthday today and make a block of it.
  * @return emails
  */
function addressbook_block($op='list', $delta=0) {

  // listing of blocks, such as on the admin/block page
  if ($op == "list") {

    $block[0]["info"] = t('Birthday today');
    return $block;

  } else if ($op == 'view') {

    // our block content
    // content variable that will be returned for display
    $block_content = '';

    if (user_access('view addressbook')) {
      $current_day=date('-m-d');
      $current_time=date('H');

      $query='SELECT mid, first_name, middle_name, last_name, email, birth_day FROM {addressbook_member} WHERE birth_day LIKE "%'.$current_day.'"';
      $queryResult = db_query($query);
      while ($data = db_fetch_object($queryResult)) {

        // Calculate member age
        list($year, $month, $day) = split('[/.-]', $data->birth_day);
        $user_age  = date('Y')-$year;

        $name=view_name($data->first_name,$data->middle_name,$data->last_name,true,false,true);
        $block_content .= l( $name.' ['.$user_age.'] ',URL_MEMBER_VIEW.'/'.$data->mid) . '<br />';
      }
    }

    // check to see if there was any content before setting up the block
    if ($block_content == '') {
        // no content from a week ago, return nothing.
        return;
    }
    // set up the block
    $block['subject'] = 'Birthday today';
    $block['content'] = $block_content;
    return $block;
  }
}

/*
 * View name in formatted style
 * @ first_name
 * @ middle_name
 * @ last_name
 * @ short
 * @ return name formatted in HTML
 */
function view_name($first_name,$middle_name,$last_name,$short) {

  if ($short) {
    $tmp=split(" ", $first_name);
    $i=0;
    $first_name='';
    while ($tmp[$i]!='')
    {
       $first_name.=ucfirst($tmp[$i++][0]).'.';
    }
  }

  if ( variable_get('addressbook_name_format',1)=='1')
  {
    $name = $first_name . ' ' . $middle_name . ' ' . $last_name;
  }
  else
  {
    $name = $middle_name . ' ' . $last_name. ', ' . $first_name;
  }
  return $name;
}


/*
 * View birthday field
 * @ birthday_day
 * @ birthday_month
 * @ birthday_year
 * @ return HTML
 */
function view_birthday($birthday_day,$birthday_month,$birthday_year,$readonly) {

   global $user;

   $page.='<tr><td valign="top" width=15%>';
   $page.=t('Birth Day');
   $page.='</td><td>';

   if ( $readonly == '0' ) {
     $page.='<select name="birthday_day">';
     for ($i=1; $i<32; $i++)
     {
        $page.='<option value="'.$i.'" ';
        if ($birthday_day==$i) $page.='selected="selected" ';
        $page.='>'.$i.'</option>';
     }
     $page.='</select> ';

     $month=array("",t('January'),t('February'),t('March'),t('April'),t('May'),
       t('June'),t('July'),t('August'),t('September'),t('October'),t('November'),t('December'));

     $page.='<select name="birthday_month">';
     for ($i=1; $i<13; $i++)
     {
        $page.='<option value="'.$i.'" ';
        if ($birthday_month==$i) $page.='selected="selected" ';
        $page.='>'.$month[$i].'</option>';
     }
     $page.='</select> ';

     if ( $readonly == '0' )
     {
       $current_year=date('Y');
       $page.='<select name="birthday_year">';
       for ($i=1900; $i<=$current_year; $i++) {
         $page.='<option value="'.$i.'" ';
         if ($birthday_year==$i) $page.='selected="selected" ';
         $page.='>'.$i.'</option>';
       }
       $page.='</select> ';
     }
   }
   else {
     $birtday .= $birthday_day.'-'.$birthday_month.'-'.$birthday_year;
     $page .= '<input id="text" name="birthday" size="10" type="text" value="'.$birtday.'" READONLY />';
   }

   $page.='</td></tr>';
   return $page;
}

/*
 * View Owner field (Only administrator can change owner field)
 * @ owner
 * @ return HTML
 */
function view_owner($uid, $readonly) {

   global $user;

   $page.='<tr><td valign="top" width=15%>';
   $page.=t('Owner');
   $page.='</td><td>';

   if ( $readonly=='0' ) {
     $query  = 'SELECT uid, name FROM {users}';
     $queryResult = db_query($query);

     // Workaround Drupal first entry in users table is always empty. Skip this entry
     $tmp = db_fetch_object($queryResult);

     $page.='<select name="owner">';
     while ($tmp = db_fetch_object($queryResult)) {
        $page.='<option value="'.$tmp->uid.'" ';
        if ($tmp->uid==$uid) $page.='selected="selected" ';
        $page.='>'.$tmp->name.'</option>';
     }
     $page.='<option value="'.t('No owner').'" ';
     if ($uid==0) $page.='selected="selected" ';
     $page.='>'.t('No owner').'</option>';
     $page.='</select>';
   }
   else {
     if ($uid==0) {
       $page .= '<input id="text" name="owner" size="20" maxlength="20" type="text" value="'.t('No owner').'" READONLY />';
     } else
     {
       $query  = 'SELECT uid, name FROM {users} WHERE uid='.$uid;
       $queryResult = db_query($query);
       $tmp = db_fetch_object($queryResult);

       $page .= '<input id="text" name="owner" size="20" maxlength="20" type="text" value="'.$tmp->name.'" READONLY />';
     }
   }
   $page.='</td></tr>';
   return $page;
}

/**
 * Roles
 * This function will show all roles storing in the setting page.
 * @return HTML
 */
function view_roles($active_roles,$wanted_roles,$readonly) {

   global $user;
   $page='';

   $roles=split( ",", variable_get('addressbook_roles',''));
   if ($roles[0]=='')
   {
      // No roles defined in setting page. return directly!
      return $page;
   }

   if (($readonly=='1') && ($active_roles=='') && ($wanted_roles=='')) {
      // Nothing to show
      return $page;
   }

   if ( $readonly=='0' ) {
     $page .= '<br/>';
     $page .= '<b>'.t('Please enter the roles you currently fulfilling and please enter the roles you are interesed in now or in the near future!').'</b><br/>';
     $page .= '<br/>';
   }

   $page .= '<table border=0 width=100% cellpadding=1>';
   $page .='<tr>';
   $page .='<td valign="top" width=15%>';
   $page .=t('Active Roles').'&nbsp;';
   $page .='</td><td width=35%>';

   $first=1;
   $i=0;
   if ( $readonly=='0' ) {
     while ($roles[$i]!='') {

       if ( !strstr( $active_roles, $roles[$i] ) ) {
          $page.='<input type="checkbox" name="active_'.trim($roles[$i]).'">'.$roles[$i].'<br/>';
       }
       else {
         $page.='<input type="checkbox" name="active_'.trim($roles[$i]).'" CHECKED>'.$roles[$i].'<br/>';
       }
       $i++;
     }
   }
   else {
     while ($roles[$i]!='') {
       if ( strstr( $active_roles, $roles[$i] ) ) {
         $page.='<input type="checkbox" name="active_'.trim($roles[$i]).'" CHECKED DISABLED>'.$roles[$i];
         $page.='</input>';
         $page.='<br/>';
       }
       $i++;
     }
   }

   $page.='</td>';
   $page.='<td valign="top" width=15%>';
   $page.=t('Interesing Roles').'&nbsp;';
   $page.='</td>';
   $page.='<td width=35%>';

   $first=1;
   $i=0;
   if ( $readonly=='0' ) {
     while ($roles[$i]!='') {

       if ( !strstr( $wanted_roles, $roles[$i] ) ) {
          $page.='<input type="checkbox" name="wanted_'.trim($roles[$i]).'">'.$roles[$i].'<br/>';
       }
       else {
         $page.='<input type="checkbox" name="wanted_'.trim($roles[$i]).'" CHECKED>'.$roles[$i].'<br/>';
       }
       $i++;
     }
   }
   else {
     while ($roles[$i]!='') {
       if ( strstr( $wanted_roles, $roles[$i] ) ) {
         $page.='<input type="checkbox" name="wanted_'.trim($roles[$i]).'" CHECKED DISABLED>'.$roles[$i];
         $page.='</input>';
         $page.='<br/>';
       }
       $i++;
     }
   }

   $page.='</td>';
   $page.='</tr>';
   $page.='</table>';
   return $page;
}


/**
 * View Country
 * This function will show all available countries.
 * @return HTML
 */
function view_country($country, $readonly) {

   $page='';

   $page.='<tr><td valign="top">';
   $page.=t('Country');
   $page.='</td><td>';

   if ($readonly=='0') {
     $countries=array( 'Afghanistan','Albania', 'Algeria', 'American Samoa', 'Andorra', 'Angola', 'Anguilla',
      'Antigua and Barbuda', 'Argentina', 'Armenia',  'Ascension Island', 'Australia','Austria',
      'Azerbaijan', 'Bahamas', 'Bahrain',  'Bangladesh',   'Barbados',  'Belarus',  'Belgium',
      'Belize',  'Benin',    'Bermuda',    'Bhutan',    'Bolivia',    'Bosnia and Herzegovina',
      'Botswana',    'Brazil',    'British Indian Ocean Territory',    'Brunei Darussalam',
      'Bulgaria',    'Burkina Faso',    'Burundi',    'Camaroon',    'Cambodia',    'Cameroon',
      'Canada',    'Cape Verde',    'Cayman Islands',    'Central African Republic',    'Chad',
      'Chile',    'China',    'Colombia',    'Comoros',    'Congo',    'Cook Islands',    'Costa Rica',
      'Cote D Ivoire',    'Croatia',    'Cuba',    'Cyprus',    'Czech Republic',    'Denmark',    'Djibouti',
      'Dominica',    'Dominican Republic',    'Ecuador',    'Egypt',    'El Salvador',    'Equatorial Guinea',
      'Eritrea',    'Estonia',    'Ethiopia',    'Falkland Islands',    'Faroe Islands',    'Federated States of Micronesia',
      'Fiji',    'Finland',    'France',    'French Guiana',    'French Polynesia',    'Gabon',   'Georgia',
      'Germany',    'Ghana',    'Greece',    'Greenland',    'Grenada',    'Guadeloupe',    'Guatemala',
      'Guam',    'Guinea',    'Guinea Bissau',    'Guyana',    'Haiti',    'Honduras',    'Hungary',
      'Iceland',    'India',    'Indonesia',    'Iran',    'Ireland',    'Isle of Man',    'Israel',
      'Italy',    'Jamaica',    'Japan',    'Jordan',    'Kazakhstan',    'Kenya',    'Kiribati',    'Korea',
      'Kuwait',    'Kyrgyzstan',    'Laos',    'Latvia',    'Lebanon',    'Lesotho',    'Liberia',
      'Libya',    'Liechtenstein',    'Lithuania',    'Luxembourg',    'Macau',    'Macedonia',
      'Madagascar',    'Malawi',    'Malaysia',    'Maldives',    'Mali',    'Malta',    'Marshall Islands',
      'Martinique',    'Mauritius',    'Mayotte',    'Mexico',    'Moldova',    'Monaco',    'Mongolia',
      'Montenegro',    'Montserrat',    'Morocco',    'Mozambique',    'Myanmar',    'Namibia',
      'Nauru',    'Nepal',    'Nederland',    'Netherlands Antilles',    'New Caledonia',    'New Zealand',
      'Nicaragua',    'Niger',    'Nigeria',    'Niue',    'Norfolk Island',    'Northern Mariana Islands',
      'Norway',    'Oman',    'Pakistan',    'Palau',    'Panama',    'Papua New Guinea',    'Paraguay',
      'Peru',    'Philippines',    'Pitcairn',    'Poland',    'Portugal',    'Puerto Rico',    'Qatar',
      'Reunion',    'Romania',    'Russian Federation',    'Rwanda',    'Saint Vincent and the Grenadines',
      'San Marino',    'Sao Tome and Principe',    'Saudi Arabia',    'Senegal',    'Serbia',    'Seychelles',
      'Sierra Leone',    'Singapore',    'Slovakia',    'Slovenia',    'Solomon Islands',    'Somalia',
      'South Africa',    'South Georgia',    'Spain',    'Sri Lanka',    'St. Kitts and Nevis',    'St. Lucia',
      'St. Pierre and Miquelon',    'Sudan',    'Suriname',    'Swaziland',    'Sweden',
      'Switzerland',    'Syrian Arab Republic',    'Taiwan',    'Tajikistan',    'Tanzania',
      'Thailand',    'The Gambia',    'Togo',    'Tokelau',    'Tonga',    'Trinidad and Tobago',
      'Tunisia',    'Turkey',    'Turkmenistan',    'Turks and Caicos Islands',    'Tuvalu',
      'Uganda',    'Ukraine',    'United Arab Emirates',    'United Kingdom',    'United States',
      'Uruguay',    'Uzbekistan',    'Vanuatu',    'Venezuela',    'Viet Nam',    'Virgin Islands',
      'Western Samoa',    'Yemen',    'Yugoslavia',    'Zaire',    'Zambia',    'Zimbabwe');

      $page .='<select name="country">';
      for ($i=1; $i<213; $i++) {
         $page.='<option value="'.$countries[$i].'" ';
         if ($country==$countries[$i]) $page.='selected="selected" ';
         $page.='>'.$countries[$i].'</option>';
      }
      $page.='</select> ';
   }
   else {
     $page .= '<input id="text" name="contry" size="50" maxlength="50" type="text" value="'.$country.'" READONLY />';
   }
   $page.='</td>';
   $page.='</tr>';
   return $page;
}

/*
 * Function fill table line
 * @return HTML
 */
function view_line($first,$second) {

   $page .= "<tr><td valign='top' width=15%>".$first."</td><td>".$second."</td></tr>\r\n";
   return $page;
}

/*
 * Function valid email address
 * @return true or false
 */
function check_mail($adres) {

   return ! ereg("[A-Za-z0-9_-]+([\.]{1}[A-Za-z0-9_-]+)*@[A-Za-z0-9-]+([\.]{1}[A-Za-z0-9-]+)+",$adres);
}

/*
 * Function valid number input
 * @returns true if valid number (only numeric string), false if not
 */
function check_number($str) {

  if (ereg('^[[:digit:]]+$', $str))
    return true;
  else
    return false;
}

/*
 * Function check user access
 * @returns true if access is allowed else false 
 */
function check_access($uid) {

  global $user;
  if ( ( (  ($user->uid==$uid) || 
            ($uid==0) ||  
            (variable_get('addressbook_wiki_edit_mode',0)==1)
         ) 
         && user_access('add address')
        ) 
        || user_access('access administration pages') 
     ) 
  {
    return true;
  }
  else
  {
    return false;
  }
}

/*
 * Function valid alfanumeric imput
 * @returns true if valid number (only alfanumeric string), false if not
 */
function hacker_warning() {

  //watchdog('user', 'Addressbook hacking attempt');
  $page .= '<br/>';
  $page .= '<h1>'.t('System Warning').'</h1>';
  $page .= t('Input is not valid! Please do not modify the URL manually').'<br/>';
  $page .= t('This hacking attemp is recorded!').'<br/>';
  $page .= '<br/>';
  $page .= '<form action="'.url(URL_FAMILY_LIST.'/'.$_SESSION["sort"]).'" method="POST">';
  $page .= '<input type="submit" value="'.t('Return').'" />';
  $page .= '</form>';
  $page .= '</div>';
  print theme("page", $page);
}

/*
 * insert family SQL function
 * @return true of false
 */
function insert_family($middle_name, $last_name, $street, $zipcode, $city, $country, $telephone, $owner) {

  $query  = 'INSERT INTO addressbook_family (middle_name, last_name, street, zipcode, city, ';
  $query .= 'country, telephone, uid, last_updated) VALUES (';
  $query .= '"'.$middle_name.'",';
  $query .= '"'.$last_name.'",';
  $query .= '"'.$street.'",';
  $query .= '"'.$zipcode.'",';
  $query .= '"'.$city.'",';
  $query .= '"'.$country.'",';
  $query .= '"'.$telephone.'",';
  $query .= '"'.$owner.'",';
  $query .= 'SYSDATE() )';

  $result = db_query($query);
  if ($result==1) {
    // Query succesfull
    watchdog('user', 'A family is created in the addressbook');
    return true;
  }
  else {
    // Query failed
     return false;
  }
}

/*
 * update family SQL function
 * @return true of false
 */
function update_family( $middle_name, $last_name, $street, $zipcode, $city, $country, $telephone, $owner, $fid) {

  $query = 'UPDATE addressbook_family SET ';
  $query .= 'middle_name = "'.$middle_name.'",';
  $query .= 'last_name = "'.$last_name.'",';
  $query .= 'street = "'.$street.'",';
  $query .= 'zipcode = "'.$zipcode.'",';
  $query .= 'city = "'.$city.'",';
  $query .= 'country = "'.$country.'",';
  $query .= 'telephone = "'.$telephone.'",';
  $query .= 'uid = "'.$owner.'",';
  $query .= 'last_updated = SYSDATE() ';
  $query .= 'WHERE fid='.$fid;

  $result = db_query($query);
  if ($result==1) {
    // Query succesfull
    watchdog('user', 'Family '.$fid.' is updated in addressbook');
    return true;
  }
  else {
    // Query failed
    return false;
  }
}

/*
 * insert member SQL function
 * @return true of false
 */
function insert_member( $first_name, $middle_name, $last_name, $birth_day, $mobile, $email, $notes, $work, $active_roles, $wanted_roles, $fid, $owner ) {

  $query  = 'INSERT INTO addressbook_member (first_name, middle_name, last_name, ';
  $query .= 'birth_day, mobile, email, notes, work, active_roles, wanted_roles, uid, fid, last_updated) VALUES (';
  $query .= '"'.$first_name.'",';
  $query .= '"'.$middle_name.'",';
  $query .= '"'.$last_name.'",';
  $query .= '"'.$birth_day.'",';
  $query .= '"'.$mobile.'",';
  $query .= '"'.$email.'",';
  $query .= '"'.$notes.'",';
  $query .= '"'.$work.'",';
  $query .= '"'.$active_roles.'",';
  $query .= '"'.$wanted_roles.'",';
  $query .= '"'.$owner.'",';
  $query .= '"'.$fid.'",';
  $query .= 'SYSDATE() )';

  $result = db_query($query);
  if ($result==1) {
    // Query succesfull
    watchdog('user', 'A member is created in the addressbook');
    return true;
  }
  else {
    // Query failed
    return false;
  }
}


/*
 * update member SQl function
 * @return true of false
 */
function update_member($first_name, $middle_name, $last_name, $birth_day, $mobile, $email, $notes, $work, $active_roles, $wanted_roles, $owner, $fid, $mid) {

  $query = 'UPDATE addressbook_member SET ';
  $query .= 'first_name = "'.$first_name.'",';
  $query .= 'middle_name = "'.$middle_name.'",';
  $query .= 'last_name = "'.$last_name.'",';
  $query .= 'birth_day = "'.$birth_day.'",';
  $query .= 'mobile = "'.$mobile.'",';
  $query .= 'email = "'.$email.'",';
  $query .= 'notes = "'.$notes.'",';
  $query .= 'work = "'.$work.'",';
  $query .= 'uid = "'.$owner.'",';
  $query .= 'fid = "'.$fid.'",';
  $query .= 'active_roles = "'.$active_roles.'",';
  $query .= 'wanted_roles = "'.$wanted_roles.'",';
  $query .= 'uid = "'.$owner.'",';
  $query .= 'last_updated = SYSDATE() WHERE mid='.$mid;

  $result = db_query($query);
  if ($result==1) {
    // Query succesfull
    watchdog('user', 'Member '.$mid.' is updated in addressbook');
    return true;
  }
  else {
    // Query failed
    return false;
  }
}

/*
 * Function shows all family in a list form
 * @return HTML
 */
function family_list( $sort='', $search='') {

  global $user;
  $page = '<div class="addressbook">';

  drupal_set_title(t('Addressbook family list'));

  // Validate HTTP URL parameter
  if ( strlen($sort)>1 )
  {
     return hacker_warning();
  }

  // Get search value out session scope
  $search=$_SESSION["search"];

  // Set sort value in session scope
  $_SESSION["sort"]=$sort;

  // Set list in session scope
  $_SESSION["list"]='family';

  $page .= '<br/>';
  $page .= '<table border=0 >';
  $page .= '<tr>';

  $page .= '<td >';
  $page .= '<form action="'.url(URL_SEARCH).'" method="POST">';
  $page .= '<input id="text" name="search" size="65" maxlength="65" type="text" value="'.$search.'" ';
  //$page .= '</td>';
  //$page .= '<td ALIGN="left">';
  $page .= '<input type="submit" value="'.t('Search').'" />';
  $page .= '</form>';
  $page .= '</td>';

  $page .= '<td ALIGN="right">';
  $page .= '<form action="'.url(URL_MEMBER_LIST.'/'.$_SESSION["sort"]).'" method="POST">';
  $page .= '<input type="submit" value="'.t('Go to family member list').'" />';
  $page .= '</form>';
  $page .= '</td></tr>';
  //$page .= '</table>';

  // Show sort bar (if enable in settings)
  //$page .= '<br/>';

  //$page .= '<table border=0 >';
  $page .= '<tr>';
  if ( variable_get('addressbook_show_sort_bar',1)=='1') {
    $page .= '<td ALIGN="left">';
    $sort_bar=array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P",
     "Q","R","S","T","U","V","W","X","Y","Z");
    if ($sort=='') $page .= '<B>';
    $page .= '<a href="'.url(URL_FAMILY_LIST).'">'.t('ALL').'</a>|';
    if ($sort=='') $page .= '</B>';
    for ($i=0; $i<26; $i++)
    {
       if ($sort==$sort_bar[$i]) $page .= '<B>';
       $page .= '<a href="'.url(URL_FAMILY_LIST.'/'.$sort_bar[$i]).'">'.$sort_bar[$i].'</a>|';
       if ($sort==$sort_bar[$i]) $page .= '</B>';
    }
    $page .= '</td>';
  }


  if ( user_access('add address')) 
  {
    $page .= '<td ALIGN="right">';
    $page .= '<form action="'.url(URL_FAMILY_EDIT.'/0').'" method="POST">';
    $page .= '<input type="submit" value="'.t('New Family').'" />';
    $page .= '</form>';
    $page .= '</td>';
  }
  $page .= '</tr>';
  $page .= '</table>';

  // Query Database
  $query  = 'SELECT fid, middle_name, last_name, street, zipcode, city, uid ';
  $query .= 'FROM {addressbook_family} WHERE LAST_NAME LIKE "'.$sort.'%" ';
  $query .= 'ORDER BY LAST_NAME, MIDDLE_NAME';
  $queryResult = db_query($query);

  //$page .= '<br/>';
  $page .= '<table width=100% border="1" cellpadding="3" cellspacing="3">';

  // Show Banner
  $page .= '<tr><td>';
  if ( variable_get('addressbook_show_thumbnails',0)==1) {
      $page .= '<b>'.t('Picture').'<b>';
      $page .= '</td><td>';
  }

  $page .= '<b>'.t('Name').'</b>';
  $page .= '</td><td>';
  $page .= '<b>'.t('Street').'</b>';
  $page .= '</td><td>';
  $page .= '<b>'.t('Zipcode').'</b>';
  $page .= '</td><td>';
  $page .= '<b>'.t('City').'</b>';
  $page .= '</td></tr>';

  // Show all found address
  $page_tmp='';
  while ($data = db_fetch_object($queryResult))
  {

  $page_tmp .= '<tr><td width=60>';

   if ( variable_get('addressbook_show_thumbnails',0)==1) {

      // Query sort found pictures on birtday
      $query2 = 'SELECT picture FROM {addressbook_picture} WHERE fid="'.$data->fid.'" AND mid="0"';
      $queryResult2 = db_query($query2);
      if ($tmp = db_fetch_object($queryResult2)) {
        // Show first picture with is found
        $page_tmp .= '<a href="'.url(URL_FAMILY_VIEW.'/'.$data->fid).'">';
        $filename=url(THUMBNAILS_DIR.'/'.$tmp->picture);
        $filename=str_replace(array("?q="), "", $filename);
        $page_tmp .='<img src="'.$filename.'" width=60 height=50/></a>';
      }
     $page_tmp .= '</td><td>';
    }


    // Format Name
    if ( variable_get('addressbook_name_format',1)=='1')
    {
       $name = $data->middle_name.' '.$data->last_name;
    }
    else
    {
       $name = $data->last_name.', '.$data->middle_name;
    }
    $page_tmp .= l($name, URL_FAMILY_VIEW.'/'.$data->fid);

    $page_tmp .= '</td><td>';
    $page_tmp .= $data->street;
    $page_tmp .= '</td><td>';
    $page_tmp .= $data->zipcode;
    $page_tmp .= '</td><td>';
    $page_tmp .= $data->city;
    $page_tmp .= '</td></tr>';
  }

  if ( $page_tmp!='') {
     // Show Content
     $page .= $page_tmp;
  }
  else {
    // No content found
    $page .= '<tr><td>';
    $page .= t('No records found');
    $page .= '</td><td>';
    $page .= '</td><td>';
    $page .= '</td><td>';
    $page .= '</td></tr>';
  }
  $page .= '</table>';

   // Only administrators can access the csv upload functionality
  if (user_access('access administration pages')) {
     //$page .= '<br/>';
     $page .= '<table border="0" width="100%">';
     $page .= '<tr>';
     $page .= '<td ALIGN="left">';
     $page .= '<form action="'.url(URL_UPLOAD_CSV).'" method="POST">';
     $page .= '<input type="submit" value="'.t('Upload CSV file').'" />';
     $page .= '</form>';
     $page .= '</td>';

     $page .= '<td ALIGN="right">';
     $page .= '<form action="'.url(URL_DOWNLOAD_CSV).'" method="POST">';
     $page .= '<input type="submit" value="'.t('Download CSV file').'" />';
     $page .= '</form>';
     $page .= '</td>';
     $page .= '</tr>';
     $page .= '</table>';
  }
  $page .= '</div>';

  print theme("page", $page);
}

/**
 * Render a page showing the selected family in detail
 * @return HTML
 */
function family_view2( $fid=0 )  {

  global $user;
  $page = '<div class="addressbook">';

  drupal_set_title(t('Addressbook family view') );

  // Validate HTTP URL parameter
  if ( !check_number($fid) )
  {
     return hacker_warning();
  }

  // Save fid in session scope
  $_SESSION["fid"]=$fid;

  // Clear mid in session scope
  $_SESSION["mid"]=0;

  // Debugging value
  $border=0;

  $query  = 'SELECT fid, middle_name, last_name, street, zipcode, city, country, telephone, uid ';
  $query .= 'FROM {addressbook_family} WHERE FID='.$fid;
  $queryResult = db_query($query);
  $tmp = db_fetch_object($queryResult);

  // If no data is found. Show anti hacking message
  if ($tmp==null) {
    return hacker_warning();
  }