compile-static.pl

#!/usr/bin/env perl

#TODO:

use 5.014;
use strict;
use warnings;
use autodie;
use File::Find;
use File::Spec;
use File::Copy;
use File::Basename;
use File::Path qw(make_path);
use Cwd        qw(abs_path getcwd);
use Getopt::Long;
#use Data::Dump::Color;

my $usage = "\nUSAGE: ".basename($0)." -i <indir> -o <outdir> -d <datadir>\n";
$usage .= "\n <indir>   : A directory of HTML files 
 <outdir>  : The base directory to write the results.
 <datadir> : The location of the annotation and assembly data files (not stored in document root).\n";

my %opts;
GetOptions(\%opts, 'indir|i=s', 'outdir|o=s', 'datadir|d=s');
say STDERR $usage and exit(1) unless %opts;

$opts{indir}  = abs_path($opts{indir});
say STDERR "\nERROR: '$opts{indir}' does not exist.\n$usage" 
    and exit(1) unless defined $opts{indir} && -e $opts{indir};

$opts{outdir} = abs_path($opts{outdir});
$opts{datadir} = abs_path($opts{datadir});

my $wd    = getcwd();
my $base  = basename($opts{indir});
my $dname = dirname($opts{indir});

# Prepare assets
my $assetdir = File::Spec->catdir($opts{outdir}, 'assets'); 
make_path($assetdir, {verbose => 0, mode => 0771,});

my (@files, @subdirs);
find(sub { push @files, $File::Find::name }, $opts{indir});
die "\nERROR: No HTML files found in $opts{indir}. Exiting.\n"
    unless @files;
#dd \@files and exit;

for my $in (@files) {
    next if $in eq $opts{indir};
    next if $in =~ /nav-|header|footer/; # Skip these templates. We can probably tell gulp to not compile them

    if (-f $in && $in =~ /\.html$/) {
	_copy_page($in, $opts{outdir}, $dname);
    }
    elsif (-d $in) {
	my $name = basename($in);

	my $outdir = File::Spec->catdir($opts{outdir}, $name);
	make_path($outdir, {verbose => 0, mode => 0771,});

	my @subfiles;
        find(sub { push @subfiles, $File::Find::name if -f and /\.html$/ }, $in);

	for my $f (@subfiles) {
	    next if $f =~ /nav-|header|footer/;
	    _copy_page($f, $outdir, $dname);
	}
    }
}

## Asset PATHs
my $cwd = getcwd();
chdir $assetdir or die $!;
system("ln -s $opts{datadir} data") == 0 or die $!;
chdir $cwd or die $!;

for my $dir (qw(css js images fonts)) {
    my $asset = File::Spec->catdir($dname, $dir);
    my $cmd = "cp -R $asset $assetdir/";
    system($cmd) == 0 or die $!;
}

# Link assets for subdomains, in this case a separate site in the 'stress' subdirectory
system("ln -s $opts{outdir}/assets $opts{outdir}/stress/assets") == 0 or die $!;

# We don't need to transform php scripts, just copy them in place
system("cp -R $wd/public/scripts $opts{outdir}/assets/") == 0 or die $!;

# Copy assets for mounted applications
system("cp -R $wd/public/expression $opts{outdir}/expression") == 0 or die $!;

_write_htaccess($opts{outdir});

exit;
## methods
sub _copy_page {
    my ($file, $dest, $dname) = @_;

    my ($name, $path, $suffix) = fileparse($file, qr/\.[^.]*/);

    if ($name eq 'index') {
	my $index = File::Spec->catfile($dest, $name.$suffix);

	unless (-e $index) {
	    copy($file, $index) or die "Copy failed: $!"
	}

	return;
    }

    my $outdir = File::Spec->catdir($dest, $name);
    unless (-e $outdir) {
	make_path($outdir, {verbose => 0, mode => 0771,});
    }

    my $outfile = File::Spec->catfile($outdir, 'index.html');
    copy($file, $outfile) or die "Copy failed: $!";
    unlink $file;

    system("ln -s $dest/assets $outdir/assets") == 0 or die $!;

    return;
}

sub _write_htaccess {
    my ($outdir) = @_;

    my $content = 
'## EXPIRES CACHING ##
<IfModule mod_expires.c>
ExpiresActive On
ExpiresByType image/jpg "access 1 year"
ExpiresByType image/jpeg "access 1 year"
ExpiresByType image/gif "access 1 year"
ExpiresByType image/png "access 1 year"
ExpiresByType text/css "access 1 month"
ExpiresByType text/html "access 1 month"
ExpiresByType application/pdf "access 1 month"
ExpiresByType text/x-javascript "access 1 month"
ExpiresByType application/x-shockwave-flash "access 1 month"
ExpiresByType image/x-icon "access 1 year"
ExpiresDefault "access 1 month"
</IfModule>
## EXPIRES CACHING ##

RewriteEngine On
# This will enable the Rewrite capabilities

RewriteCond %{HTTPS} !=on
# This checks to make sure the connection is not already HTTPS

RewriteRule ^/?(.*) https://%{SERVER_NAME}/$1 [R,L]
# This rule will redirect users from their original location, to the same location but using HTTPS.
# i.e.  http://www.example.com/foo/ to https://www.example.com/foo/
# The leading slash is made optional so that this will work either in httpd.conf
# or .htaccess context

# Load stress.sunflowergenome.org from the stress/ directory if that URL is requested
RewriteCond %{HTTP_HOST} ^(?:www.)?stress\.sunflowergenome\.org$ [NC]
RewriteRule ^(.*)$ /stress/$1 [L]
RewriteCond %{REQUEST_URI} !^/stress/

Options -Indexes
DirectoryIndex index.html

# Enable compression
AddOutputFilterByType DEFLATE text/plain
AddOutputFilterByType DEFLATE text/html
AddOutputFilterByType DEFLATE text/xml
AddOutputFilterByType DEFLATE text/css
AddOutputFilterByType DEFLATE application/xml
AddOutputFilterByType DEFLATE application/xhtml+xml
AddOutputFilterByType DEFLATE application/rss+xml
AddOutputFilterByType DEFLATE application/javascript
AddOutputFilterByType DEFLATE application/x-javascript

# Handle 404 errors
ErrorDocument 404 /404/index.html';

    my $htfile = File::Spec->catfile($outdir, '.htaccess');
    open my $out, '>', $htfile;
    say $out $content;
    close $out;

    return;
}