ispman/lib/ISPMan/UserMan WebUsers.pm,1.1,1.2

Update of /cvsroot/ispman/ispman/lib/ISPMan/UserMan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30799/lib/ISPMan/UserMan

Modified Files:
	WebUsers.pm 
Log Message:
code reformatting by perltidy conforming perl style guide


Index: WebUsers.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/UserMan/WebUsers.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- WebUsers.pm	31 May 2002 04:19:28 -0000	1.1
+++ WebUsers.pm	30 May 2004 23:35:38 -0000	1.2
@@ -3,150 +3,156 @@
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $Config);
 
-
 require Exporter;
--dfGzR35o/[email protected] = qw(ISPMan Exporter AutoLoader);
+-dfGzR35o/[email protected]    = qw(ISPMan Exporter AutoLoader);
 @EXPORT = qw(
-getWebusersBranchDN
-getWebuserDN
-getWebusers
-getWebuserInfo
-
+  getWebusersBranchDN
+  getWebuserDN
+  getWebusers
+  getWebuserInfo
 
-editWebUser
-updateWebUser
-addWebUser
-deleteWebUser
+  editWebUser
+  updateWebUser
+  addWebUser
+  deleteWebUser
 
-add_webuser
+  add_webuser
 
-update_webuser
+  update_webuser
 
-delete_webuser
+  delete_webuser
 );
 $VERSION = '0.01';
 
-
-
-
-
 sub editWebUser {
-   my $self=shift;
-   my $r=shift;
-   $self->{'webuser'}=$self->getWebuserInfo($r->param("ispmanDomain"), $r->param("ispmanUserId"));
-   my $template=$self->getTemplate("webusers/edit.tmpl");
-   print $template->fill_in(PACKAGE => "ISPMan");
+    my $self = shift;
+    my $r    = shift;
+    $self->{'webuser'} = $self->getWebuserInfo( $r->param("ispmanDomain"),
+        $r->param("ispmanUserId") );
+    my $template = $self->getTemplate("webusers/edit.tmpl");
+    print $template->fill_in( PACKAGE => "ISPMan" );
 }
 
 sub updateWebUser {
-   my $self=shift;
-   my $r=shift;
-   $self->update_webuser($r->param("ispmanDomain"), $r->param("ispmanUserId"), $r->param("userPassword"));
-   $self->editWebUser($r);
+    my $self = shift;
+    my $r    = shift;
+    $self->update_webuser(
+        $r->param("ispmanDomain"),
+        $r->param("ispmanUserId"),
+        $r->param("userPassword")
+    );
+    $self->editWebUser($r);
 }
 
 sub deleteWebUser {
-   my $self=shift;
-   my $r=shift;
-   $self->delete_webuser($r->param("ispmanDomain"), $r->param("ispmanUserId"));
-   print "Webuser ", $r->param("ispmanUserId"), " for domain ", $r->param("ispmanDomain"), " deleted<br>";
-   print $self->refreshSignal($r->param("ispmanDomain"));
+    my $self = shift;
+    my $r    = shift;
+    $self->delete_webuser( $r->param("ispmanDomain"),
+        $r->param("ispmanUserId") );
+    print "Webuser ", $r->param("ispmanUserId"), " for domain ",
+      $r->param("ispmanDomain"), " deleted<br>";
+    print $self->refreshSignal( $r->param("ispmanDomain") );
 }
 
 sub addWebUser {
-   my $self=shift;
-   my $r=shift;
-   $self->add_webuser($r->param("ispmanDomain"), $r->param("ispmanUserId"), $r->param("userPassword"));
-   print $self->refreshSignal($r->param("ispmanDomain"));
-   $self->editWebUser($r);
+    my $self = shift;
+    my $r    = shift;
+    $self->add_webuser(
+        $r->param("ispmanDomain"),
+        $r->param("ispmanUserId"),
+        $r->param("userPassword")
+    );
+    print $self->refreshSignal( $r->param("ispmanDomain") );
+    $self->editWebUser($r);
 }
 
-
 sub getWebusersBranchDN {
-   my $self=shift;
-   my ($domain)=@_;
-   return join ",", ("ou=httpusers" , $self->getDomainDN($domain));
+    my $self = shift;
+    my ($domain) = @_;
+    return join ",", ( "ou=httpusers", $self->getDomainDN($domain) );
 }
 
 sub getWebuserDN {
-    my $self=shift;
-    my ($domain, $user)=@_;
+    my $self = shift;
+    my ( $domain, $user ) = @_;
 
-    my $dn=join ",", ("ispmanUserId=$user", $self->getWebusersBranchDN($domain));
+    my $dn = join ",",
+      ( "ispmanUserId=$user", $self->getWebusersBranchDN($domain) );
     return $dn;
 }
 
