53 lines
1.5 KiB
Perl
Executable File
53 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
|
|
use Archive::Tar;
|
|
use File::Copy;
|
|
use File::Temp ();
|
|
use IPC::System::Simple qw(capture);
|
|
use LWP::Simple;
|
|
|
|
|
|
print "Setting up...\n";
|
|
|
|
# GitHub repository to clone
|
|
my $author = $ENV{'DOTFILES_AUTHOR'} // 'andrejusk';
|
|
my $repository = $ENV{'DOTFILES_REPOSITORY'} // 'dotfiles';
|
|
my $branch = $ENV{'DOTFILES_BRANCH'} // 'master';
|
|
print "Using repository $author/$repository at $branch\n";
|
|
|
|
# Installer filename
|
|
my $installer = $ENV{'DOTFILES_INSTALLER'} // 'install.pl';
|
|
print "Using installer $installer\n";
|
|
|
|
# Install location
|
|
my $dotfiles_dir = $ENV{'DOTFILES_DIR'} // "$ENV{'HOME'}/.dotfiles";
|
|
|
|
# Download repo
|
|
my $repository_url = "https://github.com/$author/$repository/archive/$branch.tar.gz";
|
|
my $temp_handle = File::Temp->new();
|
|
my $repository_temp = $temp_handle->filename;
|
|
print "Downloading $repository_url to $repository_temp\n";
|
|
getstore($repository_url, $repository_temp);
|
|
|
|
# Extract repo
|
|
my $temp_dir = File::Temp->newdir();
|
|
my $tar = Archive::Tar->new;
|
|
print "Extracting $repository_temp to $temp_dir\n";
|
|
$tar->read($repository_temp);
|
|
$tar->setcwd($temp_dir);
|
|
$tar->extract();
|
|
|
|
# Move dotfiles out of temporary dir
|
|
my $temp_dotfiles_dir = "$temp_dir/$repository-$branch";
|
|
print "Moving $temp_dotfiles_dir to $dotfiles_dir\n";
|
|
move($temp_dotfiles_dir, $dotfiles_dir);
|
|
|
|
# Install repo
|
|
my $installer_path = "$dotfiles_dir/$installer";
|
|
print 'Running installer ' . $installer_path . "\n";
|
|
my $output = capture([0,1,2], $^X, $installer_path);
|
|
print $output;
|