#!/usr/bin/perl

#######################################################################

$log = "logfile/video01-log.cvs";

use Fcntl ':flock';
require 'lib/zeit.pl';
require 'lib/info.pl';

#######################################################################

$host = &clientname();

@zeit = &zeitfeld();

$Jetztzeit =  "$zeit[0] - $zeit[1]";

# Log als CVS-Datei schreiben: Zeit - Host - Browserkennung - Referrer
open (LOG, ">>$log");
 flock (LOG, LOCK_EX);
 print LOG "$Jetztzeit\,$host\,$ENV{'HTTP_USER_AGENT'}\,$ENV{'HTTP_REFERER'}\n";
close (LOG);

print "Location:http://www.fh-friedberg.de/users/chilf/abi_videos/abi94tl_abistreich01_mpeg.zip\n\n";