source: companies/serpro/scripts-listas/excluiUsuarioLista.php @ 903

Revision 903, 1.2 KB checked in by niltonneto, 15 years ago (diff)

Importacao inicial do Expresso do Serpro

Line 
1#!/usr/bin/php
2
3
4<?php
5
6require('config.php');
7require('functions.php');
8
9function incluiLista($server,$port,$rootdn,$pass,$baseGravacao,$lista,$email){
10        $connect=ldap_connect($server,$port);
11        ldap_set_option($connect, LDAP_OPT_PROTOCOL_VERSION, 3);
12        ldap_bind($connect, $rootdn, $pass);
13#       echo "Base de gravacao -> $baseGravacao\n";
14        echo "Email -> $email\n";
15        $filter="(uid=$lista)";
16        $justthese = array("uid","mail");
17        $sr = @ldap_search($connect, $baseGravacao, $filter, $justthese);
18        $info = ldap_get_entries($connect, $sr);
19        $uid = $info[0]['uid'][0];
20        $dn = "uid=".$uid.","."$baseGravacao";
21        $cont = $info['count'];
22#       echo "Registros -> $cont\n";
23        echo "Lista -> $uid\n";
24        echo "DN -> $dn\n";
25
26        if ($cont == 0){
27                echo "Esta lista nao existe\n";
28                $teste = 1;
29        }else{
30                 $infoadd["mailforwardingaddress"] = "$email";         
31#                print_r($infoadd);
32                 @ldap_mod_del($connect, $dn, $infoadd);
33                 $teste = 0;
34        }
35        return $teste;
36}
37
38if ($argv[1] == ""){
39        echo "Favor passar lista e email\n";
40}else{
41        $lista = $argv[1];
42        $email = $argv[2];
43        $teste = incluiLista($server,$port,$rootdn,$pass,$baseGravacao,$lista,$email);
44        if ($teste == 0){
45                echo "usuario excluido da lista\n";
46        }else{
47                echo "usuario nao excluido da lista\n";
48        }
49}
50
51
52?>
Note: See TracBrowser for help on using the repository browser.