One Hat Cyber Team

Your IP : 216.73.216.216

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

View File Name : update_imath_group

#!/usr/bin/perl

use strict;
use Net::LDAP;

my $groupdn = 'cn=imath,ou=group,dc=imath,dc=kiev,dc=ua';
my $ldap = Net::LDAP->new("192.168.1.4") or die "$@";

my $mesg = $ldap->bind( "uid=lamadmin,ou=people,dc=imath,dc=kiev,dc=ua",
        password => "l1nux4ever",
        version => 3 );

my $base = "dc=imath,dc=kiev,dc=ua";
my $attrs = [ 'uid','cn','mail','memberof' ];
my $searchString = 'objectclass=posixaccount';
my $result = $ldap->search ( base    => "$base",
                               scope   => "sub",
                               filter  => "$searchString",
                               attrs   =>  $attrs
                             );

my @entries = $result->entries;
 
my $entr;
foreach $entr ( @entries ) {
#  print "DN: ", $entr->dn, "\n";
  my $dn = $entr->dn;
  my $uid = $entr->get_value('uid');
  my $mail ="";
  my @add = ();
  my @mod = ();
  if (!defined($entr->get_value('mail'))){
      $mail = $uid . '@imath.kiev.ua';
#      print "adding mail address: $mail to $dn\n";
      @add=();
      @mod=();
      push @add, "mail", $mail; 
      push @mod, "add", \@add;
      #print "$mod[0], $mod[1][0], $mod[1][1].\n";
      $ldap->modify ($dn, changes => [@mod]);
  }
  if (!($entr->get_value('memberof') eq $groupdn )){
#      print "adding user $uid to $groupdn\n";
      @add=();
      @mod=();
      push @add, "member", $dn; 
      push @mod, "add", \@add;
      # print "$mod[0], $mod[1][0], $mod[1][1].\n";
      $ldap->modify ($groupdn, changes => [@mod]);
  } 
#  print "#-------------------------------\n";
}

$ldap->unbind;