Utility for looking up known metadata from id

1 files changed, 28 insertions, 0 deletions

diff --git a/frikanalen/bin/meta_lookup.pl b/frikanalen/bin/meta_lookup.pl
new file mode 100755
index 0000000..b0961ff
--- /dev/null
+++ b/frikanalen/bin/meta_lookup.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+# Author: Jarle Bjørgeengen
+# Date: 2010-03-05
+# License: GNU General Public license
+
+# Script to look up meta-data from video-id
+
+#use Data::Dumper;
+use XML::Simple;
+
+my $meta_xml;
+my $videoid;
+
+if ($ARGV[1]) {
+  $meta_xml = XMLin("$ARGV[0]");
+  $videoid = "id_".$ARGV[1];
+} else { 
+ usage();
+}
+sub usage {
+ print "$0: meta-xml-file videoid\n";
+}
+
+foreach my $key (keys %{$meta_xml->{$videoid}}) { 
+ print "$key: $meta_xml->{$videoid}->{$key}\n"; 
+} 
+