From ff9fe30cf16474407580daddc990686cf868aa15 Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:16:34 -0500
Subject: incoming/ scripts

---
 bin/incoming/prefix.pl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 bin/incoming/prefix.pl

(limited to 'bin/incoming/prefix.pl')

diff --git a/bin/incoming/prefix.pl b/bin/incoming/prefix.pl
new file mode 100755
index 0000000..9cf59e4
--- /dev/null
+++ b/bin/incoming/prefix.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+my $DIR, $PREFIX;
+my $BIN_MV = "/bin/mv";
+usage() unless scalar(@ARGV);
+foreach my $arg (@ARGV)
+	{
+	if (-d $arg && ! $DIR)
+		{
+		$DIR = $arg;
+		}
+	else
+		{
+		$PREFIX = $arg;
+		}
+	}
+$DIR ||= ".";
+opendir DIR, $DIR || die $!;
+my @files = ();
+while (my $file = readdir DIR)
+	{
+	next if $file =~ /^\./;
+	push @files, $file;
+	}
+closedir DIR;
+foreach my $file (@files)
+	{
+	system($BIN_MV, "$DIR/$file", "$DIR/$PREFIX-$file");
+	}
+sub usage
+	{
+	print "$ ./.prefix.pl DIR/ prefix\n";
+	}
-- 
cgit v1.2.3-70-g09d2