#!/usr/bin/perl 
#use warnings;


# open (datei, "<liste.txt");
# $verzeichnis=<datei>;
# close datei;

$Datten = $ENV{'QUERY_STRING'};

@Daten=split(/&/, $Datten);


@dateien=split(/=/, @Daten[0]);
@verz=split(/=/, @Daten[1]);
$verzeichnis = @verz[1];
 
#  print "Content-type: text/html\n\n";
# 
# print $Datten."<br>\n";
# print @Daten."<br>\n";
# print @dateien."<br>\n";
# print @verz."<br>\n";
# print $verzeichnis."<br>\n";
# print @dateien[1]."<br>\n";
#  exit; 
 



 
download($verzeichnis, @dateien[1]);
# $url = $verzeichnis.@dateien[1]; 
# print "Location: $url\n\n";  



wait();

use File::Path qw( rmtree );

rmtree( $verzeichnis );


# Verzeichnisse in downloads, ‰lter as 1 Tag lˆschen

# opendir(zeig,'../downloads/./');
# @entries = readdir(zeig);
# close zeig;


opendir zeig, '../downloads/./';
while ($entry = readdir zeig){
push (@entries, $entry);
}

#$index=-1;

open (file, ">", "aktion.txt");
print file @entries;
foreach $entry (@entries) {

	#$index++;

	print file $entry."\n";

	if ($entry ne '.' && $entry ne '..'  && $entry ne "index.html") {

		if(-d "../downloads/$entry")  { 

			if ((-M "../downloads/$entry") >1 ) {
			
				rmtree( "../downloads/$entry" );
				print file " wurde gelöscht\n";

			}



		}

	}

}


close (file);

open (datei,">","fertig.txt");
print datei "Nachhause.pl !";
close datei;

# $status="";
# $status=system("../cgi-bin/nachhause.pl","../donwloads/index.html");
# 
# 	wiederwarten:
# 	unless ($status ne "") { 
# 	goto wiederwarten;
# 	}

heimat();


exit;


sub download {


use CGI;

$html=new CGI;


#print $html->header(-type => 'application/octet-stream', -attachment => $_[1]);
print $html->header(-type => 'application/zip', -attachment => $_[1]);        
	open($peunter, "<", $_[0].$_[1]);
	binmode($peunter);
	binmode STDOUT;
	while (read($peunter,$bytes,1024)) {
			unless (eof()) {
			#unless (length($bytes)<1024) { 
			chomp($bytes);
			}
			print $bytes;
	}

	#@data = <$peunter>;
	
	close($peunter);
	
	#print "@data";


}

sub heimat {
# use CGI;
# 
# $htm=new CGI;
# print $htm->header(-type =>'text/html', -expires => 'now');
# print $htm->system("../cgi-bin/nachhause.pl","../donwloads/index.html");
$- =0;
system("../cgi-bin/nachhause.pl","../donwloads/index.html");
}