Changeset 1071 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

07/24/12 22:56:06 (12 years ago)

Author:

nanardon

Message:

• rename options() to config() to clarify its role

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (5 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -36 +36 @@
 =cut
 
-=head2 new(%options)
+=head2 new(%config)
 
 Create a new LATMOS::Ad object for windows AD $domain.
@@ -47 +47 @@
 
 sub new {
-    my ($class, %options) = @_;
+    my ($class, %config) = @_;
     
     my $base = {
-        db_conn => $options{db_conn},
+        db_conn => $config{db_conn},
     };
 
@@ -324 +324 @@
 }
 
-=head2 rename_nethost ($nethostname, $to, %options)
+=head2 rename_nethost ($nethostname, $to, %config)
 
 Facility function to rename computer to new name
@@ -331 +331 @@
 
 sub rename_nethost {
-    my ($self, $nethostname, $to, %options) = @_;
+    my ($self, $nethostname, $to, %config) = @_;
     {
         my $obj = $self->get_object('nethost', $nethostname);
@@ -339 +339 @@
     }
     $self->rename_object('nethost', $nethostname, $to) or return;
-    if ($options{'addcname'}) {
+    if ($config{'addcname'}) {
         my $obj = $self->get_object('nethost', $to);
         my @cname = grep { $_ } $obj->get_attributes('cname');