Changeset 17720

Timestamp:

2008-11-06 11:00:15 (2 months ago)

Author:

kjdon

Message:

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

Files:

• 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 @@
-###########################################################################
-#
-B
+atabase
-# 
-# A component of the Greenstone digital library software
@@ -34 +34 @@
-# Mar, Apr 2003
-
-B
+atabase
-
-use strict;
@@ -43 +43 @@
-
-sub BEGIN {
-B
+atabase
-}
-
@@ -53 +53 @@
-        'reqd' => "no" }];
-
-B
+atabase
-                'desc'     => "{DBPlugin.desc}",
-                'abstract' => "no",
@@ -89 +89 @@
-    my $verbosity = $self->{'verbosity'};
-
-B
-B
+atabase
+atabase
-        if $self->{'verbosity'} > 1;
-   
@@ -121 +121 @@
-    # read in config file.
-    if (!open (CONF, $filename_full_path)) {
-B
+atabase
-            return 0;
-    } 
@@ -140 +140 @@
-                $callback =~ /[\`]|\|\-/) {
-                # no backticks or functions that start new processes allowed
-B
+atabase
-                return 0;
-            }
@@ -147 +147 @@
-            my $ret = eval "\$callbacks{'$fieldname'} = $callback ; 1";
-            if (!defined($ret)) {
-B
+atabase
-                exit(1);
-            }
-            $callback="";
-B
+atabase
-                if $dbplug_debug;
-        } elsif ($callback) {
@@ -171 +171 @@
-                    chomp $err;
-                    $err =~ s/\.$//; # remove a trailing .
-B
+atabase
-                    print $outhandle " $err (in $filename_full_path)\n";
-                    return 0; # there was an error reading the config file
@@ -180 +180 @@
-                $statement = "";
-            } else {
-B
+atabase
-            }
-            $statement = "";
@@ -189 +189 @@
-    
-    if (!defined($db)) {
-B
+atabase
-        return 0;
-    }
-    if (!defined($sql_query)) {
-B
+atabase
-        return 0;
-    }
@@ -200 +200 @@
-
-    if (!defined($dbhandle)) {
-B
+atabase
-    }
-    if (defined($dbplug_debug) && $dbplug_debug==1) {
-B
+atabase
-    }
-
@@ -233 +233 @@
-        if (defined($db_to_greenstone_fields{$fieldname})) {
-            if (defined($dbplug_debug) && $dbplug_debug==1) {
-B
+atabase
-                    . "'$fieldname' to "
-                        . $db_to_greenstone_fields{$fieldname} . "\n";
@@ -251 +251 @@
-    while (scalar(@row_array)) {
-        if (defined($dbplug_debug) && $dbplug_debug==1) {
-B
+atabase
-        }
-
@@ -356 +356 @@
-    # check "$sth->err" if empty array for error
-    if ($statement_hand->err) {
-B
+atabase
-            $statement_hand->errstr . "\"\n";
-    }
@@ -368 +368 @@
-
-    if (defined($dbplug_debug) && $dbplug_debug==1) {
-B
+atabase
-    }
-    $count;