From 705b3de27be3908adf702c06fa96d53de450deba Mon Sep 17 00:00:00 2001
From: Clifton Palmer <Clifton.Palmer@gmail.com>
Date: Sun, 2 Apr 2017 21:08:33 +0000
Subject: [PATCH] Added initial script. Creates public symlinks to my private
 files.

---
 public | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100755 public

diff --git a/public b/public
new file mode 100755
index 0000000..d5beebc
--- /dev/null
+++ b/public
@@ -0,0 +1,56 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use File::Spec;
+use File::Path qw/ make_path /;
+
+my $root_dir = '/mnt/Shared/Personal/My art';
+my $link_dir = '/var/www/html/public';
+my $http_uri = 'http://136.63.171.222/public';
+
+
+sub nonce {
+	my $n = shift;
+	$n = 10 unless $n;
+
+	my @chars = ( 'a' .. 'z', 'A' .. 'Z', '0' .. '9' );
+	my @path = ();
+	push @path, $chars[ rand @chars ] for 1 .. 10;
+
+	return join '', @path;
+}
+
+sub makeNonceDir {
+	my $nonce = shift;
+	my $path  = File::Spec->catdir($link_dir, $nonce);
+	make_path($path, { chmod => 0777 });
+	return $path, ;
+}
+
+
+# get list of files matching name from root directory
+my $name = shift
+	or die "Need filename!\n";
+
+opendir DIR, $root_dir;
+my @files = grep /$name/, readdir(DIR);
+closedir DIR;
+
+# exit if no files found
+die "No match: $name\n" unless @files;
+
+# create nonce dir and add symbolic links
+my $nonce = nonce();
+my $nonce_dir = makeNonceDir($nonce);
+
+for my $file (@files) {
+	my $root_filepath = File::Spec->catfile($root_dir,  $file);
+	my $link_filepath = File::Spec->catfile($nonce_dir, $file);
+
+	symlink $root_filepath, $link_filepath
+		or die "Unable to create symlink: $root_filepath -> $link_filepath";
+
+	my $uri_link = join '/', ($http_uri, $nonce, $file);
+	print "$uri_link\n";
+}
-- 
2.47.2