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

Timestamp:

03/08/16 13:54:14 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

"add VRF" action etc. See #54.

File:

• trunk/cgi-bin/main.cgi (modified) (1 diff)

trunk/cgi-bin/main.cgi

@@ -126 +126 @@
     $page->param(loclist => $result);
   }
+
+} elsif ($webvar{action} eq 'newvrf') {
+  if ($IPDBacl{$authuser} !~ /s/) {
+    $aclerr = 'addvrf';
+  } else {
+    my ($code,$msg) = addVRF($ip_dbh, $webvar{vrf}, comment => $webvar{comment}, location => $webvar{loc});
+
+    if ($code eq 'FAIL') {
+      syslog "err", "Could not add VRF '$webvar{vrf}' to database: '$msg'";
+      $page->param(err => $msg);
+      $page->param(vrf => $webvar{vrf});
+    } else {
+      $page->param(vrf => $msg);
+      if ($code eq 'WARN') {
+        $IPDB::errstr =~ s/\n\n/<br>\n/g;
+        $IPDB::errstr =~ s/:\n/:<br>\n/g;
+        $page->param(warn => $IPDB::errstr);
+      }
+      syslog "info", "$authuser added VRF $webvar{vrf}";
+    }
+
+  } # ACL check
 
 } elsif ($webvar{action} eq 'addmaster') {