eval 'exec perl -S $0 "$@"'
    if $runnning_under_some_shell;

#!/bin/perl

# perl script to extract SDP information and start MBone tools 
# by Rex Xi Xu (rexx@cs.cmu.edu), Nov. 1996
# some changes by Christoph Fleck (bzvd@tu-dresden.de) 19991029

# edit the following list to get your favorite tools

%tools = (
	"audio", "vat -r",
#or 	"audio", "rat",
	"video", "vic",
	"image", "imm",
	"whiteboard", "wb",
	"text", "nt",
	);

#print "-- Starting MBone tools --\n";

$media = "";

while (<>) {

	if (/^s=(.*)/) {
		$title = "\"" . $1 . "\"";
	}
	if (/^m=(.*)/) {
		($media, $port, $proto, $format) = split(' ', $1);
	}
	if (/^c=(.*)/) {
		($nettype, $addrtype, $addr_ttl) = split(' ', $1);
		($addr, $ttl) = split('/', $addr_ttl);

		if ($tools{$media}) {
		if ($media ne "image") {
		$command = join(' ', $tools{$media}, "-t", $ttl, "-C", $title, "${addr}/${port}", '>/dev/null 2>&1 &');
		} else {
		$command = join(' ', $tools{$media}, "-i ${addr} -p ${port}", '&', "\n");
		}
#		print $command, "\n";
		system $command;
#		$out=`$command`;
		$media = ""; 	#clear off for the next media
		} else {
		}
	}

}

exit 0