#!/usr/bin/perl
$base = $ARGV[0];
$base =~ s!^\./!!;
$base =~ s/\"/\\\"/g;
$path = $base;
$path =~ s!/[^/]+$!!;
print "mkdir -p \"/var/lib/mythtv/music/$path\"\n";
print "ln -s \"/home/Music/$base\" \"/var/lib/mythtv/music/$base\"\n";