1 files changed, 77 insertions, 0 deletions
diff --git a/DotenvSimple.pm b/DotenvSimple.pm
new file mode 100644
index 0000000..a6b1bb8
--- /dev/null
+++ b/DotenvSimple.pm
@@ -0,0 +1,77 @@
+# == Summery: ==
+# Load dotenv from 
+# 1. parameter passed
+# 2. predifined shell or HTTPD `DOTENV_FILE=./_path_to_dotenv` enviroment varaible 
+# 3. `.env` in you HTTPD document DOCUMENT_ROOT. Check in your HTTPD document root for `.env`
+#
+# assign to global $ENV{} hash
+#
+# == Usage: ==
+# Ensure this module is in a search path and...
+#
+# use DotenvSimple;
+# DotenvSimple::source_dotenv();
+# # DotenvSimple::list_env();
+
+package DotenvSimple;
+
+use strict;
+use base qw(Exporter);
+use Carp ();
+
+@DotenvSimple::EXPORT = qw(source_dotenv list_env);
+
+BEGIN {
+    $DotenvSimple::VERSION = '0.1.0';
+    # $DotenvSimple::DEBUG   = 0 unless (defined $DotenvSimple::DEBUG);
+    $DotenvSimple::DEBUG   = $ENV{ PERL_DOTENV_DEBUG } if exists $ENV{ PERL_DOTENV_DEBUG };
+}
+
+###################
+# load shell style enviroment vaiable, expect full file path as
+#
+sub source_dotenv {
+  my ($my_dotenv_file) = @_;
+    my $DOTENV_FILE;
+    if ( -e $my_dotenv_file ) {    #defined as an apache var
+        $DOTENV_FILE = "$my_dotenv_file";
+    }
+    elsif ( -e $ENV{DOTENV_FILE} ) {    #defined as an apache var
+        $DOTENV_FILE = "$ENV{DOTENV_FILE}";
+    }
+    elsif ( -e $ENV{DOCUMENT_ROOT} ) {
+        $DOTENV_FILE = "$ENV{DOCUMENT_ROOT}/.env";
+    }
+    else {
+        die "ERROR: Could not deterine dotenv location, please pass location as a parameter!";
+    }
+
+    $DEBUG::DEBUG and  Carp::carp("In DotenvSimple::source_dotenv processing $DOTENV_FILE");
+
+    open my $fh, "<", $DOTENV_FILE
+        or die "could not open $DOTENV_FILE: $!";
+
+FORA: while (<$fh>) {
+        chomp;
+        my ( $k, $v ) = split /=/, $_, 2;
+        $k =~ s/^\s+|\s+$//g;
+        $k =~ s/^export[\s\t]+//g;
+        $v =~ s/^\s+|\s+$//g;
+        $v =~ s/^(['"])(.*)\1/$2/;    #' fix highlighter
+        $v =~ s/\$([a-zA-Z]\w*)/$ENV{$1}/g;
+        $v =~ s/`(.*?)`/`$1`/ge;      #dangerous
+        $v =~ s/[\;\,]$//;
+        next FORA if ( $k =~ m/^$/
+            || $k =~ m/^\#.*/ );
+        $ENV{$k} = $v;
+        $DEBUG::DEBUG and  Carp::carp("ENV: $k => $v");
+    }
+}
+
+sub list_env {
+    print "Content-type:text/html\n\n";
+    foreach ( sort keys %ENV ) {
+        print "$_  =  $ENV{$_}<br />\n";
+    }
+    exit;
+}