68 lines
2.0 KiB
Perl
68 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# This script installs my personal scripts which can be found at
|
|
# $repo_url.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Copy;
|
|
use Digest::MD5;
|
|
|
|
my $repo_url = "https://git.fjla.uk/fred.boniface/scripts.git";
|
|
my $repo_dir = "/opt/fred_boniface_scripts_git";
|
|
my $branch_name = "main";
|
|
my $install_dir = "/usr/local/bin";
|
|
|
|
if (-d $repo_dir) {
|
|
print "Updating existing local repo...\n";
|
|
chdir $repo_dir or die "Unable to enter $repo_dir: $!";
|
|
system("git pull origin $branch_name")
|
|
} else {
|
|
print "Cloning repo...\n";
|
|
system("git clone --branch $branch_name $repo_url $repo_dir");
|
|
chdir $repo_dir or die "Unable to enter $repo_dir: $1";
|
|
}
|
|
|
|
my $scripts = "$repo_dir/scripts";
|
|
|
|
chdir $scripts or die "Unable to change into $scripts: $!";
|
|
|
|
print "Installing scripts\n";
|
|
|
|
opendir(my $repo_scripts, $scripts) or die "Unable to open directory: $!";
|
|
my @script_files = grep { -f "$scripts/$_" } readdir($repo_scripts);
|
|
closedir($repo_scripts);
|
|
|
|
foreach my $file (@script_files) {
|
|
my $repo_file_path = "$scripts/$file";
|
|
my $install_file_path = "$install_dir/$file";
|
|
|
|
print "Repo file: $repo_file_path\n";
|
|
print "Dest: $install_file_path\n";
|
|
|
|
if (!-e $install_file_path || !compare_checksums($repo_file_path, $install_file_path)) {
|
|
print "Copying $file...\n";
|
|
copy($repo_file_path, $install_file_path) or die "Copy failed: $!";
|
|
chmod(0755, $install_file_path) or die "Failed to set execute permission: $!";
|
|
} else {
|
|
print "Skipping $file (Checksum matched)\n";
|
|
}
|
|
}
|
|
|
|
print "Installation of scripts complete\n";
|
|
print "Ensure that $install_dir is in your PATH\n";
|
|
|
|
sub compare_checksums {
|
|
my ($file1, $file2) = @_;
|
|
|
|
open my $fh1, '<', $file1 or die "Could not open file $file1: $!";
|
|
open my $fh2, '<', $file2 or die "Could not open file $file2: $!";
|
|
|
|
my $digest1 = Digest::MD5->new->addfile($fh1)->hexdigest;
|
|
my $digest2 = Digest::MD5->new->addfile($fh2)->hexdigest;
|
|
|
|
close $fh1;
|
|
close $fh2;
|
|
|
|
return $digest1 eq $digest2;
|
|
} |