Index: trunk/cgi-bin/main.cgi
===================================================================
--- trunk/cgi-bin/main.cgi	(revision 808)
+++ trunk/cgi-bin/main.cgi	(revision 810)
@@ -110,4 +110,21 @@
 } elsif ($webvar{action} eq 'showvrf') {
   showVRF();
+
+} elsif ($webvar{action} eq 'addvrf') {
+  if ($IPDBacl{$authuser} !~ /s/) {
+    $aclerr = 'addvrf';
+  }
+
+  # Retrieve the list of DNS locations if we've got a place to grab them from
+  if ($IPDB::rpc_url) {
+    my %rpcargs = (
+	rpcuser => $authuser,
+	group => 1,     # bleh
+	defloc => '',
+	);
+    my $result = IPDB::_rpc('getLocDropdown', %rpcargs);
+    $page->param(loclist => $result);
+  }
+
 } elsif ($webvar{action} eq 'addmaster') {
   if ($IPDBacl{$authuser} !~ /a/) {