#!"D:\perl\bin\perl.exe" 

use DBI;
use CGI qw/:standard/;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
my $dbh = DBI->connect("DBI:mysql:database=video;host=localhost",
"****", "****") || die $DBI::errstr;
print "Content-Type: text/html\n\n";
my $view=param('id');
my $video=param('v');
my $title=param('t');
$result = $dbh->do("SELECT file_id FROM video WHERE file_id='$view'");
$result2 = $dbh->do("SELECT video_id FROM video WHERE video_id='$video'");
$result3 = $dbh->do("SELECT title_id FROM video WHERE title_id='$title'");
print "<center>$result2</center>";
print "<center><script type='text/javascript' src='http://videoserver.3-a.net/files/public/flvpleer/swfobject.js'></script>
 
<div id='mediaspace'>This text will be replaced</div>
 
<script type='text/javascript'>
  var so = new SWFObject('http://videoserver.3-a.net/files/public/flvpleer/player.swf','mpl','640','480','9')
  so.addParam('allowfullscreen','true')
  so.addParam('allowscriptaccess','always')
  so.addParam('wmode','opaque')
  so.addVariable('file','http://videoserver.3-a.net/files/mediagallery/media/$result')
  so.addVariable('image','http://videoserver.3-a.net/files/mediagallery/images/$result.jpg')
  so.write('mediaspace')
</script>
</center>";
print "краткое описание $result3";
$dbh->disconnect();