#!/usr/bin/perl

open DATA, $ARGV[0];
($id = $ARGV[0]) =~ s/.*\///;
chomp(($title, $date, $image, $credits, $desc, $mpgfile, $size, $script, $written_by, $mp3file, $music_by, $photo_link) = <DATA>);
close DATA;

print "<movie id=\"$id\" title=\"$title\" date=\"$date\">\n";

# 
# print <<EOT;
# <movie id="$id" title="$title" date="$date">
#   <title text="$title"/>
#   <credits text="$credits"/>
#   <synopsis text="$desc"/>
#   <video url="$mpgfile" size="$size"/>
#   <script url="$script" credit="$written_by"/>
#   <music url="$mp3file" credit="$music_by"/>
#   <photos url="$photo_link"/>
# </movie>
# EOT