mirror of
https://github.com/claunia/cuetools.net.git
synced 2025-12-16 18:14:25 +00:00
356 lines
10 KiB
PHP
356 lines
10 KiB
PHP
<?php
|
|
|
|
/**
|
|
* Convert php.ini shorthands to byte
|
|
*
|
|
* @author <gilthans dot NO dot SPAM at gmail dot com>
|
|
* @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)<br>', $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)<br>', $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, '<br>';
|
|
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)<br>', $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)<br>', $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)<br>', $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)<br>', $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);
|
|
?>
|