* @link http://de3.php.net/manual/en/ini.core.php#79564
*/
function php_to_byte($v){
$l = substr($v, -1);
$ret = substr($v, 0, -1);
switch(strtoupper($l)){
case 'P':
$ret *= 1024;
case 'T':
$ret *= 1024;
case 'G':
$ret *= 1024;
case 'M':
$ret *= 1024;
case 'K':
$ret *= 1024;
break;
}
return $ret;
}
// Return the human readable size of a file
// @param int $size a file size
// @param int $dec a number of decimal places
function filesize_h($size, $dec = 1)
{
$sizes = array('byte(s)', 'kb', 'mb', 'gb');
$count = count($sizes);
$i = 0;
while ($size >= 1024 && ($i < $count - 1)) {
$size /= 1024;
$i++;
}
return round($size, $dec) . ' ' . $sizes[$i];
}
function BigEndian2Int($byte_word, $signed = false) {
$int_value = 0;
$byte_wordlen = strlen($byte_word);
for ($i = 0; $i < $byte_wordlen; $i++) {
$int_value += ord($byte_word{$i}) * pow(256, ($byte_wordlen - 1 - $i));
}
if ($signed) {
$sign_mask_bit = 0x80 << (8 * ($byte_wordlen - 1));
if ($int_value & $sign_mask_bit) {
$int_value = 0 - ($int_value & ($sign_mask_bit - 1));
}
}
return $int_value;
}
function LittleEndian2String($number, $minbytes=1, $synchsafe=false) {
$intstring = '';
while ($number > 0) {
if ($synchsafe) {
$intstring = $intstring.chr($number & 127);
$number >>= 7;
} else {
$intstring = $intstring.chr($number & 255);
$number >>= 8;
}
}
return str_pad($intstring, $minbytes, "\x00", STR_PAD_RIGHT);
}
function BigEndian2String($number, $minbytes=1, $synchsafe=false) {
return strrev(LittleEndian2String($number, $minbytes, $synchsafe));
}
function unparse_atom($fp, $atom)
{
// printf('unparse_atom(%s)
', $atom['name']);
$offset = ftell($fp);
fwrite($fp, BigEndian2String(0, 4));
fwrite($fp, $atom['name']);
if ($atom['subatoms'])
foreach ($atom['subatoms'] as $subatom)
unparse_atom($fp, $subatom);
else if ($atom['value'])
fwrite($fp, $atom['value']);
else
die(sprintf("couldn't write long atom %s: size %d", $atom['name'], $atom['size']));
$pos = ftell($fp);
fseek($fp, $offset, SEEK_SET);
fwrite($fp, BigEndian2String($pos - $offset, 4));
fseek($fp, $pos, SEEK_SET);
}
function parse_container_atom($fp, $offset, $len)
{
// printf('parse_container_atom(%d, %d)
', $offset, $len);
$atoms = false;
$fin = $offset + $len;
while ($offset < $fin) {
fseek($fp, $offset, SEEK_SET);
$atom_header = fread($fp, 8);
$atom_size = BigEndian2Int(substr($atom_header, 0, 4));
$atom_name = substr($atom_header, 4, 4);
$atom['name'] = $atom_name;
$atom['size'] = $atom_size - 8;
$atom['offset'] = $offset + 8;
if ($atom_size - 8 <= 32)
$atom['value'] = fread($fp, $atom_size - 8);
else
$atom['value'] = false;
// echo $offset, ":", $atom_size, ":", $atom_name, '
';
if ($atom_name == 'CTDB' || $atom_name == 'DISC' || $atom_name == 'TOC ')
{
$atom['subatoms'] = parse_container_atom($fp, $offset + 8, $atom_size - 8);
foreach ($atom['subatoms'] as $param)
switch ($param['name']) {
case 'HEAD':
case 'CRC ':
case 'NPAR':
case 'CONF':
case 'PAR ':
$atom[$param['name']] = $param;
break;
case 'DISC':
$atom['discs'][] = $param;
break;
}
} else
$atom['subatoms'] = false;
switch ($atom_name)
{
case 'CRC ':
case 'NPAR':
case 'CONF':
$atom['int'] = BigEndian2Int($atom['value']);
break;
}
$offset += $atom_size;
$atoms[] = $atom;
}
if ($offset > $fin)
die("bad atom");
return $atoms;
}
function get_chunk_offset($fp, $offset, $maxlen, $names, $namepos, &$res, &$len)
{
// printf('get_chunk_offset(%d, %d, [%d]%s)
', $offset, $maxlen, $namepos, $names[$namepos]);
$subatoms = parse_container_atom($fp, $offset, $maxlen);
if (!$subatoms) return -1;
foreach($subatoms as $atom)
if ($atom['name'] == $names[$namepos])
{
if ($namepos + 1 >= count($names))
{
$res = $atom['offset'];
$len = $atom['size'];
return 0;
}
return get_chunk_offset($fp, $atom['offset'], $atom['size'], $names, $namepos + 1, $res, $len);
}
return -1;
}
function chunk_offset($fp, $offset, $maxlen, $path, &$res, &$len)
{
// printf('chunk_offset(%d, %d, %s)
', $offset, $maxlen, $path);
return get_chunk_offset($fp, $offset, $maxlen, explode(".", $path), 0, $res, $len);
}
function read_chunk($fp, $offset, $maxlen, $path, $len = 32)
{
// printf('read_chunk(%d, %d, %s)
', $offset, $maxlen, $path);
if (chunk_offset($fp, $offset, $maxlen, $path, $chunk_offset, $chunk_length) < 0) return;
if ($chunk_length > $len) return;
fseek($fp, $chunk_offset, SEEK_SET);
return fread($fp, $chunk_length);
}
function read_int($fp, $offset, $len, $path)
{
// printf('read_int(%d, %d, %s)
', $offset, $len, $path);
return BigEndian2Int(read_chunk($fp, $offset, $len, $path, 4));
}
function copy_data($srcfp, $srcoffset, $dstfp, $dstoffset, $length)
{
fseek($srcfp, $srcoffset, SEEK_SET);
fseek($dstfp, $dstoffset, SEEK_SET);
fwrite($dstfp, fread($srcfp, $length));
}
$file = $_FILES['uploadedfile'];
//echo $file['name'], ini_get('upload_max_filesize');
// give info on PHP catched upload errors
if($file['error']) switch($file['error']){
case 1:
case 2:
echo sprintf($lang['uploadsize'],
filesize_h(php_to_byte(ini_get('upload_max_filesize'))));
echo "Error ", $file['error'];
return;
default:
echo $lang['uploadfail'];
echo "Error ", $file['error'];
}
//if ($_SERVER['HTTP_USER_AGENT'] != "CUETools 205") {
// echo "user agent ", $_SERVER['HTTP_USER_AGENT'], " is not allowed";
// return;
//}
$tmpname = $file['tmp_name'];
$size = (@file_exists($tmpname)) ? filesize($tmpname) : 0;
if ($size == 0) {
echo "no file uploaded";
return;
}
$id = $_POST['id'];
$err = sscanf($id, "%03d-%04x%04x-%04x%04x-%04x%04x", $tracks, $id1a, $id1b, $id2a, $id2b, $cddbida, $cddbidb);
$parsedid = sprintf("%03d-%04x%04x-%04x%04x-%04x%04x", $tracks, $id1a, $id1b, $id2a, $id2b, $cddbida, $cddbidb);
if ($id != $parsedid) {
echo "bad id ", $id;
return;
}
$fp = fopen($tmpname, 'rb');
if (chunk_offset($fp, 0, $size, 'CTDB.DISC', $disc_offset, $disc_length) < 0)
die("bad file");
$head = read_chunk($fp, 0, $size, 'CTDB.HEAD', 20);
$crc = read_int($fp, $disc_offset, $disc_length, 'CRC ');
$npar = read_int($fp, $disc_offset, $disc_length, 'NPAR');
$tool = read_chunk($fp, $disc_offset, $disc_length, 'TOOL');
$version = BigEndian2Int(substr($head,0,4));
$disccount = BigEndian2Int(substr($head,4,4));
$total = BigEndian2Int(substr($head,8,4));
fclose($fp);
$target_path = sprintf("parity/%x/%x/%x", $id1b & 15, ($id1b >> 4) & 15, ($id1b >> 8) & 15);
$target_file = sprintf("%s/dBCT-%s.bin", $target_path, $parsedid);
@mkdir($target_path, 0777, true);
if ($npar < 8 || $npar > 16 || $version != 256 || $disccount != 1) {
printf("bad file: version=%d, disccount=%d, total=%d, npar=%d, tool=%s",
$version, $disccount, $total, $npar, $tool);
return;
}
if (!@file_exists($target_file)) {
if(!move_uploaded_file($tmpname, $target_file)) {
echo "there was an error uploading the file, please try again!";
return;
}
printf("%s has been uploaded", $parsedid);
return;
}
$fp = fopen($tmpname, 'rb');
$fpstats = fstat($fp);
$db = parse_container_atom($fp, 0, $fpstats['size']);
foreach ($db as $entry) if($entry['name'] == 'CTDB') $ctdb = $entry;
if (@file_exists($target_file)) {
$fp1 = fopen($target_file, 'rb');
$fp1stats = fstat($fp1);
$db1 = parse_container_atom($fp1, 0, $fp1stats['size']);
foreach ($db1 as $entry) if($entry['name'] == 'CTDB') $ctdb1 = $entry;
}
$ftyp['name'] = 'ftyp';
$ftyp['value'] = 'CTDB';
$newctdb['name'] = 'CTDB';
$newhead['name'] = 'HEAD';
$newtotal['name'] = 'TOTL';
$newtotal['value'] = $ctdb1 ? BigEndian2String(BigEndian2Int(substr($ctdb1['HEAD']['value'],8,4)) + 1,4) : substr($ctdb['HEAD']['value'],8,4);
$newhead['subatoms'][] = $newtotal;
$newctdb['subatoms'][] = $newhead;
$discs = 0;
foreach ($ctdb['subatoms'] as $disc)
if ($disc['name'] == 'DISC')
{
$crc = $disc['CRC ']['value'];
$newdisc = false;
$newdisc['name'] = 'DISC';
$newdisc['subatoms'][] = $disc['CRC '];
$newdisc['subatoms'][] = $disc['NPAR'];
$newdisc['subatoms'][] = $disc['CONF'];
fseek($fp, $disc['PAR ']['offset']);
$newpar['name'] = 'PAR ';
$newpar['value'] = fread($fp, 16);
$newdisc['subatoms'][] = $newpar;
$newctdb['subatoms'][] = $newdisc;
$discs++;
}
if ($discs > 1)
die('One disc at a time, please');
if ($discs < 1)
die('No disc records found');
if ($ctdb1)
foreach ($ctdb1['subatoms'] as $disc)
if ($disc['name'] == 'DISC')
{
if ($crc == $disc['CRC ']['value'])
die("duplicate entry");
$newdisc = false;
$newdisc['name'] = 'DISC';
$newdisc['subatoms'][] = $disc['CRC '];
$newdisc['subatoms'][] = $disc['NPAR'];
$newdisc['subatoms'][] = $disc['CONF'];
fseek($fp1, $disc['PAR ']['offset']);
$newpar['name'] = 'PAR ';
$newpar['value'] = fread($fp1, 16);
$newdisc['subatoms'][] = $newpar;
$newctdb['subatoms'][] = $newdisc;
}
$destpath = sprintf("%s/%s/", $target_path, $parsedid);
@mkdir($destpath, 0777, true);
$tname = sprintf("%s/ctdb.tmp", $destpath);
$tfp = fopen($tname, 'wb');
unparse_atom($tfp,$ftyp);
unparse_atom($tfp,$newctdb);
fclose($tfp);
$crca = BigEndian2Int(substr($crc,0,2));
$crcb = BigEndian2Int(substr($crc,2,2));
$destname = sprintf("%s/%04x%04x.bin", $destpath, $crca, $crcb);
if(!move_uploaded_file($tmpname, $destname))
die('error uploading file');
if(!rename($tname,sprintf("%s/ctdb.bin", $destpath)))
die('error uploading file');
fclose($fp);
if ($fp1) fclose($fp1);
printf("%s has been updated", $parsedid);
?>