
<?PHP

// Get File 1

// Sucht eine bestimmte Datei in einem bestimmen Verzeichnis
// Nach Merkmalen im Dateinamen
// Als Endung ist nur .txt (klein!) erlaubt
// Nicht zwingend, sondern durch Einschrnkung, s. Unten

// Sehr speziell

// bergibt Parameter an MELD_FILE_2
// bergibt Parameter an OPEN_FILE
// Fr KORREKTUR und PRUEFEN

// --------------------------
// PREPARE
// --------------------------


// --------------------------
// ORT und ZEIT (Verzeichnis)
// --------------------------


// $StammVerzeichnis = ("angebote/");
// StammVerzeichnis Abgelegt in VORGABEN_RS


// --------------------------
// ACHTUNG JAHRESWECHSEL:
// --------------------------
// Jahresangabe Verlegt in vorgabe_rs

// $jahr1 = date("Y");
// $jahr2 = $jahr1-1;

// TEST:
// ECHO " <P> Neuer Durchlauf: <BR>";
// ECHO " &nbsp; Jahr 1: $jahr1 <BR>";
// ECHO " &nbsp; Jahr 2: $jahr2 <BR>";

$Verzeichnis1 = "$StammVerzeichnis$jahr1";
$Verzeichnis2 = "$StammVerzeichnis$jahr2";


// --------------------------
// Ab hier die 2 Verzeichnisse Einzeln prfen
// --------------------------


// --------------------------
// GET DIR 1
// --------------------------


if(is_dir($Verzeichnis1))

{
// TEST VERZEICHNIS 1:
// echo "$Verzeichnis1 vorhanden!<P>\n";


$verz1=opendir ($Verzeichnis1);


// --------------------------

// GOON WHILE:

 while ($file = readdir ($verz1))

// WHILE 1K nicht Auflsbar!

{

// echo "<P>\nTEST1: FILE: $file <P>\n";


// --------------------------
// GET FILENAME DIR 1
// --------------------------


// NO_UNIX_1:

// if ($file != "." && $file != ".." )


// NUR .TXT 1:

if (stristr($file, ".txt") == true)
{
// echo "<P>\nTEST2: FILE: $file <P>\n";


// ENDUNG: TXT!
// Oder Endung weg (4), der Rest ist Komma

$file2 = str_replace(".txt", "", $file);

// echo "<P>\nTEST2B: FILE2: $file2 <P>\n";


// --------------------------


// Auflistung der gltigen Dateien:
// Unntig?
// $file_array[] = $file2;
// $a = (count($file_array));


// --------------------------
// FIND MATCH DIR 1
// --------------------------

// Suche nach Namensbestandteilen:

// Ist Namensbestandteil 1 ($EMail1) und 2 ($PW1)vorhanden:
// An Stelle 1 und 2


$name_array1 = explode(",",$file2);

// TEST: Bestandteile 1:
// for($p=0; $p<count($name_array1); $p++)
// {
// echo "\n<BR>Bestandteil $p: $name_array1[$p] ";
// }


// --------------------------
// PRFUNG 1:
// --------------------------


if (($name_array1[1] == "$EMail1") && ($name_array1[2] == "$PW1"))
{
$VZ1 = "EinTreffer";

// ALT, OHNE BEGRENZUNG
$Woche1 = "$name_array1[0]";

// NEU, MIT BEGRENZUNG
$Begrenzung1 = "$name_array1[5]";


$DateiTreffer = $file2;
$VerzeichnisG = $jahr1;
$num++;
}
// TEST:
// ECHO " &nbsp; Anzahl Treffer VZ1: $num <BR>";
// ECHO " &nbsp; WOCHE VZ1: $Woche1 <BR>";

$Filetest = "OK";

}
// END NUR .TXT 1

}
// END WHILE 1K nicht Auflsbar!

$close_verz = closedir($verz1);
}


// --------------------------
// GET DIR 2 (Wiederholen, wenn 1 nicht da)
// --------------------------


if(is_dir($Verzeichnis2))

