\nXML File:
\n";
if( isset($_POST["PentabarfUser"]) && isset($_POST["password"]) && isset($_POST["PentabarfURL"]))
{
echo "Update XCAL-File from Pentabarf..";
if($PentabarfGetWith=="fsockopen")
{
//backup error messeges and delate
$Backuperror_messages = $error_messages;
$fp = fsockopen( "ssl://$PentabarfXMLhost", 443, $errno, $errstr, 30);
// $error_messages = $Backuperror_messages;
if( !$fp)
{
echo "fail: File 'https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"]. "' not readable!".
"[$errstr ($errno)]
";
}
else
{
if( ($fileOut = fopen( "$Tempdir/engelXML", "w")) != FALSE)
{
$head = 'GET /'. $PentabarfXMLpath. $_POST["PentabarfURL"]. ' HTTP/1.1'."\r\n".
'Host: '. $PentabarfXMLhost. "\r\n".
'User-Agent: Engelsystem'. "\r\n".
'Authorization: Basic '.
base64_encode($_POST["PentabarfUser"]. ':'. $_POST["password"])."\r\n".
"\r\n";
fputs( $fp, $head);
$Zeilen = -1;
while (!feof($fp))
{
$Temp= fgets($fp,1024);
// ende des headers
if( $Temp== "f20\r\n" )
{
$Zeilen = 0;
$Temp="";
}
//file ende?
if( $Temp=="0\r\n")
break;
if( ($Zeilen>-1) && ($Temp!="ffb\r\n") )
{
//steuerzeichen ausfiltern
if( strpos( "#$Temp", "\r\n") > 0)
$Temp = substr($Temp, 0, strlen($Temp)-2);
if( strpos( "#$Temp", "1005") > 0)
$Temp = "";
if( strpos( "#$Temp", "783") > 0)
$Temp = "";
//schreiben in file
fputs( $fileOut, $Temp);
$Zeilen++;
}
}
fclose( $fileOut);
echo "
Es wurden $Zeilen Zeilen eingelesen
";
}
else
echo "fail: File '$Tempdir/engelXML' not writeable!
";
fclose($fp);
}
}
elseif($PentabarfGetWith=="fopen")
{
//user uns password in url einbauen
$FileNameIn = "https://". $_POST["PentabarfUser"]. ':'. $_POST["password"]. "@".
$PentabarfXMLhost. "/". $PentabarfXMLpath. $_POST["PentabarfURL"];
if( ($fileIn = fopen( $FileNameIn, "r")) != FALSE)
{
if( ($fileOut = fopen( "$Tempdir/engelXML", "w")) != FALSE)
{
$Zeilen = 0;
while (!feof($fileIn))
{
$Zeilen++;
fputs( $fileOut, fgets( $fileIn));
}
fclose( $fileOut);
echo "
Es wurden $Zeilen Zeilen eingelesen
";
}
else
echo "fail: File '$Tempdir/engelXML' not writeable!
";
fclose( $fileIn);
}
else
echo "fail: File 'https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"]. "' not readable!
";
}
elseif( $PentabarfGetWith=="wget")
{
$Command = "wget --http-user=". $_POST["PentabarfUser"]. " --http-passwd=".$_POST["password"]. " ".
"https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"].
" --output-file=$Tempdir/engelXMLwgetLog --output-document=$Tempdir/engelXML".
" --no-check-certificate";
echo system( $Command, $Status);
if( $Status==0)
echo "OK.
";
else
echo "fail ($Status)($Command).
";
}
elseif( $PentabarfGetWith=="lynx")
{
$Command = "lynx -auth=". $_POST["PentabarfUser"]. ":".$_POST["password"]. " -dump ".
"https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"]. " > $Tempdir/engelXML";
echo system( $Command, $Status);
if( $Status==0)
echo "OK.
";
else
echo "fail ($Status)($Command).
";
}
elseif($PentabarfGetWith=="fopen")
{
//user uns password in url einbauen
$FileNameIn = "https://". $_POST["PentabarfUser"]. ':'. $_POST["password"]. "@".
$PentabarfXMLhost. "/". $PentabarfXMLpath. $_POST["PentabarfURL"];
if( ($fileIn = fopen( $FileNameIn, "r")) != FALSE)
{
if( ($fileOut = fopen( "$Tempdir/engelXML", "w")) != FALSE)
{
$Zeilen = 0;
while (!feof($fileIn))
{
$Zeilen++;
fputs( $fileOut, fgets( $fileIn));
}
fclose( $fileOut);
echo "
Es wurden $Zeilen Zeilen eingelesen
";
}
else
echo "fail: File '$Tempdir/engelXML' not writeable!
";
fclose( $fileIn);
}
else
echo "fail: File 'https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"]. "' not readable!
";
}
elseif( $PentabarfGetWith=="wget")
{
$Command = "wget --http-user=". $_POST["PentabarfUser"]. " --http-passwd=".$_POST["password"]. " ".
"https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"].
" --output-file=$Tempdir/engelXMLwgetLog --output-document=$Tempdir/engelXML".
" --no-check-certificate";
echo system( $Command, $Status);
if( $Status==0)
echo "OK.
";
else
echo "fail ($Status)($Command).
";
}
elseif( $PentabarfGetWith=="lynx")
{
$Command = "lynx -auth=". $_POST["PentabarfUser"]. ":".$_POST["password"]. " -dump ".
"https://$PentabarfXMLhost/$PentabarfXMLpath". $_POST["PentabarfURL"]. " > $Tempdir/engelXML";
echo system( $Command, $Status);
if( $Status==0)
echo "OK.
";
else
echo "fail ($Status)($Command).
";
}
else
echo "The PentabarfGetWith='$PentabarfGetWith' not supported
";
}
else
{
echo "\n";
}
//readXMLfile("xml.php.xml");
if( readXMLfile("$Tempdir/engelXML") == 0)
{
$XMLmain = getXMLsubPease( $XMLmain, "VCALENDAR");
if( $ShowDataStrukture)
{
echo "
";
echo $XMLmain->name;
echo "
";
print_r(array_values ($XMLmain->sub));
echo "
";
}
/*
echo "
";
$Feld=7;
echo "$Feld#". $XMLmain->sub[$Feld]->name. "
";
echo "$Feld#". $XMLmain->sub[$Feld]->sub;
//print_r(array_values ($XMLmain->sub[$Feld]->sub));
while(list($key, $value) = each($XMLmain->sub[$Feld]->sub))
echo "?ID".$value->sub[1]->data. "=". $value->sub[2]->data. "\n";
echo "";
*/
/*##############################################################################################
V e r s i o n
##############################################################################################*/
echo "
\n";
$XMLrelease = getXMLsubPease( $XMLmain, "X-WR-CALDESC");
echo "release: ". $XMLrelease->data. "
\n";
//$XMLreleaseDate = getXMLsubPease( $XMLmain, "RELEASE-DATE");
//echo "release date: ". $XMLreleaseDate->data. "
\n";
echo "
\n";
/*##############################################################################################
V e r s i o n
##############################################################################################*/
if( $EnableRoomFunctions)
include("../../../camp2011/includes/funktion_xml_room.php");
if( $EnableSchudleFunctions)
include("../../../camp2011/includes/funktion_xml_schudle.php");
/*##############################################################################################
U P D A T E A L L
##############################################################################################*/
echo "\n\n
\nUpdate ALL:
\n";
echo "\n";
} //if XMLopenOOK
include ("../../../camp2011/includes/footer.php");
?>