Changeset 394 for branches/stable/cgi-bin/IPDB.pm

Timestamp:

02/19/10 13:10:34 (14 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Basic support for network node references: Add, view, edit nodes and

referencess

Probably excludes a bunch of real use-cases for various reasons

File:

• branches/stable/cgi-bin/IPDB.pm (modified) (4 diffs)

branches/stable/cgi-bin/IPDB.pm

@@ -292 +292 @@
 # Returns a success code and optional error message.
 sub allocateBlock {
-  my ($dbh,undef,undef,$custid,$type,$city,$desc,$notes,$circid,$privdata) = @_;
+  my ($dbh,undef,undef,$custid,$type,$city,$desc,$notes,$circid,$privdata,$nodeid) = @_;
 
   my $cidr = new NetAddr::IP $_[1];
@@ -333 +333 @@
         " where ip='$cidr'");
       $sth->execute;
+# node hack
+      if ($nodeid && $nodeid ne '') {
+        $sth = $dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)");
+        $sth->execute("$cidr",$nodeid);
+      }
+# end node hack
       $dbh->commit;
     };
@@ -393 +399 @@
         } # routing vs non-routing netblock
 
+# node hack
+      if ($nodeid && $nodeid ne '') {
+        $sth = $dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)");
+        $sth->execute("$cidr",$nodeid);
+      }
+# end node hack
         $dbh->commit;
       }; # end of eval
@@ -497 +509 @@
         } # done with netblock alloctype != rm
 
+# node hack
+      if ($nodeid && $nodeid ne '') {
+        $sth = $dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)");
+        $sth->execute("$cidr",$nodeid);
+      }
+# end node hack
         $dbh->commit;
       }; # end eval