Rewrite install script

install.pl

@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Cwd;
+
+# Prevent running as root
+if ($< == 0) {
+    print "Failed: Running as root. Please run as user, not sudo\n";
+    exit (1);
+}
+
+# Generate unique logfile
+my $uuid = `uuidgen`;
+chomp $uuid;
+my $log_path = "$ENV{'HOME'}/.dotfiles.$uuid.log";
+print "Logs: $log_path\n";
+
+
+my $dir = getcwd;
+my $install_dir = "$dir/install";
+print "Installing $install_dir\n";
+
+# Read scripts to be installed
+opendir(DIR, $install_dir) or die "Could not open $install_dir\n";
+my @files = readdir(DIR);
+closedir(DIR);
+@files = sort { lc($a) cmp lc($b) } @files;
+
+foreach my $file (@files)
+{
+    # Install all scripts by default
+    next if($file !~ /^\d{2}-.*\.sh$/);
+
+    print "Running $file...\r";
+    my $exit_status = system("/bin/bash -l $install_dir/$file >> $log_path 2>&1");
+    if ($exit_status != 0) {
+        print "Failure in $file, see above and logs for more detail.\n";
+        exit ($exit_status);
+    }
+}