naomi/dots
1
0
Fork 0
mirror of https://github.com/NaomiAmethyst/dots.git synced 2025-04-13 09:30:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of gitosis@majnematic.com:davesdots

Browse source
This commit is contained in:
David Alexander Majnemer 2009-02-08 22:44:59 -06:00
commit 5869fc8195
1 changed files with 23 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
install.pl
View file

@ -6,7 +6,7 @@
use strict;
use warnings;
use File::Path 'mkpath';
use File::Path qw(mkpath rmtree);
use File::Glob ':glob';
use Cwd 'cwd';
@ -73,22 +73,36 @@ my %links = (
xmobarrc => '.xmobarrc',
'xmonad.hs' => '.xmonad/xmonad.hs',
'gitconfig' => '.gitconfig',
gitconfig => '.gitconfig',
'lock' => 'bin/lock',
lock => 'bin/lock',
);
my $i = 0; # Keep track of how many links we added
for my $file (keys %links) {
# See if this file resides in a directory, and create it if needed.
my($path) = $links{$file} =~ m{^ (.+/)? [^/]+ $}x;
mkpath("$home/$path") if $path;
my $src = "$scriptdir/$file";
my $dest = "$home/$links{$file}";
# Remove the destination if it exists and we were told to force
if($force && -e $dest) {
unlink($dest) || warn "Couldn't unlink '$dest': $!\n";
# If a link already exists, see if it points to this file. If so, skip it.
# This prevents extra warnings caused by previous runs of install.pl.
if(-e $dest && -l $dest) {
next if readlink($dest) eq $src;
}
symlink($src => $dest) || warn "Couldn't link '$src' to '$dest': $!\n";
# Remove the destination if it exists and we were told to force an overwrite
if($force && -f $dest) {
unlink($dest) || warn "Couldn't unlink '$dest': $!\n";
} elsif($force && -d $dest) {
rmtree($dest) || warn "Couldn't rmtree '$dest': $!\n";
}
symlink($src => $dest) ? $i++ : warn "Couldn't link '$src' to '$dest': $!\n";
}
print "$i link";
print 's' if $i != 1;
print " created\n";