More flex and some checking

1 files changed, 13 insertions, 2 deletions

diff --git a/frikanalen/bin/update_meta_xml.pl b/frikanalen/bin/update_meta_xml.pl
index 3a5e442..ef3dfb4 100755
--- a/frikanalen/bin/update_meta_xml.pl
+++ b/frikanalen/bin/update_meta_xml.pl
@@ -16,11 +16,22 @@ use Encode ;
 use Data::Dumper;
 use XML::Simple;
 my $localvideo_dir = '/data/video/frikanalen';
-my $meta_subset = &get_frikanalen_meta_subset('MetaDataVideoId'); # Use 'Id' or 'MetaDataVideoId' as key
 #print Dumper($meta_subset);
+my $metafile = "$localvideo_dir/meta.xml";
+
+if ($ARGV[0] ) { 
+ $metafile = $ARGV[0]; 
+} else {
+ if ( ! -d $localvideo_dir ) {
+  print "$localvideo_dir does not exist\n";
+  exit 1;
+ }
+}
+
+my $meta_subset = &get_frikanalen_meta_subset('MetaDataVideoId'); # Use 'Id' or 'MetaDataVideoId' as key
 my $xml = XMLout($meta_subset);
 
-open METAFILE, "> $localvideo_dir/meta.xml" or die "Cannot open $localvideo_dir/meta.xml for write :$!";
+open METAFILE, "> $metafile" or die "Cannot open $metafile for write :$!";
 print METAFILE "$xml\n";
 close METAFILE;