#!/usr/bin/perl
$path=shift @ARGV;
foreach $file (@ARGV) {
if($file =~ m|.rm$|) {
$meta = $file;
$meta =~ s|.rm$|.rmm|;
open(M,">$meta");
print M "rtsp://################/$path/$file\n";
close(M);
} elsif($file =~ m|.asf$|) {
$meta = $file;
$meta =~ s|.asf$|.asx|;
open(M,">$meta");
print M "\n";
print M " \n";
print M " [\n";
print M " ]\n";
print M "\n";
close(M);
} elsif($file =~ m|.mov$|) {
$meta = $file;
$meta =~ s|.mov$|.html|;
open(M,">$meta");
print M "\n";
print M " QuickTime Window\n";
print M " \n";
print M "