{
// TEST VERZEICHNIS 2:
// echo "$Verzeichnis2 vorhanden!<P>\n";


$verz2=opendir ($Verzeichnis2);


// --------------------------

// GOON WHILE:

 while ($file = readdir ($verz2))

// WHILE 2K nicht Auflsbar!

{

// echo "<P>\nTEST1: FILE: $file <P>\n";


// --------------------------
// GET FILENAME DIR 2
// --------------------------


// NO_UNIX_2:
// if ($file != "." && $file != ".." )

// NUR .TXT 2:

if (stristr($file, ".txt") == true)

{
// echo "<P>\nTEST2: FILE: $file <P>\n";


// ENDUNG: TXT!
// Oder Endung weg (4), der Rest ist Komma:

$file2 = str_replace(".txt", "", $file);

// echo "<P>\nTEST2B: FILE2: $file2 <P>\n";


// --------------------------


// Auflistung der gltigen Dateien:
// Unntig?
// $file_array[] = $file2;
// $a = (count($file_array));


// --------------------------
// FIND MATCH DIR 2
// --------------------------

// Suche nach Namensbestandteilen:

// Ist Namensbestandteil 1 ($EMail1) und 2 ($PW1)vorhanden:
// An Stelle 1 und 2


$name_array1 = explode(",",$file2);

// TEST: Bestandteile 2:
// for($p=0; $p<count($name_array1); $p++)
// {
// echo "Bestandteile: $name_array1[$p] <P>\n";
// }


// --------------------------
// PRFUNG 2:
// --------------------------


if (($name_array1[1] == "$EMail1") && ($name_array1[2] == "$PW1"))
{
$VZ2 = "EinTreffer";

// ALT, OHNE BEGRENZUNG
$Woche1 = "$name_array1[0]";

// NEU, MIT BEGRENZUNG
$Begrenzung1 = "$name_array1[5]";


$DateiTreffer = $file2;
$VerzeichnisG = $jahr2;
$num++;
}
// TEST:
// ECHO " &nbsp; Anzahl Treffer VZ2: $num <BR>";
// ECHO " &nbsp; WOCHE VZ2: $Woche1 <BR>";

$Filetest = "OK";

}
// END NUR .TXT 2

}
// END WHILE 2K nicht Auflsbar!

$close_verz = closedir($verz2);
}



// --------------------------
// DATEIDATUM
// --------------------------

// ORIGINAL (Bedingung): if($num == 1) // auch hier
// Gendert auf allg. $Filetest (beliebig zu setzen):

// if($num == 1)

if($Filetest == "OK")
{

// TEST: PROB
// ECHO "<P><B> ARRAY FILE: $DateiTreffer </B>";
// ECHO "<P><B> ARRAY Woche1: $Woche1 </B>";
// ECHO "<BR><B> ARRAY Begrenzung1: $Begrenzung1 </B><P>";


// $Filetest = "OK"; // Verlegt nach oben 2x
$DateiTreffer2KPL = "$StammVerzeichnis$VerzeichnisG/$DateiTreffer.txt";

// TEST:
// ECHO "<P><B> - $num - TREFFER: $DateiTreffer2KPL </B><P>";

// TEST:
// ECHO "<P><B> Name Array [0] ist Woche1: $Woche1 </B><P>";

// $FT = filectime($DateiTreffer2KPL);
// ECHO "<P>filectime: $FT <P>";

if(is_file($DateiTreffer2KPL))
{$LetzteAenderung = gmdate("d m Y H:i", filectime($DateiTreffer2KPL));}
// ECHO "<P>GM-DATUM: $LetzteAenderung <P>";

}


else
{
// TEST:
ECHO "<P>\n<FONT Size=2 COLOR=RED> <B>FEHLER: Keine eindeutige Zuordnung; oder noch keine Datei im Verzeichnis.</B></FONT> <P>\n";
unset($Woche1);
}


// TEST:
// ECHO "<B>Wenn num: $num ist Woche 1: $Woche1 </B><P>";


// --------------------------
// WOCHE UND ABLAUF
// --------------------------

// Zu prfende Verzeichnisse in get_ablauf_rs1

$VerzeichnisPRF = $VerzeichnisG;

// Bedingung fr Ablauf_holen - Beliebig zu belegen aber Bedingung.
// WENN nicht anderweitig schon gesetzt!
// $Filetest = "OK";


// CUT HERE ---------------

include("ablauf_holen_rs1");



// --------------------------
// RESULTAT:
// --------------------------

// Holt ($SpanneX = $Begrenzung1) von ABLAUF_HOLEN

if (($num == 1) && ($AlterInWochen < ($SpanneX + 1)))
{$DateiAktuell = "OK";}

else
{$DateiAktuell = "Nein";}

// TEST: PROB
// ECHO "<B>Begrenzung1: $Begrenzung1 </B><BR>";
// ECHO "<B>Spanne: $SpanneX </B><BR>";
// ECHO "<B>DateiAktuell: $DateiAktuell </B><P>";


// ANSCHLUSS: MELD_FILES


// --------------------------
// END
// --------------------------



// END Get File 1



// --------------------------




?>

