#!/usr/bin/perl

require './filemin-lib.pl';
use lib './lib';
use strict;
use warnings;
use File::Basename;
use Cwd 'abs_path';

&ReadParse();

get_paths();

my $file ='/home/abhishek/Videos/lua.mp4';
my $size = -s "$file";
my $begin=0;
my $end=$size;
(my $name, my $dir, my $ext) = fileparse($file, qr/\.[^.]*/);

print "Content-Type: application/x-vlc-plugin \n";
print "Cache-Control: public, must-revalidate, max-age=0";
print "Pragma: no-cache" ;
print "Content-Disposition: attachment; filename=\"$name$ext\"\n";
print "Content-Transfer-Encoding: binary";
print "Accept-Ranges: bytes";
print "Content-Length:  $end - $begin \n\n";
print "Connection: close"; 

open (FILE, "< $file") or die "can't open $file: $!";
binmode FILE;

my $cur=$begin;
seek(FILE,$begin,0);
while(!eof(FILE) && $cur < $end)
{
	my $buf=1024*16;
	read FILE, $buf, $end-$cur;
	$cur+=1024*16;
}
close FILE;