Changeset 600 for branches

Timestamp:

05/16/13 23:30:49 (12 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Add inital XMLRPC shim. See #40.

We'll start with a method to get a list of static IPs available for
assignment, and a method to allocate a netblock.

Location:

branches/stable/cgi-bin

Files:

• IPDB.pm (modified) (3 diffs)
• MyIPDB.pm (modified) (1 diff)
• ipdb-rpc.cgi (added)

branches/stable/cgi-bin/IPDB.pm

@@ -24 +24 @@
 @EXPORT_OK    = qw(
         %disp_alloctypes %list_alloctypes %def_custids @citylist @poplist
-        %IPDBacl %aclmsg
+        %IPDBacl %aclmsg %rpcacl
         &initIPDBGlobals &connectDB &finish &checkDBSanity
         &addMaster &touchMaster
@@ -38 +38 @@
 %EXPORT_TAGS    = ( ALL => [qw(
                 %disp_alloctypes %list_alloctypes %def_custids @citylist @poplist
-                %IPDBacl %aclmsg
+                %IPDBacl %aclmsg %rpcacl
                 &initIPDBGlobals &connectDB &finish &checkDBSanity
                 &addMaster &touchMaster
@@ -67 +67 @@
         delblock        => 'delete an allocation',
         );
+
+our %rpcacl;
 
 our $org_name = 'Example Corp';

branches/stable/cgi-bin/MyIPDB.pm

@@ -22 +22 @@
 # DB host is optional.
 my $dbhost = 'ipdb-db';
+
+# ACL for RPC shim.  A hash of arrays;  the hash keys are the remote system
+# names, the array contents are the IPs allowed to claim that system name.
+#%IPDB::rpcacl = (
+#       cli_test => ['192.168.99.115','209.91.179.62'],
+#       devel => ['10.0.10.5'],
+#       );
 
 # Quick workaround for fixed web path.  Set this to the absolute web path to