#!/usr/bin/perl 

#require "common.pl";

sub System {
    my($cmd) = $_[0];
    if (defined($DISABLE_SYSTEM)) {
	print STDOUT "would execute $cmd\n";
    } else {
	print STDOUT "execute $cmd\n";
	system($cmd);
    }
}
# $DISABLE_SYSTEM = 1; 

my $LIBRA_PATH = $ARGV[0];
my $MCAST_ADDR = $ARGV[1];
my $BASE_PORT = $ARGV[2];
my $TTL = $ARGV[3];
my $MEDIA_NAME = $ARGV[4];

my $RTPPLAY = "$LIBRA_PATH/rtptools-1.17/rtpplay";
my $QLOW_PORT = $BASE_PORT;
my $QMED_PORT = $BASE_PORT-2;
my $QHIGH_PORT = $BASE_PORT-4;
my $AUDIO_PORT = $BASE_PORT+2;


#my $host = "224.5.6.7";
#my $targetHost = "marin.cmcl.cs.cmu.edu";

# video
#System("$RTPPLAY -f $LIBRA_PATH/mediafiles/$MEDIA_NAME/$MEDIA_NAME.video.1Mbps $MCAST_ADDR/$QHIGH_PORT/$TTL &");

# video
System("$RTPPLAY -f $LIBRA_PATH/mediafiles/$MEDIA_NAME/$MEDIA_NAME.video.300Kbps $MCAST_ADDR/$QMED_PORT/$TTL &");

# video
System("$RTPPLAY -f $LIBRA_PATH/mediafiles/$MEDIA_NAME/$MEDIA_NAME.video.40Kbps $MCAST_ADDR/$QLOW_PORT/$TTL &");

# audio
System("$RTPPLAY -f $LIBRA_PATH/mediafiles/$MEDIA_NAME/$MEDIA_NAME.audio.PCM2.71Kbps $MCAST_ADDR/$AUDIO_PORT/$TTL &");

exit(0);