#!/oracle/app/oracle/product/7.3.3/bin/oraperl

$server = "166.101.20.33";
$fname = "d:\movies\most\most1.mpg";
$framm = "0";
$fz = "1024000";
$fn = "1000";
$enc = "MPEG1";
$bitrate = "1692";
$framerate = "30";
$access = " ";
$downld = "YES";
$frsvariable = " ";

print "Content-type: vod/nvs\n\n";

print "NVSID\n";		# file id string
print "ServerIP=$server\n";             # server IP
print "Filename=$fname\n";              # filename
print "Offset=$framm\n";		# playback offset in frames
print "Filesize=$fz\n";             	# file size in bytes
print "Length=$ln\n";			# length of the clip in frames
print "Codec=$enc\n";			# encoding
print "Bitrate=$bitrate\n";		# bitrate
print "Framerate=$framerate\n";		# framerate
print "Access=$access\n";		# access level
print "Download=$downld\n";		# download
print "$frsvariable\n";		# FRS table
}
print "---EndOfHTMLdocument---\n";
