CVS: ispman/lib/ISPMan UserMan.pm,1.32,1.32.2.1

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs1:/tmp/cvs-serv26976/lib/ISPMan

Modified Files:
      Tag: ALTVHOSTS
	UserMan.pm 
Log Message:
Now updating users work as well. We should modify UserMan sometime in the future to handle all attributes better.


Index: UserMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/UserMan.pm,v
retrieving revision 1.32
retrieving revision 1.32.2.1
diff -C2 -r1.32 -r1.32.2.1
*** UserMan.pm	20 May 2003 19:22:54 -0000	1.32
--- UserMan.pm	6 Oct 2003 09:15:10 -0000	1.32.2.1
***************
*** 201,204 ****
--- 201,206 ----
     my $dn=$r->param("dn");
     $self->{'user'}=$self->getEntryAsHashRef($r->param("dn"));
+    use Data::Dumper;
+    print Dumper ( $self->{'user'});
     my $template;
     if ($self->isDomainEditable($r->param("ispmanDomain"))) {
***************
*** 284,291 ****
     
     my $data={};
!    for (qw(sn givenName mailLocalAddress mailRoutingAddress FTPStatus FTPQuotaMBytes)) {
        $data->{$_}=$r->param($_) if defined $r->param($_);
     }
     
     $data->{'userPassword'}=$self->encryptPassWithMethod($r->param("userPassword"),$self->getConf('userPassHashMethod'));
     $data->{'cn'}=join ' ', ($r->param("givenName"), $r->param("sn"));
--- 286,294 ----
     
     my $data={};
!    for (qw(sn givenName mailLocalAddress mailRoutingAddress FTPStatus FTPQuotaMBytes MidgardGUID )) {
        $data->{$_}=$r->param($_) if defined $r->param($_);
     }
     
+    
     $data->{'userPassword'}=$self->encryptPassWithMethod($r->param("userPassword"),$self->getConf('userPassHashMethod'));
     $data->{'cn'}=join ' ', ($r->param("givenName"), $r->param("sn"));
***************
*** 294,298 ****
     $data->{'mailForwardingAddress'}= $self->as_arrayref(split(/\s+/, $r->param("mailForwardingAddress")));
  
!    $data->{'objectClass'}=$self->{'Config'}{'ispmanUserObjectclasses'};
  
     my $userInfo=$self->getUserInfo($r->param("uid"));
--- 297,301 ----
     $data->{'mailForwardingAddress'}= $self->as_arrayref(split(/\s+/, $r->param("mailForwardingAddress")));
  
! $data->{'objectClass'}=$self->{'Config'}{'ispmanUserObjectclasses'};
  
     my $userInfo=$self->getUserInfo($r->param("uid"));



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf