#!/usr/bin/perl

use Data::Dumper;
use Unicode::String qw (utf8 latin1);

require '/usr/share/webmin/web-lib.pl';
require "ldap-users.pl";
use vars qw(%text %config %in $tb $cb);

sub ldap_get_gidNumber($$){
    ($gid, $basedn) = @_;

    $mesg = $ldap->search (base   => "ou=Group,$basedn",
			      filter => "cn=$gid",
			      attrs  => "gidNumber"
			      );
    return "(not in ldap)" if (! $mesg->count());
    $entry = $mesg->entry(0);
    return $entry->get_value('gidNumber');
}

sub ldap_search_gidNum($){
($gidNumber) = @_;
    $mesg = $ldap->search (base   => "ou=People,$basedn",
			      filter => "gidNumber=$gidNumber"
                              );
    return $mesg->all_entries();

}
sub ldap_search_cn($){
($cn) = @_;
    $mesg = $ldap->search (base   => "ou=People,$basedn",
			      filter => "cn=$cn"
                              );
    return $mesg->all_entries();

}

sub ldap_search($$){
($gidNumber, $cn) = @_;
    if($gidNumber && $cn){
      print "begge";
}
    if("$gidNumber" eq ""){
print $cn ;
}
if("$cn" eq ""){
print "gruppe";

}
}
sub make_search($$$){
($kull, $firstname, $lastname) = @_;
  if("$kull" ne ""){
  }
}
    

@scriptdirs = qw(/etc/webmin/ldap-users /usr/share/webmin/ldap-users .);
&init_config();
&header( $text{'title1'} ,"", undef, 1);
&ReadParse();
&ldap_connect($config{'server'}, $config{'rootdn'});
print %in;

@groups = &ldap_get_groups($config{'basedn'});
$c = $in{'counter'};
$c++;
$i=1;

print <<EOF;
<form method=POST action="admin.cgi">


<Br>
<br>
<table border="1">
<tr bgcolor=#9999ff>
  <td>Kull</td>
  <td>Type</td>
  <td>Fornavn</td>
  <td>Etternavn</td>
</tr>

<tr bgcolor=#cccccc>
  <td><select name=kull>
  <option value="">--</option>
EOF
foreach $entry (@groups){
print "<option value=" . $entry->get_value('cn') . ">" . $entry->get_value('cn') .  "</option>";
}
print "</select>";
print "</td>";

print <<EOF;
  </td>
  <td><select name="rolle">
    <option value="">--
    <option value="Lærer">Lærer
    <option value="Elev">Elev
    <option value="Admin">Admin
</select></td>
  <td><input type="text" name="firstname" value=""></td>
  <td><input type="text" name="surname" value=""></td>
</tr>
<tr bgcolor=#cccccc>
  <td><input type="submit" value="Søk" name="Søk"></td>
  <td><input type="reset"></td>
  <td>RootPassword:</td>
  <td><input type="text" name="rootpw"></td>
</tr>
<input type="hidden" name="counter" value=$c>
</table>
</form>
<BR>
<BR>
<BR>
<hr>
<h1>Brukere..<h1>

EOF



if("$in{'Søk'}" ne ""){
print "<form method=POST action=admin.cgi><table border=\"1\">";
print "<tr><td>navn</td><td>brukernavn</td><td>Rolle</td><td>Slett</td><td>utfør</td></tr>"; 
if("$in{'kull'}" ne ""){
 $cn = ("*" . $in{'surname'}  . "*" . $in{'firstname'} . "*");
 $gidNumber = &ldap_get_gidNumber($in{"kull"}, $config{'basedn'});
 @users = &ldap_search_gidNum($gidNumber, $cn);
 &ldap_search($gidNumber, $cn);

  foreach $entry (@users){
    print "<tr><td>" . $entry->get_value('cn') . "</td>" ;
    print "<td>" . $entry->get_value('uid') . "<input type=hidden name=uid$i value=" . $entry->get_value('uid') . "></td>" ;
    print "<td>" . $entry->get_value('description') . "<input type=hidden name=uid$i value=" . $entry->get_value('description') . "></td>" ;
    print "<td align=center><input type=checkbox name=deleteUser$i></td>" ;
    print "<td><input type=submit value=Send></td></tr>" ;
  $i++;
  $c++;
  }
print "</table>";

}
if("$in{'surname'}" ne ""){
  @users = &ldap_search_cn($cn);
  foreach $entry (@users){
    print "<tr><td>" . $entry->get_value('cn') . "</td>" ;
    print "<td>" . $entry->get_value('uid') . "<input type=hidden name=uid$i value=" . $entry->get_value('uid') . "></td>" ;
   print "<td align=center><input type=checkbox name=deleteUser$i></td>" ;
  print "<td><input type=submit value=Send></td></tr>";
  $i++;
  $c++;
  }

print "</table>";
}
}
i=1;
for$i(1..$c){
if($in{"deleteUser$i"}){
print "jaaa";
}
}
print <<EOF;
<br>
<hr>
<br>
<br>
<a href="leggtilbeta.cgi">Reset</a>
EOF