Removed conflict

transfer.pl

@@ -0,0 +1,106 @@
+#!/usr/local/bin/perl
+
+use strict;
+use Getopt::Long;
+use Proc::Pidfile;
+
+# Transfer script transfer.pl
+# Author: Elia Farin 
+# Written: 8/9/24
+# Modified: 8/9/24
+# License: AGPL-3.0-or-later
+#
+#   Copyright (C) 2024 Elia Farin
+#
+#   This program is free software: you can redistribute it and/or modify
+#   it under the terms of the GNU Affero General Public License as
+#   published by the Free Software Foundation, either version 3 of the
+#   License, or (at your option) any later version.
+#
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU Affero General Public License for more details.
+#
+#   You should have received a copy of the GNU Affero General Public License
+#   along with this program.  If not, see <https://www.gnu.org/licenses/>.
+#
+my $pidfile;
+# if we are root, create a pidfile
+if ($> = 0) {
+	my $pp = Proc::Pidfile->new( pidfile => "/var/run/transfer.pl.pid" );
+} else {
+# if not, create our home pidfile
+	my $home = $ENV("$HOME");
+	my $pp = Proc::Pidfile->new( pidfile => "$home/transfer.pl.pid");
+}
+
+# die if we cannot get pidfile lock
+$pidfile = $pp->$pidfile();
+
+# sane defaults
+my $file = "";
+my $host = "192.168.42.100";
+my $directory = ".";
+my $user = "char";
+my $dest= "/home/char/Downloads/";
+my $flags = "rvz";
+my $verbose;
+my $help;
+
+# options
+my $result = GetOptions ( "file=s" => \$file,
+	"host=s" => \$host,
+	"directory=s" => \$directory,
+	"user=s" => \$user,
+	"dest=s" => \$dest,
+	"flags=s" => \$flags,
+	"verbose" => \$verbose,
+	"help" => \$help);
+
+### Begin main logic
+# help catch
+if ($help) {
+	help();
+
+}
+# If we have all the right arguments, begin the copy
+elsif (length $file && length $host && length $user && length $dest && length $directory) {
+
+	# Open our filehandle
+	open my $info, $file or die "Could not open $file: $!";
+
+	# read line by line
+	while( my $line = <$info> ) {
+		chomp $line;
+		# actual copy logic
+		if (length $verbose) {
+			system("rsync", "-vvv", "-$flags", "$directory/$line", "$user\@$host:$dest");
+		} else {
+		system("rsync", "-$flags", "$directory/$line", "$user\@$host:$dest");
+		}
+	}
+
+} 
+# if we fail the variables check, print usage help
+else {
+	help();
+}
+
+# remove the pidfile
+undef $pp;
+
+# help subroutine
+sub help {
+	print "Usage: $ARGV[0] --file= --host= --directory= --user= --dest= --flags= [--verbose] [--help]\n
+	--file - Input file to read with list of files/folders to transfer \n
+	--host - IP address or hostname of the remote system\n
+	--directory - Relative or absolute path to the folder containing the files/folders to transfer, \n
+		      with no trailing slash\n
+	--user - User account on the remote system to use\n
+	--dest - Destination on the remote system to copy files to\n
+	--flags - rsync flags to use when copying the files over\n
+	--verbose - run rsync with -vvv\n
+	--help - show this help\n";
+}
+