Changeset 375 for trunk/dns.cgi

Timestamp:

08/08/12 18:04:47 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint adding locations/views. See #10.

• Tweak new locations table again with an internal serial for sorting and finding the "highest" previous location
• Complete "Add location" stub
• Fill in initial display page for "Edit location"
• Tweak location add/edit/update template a little, add new comments field to match new field in table
• Tweak location import so we don't end up with great long space-free fields similar to what can't be avoided with TXT (usually SPF/DomainKeys) records
• Fill in addLoc() stub
• Add getLoc()
• Tweak location export to strip commas and whitespace properly

File:

• trunk/dns.cgi (modified) (4 diffs)

trunk/dns.cgi

@@ -1368 +1368 @@
 
   if ($webvar{locact} eq 'new') {
-
+    # uuhhmm....
   } elsif ($webvar{locact} eq 'add') {
     changepage(page => "loclist", errmsg => "You are not permitted to add locations/views", id => $webvar{parentid})
         unless ($permissions{admin} || $permissions{location_create});
 
-##work
-    my ($code,$msg) = addLocation($dbh, $webvar{parentid}, $webvar{locname}, $webvar{iplist});
+    my ($code,$msg) = addLoc($dbh, $curgroup, $webvar{locname}, $webvar{comments}, $webvar{iplist});
 
     if ($code eq 'OK' || $code eq 'WARN') {
@@ -1388 +1387 @@
       $page->param(todo         => "Add location/view");
       $page->param(locact       => "add");
-      $page->param(parentid     => $webvar{parentid});
       $page->param(id           => $webvar{id});
-      fill_recdata();   # populate the form... er, mostly.
+      $page->param(locname      => $webvar{locname});
+      $page->param(comments     => $webvar{comments});
+      $page->param(iplist       => $webvar{iplist});
     }
 
@@ -1396 +1396 @@
     changepage(page => "loclist", errmsg => "You are not permitted to edit locations/views", id => $webvar{parentid})
         unless ($permissions{admin} || $permissions{location_edit});
+
+    my $loc = getLoc($dbh, $webvar{loc});
+    $page->param(wastrying      => "adding");
+    $page->param(todo           => "Edit location/view");
+    $page->param(locact         => "update");
+    $page->param(id             => $webvar{loc});
+    $page->param(locname        => $loc->{description});
+    $page->param(comments       => $loc->{comments});
+    $page->param(iplist         => $loc->{iplist});
+
   } elsif ($webvar{locact} eq 'update') {
     changepage(page => "loclist", errmsg => "You are not permitted to edit locations/views", id => $webvar{parentid})
         unless ($permissions{admin} || $permissions{location_edit});
+##work
   } else {
     changepage(page => "loclist", errmsg => "You are not permitted to add locations/views", id => $webvar{parentid})
@@ -1405 +1416 @@
     $page->param(todo => "Add location/view");
     $page->param(locact => "add");
-    $page->param(parentid => $webvar{parentid});
-
     $page->param(locname => ($webvar{locname} ? $webvar{locname} : ''));
     $page->param(iplist => ($webvar{iplist} ? $webvar{iplist} : ''));