git.sur5r.net Git - contagged/blob - index.php

   1 <?php
   2
   3   require_once('inc/init.php');
   4   ldap_login();
   5
   6   // select entry template
   7   if(!empty($_REQUEST['export']) && $_REQUEST['export'] == 'csv'){
   8     $entrytpl = 'list_csv_entry.tpl';
   9   }elseif(!empty($_REQUEST['export']) && $_REQUEST['export'] == 'map'){
  10     $entrytpl = 'list_map_entry.tpl';
  11   }else{
  12     $entrytpl = 'list_entry.tpl';
  13   }
  14
  15   // check which fields are needed
  16   $fields = get_fields_from_template($entrytpl);
  17
  18
  19   //prepare filter
  20   $ldapfilter = _makeldapfilter();
  21
  22   // fetch results
  23   $result = ldap_queryabooks($ldapfilter,$fields);
  24
  25   $list = '';
  26   if(count($result)==1 && $_REQUEST['search']){
  27     //only one result on a search -> display page
  28     header("Location: entry.php?dn=".rawurlencode($result[0]['dn']));
  29     exit;
  30   }elseif(count($result)){
  31     $keys = array_keys($result);
  32     uksort($keys,"_namesort");
  33     foreach($keys as $key){
  34       tpl_entry($result[$key]);
  35       $list .= $smarty->fetch($entrytpl);
  36     }
  37   }
  38
  39   //prepare templates
  40   tpl_std();
  41   if (empty($_REQUEST['filter'])) $_REQUEST['filter']='';
  42   if (empty($_REQUEST['marker'])) $_REQUEST['marker']='';
  43   if (empty($_REQUEST['search'])) $_REQUEST['search']='';
  44   $smarty->assign('list',$list);
  45   $smarty->assign('filter',$_REQUEST['filter']);
  46   $smarty->assign('marker',$_REQUEST['marker']);
  47   $smarty->assign('search',$_REQUEST['search']);
  48   $smarty->assign('org',$_REQUEST['org']);
  49   //display templates
  50   if(!empty($_REQUEST['export'])){
  51     if ($conf['userlogreq'] && $user == ''){
  52       header("HTTP/1.1 401 Access Denied");
  53       echo '<h1>Access Denied</h1>';
  54       exit();
  55     }
  56
  57     if($_REQUEST['export'] == 'csv'){
  58       header("Content-Type: text/csv");
  59       header('Content-Disposition: Attachement; filename="contagged_export.csv"');
  60       $smarty->display('list_csv.tpl');
  61       exit;
  62     }elseif($_REQUEST['export'] == 'map'){
  63       header('Content-Type: text/html; charset=utf-8');
  64       $smarty->display('list_map.tpl');
  65       exit;
  66     }
  67   }else{
  68     //save location in session
  69     $_SESSION['ldapab']['lastlocation']=$_SERVER["REQUEST_URI"];
  70
  71     header('Content-Type: text/html; charset=utf-8');
  72     $smarty->display('list.tpl');
  73   }
  74
  75   //------- functions -----------//
  76
  77   /**
  78    * callback function to sort entries by name
  79    * uses global $result
  80    */
  81   function _namesort($a,$b){
  82     global $result;
  83     global $FIELDS;
  84     if (empty($result[$a][$FIELDS['givenname']])) { $result[$a][$FIELDS['givenname']]=''; }
  85     if (empty($result[$b][$FIELDS['givenname']])) { $result[$b][$FIELDS['givenname']]=''; }
  86     $x = $result[$a][$FIELDS['name']][0].$result[$a][$FIELDS['givenname']][0];
  87     $y = $result[$b][$FIELDS['name']][0].$result[$b][$FIELDS['givenname']][0];
  88     return(strcasecmp($x,$y));
  89   }
  90
  91
  92   /**
  93    * Creates an LDAP filter from given request variables search or filter
  94    */
  95   function _makeldapfilter(){
  96     global $FIELDS;
  97     global $conf;
  98
  99     //handle given filter
 100
 101     if (empty($_REQUEST['filter'])) { $_REQUEST['filter']=''; }
 102     if (empty($_REQUEST['search'])) { $_REQUEST['search']=''; }
 103     if (empty($_REQUEST['org'])) { $_REQUEST['org']=''; }
 104     if (empty($_REQUEST['marker'])) { $_REQUEST['marker']=''; }
 105     if(is_numeric($_REQUEST['search'])) $number = $_REQUEST['search'];
 106     $filter = ldap_filterescape($_REQUEST['filter']);
 107     $search = ldap_filterescape($_REQUEST['search']);
 108     $org    = ldap_filterescape($_REQUEST['org']);
 109     $marker = ldap_filterescape($_REQUEST['marker']);
 110     $_SESSION['ldapab']['filter'] = $_REQUEST['filter'];
 111     if(empty($filter)) $filter='a';
 112
 113     if(!empty($marker)){
 114       // Search by tag
 115       $ldapfilter = '(&(objectClass=contactPerson)';
 116       $marker = explode(',',$marker);
 117       foreach($marker as $m){
 118         $m = trim($m);
 119         $ldapfilter .= '('.$FIELDS['_marker'].'='.$m.')';
 120       }
 121       $ldapfilter .= ')';
 122     }elseif($number){
 123       // Search by telephone number
 124       $filter = '';
 125       // add wildcards between digits to compensate for any formatting
 126       $length = strlen($number);
 127       for($i=0; $i <$length; $i++){
 128         $filter .= '*'.$number{$i};
 129       }
 130       $filter .= '*';
 131       $ldapfilter = '(&'.
 132                         '(objectClass=inetOrgPerson)'.
 133                         '(|'.
 134                             '(|'.
 135                                 '('.$FIELDS['phone'].'='.$filter.')'.
 136                                 '('.$FIELDS['homephone'].'='.$filter.')'.
 137                             ')'.
 138                             '('.$FIELDS['mobile'].'='.$filter.')'.
 139                         ')'.
 140                     ')';
 141     }elseif(!empty($search)){
 142       // Search name and organization
 143       $search = trim($search);
 144       $words=preg_split('/\s+/',$search);
 145       $filter='';
 146       foreach($words as $word){
 147         $wordfilter='';
 148         foreach($conf['searchfields'] as $field) {
 149           $wordfilter .= '('.$field.'=*'.$word.'*)';
 150         }
 151         for($i=0; $i <count($conf['searchfields']); $i++){
 152           $wordfilter = '(|'.$wordfilter.')';
 153         }
 154         $filter .= '(&'.$wordfilter.')';
 155       }
 156       $ldapfilter = "(&(objectClass=inetOrgPerson)$filter)";
 157     }elseif(!empty($org)){
 158       // List organization members
 159       $ldapfilter = '(&(objectClass=inetOrgPerson)('.$FIELDS['organization']."=$org))";
 160     }elseif($filter=='other'){
 161       // Alphabetic listing of last names
 162       $other='';
 163       for ($i=ord('a');$i<=ord('z');$i++){
 164         $other .= '(!('.$FIELDS['name'].'='.chr($i).'*))';
 165       }
 166       $ldapfilter = "(&(objectClass=inetOrgPerson)$other)";
 167     }elseif($filter=='\2a'){ //escaped asterisk
 168       // List all
 169       $ldapfilter = "(objectClass=inetOrgPerson)";
 170     }else{
 171       // Search by last name start
 172       $ldapfilter = '(&(objectClass=inetOrgPerson)('.$FIELDS['name']."=$filter*))";
 173     }
 174     return $ldapfilter;
 175   }
 176 ?>