-
 sub getWebusers {
-    my $self=shift;
-    my ($domain)=@_;
-    my $branch=$self->getWebusersBranchDN($domain);
-    return $self->getEntriesAsHashRef($branch,  "objectclass=ispmanVirtualHostUser", ['ispmanUserId', 'userPassword']);
+    my $self     = shift;
+    my ($domain) = @_;
+    my $branch   = $self->getWebusersBranchDN($domain);
+    return $self->getEntriesAsHashRef(
+        $branch,
+        "objectclass=ispmanVirtualHostUser",
+        [ 'ispmanUserId', 'userPassword' ]
+    );
 }
 
 sub getWebuserInfo {
-    my $self=shift;
-    my ($domain, $user)=@_;
-    my $dn=$self->getWebuserDN($domain, $user);
+    my $self = shift;
+    my ( $domain, $user ) = @_;
+    my $dn = $self->getWebuserDN( $domain, $user );
     return $self->getEntryAsHashRef($dn);
 }
 
-
-
 sub add_webuser {
-   my $self=shift;
-   my ($domain, $user, $pass)=@_;
-   return if $self->userExists($self->create_uid($user, $domain));
-
-   my $branch=$self->getWebusersBranchDN($domain);
-   $self->prepareBranchForDN($branch);
+    my $self = shift;
+    my ( $domain, $user, $pass ) = @_;
+    return if $self->userExists( $self->create_uid( $user, $domain ) );
 
-   my $dn=$self->getWebuserDN($domain, $user);
+    my $branch = $self->getWebusersBranchDN($domain);
+    $self->prepareBranchForDN($branch);
 
+    my $dn = $self->getWebuserDN( $domain, $user );
 
-   my $data={
-      "ispmanUserId" => $user,
-      "ispmanDomain" => $domain,
-      "objectclass" => "ispmanVirtualHostUser"
-      };
+    my $data = {
+        "ispmanUserId" => $user,
+        "ispmanDomain" => $domain,
+        "objectclass"  => "ispmanVirtualHostUser"
+    };
 
-   $data->{'userPassword'}=$self->encryptPassWithMethod($pass, $self->getConf('userPassHashMethod'));
-   $self->addNewEntryWithData($dn,$data);
+    $data->{'userPassword'} =
+      $self->encryptPassWithMethod( $pass,
+        $self->getConf('userPassHashMethod') );
+    $self->addNewEntryWithData( $dn, $data );
 }
 
-
 sub update_webuser {
-# update webuser is 
-# delete Old Entry
-# create new entry
-   my $self=shift;
-   my ($domain, $user, $pass, $olduser)=@_;
 
-   if ($olduser && $olduser ne $user) {
-      $self->delete_webuser($domain, $olduser);
-      return $self->add_webuser($domain, $user, $pass);
-   }
-   
-   my $dn=$self->getWebuserDN($domain, $user);
-   my $data={};
-   $data->{"ispmanUserId"}= $user;
-   $data->{'userPassword'}= $self->encryptPassWithMethod($pass, $self->getConf('userPassHashMethod'));
+    # update webuser is
+    # delete Old Entry
+    # create new entry
+    my $self = shift;
+    my ( $domain, $user, $pass, $olduser ) = @_;
 
+    if ( $olduser && $olduser ne $user ) {
+        $self->delete_webuser( $domain, $olduser );
+        return $self->add_webuser( $domain, $user, $pass );
+    }
 
-   $self->updateEntryWithData($dn, $data);
-}
+    my $dn = $self->getWebuserDN( $domain, $user );
+    my $data = {};
+    $data->{"ispmanUserId"} = $user;
+    $data->{'userPassword'} =
+      $self->encryptPassWithMethod( $pass,
+        $self->getConf('userPassHashMethod') );
 
+    $self->updateEntryWithData( $dn, $data );
+}
 
 sub delete_webuser {
-    my $self=shift;
-    my ($domain,$user)=@_;
-    my $dn=$self->getWebuserDN($domain, $user);
-    if ($self->deleteEntry($dn)) {
+    my $self = shift;
+    my ( $domain, $user ) = @_;
+    my $dn = $self->getWebuserDN( $domain, $user );
+    if ( $self->deleteEntry($dn) ) {
         return 1;
     }
 }
 
-
 1;
 
 __END__



-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g. 
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click