Changeset 24 for trunk/dns.cgi

Timestamp:

10/30/09 17:52:55 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

• group management more or less functional
• user management partially functional
• misc minor tweaks and normalizations

File:

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

trunk/dns.cgi

@@ -198 +198 @@
       changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec});
     } else {
-      $page->param(failed => 1);
-      $page->param(errmsg => $msg);
+
+      $page->param(failed       => 1);
+      $page->param(errmsg       => $msg);
+      $page->param(wastrying    => "adding");
+      $page->param(todo         => "Add record to");
+      $page->param(recact       => "add");
+      $page->param(parentid     => $webvar{parentid});
+      $page->param(defrec       => $webvar{defrec});
+      $page->param(id           => $webvar{id});
       fill_recdata();   # populate the form... er, mostly.
     }
@@ -246 +253 @@
     $page->param(dohere => "default records in group ".groupName($dbh,$webvar{parentid}));
   } else {
+    $page->param(parentid => $webvar{parentid});
+#    $page->param(id => $webvar{id});
     $page->param(dohere => domainName($dbh,$webvar{parentid}));
   }
@@ -353 +362 @@
 # redirect to dns.cgi?etc&page=reclist
     changepage(page => "reclist", id => $msg);
-    $page = HTML::Template->new(filename => "$templatedir/reclist.tmpl");
-    showdomain(0,$msg);
-##work
+#    $page = HTML::Template->new(filename => "$templatedir/reclist.tmpl");
+#    showdomain(0,$msg);
   } else {
 # oooh, yeah, this is supposed to be a redirect.  er, maybe.  whee.
+##fixme: session ID
     $page = HTML::Template->new(filename => "$templatedir/newdomain.tmpl");
     $page->param(add_failed => 1);
@@ -416 +425 @@
   }
   $page->param(delgroupname => groupName($dbh, $webvar{id}));
+
+} elsif ($webvar{page} eq 'useradmin') {
+
+  list_users();
+  $page->param(curpage => $webvar{page});
+
+} elsif ($webvar{page} eq 'newuser') {
+
+  # foo?
+  fill_actypelist();
+
+} elsif ($webvar{page} eq 'adduser') {
+
+  my ($code,$msg);
+  
+  if ($webvar{pass1} ne $webvar{pass2}) {
+    $code = 'FAIL';
+    $msg = "Passwords don't match";
+  } else {
+    ($code,$msg) = addUser($dbh,$webvar{username}, $webvar{group}, $webvar{pass1},
+        ($webvar{makeactive} eq 'on' ? 1 : 0), $webvar{fname}, $webvar{lname});
+  }
+
+# hokay, a bit of magic to decide which page we hit.
+  if ($code eq 'OK') {
+# redirect to dns.cgi?etc&page=reclist
+    changepage(page => "useradmin");
+#    $page = HTML::Template->new(filename => "$templatedir/reclist.tmpl");
+#    showdomain(0,$msg);
+##work
+  } else {
+# oooh, yeah, this is supposed to be a redirect.  er, maybe.  whee.
+#    $page = HTML::Template->new(filename => "$templatedir/newuser.tmpl");
+    $page->param(add_failed => 1);
+    $page->param(username => $webvar{username});
+    $page->param(fname => $webvar{fname});
+    $page->param(lname => $webvar{lname});
+    $page->param(pass1 => $webvar{pass1});
+    $page->param(pass2 => $webvar{pass2});
+    $page->param(errmsg => $msg);
+    fill_actypelist();
+  }
+
+  $page->param(add_failed => 1);
 }
 
@@ -421 +474 @@
 # start output here so we can redirect pages.
 print "Content-type: text/html\n\n", $header->output;
-
-foreach (@debugbits) { print; }
 
 ##common bits
@@ -429 +480 @@
   $page->param(groupname => groupName($dbh,$curgroup));
 
+  # group tree.  should go elsewhere, probably
+  my $tmpgrplist = fill_grptree($logingroup,$curgroup);
+  $page->param(grptree => $tmpgrplist);
+
   # stuff for menu group change.  nb: this is icky.
   fill_grouplist("grouplist");
   $page->param(whereami => $ENV{REQUEST_URI});
 }
+
+foreach (@debugbits) { print; }
 
 # spit it out
@@ -458 +515 @@
 
 exit 0;
+
+
+sub fill_grptree {
+  my $root = shift;
+  my $cur = shift;
+
+  my @childlist;
+
+  my $grptree = HTML::Template->new(filename => 'templates/grptree.tmpl');
+  getChildren($dbh,$root,\@childlist,'immediate');
+  return if $#childlist == -1;
+  my @grouplist;
+  foreach (@childlist) {
+    my %row;
+    $row{grpname} = groupName($dbh,$_);
+    $row{grpname} = "<b>$row{grpname}</b>" if $_ == $cur;
+    $row{subs} = fill_grptree($_,$cur);
+    push @grouplist, \%row;
+  }
+  $grptree->param(treelvl => \@grouplist);
+  return $grptree->output;
+}
 
 
@@ -575 +654 @@
   $page->param(ttl      => ($webvar{ttl} ? $webvar{ttl} : $DNSDB::def{minttl}));
 }
+
+
+sub fill_actypelist {
+  my @actypes;
+
+  my %row1 = (actypeval => 'u', actypename => 'user');
+  $row1{typesel} = 1 if $webvar{accttype} eq 'u';
+  push @actypes, \%row1;
+
+  my %row2 = (actypeval => 'S', actypename => 'superuser');
+  $row2{typesel} = 1 if $webvar{accttype} eq 'S';
+  push @actypes, \%row2;
+
+  $page->param(actypelist       => \@actypes);
+}
+
 
 sub fill_fpnla {
@@ -713 +808 @@
   $page->param("$template_var" => \@grouplist);
 
-}
+} # end fill_grouplist()
+
+sub list_users {
+  my $sth = $dbh->prepare("select count(*) from users where group_id=?");
+  $sth->execute($curgroup);
+  my ($count) = ($sth->fetchrow_array);
+
+# fill page count and first-previous-next-last-all bits
+##fixme - hardcoded group bit
+  fill_pgcount($count,"users",'');
+  fill_fpnla($count);
+
+  my @userlist;
+  $sth = $dbh->prepare("SELECT u.user_id, u.email, u.firstname, u.lastname, u.type, g.group_name, u.status ".
+        "FROM users u ".
+        "INNER JOIN groups g ON u.group_id=g.group_id ".
+        "WHERE u.group_id=?".
+        ($offset eq 'all' ? '' : " LIMIT $perpage OFFSET ".$offset*$perpage));
+  $sth->execute($curgroup);
+
+  my $rownum = 0;
+  while (my @data = $sth->fetchrow_array) {
+    my %row;
+    $row{userid} = $data[0];
+    $row{username} = $data[1];
+    $row{userfull} = "$data[2] $data[3]";
+    $row{usertype} = ($data[4] eq 'S' ? 'superuser' : "user");
+    $row{usergroup} = $data[5];
+    $row{mkactive} = $data[6];
+    $row{bg} = ($rownum++)%2;
+    $row{sid} = $sid;
+    push @userlist, \%row;
+  }
+  $page->param(usertable => \@userlist);
+}