Changeset 588 for trunk/cgi-bin

Timestamp:

01/17/13 17:25:46 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Allocation update should be complete for DNS changes. See #1.

Location:

trunk/cgi-bin

Files:

• IPDB.pm (modified) (2 diffs)
• main.cgi (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -1118 +1118 @@
   my @fieldlist;
   my @vallist;
-  foreach ('custid', 'city', 'description', 'notes', 'circuitid', 'privdata') {
+  foreach ('custid', 'city', 'description', 'notes', 'circuitid', 'privdata', 'rdns') {
     if ($args{$_}) {
       push @fieldlist, $_;
@@ -1173 +1173 @@
     return ('FAIL', $msg);
   }
-  return 0;
+
+  _rpc('addOrUpdateRevRec', cidr => $args{block}, name => $args{rdns}, rpcuser => $args{user});
+  return ('OK','OK');
 } # end updateBlock()
 

trunk/cgi-bin/main.cgi

@@ -749 +749 @@
         swip            => $webvar{swip},
         rdepth          => $webvar{rdepth},
+        rdns            => $webvar{rdns},
+        user            => $authuser,
         );
 
@@ -796 +798 @@
 
   $page->param(cidr => $webvar{block});
+  $page->param(rdns => $webvar{rdns});
   $page->param(city => $webvar{city});
   $page->param(disptype => $disp_alloctypes{$webvar{alloctype}});