From 21afd1b8c71d4e1d4f985fa70666e37b3b67fe4b Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Fri, 19 Jun 2015 21:48:23 -0500
Subject: [PATCH] util to tag and lower vol on vids

---
 scripts/perl/tag.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 scripts/perl/tag.pl

diff --git a/scripts/perl/tag.pl b/scripts/perl/tag.pl
new file mode 100755
index 0000000000..78c05ce338
--- /dev/null
+++ b/scripts/perl/tag.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Getopt::Long;
+use Data::Dumper;
+
+
+my ($title, $artist, $file, $volume);
+
+GetOptions(
+	   "title=s" => \$title,
+	   "artist=s" => \$artist,
+	   "file=s" => \$file,
+	   "volume=s" => \$volume
+	  ) or die $@;
+
+if (-f $file) {
+  my $tmp = $$;
+  if ($volume) {
+    system("avconv -i \"$file\" -vcodec copy -af \"volume=$volume\" /tmp/file$tmp.mp4");
+    system("mv /tmp/file$tmp.mp4 \"$file\"");
+  }
+  if ($title && $artist) {
+    system("avconv -i \"$file\" -metadata artist=\"$artist\" -metadata title=\"$title\" -codec copy -vcodec copy /tmp/file$tmp.mp4");
+    system("mv /tmp/file$tmp.mp4 \"$file\"");
+  }
+
+} else {
+  print "$file not found.\n";
+}
+