Changeset 13 for trunk/DNSDB.pm

Timestamp:

09/11/09 17:59:51 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint
Merging record add/edit pieces into one template/code block
Added debugging array @debugbits to push strings into rather than printing,

since we haven't spit out headers before the processing (this is so we can
redirect)

Added DNSDB::grpName
Removed obsolete defrecs.tmpl

File:

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

trunk/DNSDB.pm

@@ -23 +23 @@
 @ISA            = qw(Exporter);
 @EXPORT_OK      = qw(
-        &initGlobals &connectDB &finish &addDomain &delDomain &domainName &getSOA &getRecLine &getDomRecs
-        &addRec &delRec &domStatus
+        &initGlobals &connectDB &finish &addDomain &delDomain &domainName &grpName &getSOA &getRecLine
+        &getDomRecs &addRec &delRec &domStatus
         %typemap %reverse_typemap
         );
@@ -30 +30 @@
 @EXPORT         = (); # Export nothing by default.
 %EXPORT_TAGS    = ( ALL => [qw(
-                &initGlobals &connectDB &finish &addDomain &delDomain &domainName &getSOA &getRecLine &getDomRecs
-                &addRec &delRec &domStatus
+                &initGlobals &connectDB &finish &addDomain &delDomain &domainName &grpName &getSOA &getRecLine
+                &getDomRecs &addRec &delRec &domStatus
                 %typemap %reverse_typemap
                 )]
@@ -254 +254 @@
 
 
+## DNSDB::grpName()
+# Return the domain name based on a domain ID
+# Takes a database handle and the domain ID
+# Returns the domain name or undef on failure
+sub grpName {
+  $errstr = '';
+  my $dbh = shift;
+  my $grpid = shift;
+  my $sth = $dbh->prepare("select name from groups where group_id=?");
+  $sth->execute($grpid);
+  my ($grpname) = $sth->fetchrow_array();
+  $errstr = $DBI::errstr if !$grpname;
+  return $grpname if $grpname;
+} # end domainName
+
+
 ## DNSDB::editRecord()
 # Change an existing record