From cc0eedb3f425d6c53e80e277c4f807e8e498bd5e Mon Sep 17 00:00:00 2001
From: JozanLeClerc <bousset.rudy@gmail.com>
Date: Sat, 19 Sep 2020 18:19:10 +0200
Subject: Wallpaper script in progress

---
 .local/bin/setwp | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100755 .local/bin/setwp

(limited to '.local')

diff --git a/.local/bin/setwp b/.local/bin/setwp
new file mode 100755
index 0000000..3c3c36c
--- /dev/null
+++ b/.local/bin/setwp
@@ -0,0 +1,63 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use File::Copy;
+
+use constant {
+	WP_FILE	=> '/usr/home/jozan/Pictures/wallpaper.jpg',
+	WP_POOL	=> '/usr/home/jozan/Pictures/wallpapers/'
+};
+use constant FEH_PATH	=> '/usr/local/bin/feh';
+
+sub get_pool_files
+{
+	my @files;
+	my $i;
+
+	$i = 0;
+	opendir(DIR, WP_POOL) or die "Couldn't open directory " . WP_POOL . ": $!";
+	while ($files[$i] = readdir(DIR)) {
+		next if $files[$i] =~ /^\./;
+		$i++;
+	}
+	closedir(DIR);
+	return @files;
+}
+
+sub choose_and_copy
+{
+	my @files = (@_);
+	my $rand;
+	my $i;
+
+	$rand = int(rand(@files - 1));
+	copy($files[$rand], WP_FILE);
+	return;
+}
+
+sub set_wp
+{
+	my $screens = ($_[0]);
+
+	if ($screens == 0) {
+		# get them screens
+	}
+	return;
+}
+
+sub main
+{
+	choose_and_copy(get_pool_files());
+	if ($#ARGV + 1 > 0) {
+		set_wp($ARGV[0]);
+	}
+	else {
+		set_wp(0);
+	}
+	return;
+}
+
+main();
+
+__END__
-- 
cgit v1.2.3