Changeset 370 for trunk/dns.cgi

Timestamp:

07/29/12 22:02:48 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint; adding location/view support. See #10.

• add location to menu
• add table and link fields to initial tabledef and upgrade SQL
• add listing subs and list page
• update permissions list and subpage template with new permissions

File:

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

trunk/dns.cgi

@@ -1342 +1342 @@
   }
 
+} elsif ($webvar{page} eq 'loclist') {
+
+#  changepage(page => "domlist", errmsg => "You are not allowed access to this function")
+#       unless $permissions{admin} || $permissions{ foo? };
+
+  # security check - does the user have permission to access this entity?
+#  if (!check_scope(id => $webvar{id}, type => 'loc')) {
+#    changepage(page => "loclist", errmsg => "You are not permitted to <foo> the requested location/view");
+#  }
+  list_locations();
+
+# Permissions!
+  $page->param(addloc => $permissions{admin} || $permissions{loc_create});
+  $page->param(delloc => $permissions{admin} || $permissions{loc_delete});
+
+} elsif ($webvar{page} eq 'location') {
+
+
 } elsif ($webvar{page} eq 'dnsq') {
 
@@ -1586 +1604 @@
 ##fixme
   $page->param(mayrdns => 1);
+  $page->param(mayloc => 1);
 
   $page->param(maydefrec => $permissions{admin});
@@ -2079 +2098 @@
 
 
+sub list_locations {
+
+  my @childgroups;
+  getChildren($dbh, $curgroup, \@childgroups, 'all') if $searchsubs;
+  my $childlist = join(',',@childgroups);
+
+  my $count = getLocCount($dbh, (childlist => $childlist, curgroup => $curgroup,
+        filter => ($filter ? $filter : undef), startwith => ($startwith ? $startwith : undef) ) );
+
+# fill page count and first-previous-next-last-all bits
+  fill_pgcount($count,"locations/views",'');
+  fill_fpnla($count);
+
+  $sortby = 'user';
+# sort/order
+  $session->param($webvar{page}.'sortby', $webvar{sortby}) if $webvar{sortby};
+  $session->param($webvar{page}.'order', $webvar{order}) if $webvar{order};
+
+  $sortby = $session->param($webvar{page}.'sortby') if $session->param($webvar{page}.'sortby');
+  $sortorder = $session->param($webvar{page}.'order') if $session->param($webvar{page}.'order');
+
+# set up the headers
+  my @cols = ('description', 'iplist', 'group');
+  my %colnames = (description => 'Location/View Name', iplist => 'Permitted IPs/Ranges', group => 'Group');
+  fill_colheads($sortby, $sortorder, \@cols, \%colnames);
+
+# waffle, waffle - keep state on these as well as sortby, sortorder?
+  $page->param("start$startwith" => 1) if $startwith && $startwith =~ /^(?:[a-z]|0-9)$/;
+
+  $page->param(filter => $filter) if $filter;
+  $page->param(searchsubs => $searchsubs) if $searchsubs;
+
+  my $loclist = getLocList($dbh, (childlist => $childlist, curgroup => $curgroup,
+        filter => ($filter ? $filter : undef), startwith => ($startwith ? $startwith : undef),
+        offset => $webvar{offset}, sortby => $sortby, sortorder => $sortorder) );
+  # Some UI things need to be done to the list
+  foreach my $l (@{$loclist}) {
+    $l->{edloc} = ($permissions{admin} || $permissions{loc_edit});
+    $l->{delloc} = ($permissions{admin} || $permissions{loc_delete});
+  }
+  $page->param(loctable => $loclist);
+} # end list_locations()
+
+
 # Generate all of the glop necessary to add or not the appropriate marker/flag for
 # the sort order and column in domain, user, group, and record lists