diff options
Diffstat (limited to 'scripts/deploy.pl')
-rw-r--r-- | scripts/deploy.pl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/scripts/deploy.pl b/scripts/deploy.pl deleted file mode 100644 index 81f3957..0000000 --- a/scripts/deploy.pl +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/env -S perl -w - -use warnings; -use strict; - -# Get environment variables from .env file -print "The .env-prod file is critical for the deployment.\n"; -print ".env file exists in the project directory.\n" if -e "../.env"; -print "It contains the following environment variables:\n\n"; - -my $live_db_url; -my $commented_db_url; - -open my $envf, "<", "../.env" or die "Cannot open .env file: $!"; -while ( my $line = <$envf>) { - # TODO fix this regex - it will omit commented lines to start with - if ($line =~ /^[A-Z_]+=/) { - if ($line =~ /^DATABASE_URL/) { - my @live_url = split(/=/, $line); - $live_db_url = $live_url[1]; - } - if ($line =~ /^#DATABASE_URL/) { - my @commented_url = split(/=/, $line); - $commented_db_url = $commented_url[1]; - } - print $line; - } -} - -print "\n\nDATABASE_URL is $live_db_url"; -print "\n\nCommented DATABASE_URL is $commented_db_url" if defined; - - -close($envf); |