#!/usr/bin/perl
$| = 1;
use strict;
use Date::Format;
use CGI qw(Fatalstobrouser);


my $filename = "Proklate2.avi";
my $path = "/tmp/upload/";

unless ( -e $path . $filename ) {

    print STDERR "No such file! $path$filename";
    return 0;

}

my @finfo     = stat("$path$filename");
my $filesize  = $finfo[7];
my $mfile     = $finfo[9];
my $filemtime = time2str( "%D, %d %M %Y %H%i%s %T", $mfile );

open FH, "< $path$filename" or die "Can't open $path$filename: $!";

my $contentSize;
$| = 1;

my $HTTP_RANGE = $ENV{HTTP_RANGE};

if ($HTTP_RANGE) {
    my $range = $HTTP_RANGE;

    # bytes 7210589-14411430/14411431
    $range =~ m/bytes=(\d+)-/;
    $range       = $1;
    $contentSize = $filesize - $1;
    warn("cont size is $contentSize and range is $range\n");
    my $p1 = $filesize - $contentSize;
    my $p2 = $filesize - 1;
    my $p3 = $filesize;
    seek( FH, $p1, 0 ) or die "Couldn't seek to $p1: $!\n";
    print STDOUT  "HTTP/1.1: 206 Partial Content\r\n";
    print STDOUT  "Last-Modified: $filemtime\r\n";
    print STDOUT  "Cache-Control: None\r\n";
    print STDOUT  "Pragma: no-cache\r\n";
    print STDOUT  "Accept-Ranges: byte\r\n";
    print STDOUT  "Content-Disposition: attachment; filename=\"$filename\"\r\n";
    print STDOUT  "Content-Range: bytes " . $p1 . "-" . $p2 . "/" . $p3."\r\n";
    print STDOUT  "Content-Length: $contentSize\r\n";
    print STDOUT  "Proxy-Connection: close\r\n";
    print STDOUT  "Content-type: application/octet-stream\r\n";
    print STDOUT  "\r\n";
}
else {

    $contentSize = $filesize;

    print STDOUT  "Last-Modified: $filemtime\r\n";
    print STDOUT  "Cache-Control: None\r\n";
    print STDOUT  "Pragma: no-cache\r\n";
    print STDOUT  "Accept-Ranges: bytes\r\n";
    print STDOUT  "Content-Disposition: attachment; filename='$filename'\r\n";
    print STDOUT  "Content-Length: $contentSize\r\n";
    print STDOUT  "Content-type: application/octet-stream\r\n";
    print STDOUT  "Proxy-Connection: close\r\n";
    print STDOUT  "\r\n";
}
binmode FH;
my $buffer;

STREAM:
while ( read( FH, my $buffer, 65536 ) ) {
    last STREAM unless print STDOUT $buffer;
}
close FH;