Changeset 275 for branches/dns/cgi-bin


Ignore:
Timestamp:
08/10/05 13:45:18 (19 years ago)
Author:
Kris Deugau
Message:

/branches/dns

Remove unused/unusable (?) parameter $domain from initPool()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dns/cgi-bin/IPDB.pm

    r274 r275  
    415415# We also do the rDNS for the pool here to save some sanity.
    416416sub initPool {
    417   my ($dbh,undef,$type,$city,$class,$rdns,$domain) = @_;
     417  my ($dbh,undef,$type,$city,$class,$rdns) = @_;
    418418  my $pool = new NetAddr::IP $_[1];
    419419
     
    439439        $sth->execute($pool->addr);
    440440        # Insert rDNS entry
    441         $sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr).".".$domain);
     441        $sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr));
    442442      }
    443443      for (my $i=0; $i<=$#poolip_list; $i++) {
    444444        $sth->execute($poolip_list[$i]->addr);
    445445        # Insert rDNS entry
    446         $sth2->execute($poolip_list[$i]->addr,
    447                 subst_rDNS($rdns,$poolip_list[$i]->addr).".".$domain);
     446        $sth2->execute($poolip_list[$i]->addr,subst_rDNS($rdns,$poolip_list[$i]->addr));
    448447      }
    449448      $pool--;
     
    451450        $sth->execute($pool->addr);
    452451        # Insert rDNS entry
    453         $sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr).".".$domain);
     452        $sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr));
    454453      }
    455454    } else { # (real netblock)
     
    458457        # Insert rDNS entry
    459458        $sth2->execute($poolip_list[$i]->addr,
    460                 subst_rDNS($rdns,$poolip_list[$i]->addr).".".$domain);
     459                subst_rDNS($rdns,$poolip_list[$i]->addr));
    461460      }
    462461    }
Note: See TracChangeset for help on using the changeset viewer.