incoming/ scripts

1 files changed, 33 insertions, 0 deletions

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";
+	}