Changeset 38 for trunk/DNSDB.pm

Timestamp:

11/20/09 17:32:04 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint - big changes!

dns.cgi and DNSDB.pm:

• all output pages should validate as XHTML 1.0 Strict. For at least another five minutes.
• add variable to control env dump (which doesn't validate...)
• fiddle username add to use "uname" as username field, since username seems to cause HTML::Template to barf suddenly... O_o
• tweak "change current group" form URI for XHTML's idiotic "all ampersands must be exscapededed ALL EVARWERE!!!one11!"
• check for existence of group, domain, user at beginning of respective add* subs in DNSDB.pm

templates/*:

• adjust all templates to account for oddities and stupidities of XHTML 1.0. Templates do NOT validate on their own, but the final output should. WTFisms include (but are not limited to):
  • escaped ampersands in links?
  • "<form> can't go here"?
  • <td> can't use nowrap, width?
  • "<fieldset>"?
  • and now that the form fields are enclosed in a fieldset... apparently you can't right-click in "noncontent" space "inside" that element. GRRRRRRR!!!!!
• CSS now needs work to make things appear properly, due largely to the WTFisms above
• all this XHTML fixing got me to also normalize and clean up inconsistent usage, general structures, and things that wouldn't even pass HTML 4.0.1 Transitional (I think) - eg missing closing tags on <tr> or <td>
• delete raw dump of Vega's login page (need to delete a couple others)

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -175 +175 @@
   return ('FAIL',"Need domain status") if !defined($state);
 
+  my $sth = $dbh->prepare("SELECT domain_id FROM domains WHERE domain=?");
   my $dom_id;
+
+# quick check to start to see if we've already got one
+  $sth->execute($domain);
+  ($dom_id) = $sth->fetchrow_array;
+
+  return ('FAIL', "Domain already exists") if $dom_id;
 
   # Allow transactions, and raise an exception on errors so we can catch it later.
@@ -292 +299 @@
   local $dbh->{RaiseError} = 1;
 
+  my $sth = $dbh->prepare("SELECT group_id FROM groups WHERE group_name=?");
+  my $group_id;
+
+# quick check to start to see if we've already got one
+  $sth->execute($groupname);
+  ($group_id) = $sth->fetchrow_array;
+
+  return ('FAIL', "Group already exists") if $group_id;
+
   # Wrap all the SQL in a transaction
   eval {
-    my $sth = $dbh->prepare("INSERT INTO groups (parent_group_id,group_name) VALUES (?,?)");
+    $sth = $dbh->prepare("INSERT INTO groups (parent_group_id,group_name) VALUES (?,?)");
     $sth->execute($pargroup,$groupname);
 
@@ -454 +470 @@
   my $phone = shift || '';      # not going format-check
 
+  my $sth = $dbh->prepare("SELECT user_id FROM users WHERE username=?");
   my $user_id;
+
+# quick check to start to see if we've already got one
+  $sth->execute($username);
+  ($user_id) = $sth->fetchrow_array;
+
+  return ('FAIL', "User already exists") if $user_id;
 
   # Allow transactions, and raise an exception on errors so we can catch it later.