Changeset 17720 for gsdl/trunk/perllib

Timestamp:

2008-11-06T11:00:15+13:00 (15 years ago)

Author:

kjdon

Message:

renamed DBPlugin to DatabasePlugin, and changed the name inside the file

File:

• gsdl/trunk/perllib/plugins/DatabasePlugin.pm (moved) (moved from gsdl/trunk/perllib/plugins/DBPlugin.pm ) (16 diffs)

gsdl/trunk/perllib/plugins/DatabasePlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# DBPlugin.pm -- plugin to import records from a database
+# DatabasePlugin.pm -- plugin to import records from a database
 # 
 # A component of the Greenstone digital library software
@@ -34 +34 @@
 # Mar, Apr 2003
 
-package DBPlugin;
+package DatabasePlugin;
 
 use strict;
@@ -43 +43 @@
 
 sub BEGIN {
-    @DBPlugin::ISA = ('AutoExtractMetadata');
+    @DatabasePlugin::ISA = ('AutoExtractMetadata');
 }
 
@@ -53 +53 @@
     'reqd' => "no" }];
 
-my $options = { 'name'     => "DBPlugin",
+my $options = { 'name'     => "DatabasePlugin",
         'desc'     => "{DBPlugin.desc}",
         'abstract' => "no",
@@ -89 +89 @@
     my $verbosity = $self->{'verbosity'};
 
-    print STDERR "<Processing n='$file' p='DBPlugin'>\n" if ($gli);
-    print $outhandle "DBPlugin: processing $file\n" 
+    print STDERR "<Processing n='$file' p='DatabasePlugin'>\n" if ($gli);
+    print $outhandle "DatabasePlugin: processing $file\n" 
     if $self->{'verbosity'} > 1;
    
@@ -121 +121 @@
     # read in config file.
     if (!open (CONF, $filename_full_path)) {
-        print $outhandle "DBPlugin: can't read $filename_full_path: $!\n";
+        print $outhandle "DatabasePlugin: can't read $filename_full_path: $!\n";
         return 0;
     } 
@@ -140 +140 @@
         $callback =~ /[\`]|\|\-/) {
         # no backticks or functions that start new processes allowed
-        print $outhandle "DBPlugin: bad function in callback\n";
+        print $outhandle "DatabasePlugin: bad function in callback\n";
         return 0;
         }
@@ -147 +147 @@
         my $ret = eval "\$callbacks{'$fieldname'} = $callback ; 1";
         if (!defined($ret)) {
-        print $outhandle "DBPlugin: error eval'ing callback: $@\n";
+        print $outhandle "DatabasePlugin: error eval'ing callback: $@\n";
         exit(1);
         }
         $callback="";
-        print $outhandle "DBPlugin: callback registered for '$fieldname'\n"
+        print $outhandle "DatabasePlugin: callback registered for '$fieldname'\n"
             if $dbplug_debug;
     } elsif ($callback) {
@@ -171 +171 @@
             chomp $err;
             $err =~ s/\.$//; # remove a trailing .
-            print $outhandle "DBPlugin: error evaluating `$statement'\n";
+            print $outhandle "DatabasePlugin: error evaluating `$statement'\n";
             print $outhandle " $err (in $filename_full_path)\n";
             return 0; # there was an error reading the config file
@@ -180 +180 @@
         $statement = "";
         } else {
-        print $outhandle "DBPlugin: skipping statement `$statement'\n";
+        print $outhandle "DatabasePlugin: skipping statement `$statement'\n";
         }
         $statement = "";
@@ -189 +189 @@
     
     if (!defined($db)) {
-    print $outhandle "DBPlugin: error: $filename_full_path does not specify a db!\n";
+    print $outhandle "DatabasePlugin: error: $filename_full_path does not specify a db!\n";
     return 0;
     }
     if (!defined($sql_query)) {
-        print $outhandle "DBPlugin: error: no SQL query specified!\n";
+        print $outhandle "DatabasePlugin: error: no SQL query specified!\n";
     return 0;
     }
@@ -200 +200 @@
 
     if (!defined($dbhandle)) {
-    die "DBPlugin: could not connect to database, exiting.\n";
+    die "DatabasePlugin: could not connect to database, exiting.\n";
     }
     if (defined($dbplug_debug) && $dbplug_debug==1) {
-    print $outhandle "DBPlugin (debug): connected ok\n";
+    print $outhandle "DatabasePlugin (debug): connected ok\n";
     }
 
@@ -233 +233 @@
     if (defined($db_to_greenstone_fields{$fieldname})) {
         if (defined($dbplug_debug) && $dbplug_debug==1) {
-        print $outhandle "DBPlugin (debug): mapping db field "
+        print $outhandle "DatabasePlugin (debug): mapping db field "
             . "'$fieldname' to "
             . $db_to_greenstone_fields{$fieldname} . "\n";
@@ -251 +251 @@
     while (scalar(@row_array)) {
     if (defined($dbplug_debug) && $dbplug_debug==1) {
-        print $outhandle "DBPlugin (debug): retrieved a row from query\n";
+        print $outhandle "DatabasePlugin (debug): retrieved a row from query\n";
     }
 
@@ -356 +356 @@
     # check "$sth->err" if empty array for error
     if ($statement_hand->err) {
-    print $outhandle "DBPlugin: received error: \"" .
+    print $outhandle "DatabasePlugin: received error: \"" .
         $statement_hand->errstr . "\"\n";
     }
@@ -368 +368 @@
 
     if (defined($dbplug_debug) && $dbplug_debug==1) {
-        print $outhandle "DBPlugin: imported $count DB records as documents.\n";
+        print $outhandle "DatabasePlugin: imported $count DB records as documents.\n";
     }
     $count;