require "functions.pl";

#initialize session data
CGI::Session->name($session_name);
$query = new CGI;
$session = new CGI::Session;

#do we have an id?
if($query->param('id'))
{
	#check if video with requested id is in the database
	my $sth = $dbh->prepare(qq{select title from videos where id = ? });
	$sth->execute($query->param('id'));
	
	if(($title) = $sth->fetchrow_array())
	{
		#if referer is not the local site update referer table
		$referer = $query->referer() or $referer = '';
		if($referer !~ /^$domain/)
		{
			#check if already in database
			$sth = $dbh->prepare(qq{select 1 from referer where videoid = ? and referer = ? }) or die $dbh->errstr;
			my $rowcount = $sth->execute($query->param('id'), $referer) or die $dbh->errstr;
			$sth->finish() or die $dbh->errstr;
			
			if($rowcount > 0)
			{
				#video is in database - increase referercount
				$dbh->do(qq{update referer set count=count+1 where videoid = ? and referer = ? },
						undef, $query->param('id'), $referer) or die $dbh->errstr;
			}
			else
			{
				#add new referer
				$dbh->do(qq{insert into referer (videoid, referer) values (?, ?) },
						undef, $query->param('id'), $referer) or die $dbh->errstr;
			}
		}
		
		#are we only watching this video or downloading it?
		if($query->param('view'))
		{
			#seems we only want to watch it - update viewcount
			$dbh->do(qq{update videos set viewcount=viewcount+1 where id = ? }, undef, $query->param('id')) or die $dbh->errstr;
		}
		else
		{
			#video is being downloaded - update downloadcount
			$dbh->do(qq{update videos set downloadcount=downloadcount+1 where id = ? }, undef, $query->param('id')) or die $dbh->errstr;
		}
		
		#in both cases - do some slurp-eaze to the browser
		open(FILE, "<$root/videos/".$query->param('id'));
		
		$filesize = -s "$root/videos/".$query->param('id');
		$range = $query->http('range');
		$range =~ s/bytes=([0-9]+)-/$1/;
		
		#if a specific range is requested send http partial content headers and seek in the inputfile
		if($range)
		{
			#if $range is equal or more than filesize throw http 416 header
			if($range >= $filesize)
			{
				print $query->header(-status=>'416 Requested Range Not Satisfiable');
			}
			else
			{
				print $query->header(-type=>'application/ogg',
						-content_length=> $filesize-$range,
						-status=>'206 Partial Content',
						-attachment=>$title.".ogv",
						-accept_ranges=> "bytes",
						-content_range=> "bytes $range-".($filesize-1)."/$filesize"
						);
					
				seek FILE, $range, 0;
			}
		}
		else
		{
			print $query->header(-type=>'application/ogg',
					-content_length=> $filesize,
					-attachment=>$title.".ogv"
					);
		}
		
		while (my $BytesRead = read (FILE, $buff, 8192))
		{
			print $buff;
		}
		close(FILE);
	}
	else
	{
		@userinfo = get_userinfo_from_sid($session->id);

		@page = get_page_array(@userinfo);
	
		$page->{'message'}->{'type'} = "error";
		$page->{'message'}->{'text'} = "error_202c";
	
		print output_page();
	}
}
else
{
	@userinfo = get_userinfo_from_sid($session->id);

	@page = get_page_array(@userinfo);
	
	$page->{'message'}->{'type'} = "error";
	$page->{'message'}->{'text'} = "error_202c";
	
	print output_page();
}