#!/usr/bin/perl

# geaendert 2009-03-08
#use Time::Local;
#
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@clear=split("=",$buffer);
#
$readindex=0;
@readstring="";
open(DATEI,"readfile");
while (<DATEI>) {
    chop;
    $readstring[$readindex]="$_";
$readindex++;
}
close(DATEI);

$cronindex=0;
@cronstring="";
open(DATEI,"cronfile");
while (<DATEI>) {
    chop;
    $cronstring[$cronindex]="$_";
$cronindex++;
}
close(DATEI);

if ($clear[0] eq "clear0") {
$readstring[0]=$readstring[1];
$readstring[1]=$readstring[2];
$readstring[2]=$readstring[3];
$readstring[3]=$readstring[4];
$readstring[4]=$readstring[5];
$readstring[5]=$readstring[6];
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[0]=$cronstring[1];
$cronstring[1]=$cronstring[2];
$cronstring[2]=$cronstring[3];
$cronstring[3]=$cronstring[4];
$cronstring[4]=$cronstring[5];
$cronstring[5]=$cronstring[6];
$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(1);
} 

if ($clear[0] eq "clear1") {
$readstring[1]=$readstring[2];
$readstring[2]=$readstring[3];
$readstring[3]=$readstring[4];
$readstring[4]=$readstring[5];
$readstring[5]=$readstring[6];
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[1]=$cronstring[2];
$cronstring[2]=$cronstring[3];
$cronstring[3]=$cronstring[4];
$cronstring[4]=$cronstring[5];
$cronstring[5]=$cronstring[6];
$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(2);
} 

if ($clear[0] eq "clear2") {
$readstring[2]=$readstring[3];
$readstring[3]=$readstring[4];
$readstring[4]=$readstring[5];
$readstring[5]=$readstring[6];
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[2]=$cronstring[3];
$cronstring[3]=$cronstring[4];
$cronstring[4]=$cronstring[5];
$cronstring[5]=$cronstring[6];
$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(3);
} 

if ($clear[0] eq "clear3") {
$readstring[3]=$readstring[4];
$readstring[4]=$readstring[5];
$readstring[5]=$readstring[6];
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[3]=$cronstring[4];
$cronstring[4]=$cronstring[5];
$cronstring[5]=$cronstring[6];
$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(4);
}

if ($clear[0] eq "clear4") {
$readstring[4]=$readstring[5];
$readstring[5]=$readstring[6];
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[4]=$cronstring[5];
$cronstring[5]=$cronstring[6];
$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(5);
}

if ($clear[0] eq "clear5") {
$readstring[5]=$readstring[6];
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[5]=$cronstring[6];
$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(6);
}

if ($clear[0] eq "clear6") {
$readstring[6]=$readstring[7];
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[6]=$cronstring[7];
$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(7);
}

if ($clear[0] eq "clear7") {
$readstring[7]=$readstring[8];
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[7]=$cronstring[8];
$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(8);
}

if ($clear[0] eq "clear8") {
$readstring[8]=$readstring[9];
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[8]=$cronstring[9];
$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(9);
}

if ($clear[0] eq "clear9") {
$readstring[9]=$readstring[10];
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[9]=$cronstring[10];
$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(10);
}

if ($clear[0] eq "clear10") {
$readstring[10]=$readstring[11];
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";

$cronstring[10]=$cronstring[11];
$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(11);
}

if ($clear[0] eq "clear11") {  
$readstring[11]=$readstring[12];
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";             

$cronstring[11]=$cronstring[12];
$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(12);
}

if ($clear[0] eq "clear12") {  
$readstring[12]=$readstring[13];
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";             

$cronstring[12]=$cronstring[13];
$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(13);
}

if ($clear[0] eq "clear13") {  
$readstring[13]=$readstring[14];
$readstring[14]=$readstring[15];
$readstring[15]="";             

$cronstring[13]=$cronstring[14];
$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(14);
}

if ($clear[0] eq "clear14") {  
$readstring[14]=$readstring[15];
$readstring[15]="";             

$cronstring[14]=$cronstring[15];
$cronstring[15]="";
daten_schreiben(15);
}

if ($clear[0] eq "clear15") {  
$readstring[15]="";             

$cronstring[15]="";
daten_schreiben(16);
}

sub daten_schreiben
{
if ($_[0] <= $readindex) {
$index=0;
$readindex=$readindex-1;
open(DATEI1,">readfile");
open(DATEI2,">cronfile");
while ($index<$readindex){
print DATEI1 "$readstring[$index]\n";
print DATEI2 "$cronstring[$index]\n";
$index++;
}
close(DATEI1);
close(DATEI2);
print `crontab cronfile`;
}
}
print "<html>\n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\n";
print "<meta http-equiv=\"refresh\" content=\"0; URL=index.pl\">\n";
print "</head>\n";
print "<body bgcolor=\"#339966\">\n";
print "<p align=\"center\"><a href=\"index.pl\">Zurück zu Videomin</a></p>\n";
print "</body>\n";
print "</html>\n";
#