Changeset 3280

Timestamp:

03/12/09 05:29:39 (3 years ago)

Author:

jquelin

Message:

new exported constant $PADRE_PLUGIN_DIR

File:

• trunk/Padre/lib/Padre/Config/Constants.pm (modified) (5 diffs)

trunk/Padre/lib/Padre/Config/Constants.pm

@@ -12 +12 @@
 use base qw{ Exporter };
 
-my @dirs   = qw{ $PADRE_CONFIG_DIR                      };
+my @dirs   = qw{ $PADRE_CONFIG_DIR $PADRE_PLUGIN_DIR    };
 my @files  = qw{ $CONFIG_FILE_HOST $CONFIG_FILE_USER    };
 my @stores = qw{ $HOST $HUMAN $PROJECT                  };
@@ -30 +30 @@
 # files & dirs
 our $PADRE_CONFIG_DIR = _find_padre_config_dir();
+our $PADRE_PLUGIN_DIR = _find_padre_plugin_dir();
 our $CONFIG_FILE_USER = catfile( $PADRE_CONFIG_DIR, 'config.yml' );
 our $CONFIG_FILE_HOST = catfile( $PADRE_CONFIG_DIR, 'config.db'  );
@@ -77 +78 @@
 
 
+#
+# my $dir = _find_padre_plugin_dir();
+#
+# find and return the directory where padre should check the locally
+# installed plugins. no params.
+#
+sub _find_padre_plugin_dir {
+    my $pluginsdir = catdir( $PADRE_CONFIG_DIR, 'plugins' );
+
+    # check if plugin directory exists, create it otherwise
+    my $fullpath = catdir( $pluginsdir, 'Padre', 'Plugin'   );
+    unless ( -e $fullpath ) {
+        mkpath($fullpath) or
+        die "Cannot create plugins dir '$fullpath': $!";
+    }
+
+    # copy the My Plugin if necessary
+    my $file = catfile( $fullpath, 'My.pm' );
+    unless ( -e $file ) {
+        Padre::Config->copy_original_My_plugin( $file );
+    }
+
+    return $pluginsdir;
+}
+
+
 1;
 
@@ -132 +159 @@
 
 
+=item * $PADRE_PLUGIN_DIR
+
+Private directory where Padre can look for plugins.
+
+
 =back
 
@@ -153 +185 @@
 =item * dirs
 
-Imports C<$PADRE_CONFIG_DIR>.
+Imports C<$PADRE_CONFIG_DIR> and C<$PADRE_PLUGIN_DIR>.
 
 =item * files