Changeset 485 for trunk

Timestamp:

03/15/13 12:19:59 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Object conversion of DNSDB.pm, part 17. See #11.

• export() and its caller

Location:

trunk

Files:

• DNSDB.pm (modified) (2 diffs)
• export.pl (modified) (1 diff)

trunk/DNSDB.pm

@@ -4769 +4769 @@
 ## DNSDB::export()
 # Export the DNS database, or a part of it
-# Takes database handle, export type, optional arguments depending on type
+# Takes a string indicating the export type, plus optional arguments depending on type
 # Writes zone data to targets as appropriate for type
 sub export {
-  my $dbh = shift;
+  my $self = shift;
   my $target = shift;
 
   if ($target eq 'tiny') {
-    __export_tiny($dbh,@_);
+    $self->__export_tiny(@_);
   }
 # elsif ($target eq 'foo') {
-#   __export_foo($dbh,@_);
+#   __export_foo(@_);
 #}
 # etc
@@ -4788 +4788 @@
 ## DNSDB::__export_tiny
 # Internal sub to implement tinyDNS (compatible) export
-# Takes database handle, filehandle to write export to, optional argument(s)
+# Takes filehandle to write export to, optional argument(s)
 # to determine which data gets exported
 sub __export_tiny {
-  my $dbh = shift;
+  my $self = shift;
+  my $dbh = $self->{dbh};
   my $datafile = shift;
 

trunk/export.pl

@@ -31 +31 @@
 open TINYDATA, ">tinydata";
 
-export($dbh,'tiny',*TINYDATA);
+$dnsdb->export('tiny', *TINYDATA);