deploy

#!/usr/bin/perl
# Deploying config files. Overwrites everything. Only use if you know what to do.

use strict;
use warnings;

# Core modules
require Cwd;
require File::Basename;
require File::Spec;

# Get repository directory
my $repodir = File::Basename::dirname(Cwd::abs_path(__FILE__));
my $files = File::Spec->catdir($repodir, 'files');

# Create config skeletons for fluxbox, vim and more, if not existing.
# Perl has no good core modules for touching files and recursive creation of directory trees.
# Thus, we fall back to mkdir and touch here until a better implementation comes along.
system('mkdir -p ~/.fluxbox');
system('touch ~/.vimrc.more');
system('mkdir -p ~/.vim/autoload');
system('mkdir -p ~/.vim/bundle');
system('mkdir -p ~/.config/yamllint');

# Files for direct installation.
my %install = (
    'Xdefaults' => '%HOME%/.Xdefaults',
    'bashrc'    => '%HOME%/.bashrc',
    'gitconfig' => '%HOME%/.gitconfig',
    'screenrc'  => '%HOME%/.screenrc',
    'tmux.conf' => '%HOME%/.tmux.conf',
    'vimrc'     => '%HOME%/.vimrc',
    'zprofile'  => '%HOME%/.zprofile',
    'zshrc'     => '%HOME%/.zshrc',
    'yamllint.config'           => '%HOME%/.config/yamllint/config',
    'vim/autoload/pathogen.vim' => '%HOME%/.vim/autoload/pathogen.vim',
    'fluxbox/startup'           => '%HOME%/.fluxbox/startup',
);

while (my ($key, $to) = each %install) {
    if (! -d $ENV{"HOME"}) {
        die "Fatal: Homedir does not exist";
    }
    my $from = sprintf('%s/%s', $files, $key);
    $to =~ s/%HOME%/$ENV{"HOME"}/;
    printf("Install %s as %s\n", $from, $to);
    system('/usr/bin/install', '-m', '0644', $from, $to);
}

my %vimgithub = (
    'vim-gitgutter'      => 'airblade/vim-gitgutter.git',
    'vim-airline'        => 'vim-airline/vim-airline.git',
    'vim-airline-themes' => 'vim-airline/vim-airline-themes',
    'vim-fugitive'       => 'tpope/vim-fugitive.git',
    'vim-puppet'         => 'rodjek/vim-puppet',
    'vim-terraform'      => 'hashivim/vim-terraform',
    'neocomplete'        => 'Shougo/neocomplete',
);

# Update/Install plugins from github
# FIXME this is a huge security risk.
printf("Install/update vim modules from github.com:\n");
while (my ($module, $path) = each %vimgithub) {
    chdir File::Spec->catdir($ENV{"HOME"}, '.vim', 'bundle') or die $!;
    if ( -d $module) {
        chdir $module;
        printf("   * Update $module...\n");
        system('git pull -q --ff');
    } else {
        printf("   * Install $module...\n");
        system('git','clone', sprintf('https://github.com/%s', $path));
    }
}