Changeset 677 for trunk/cgi-bin/main.cgi

Timestamp:

01/16/15 17:34:45 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Collect and pass through per-IP rDNS. Still need to cache these locally.
See #1.

File:

• trunk/cgi-bin/main.cgi (modified) (2 diffs)

trunk/cgi-bin/main.cgi

@@ -551 +551 @@
   # IP, or the error message if an error occurred.
 
+##fixme:  consider just passing \%webvar to allocateBlock()?
+  # collect per-IP rDNS fields.  only copy over the ones that actually have something in them.
+  my %iprev;
+  foreach (keys %webvar) {
+    $iprev{$_} = $webvar{$_} if /host_[\d.a-fA-F:]+/ && $webvar{$_};
+  }
+
   my ($code,$msg) = allocateBlock($ip_dbh, cidr => $webvar{fullcidr}, fbid => $webvar{fbid},
         parent => $webvar{parent}, custid => $webvar{custid}, type => $webvar{alloctype}, city => $webvar{city}, 
         desc => $webvar{desc}, notes => $webvar{notes}, circid => $webvar{circid},
-        privdata => $webvar{privdata}, nodeid => $webvar{node}, rdns => $webvar{rdns}, user => $authuser);
+        privdata => $webvar{privdata}, nodeid => $webvar{node}, rdns => $webvar{rdns}, user => $authuser,
+        iprev => \%iprev);
 
   if ($code eq 'OK') {
@@ -804 +812 @@
   $updargs{node} = $webvar{node} if $webvar{node};
 
-  my ($code,$msg) = updateBlock($ip_dbh, %updargs);
+  # collect per-IP rDNS fields.  only copy over the ones that actually have something in them.
+  my %iprev;
+  foreach (keys %webvar) {
+    $iprev{$_} = $webvar{$_} if /host_[\d.a-fA-F:]+/ && $webvar{$_};
+  }
+
+  my ($code,$msg) = updateBlock($ip_dbh, %updargs, iprev => \%iprev);
 
   if ($code eq 'FAIL') {