ispman/lib/ISPMan HostMan.pm,1.14,1.15

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

Modified Files:
	HostMan.pm 
Log Message:
made ispmanHostAlias multivalued

Index: HostMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/HostMan.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- HostMan.pm	17 Aug 2003 20:17:20 -0000	1.14
+++ HostMan.pm	30 May 2004 22:25:59 -0000	1.15
@@ -69,7 +69,10 @@
    my $self=shift;
    my $r=shift;
 
-   $self->add_host( $r->param('ispmanHostName'), $r->param('ispmanHostIp'), $r->param('ispmanHostAlias'), $r->param('ispmanHostInfo'));
+   $self->add_host($r->param('ispmanHostName'),
+                   $r->param('ispmanHostIp'),
+                   $r->param('ispmanHostAlias'),
+                   $r->param('ispmanHostInfo'));
    $self->manageHosts();
 }
 
@@ -81,7 +84,7 @@
       return unless ($self->{'session'}->param("logintype") eq "admin");
       return unless $self->requiredAdminLevel(100);
    }
-   my ($hostname,  $ip, $cn,  $description)=@_;
+   my ($hostname,  $ip, $alias,  $description)=@_;
 
    if   (! $ip ||  ! $hostname){
       print "ERROR: No hostname or ip specified";
@@ -91,10 +94,10 @@
    my $data;
    $data->{'ispmanHostName'}=$hostname;
    $data->{'ispmanHostIp'}=$ip;
-   $data->{'ispmanHostAlias'}=$cn || "undefined";
+   $data->{'ispmanHostAlias'}=[split(/\s+/,$alias)];
    $data->{'ispmanHostInfo'}=$description || "undefined";
    $data->{'objectclass'}="ispmanHost";
-      #$data->{'ispmanHostType'}=$hosttype;
+
    my $dn="ispmanHostName=$hostname, ou=hosts, @{[$self->getConf('ldapBaseDN')]}";
    $self->addNewEntryWithData($dn, $data);
 
@@ -107,21 +110,29 @@
 }
 
 
+sub modifyHost {
+   my $self=shift;
+   my $r=shift;
+   $self->modify_host( $r->param('ispmanHostName'), $r->param('ispmanHostIp'), $r->param('ispmanHostAlias'), $r->param('ispmanHostInfo'));
+   $self->manageHosts();
+}
+
 
 sub modify_host {
    my $self=shift;
    return unless $self->requiredAdminLevel(100);
 
-   my ($hostname,  $ip, $cn,  $description, $hosttype)=@_;
+   my ($hostname,  $ip, $alias,  $description)=@_;
    
 
    my $data;
-   my $dn="ispmanHostName=$hostname, ou=hosts, @{[$self->getConf('ldapBaseDN')]}";
    $data->{'ispmanHostIp'}=$ip;
-   $data->{'ispmanHostAlias'}=$cn || "undefined";
+   $data->{'ispmanHostAlias'}=[split(/\s+/,$alias)];
    $data->{'ispmanHostInfo'}=$description || "undefined";
-      #$data->{'ispmanHostType'}=$hosttype;
+
+   my $dn="ispmanHostName=$hostname, ou=hosts, @{[$self->getConf('ldapBaseDN')]}";
    $self->updateEntryWithData($dn, $data);
+
       #removing for the time being. will come back to this by 0.9
       #$self->addProcessToGroup('ISPMAN_INTERNAL', "monitoringgroup", "AddHostToNetsaint", 
       #   join ',', ($hostname, $cn, $ip, $description, $hosttype)
@@ -130,12 +141,6 @@
 
 
 
-sub modifyHost {
-   my $self=shift;
-   my $r=shift;
-   $self->modify_host( $r->param('ispmanHostName'), $r->param('ispmanHostIp'), $r->param('ispmanHostAlias'), $r->param('ispmanHostInfo'));
-   $self->manageHosts();
-}
 
 
 sub delete_host {



-------------------------------------------------------
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