datatrans (raw game engine)

				
//**************************************
// Name: datatrans (raw game engine)
// Description:You can send data to a server where it will be stored in a file. Then, once created, another party can download this data with the same script.
That is a primitive and easy to understand concept for a data exchange engine for round based strategy games for example.
// By: buhhmann
//
// Inputs:Params: dat (the data), pak (the file), act (the action), mod (optional fwrite-mode)
//
// Returns:Return an error code if something went wrong, or 'OK' when dataupload was successfull, or a timestring plus the content of the file.
//
// Side Effects:That is very basic code and has surely some securityholes!!!!
Also once a file is created it will not be deleted automatically!
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1270&lngWId=8//for details.//**************************************

<?
//Params: dat (the data), pak (the file), act (the action), mod (optional fwrite-mode)
//=============================SETTINGS=================================//
$dir = "./";//Where to save the datapacket...
$maxdat = 2500;//Maximum bytes per datapacket
$fe = ".dp";//FileExtension:Prevents scriptupload etc!
//=============================SECURITY=================================//
if($act==""){echo "ERROR:ACT";exit;}
if($dat=="" && $act=="w"){echo "ERROR:DAT-ACT";exit;}
if($pak==""){echo "ERROR:PAK";exit;}
if(strlen($dat)>$maxdat){echo "ERROR:DATLEN";exit;}
if($mod<>"a"){$mod="w";}
//==============================SCRIPT==================================//
//Action: Read
if($act=="r"){
 $data=file_get_contents($dir.$pak.$fe);
 if(!$data){echo "ERROR:NODATA";exit;}
 echo filemtime($dir.$pak.$fe).":".$data;
}
//Action: Write
if($act=="w"){
 if(!$fh = fopen($dir.$pak.$fe,$mod)){echo "ERROR:FOPEN";exit;}
 if(!fwrite($fh,$dat)){echo "ERROR:FWRITE";exit;}
 fclose($fh);
 echo "OK";
}
?>