
<?PHP

// Ablauf Holen 1

// Holt Ablauf 

// Prft $Woche auf Gltigkeit 
// Prft das Alter der Datei und stellt fest wann sie abluft

// bergibt Parameter an GET_FILE_RS1
// Fr KORREKTUR und PRUEFEN
// Plus fr AUSGABE direkt 
 


// --------------------------
// GLTIGKEITSPRFUNG
// --------------------------


// --------------------------
// PRF OB $WOCHE1 NUR ZAHLEN UND NICHT NULL
// --------------------------

// Holt $WOCHE1 in AUSGABE von PRUEFEN
// NEU: $SpanneX ndern auf $Begrenzung1 
// (falls vorhanden, also von PRUEFEN)



// 'strspn' sucht in 1 nach dem 1.! Zeichen das in 2 NICHT vorkommt
// 'strcspn' sucht in 1 nach dem 1.! Zeichen das in 2 AUCH vorkommt
// Ausgegeben wird die erste Fundstelle beginnend bei 0
// case sensitive!

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


$ZahlenInWoche1 = strspn("$Woche1","0123456789");
$ZeichenZahl1 = strlen($Woche1);

// TEST:
// ECHO "Woche: |$Woche1| mu eine Zahl sein und <BR>";
// ECHO "Die Zahl der Zahlen |$ZahlenInWoche1| muss gleich sein <BR>";
// ECHO "der Zahl der Ziffern |$ZeichenZahl1| in |$Woche1| sein.<BR>";

if (($ZahlenInWoche1 != $ZeichenZahl1) || ($Woche1 == null)) 
{
$Woche1UnGueltig = "ja";
// TEST:
// ECHO "<P><B> '$Woche1' ist KEINE gltige Ziffer (Zahl).</B><P>";

// ECHO "<P>\n<FONT Size=2 COLOR=RED> <B>FEHLER: Woche ist ungueltig. </B></FONT> <P>\n";
// NG Meldet auch z.B. bei NUll_files in Suche
}

else
{
$Woche1UnGueltig = "nein";
// TEST:
// ECHO "<P><B> '$Woche1' ist daher eine gltige Ziffer (Zahl).</B><P>";
}



// --------------------------
// DATUM (Woche)
// --------------------------

// Zeitspanne, in der die Dateien gltig sind:
// $Spanne wurde in VORGABE_RS1 gelegt, die in KORREKTUR und PRUEFEN 
// VOR GET_FILE liegt

// Auch $WocheAktuell
// $WocheAktuell = date("W");


// --------------------------
// NEU: allg. Zeitspanne ersetzen durch einzelne Begrenzung
// Direkt importiert von $Begrenzung1 bei ABLAUF
// ber GET_FILE aus Dateinamen bei KORREKTUR und PRUEFEN 
// ber GET_FILE aus Dateinamen bei RSSUCHE in ABLAUF_HOLEN_RS1
// --------------------------


$SpanneX = $Spanne;

// TEST: PROB
// echo "<BR>SPANNE: $SpanneX / Begrenzung: $Begrenzung1 / ";

// $SpanneX = $Begrenzung1;
if ($Begrenzung1 != false) 
{$SpanneX = $Begrenzung1;}

// TEST: PROB
// echo "SPANNE NEU: $SpanneX ";



// --------------------------
// ACHTUNG JAHRESWECHSEL:
// --------------------------


if ($VerzeichnisPRF == $jahr1) 
{$AlterInWochen = ($WocheAktuell - $Woche1);}

if ($VerzeichnisPRF == $jahr2) 
{$AlterInWochen = (($WocheAktuell + 52) - $Woche1);}


// TEST: PROB
// ECHO "<BR>Aktuelle Woche: $WocheAktuell <BR>\n";
// ECHO "Alter der Datei in Wochen: $AlterInWochen <BR>\n";
// ECHO "Jahresverzeichnis der Datei: $VerzeichnisPRF <BR>\n";
// ECHO "Erlaubtes Alter (Spanne): $SpanneX Wochen <BR>\n";


// --------------------------
// Ablauf der Datei:
// --------------------------


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

if($Filetest == "OK")
{

// ALT, OHNE BEGRENZUNG
// $Restlauf = ($SpanneX-$AlterInWochen);


$Restlauf = ($SpanneX-$AlterInWochen);
$Ablauf = ($WocheAktuell+$Restlauf);

if ($Ablauf > 52) 
{$Ablauf = ($Ablauf-52);}

// Nicht so gut, statt else "" (unten)? - Geht. 
if ($Restlauf < 0) 
{$Ablauf1 = "Abgelaufen"; }

if ($Restlauf == 0) 
{$Ablauf1 = "In $Restlauf Wochen / Diese Woche"; }

if ($Restlauf == 1) 
{$Ablauf1 = "In $Restlauf Woche / $Ablauf.te Woche"; }

if ($Restlauf > 1) 
{$Ablauf1 = "In $Restlauf Wochen / $Ablauf.te Woche"; }

}

else
{$Ablauf1 = "";}

// TEST:
// ECHO "\n<BR> ABLAUF TEST: $Ablauf1 <BR>\n";

unset($Filetest);
unset($SpanneX); 



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



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



// END Ablauf Holen 1



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




?>

