lib/functions.php

   1 <?php
   2 /*
   3  *  Jirafeau, your web file repository
   4  *  Copyright (C) 2008  Julien "axolotl" BERNARD <axolotl@magieeternelle.org>
   5  *  Copyright (C) 2012  Jerome Jutteau <j.jutteau@gmail.com>
   6  *
   7  *  This program is free software: you can redistribute it and/or modify
   8  *  it under the terms of the GNU Affero General Public License as
   9  *  published by the Free Software Foundation, either version 3 of the
  10  *  License, or (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU Affero General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU Affero General Public License
  18  *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 /**
  22  * Transform a string in a path by seperating each letters by a '/'.
  23   * @return path finishing with a '/'
  24  */
  25 function
  26 s2p ($s)
  27 {
  28     $p = '';
  29     for ($i = 0; $i < strlen ($s); $i++)
  30         $p .= $s{$i} . '/';
  31     return $p;
  32 }
  33
  34 /**
  35  * Convert base 16 to base 64
  36  * @returns A string based on 64 characters (0-9, a-z, A-Z, "-" and "_")
  37  */
  38 function
  39 base_16_to_64 ($num)
  40 {
  41     $m = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_';
  42     $hex2bin = array ('0000', # 0
  43                       '0001', # 1
  44                       '0010', # 2
  45                       '0011', # 3
  46                       '0100', # 4
  47                       '0101', # 5
  48                       '0110', # 6
  49                       '0111', # 7
  50                       '1000', # 8
  51                       '1001', # 9
  52                       '1010', # a
  53                       '1011', # b
  54                       '1100', # c
  55                       '1101', # d
  56                       '1110', # e
  57                       '1111'); # f
  58     $o = '';
  59     $b = '';
  60     $i = 0;
  61     # Convert long hex string to bin.
  62     $size = strlen ($num);
  63     for ($i = 0; $i < $size; $i++)
  64         $b .= $hex2bin{hexdec ($num{$i})};
  65     # Convert long bin to base 64.
  66     $size *= 4;
  67     for ($i = $size - 6; $i >= 0; $i -= 6)
  68         $o = $m{bindec (substr ($b, $i, 6))} . $o;
  69     # Some few bits remaining ?
  70     if ($i < 0 && $i > -6)
  71         $o = $m{bindec (substr ($b, 0, $i + 6))} . $o;
  72     return $o;
  73 }
  74
  75 /**
  76   * Generate a random code.
  77   * @param $l code length
  78   * @return  random code.
  79   */
  80 function
  81 jirafeau_gen_random ($l)
  82 {
  83     if ($l <= 0)
  84         return 42;
  85
  86     $code="";
  87     for ($i = 0; $i < $l; $i++)
  88         $code .= dechex (rand (0, 15));
  89
  90     return $code;
  91 }
  92
  93 function is_ssl() {
  94     if ( isset($_SERVER['HTTPS']) ) {
  95         if ( 'on' == strtolower($_SERVER['HTTPS']) )
  96             return true;
  97         if ( '1' == $_SERVER['HTTPS'] )
  98             return true;
  99     } elseif ( isset($_SERVER['SERVER_PORT']) && ( '443' == $_SERVER['SERVER_PORT'] ) ) {
 100         return true;
 101     }
 102     return false;
 103 }
 104
 105 function
 106 jirafeau_human_size ($octets)
 107 {
 108     $u = array ('B', 'KB', 'MB', 'GB', 'TB');
 109     $o = max ($octets, 0);
 110     $p = min (floor (($o ? log ($o) : 0) / log (1024)), count ($u) - 1);
 111     $o /= pow (1024, $p);
 112     return round ($o, 1) . $u[$p];
 113 }
 114
 115 function
 116 jirafeau_clean_rm_link ($link)
 117 {
 118     $p = s2p ("$link");
 119     if (file_exists (VAR_LINKS . $p . $link))
 120         unlink (VAR_LINKS . $p . $link);
 121     $parse = VAR_LINKS . $p;
 122     $scan = array();
 123     while (file_exists ($parse)
 124            && ($scan = scandir ($parse))
 125            && count ($scan) == 2 // '.' and '..' folders => empty.
 126            && basename ($parse) != basename (VAR_LINKS))
 127     {
 128         rmdir ($parse);
 129         $parse = substr ($parse, 0, strlen($parse) - strlen(basename ($parse)) - 1);
 130     }
 131 }
 132
 133 function
 134 jirafeau_clean_rm_file ($md5)
 135 {
 136     $p = s2p ("$md5");
 137     $f = VAR_FILES . $p . $md5;
 138     if (file_exists ($f) && is_file ($f))
 139         unlink ($f);
 140     if (file_exists ($f . '_count') && is_file ($f . '_count'))
 141         unlink ($f . '_count');
 142     $parse = VAR_FILES . $p;
 143     $scan = array();
 144     while (file_exists ($parse)
 145            && ($scan = scandir ($parse))
 146            && count ($scan) == 2 // '.' and '..' folders => empty.
 147            && basename ($parse) != basename (VAR_FILES))
 148     {
 149         rmdir ($parse);
 150         $parse = substr ($parse, 0, strlen($parse) - strlen(basename ($parse)) - 1);
 151     }
 152 }
 153
 154 /**
 155  * transforms a php.ini string representing a value in an integer
 156  * @param $value the value from php.ini
 157  * @returns an integer for this value
 158  */
 159 function jirafeau_ini_to_bytes ($value)
 160 {
 161     $modifier = substr ($value, -1);
 162     $bytes = substr ($value, 0, -1);
 163     switch (strtoupper ($modifier))
 164     {
 165     case 'P':
 166         $bytes *= 1024;
 167     case 'T':
 168         $bytes *= 1024;
 169     case 'G':
 170         $bytes *= 1024;
 171     case 'M':
 172         $bytes *= 1024;
 173     case 'K':
 174         $bytes *= 1024;
 175     default:
 176         break;
 177     }
 178     return $bytes;
 179 }
 180
 181 /**
 182  * gets the maximum upload size according to php.ini
 183  * @returns the maximum upload size in bytes
 184  */
 185 function
 186 jirafeau_get_max_upload_size_bytes ()
 187 {
 188     return min (jirafeau_ini_to_bytes (ini_get ('post_max_size')),
 189                 jirafeau_ini_to_bytes (ini_get ('upload_max_filesize')));
 190 }
 191
 192 /**
 193  * gets the maximum upload size according to php.ini
 194  * @returns the maximum upload size string
 195  */
 196 function
 197 jirafeau_get_max_upload_size ()
 198 {
 199     return jirafeau_human_size(
 200             min (jirafeau_ini_to_bytes (ini_get ('post_max_size')),
 201                  jirafeau_ini_to_bytes (ini_get ('upload_max_filesize'))));
 202 }
 203
 204 /**
 205  * gets a string explaining the error
 206  * @param $code the error code
 207  * @returns a string explaining the error
 208  */
 209 function
 210 jirafeau_upload_errstr ($code)
 211 {
 212     switch ($code)
 213     {
 214     case UPLOAD_ERR_INI_SIZE:
 215     case UPLOAD_ERR_FORM_SIZE:
 216         return t('Your file exceeds the maximum authorized file size. ');
 217         break;
 218
 219     case UPLOAD_ERR_PARTIAL:
 220     case UPLOAD_ERR_NO_FILE:
 221         return
 222             t
 223             ('Your file was not uploaded correctly. You may succeed in retrying. ');
 224         break;
 225
 226     case UPLOAD_ERR_NO_TMP_DIR:
 227     case UPLOAD_ERR_CANT_WRITE:
 228     case UPLOAD_ERR_EXTENSION:
 229         return t('Internal error. You may not succeed in retrying. ');
 230         break;
 231
 232     default:
 233         break;
 234     }
 235     return t('Unknown error. ');
 236 }
 237
 238 /** Remove link and it's file
 239  * @param $link the link's name (hash)
 240  */
 241
 242 function
 243 jirafeau_delete_link ($link)
 244 {
 245     $l = jirafeau_get_link ($link);
 246     if (!count ($l))
 247         return;
 248
 249     jirafeau_clean_rm_link ($link);
 250
 251     $md5 = $l['md5'];
 252     $p = s2p ("$md5");
 253
 254     $counter = 1;
 255     if (file_exists (VAR_FILES . $p . $md5. '_count'))
 256     {
 257         $content = file (VAR_FILES . $p . $md5. '_count');
 258         $counter = trim ($content[0]);
 259     }
 260     $counter--;
 261
 262     if ($counter >= 1)
 263     {
 264         $handle = fopen (VAR_FILES . $p . $md5. '_count', 'w');
 265         fwrite ($handle, $counter);
 266         fclose ($handle);
 267     }
 268
 269     if ($counter == 0)
 270         jirafeau_clean_rm_file ($md5);
 271 }
 272
 273 /**
 274  * Delete a file and it's links.
 275  */
 276 function
 277 jirafeau_delete_file ($md5)
 278 {
 279     $count = 0;
 280     /* Get all links files. */
 281     $stack = array (VAR_LINKS);
 282     while (($d = array_shift ($stack)) && $d != NULL)
 283     {
 284         $dir = scandir ($d);
 285
 286         foreach ($dir as $node)
 287         {
 288             if (strcmp ($node, '.') == 0 || strcmp ($node, '..') == 0 ||
 289                 preg_match ('/\.tmp/i', "$node"))
 290                 continue;
 291
 292             if (is_dir ($d . $node))
 293             {
 294                 /* Push new found directory. */
 295                 $stack[] = $d . $node . '/';
 296             }
 297             elseif (is_file ($d . $node))
 298             {
 299                 /* Read link informations. */
 300                 $l = jirafeau_get_link (basename ($node));
 301                 if (!count ($l))
 302                     continue;
 303                 if ($l['md5'] == $md5)
 304                 {
 305                     $count++;
 306                     jirafeau_delete_link ($node);
 307                 }
 308             }
 309         }
 310     }
 311     jirafeau_clean_rm_file ($md5);
 312     return $count;
 313 }
 314
 315 /**
 316  * handles an uploaded file
 317  * @param $file the file struct given by $_FILE[]
 318  * @param $one_time_download is the file a one time download ?
 319  * @param $key if not empty, protect the file with this key
 320  * @param $time the time of validity of the file
 321  * @param $ip uploader's ip
 322  * @param $crypt boolean asking to crypt or not
 323  * @param $link_name_length size of the link name
 324  * @returns an array containing some information
 325  *   'error' => information on possible errors
 326  *   'link' => the link name of the uploaded file
 327  *   'delete_link' => the link code to delete file
 328  */
 329 function
 330 jirafeau_upload ($file, $one_time_download, $key, $time, $ip, $crypt, $link_name_length)
 331 {
 332     if (empty ($file['tmp_name']) || !is_uploaded_file ($file['tmp_name']))
 333     {
 334         return (array(
 335                  'error' =>
 336                    array ('has_error' => true,
 337                           'why' => jirafeau_upload_errstr ($file['error'])),
 338                  'link' => '',
 339                  'delete_link' => ''));
 340     }
 341
 342     /* array representing no error */
 343     $noerr = array ('has_error' => false, 'why' => '');
 344
 345     /* Crypt file if option is enabled. */
 346     $crypted = false;
 347     $crypt_key = '';
 348     if ($crypt == true && extension_loaded('mcrypt'))
 349     {
 350         $crypt_key = jirafeau_encrypt_file ($file['tmp_name'], $file['tmp_name']);
 351         if (strlen($crypt_key) > 0)
 352             $crypted = true;
 353     }
 354
 355     /* file informations */
 356     $md5 = md5_file ($file['tmp_name']);
 357     $name = str_replace (NL, '', trim ($file['name']));
 358     $mime_type = $file['type'];
 359     $size = $file['size'];
 360
 361     /* does file already exist ? */
 362     $rc = false;
 363     $p = s2p ("$md5");
 364     if (file_exists (VAR_FILES . $p .  $md5))
 365     {
 366         $rc = unlink ($file['tmp_name']);
 367     }
 368     elseif ((file_exists (VAR_FILES . $p) || @mkdir (VAR_FILES . $p, 0755, true))
 369             && move_uploaded_file ($file['tmp_name'], VAR_FILES . $p . $md5))
 370     {
 371         $rc = true;
 372     }
 373     if (!$rc)
 374     {
 375         return (array(
 376                  'error' =>
 377                    array ('has_error' => true,
 378                           'why' => t('Internal error during file creation.')),
 379                  'link' =>'',
 380                  'delete_link' => ''));
 381     }
 382
 383     /* Increment or create count file. */
 384     $counter = 0;
 385     if (file_exists (VAR_FILES . $p . $md5 . '_count'))
 386     {
 387         $content = file (VAR_FILES . $p . $md5. '_count');
 388         $counter = trim ($content[0]);
 389     }
 390     $counter++;
 391     $handle = fopen (VAR_FILES . $p . $md5. '_count', 'w');
 392     fwrite ($handle, $counter);
 393     fclose ($handle);
 394
 395     /* Create delete code. */
 396     $delete_link_code = jirafeau_gen_random (5);
 397
 398     /* md5 password or empty. */
 399     $password = '';
 400     if (!empty ($key))
 401         $password = md5 ($key);
 402
 403     /* create link file */
 404     $link_tmp_name =  VAR_LINKS . $md5 . rand (0, 10000) . '.tmp';
 405     $handle = fopen ($link_tmp_name, 'w');
 406     fwrite ($handle,
 407             $name . NL. $mime_type . NL. $size . NL. $password . NL. $time .
 408             NL . $md5. NL . ($one_time_download ? 'O' : 'R') . NL . date ('U') .
 409             NL . $ip . NL. $delete_link_code . NL . ($crypted ? 'C' : 'O'));
 410     fclose ($handle);
 411     $md5_link = substr(base_16_to_64 (md5_file ($link_tmp_name)), 0, $link_name_length);
 412     $l = s2p ("$md5_link");
 413     if (!@mkdir (VAR_LINKS . $l, 0755, true) ||
 414         !rename ($link_tmp_name,  VAR_LINKS . $l . $md5_link))
 415     {
 416         if (file_exists ($link_tmp_name))
 417             unlink ($link_tmp_name);
 418
 419         $counter--;
 420         if ($counter >= 1)
 421         {
 422             $handle = fopen (VAR_FILES . $p . $md5. '_count', 'w');
 423             fwrite ($handle, $counter);
 424             fclose ($handle);
 425         }
 426         else
 427         {
 428             jirafeau_clean_rm_file ($md5_link);
 429         }
 430         return (array(
 431                  'error' =>
 432                    array ('has_error' => true,
 433                           'why' => t('Internal error during file creation. ')),
 434                  'link' =>'',
 435                  'delete_link' => ''));
 436     }
 437    return (array ('error' => $noerr,
 438                   'link' => $md5_link,
 439                   'delete_link' => $delete_link_code,
 440                   'crypt_key' => $crypt_key));
 441 }
 442
 443 /**
 444  * tells if a mime-type is viewable in a browser
 445  * @param $mime the mime type
 446  * @returns a boolean telling if a mime type is viewable
 447  */
 448 function
 449 jirafeau_is_viewable ($mime)
 450 {
 451     if (!empty ($mime))
 452     {
 453         /* Actually, verify if mime-type is an image or a text. */
 454         $viewable = array ('image', 'text');
 455         $decomposed = explode ('/', $mime);
 456         return in_array ($decomposed[0], $viewable);
 457     }
 458     return false;
 459 }
 460
 461 // Error handling functions.
 462 //! Global array that contains all registered errors.
 463 $error_list = array ();
 464
 465 /**
 466  * Adds an error to the list of errors.
 467  * @param $title the error's title
 468  * @param $description is a human-friendly description of the problem.
 469  */
 470 function
 471 add_error ($title, $description)
 472 {
 473     global $error_list;
 474     $error_list[] = '<p>' . $title. '<br />' . $description. '</p>';
 475 }
 476
 477 /**
 478  * Informs whether any error has been registered yet.
 479  * @return true if there are errors.
 480  */
 481 function
 482 has_error ()
 483 {
 484     global $error_list;
 485     return !empty ($error_list);
 486 }
 487
 488 /**
 489  * Displays all the errors.
 490  */
 491 function
 492 show_errors ()
 493 {
 494     if (has_error ())
 495     {
 496         global $error_list;
 497         echo '<div class="error">';
 498         foreach ($error_list as $error)
 499         {
 500             echo $error;
 501         }
 502         echo '</div>';
 503     }
 504 }
 505
 506 function check_errors ()
 507 {
 508     if (file_exists (JIRAFEAU_ROOT . 'install.php')
 509         && !file_exists (JIRAFEAU_ROOT . 'lib/config.local.php'))
 510     {
 511         header('Location: install.php');
 512         exit;
 513     }
 514
 515     /* check if the destination dirs are writable */
 516     $writable = is_writable (VAR_FILES) && is_writable (VAR_LINKS);
 517
 518     /* Checking for errors. */
 519     if (!is_writable (VAR_FILES))
 520         add_error (t('The file directory is not writable!'), VAR_FILES);
 521
 522     if (!is_writable (VAR_LINKS))
 523         add_error (t('The link directory is not writable!'), VAR_LINKS);
 524
 525     if (!is_writable (VAR_ASYNC))
 526         add_error (t('The async directory is not writable!'), VAR_ASYNC);
 527
 528      if (!is_writable (VAR_BLOCK))
 529         add_error (t('The block directory is not writable!'), VAR_BLOCK);
 530 }
 531
 532 /**
 533  * Read link informations
 534  * @return array containing informations.
 535  */
 536 function
 537 jirafeau_get_link ($hash)
 538 {
 539     $out = array ();
 540     $link = VAR_LINKS . s2p ("$hash") . $hash;
 541
 542     if (!file_exists ($link))
 543         return $out;
 544
 545     $c = file ($link);
 546     $out['file_name'] = trim ($c[0]);
 547     $out['mime_type'] = trim ($c[1]);
 548     $out['file_size'] = trim ($c[2]);
 549     $out['key'] = trim ($c[3], NL);
 550     $out['time'] = trim ($c[4]);
 551     $out['md5'] = trim ($c[5]);
 552     $out['onetime'] = trim ($c[6]);
 553     $out['upload_date'] = trim ($c[7]);
 554     $out['ip'] = trim ($c[8]);
 555     $out['link_code'] = trim ($c[9]);
 556     if (trim ($c[10]) == 'C')
 557             $out['crypted'] = true;
 558
 559     return $out;
 560 }
 561
 562 /**
 563  * List files in admin interface.
 564  */
 565 function
 566 jirafeau_admin_list ($name, $file_hash, $link_hash)
 567 {
 568     echo '<fieldset><legend>';
 569     if (!empty ($name))
 570         echo t('Filename') . ": $name ";
 571     if (!empty ($file_hash))
 572         echo t('file') . ": $file_hash ";
 573     if (!empty ($link_hash))
 574         echo t('link') . ": $link_hash ";
 575     if (empty ($name) && empty ($file_hash) && empty ($link_hash))
 576         echo t('List all files');
 577     echo '</legend>';
 578     echo '<table>';
 579     echo '<tr>';
 580     echo '<td>' . t('Filename') . '</td>';
 581     echo '<td>' . t('Type') . '</td>';
 582     echo '<td>' . t('Size') . '</td>';
 583     echo '<td>' . t('Expire') . '</td>';
 584     echo '<td>' . t('Onetime') . '</td>';
 585     echo '<td>' . t('Upload date') . '</td>';
 586     echo '<td>' . t('Origin') . '</td>';
 587     echo '<td>' . t('Action') . '</td>';
 588     echo '</tr>';
 589
 590     /* Get all links files. */
 591     $stack = array (VAR_LINKS);
 592     while (($d = array_shift ($stack)) && $d != NULL)
 593     {
 594         $dir = scandir ($d);
 595         foreach ($dir as $node)
 596         {
 597             if (strcmp ($node, '.') == 0 || strcmp ($node, '..') == 0 ||
 598                 preg_match ('/\.tmp/i', "$node"))
 599                 continue;
 600             if (is_dir ($d . $node))
 601             {
 602                 /* Push new found directory. */
 603                 $stack[] = $d . $node . '/';
 604             }
 605             elseif (is_file ($d . $node))
 606             {
 607                 /* Read link informations. */
 608                 $l = jirafeau_get_link ($node);
 609                 if (!count ($l))
 610                     continue;
 611
 612                 /* Filter. */
 613                 if (!empty ($name) && !preg_match ("/$name/i", $l['file_name']))
 614                     continue;
 615                 if (!empty ($file_hash) && $file_hash != $l['md5'])
 616                     continue;
 617                 if (!empty ($link_hash) && $link_hash != $node)
 618                     continue;
 619                 /* Print link informations. */
 620                 echo '<tr>';
 621                 echo '<td>' .
 622                 '<form action = "admin.php" method = "post">' .
 623                 '<input type = "hidden" name = "action" value = "download"/>' .
 624                 '<input type = "hidden" name = "link" value = "' . $node . '"/>' .
 625                 '<input type = "submit" value = "' . $l['file_name'] . '" />' .
 626                 '</form>';
 627                 echo '</td>';
 628                 echo '<td>' . $l['mime_type'] . '</td>';
 629                 echo '<td>' . jirafeau_human_size ($l['file_size']) . '</td>';
 630                 echo '<td>' . ($l['time'] == -1 ? '' : strftime ('%c', $l['time'])) .
 631                      '</td>';
 632                 echo '<td>' . $l['onetime'] . '</td>';
 633                 echo '<td>' . strftime ('%c', $l['upload_date']) . '</td>';
 634                 echo '<td>' . $l['ip'] . '</td>';
 635                 echo '<td>' .
 636                 '<form action = "admin.php" method = "post">' .
 637                 '<input type = "hidden" name = "action" value = "delete_link"/>' .
 638                 '<input type = "hidden" name = "link" value = "' . $node . '"/>' .
 639                 '<input type = "submit" value = "' . t('Del link') . '" />' .
 640                 '</form>' .
 641                 '<form action = "admin.php" method = "post">' .
 642                 '<input type = "hidden" name = "action" value = "delete_file"/>' .
 643                 '<input type = "hidden" name = "md5" value = "' . $l['md5'] . '"/>' .
 644                 '<input type = "submit" value = "' . t('Del file and links') . '" />' .
 645                 '</form>' .
 646                 '</td>';
 647                 echo '</tr>';
 648             }
 649         }
 650     }
 651     echo '</table></fieldset>';
 652 }
 653
 654 /**
 655  * Clean expired files.
 656  * @return number of cleaned files.
 657  */
 658 function
 659 jirafeau_admin_clean ()
 660 {
 661     $count = 0;
 662     /* Get all links files. */
 663     $stack = array (VAR_LINKS);
 664     while (($d = array_shift ($stack)) && $d != NULL)
 665     {
 666         $dir = scandir ($d);
 667
 668         foreach ($dir as $node)
 669         {
 670             if (strcmp ($node, '.') == 0 || strcmp ($node, '..') == 0 ||
 671                 preg_match ('/\.tmp/i', "$node"))
 672                 continue;
 673
 674             if (is_dir ($d . $node))
 675             {
 676                 /* Push new found directory. */
 677                 $stack[] = $d . $node . '/';
 678             }
 679             elseif (is_file ($d . $node))
 680             {
 681                 /* Read link informations. */
 682                 $l = jirafeau_get_link (basename ($node));
 683                 if (!count ($l))
 684                     continue;
 685                 $p = s2p ($l['md5']);
 686                 if ($l['time'] > 0 && $l['time'] < time () || // expired
 687                     !file_exists (VAR_FILES . $p . $l['md5']) || // invalid
 688                     !file_exists (VAR_FILES . $p . $l['md5'] . '_count')) // invalid
 689                 {
 690                     jirafeau_delete_link ($node);
 691                     $count++;
 692                 }
 693             }
 694         }
 695     }
 696     return $count;
 697 }
 698
 699
 700 /**
 701  * Clean old async transferts.
 702  * @return number of cleaned files.
 703  */
 704 function
 705 jirafeau_admin_clean_async ()
 706 {
 707     $count = 0;
 708     /* Get all links files. */
 709     $stack = array (VAR_ASYNC);
 710     while (($d = array_shift ($stack)) && $d != NULL)
 711     {
 712         $dir = scandir ($d);
 713
 714         foreach ($dir as $node)
 715         {
 716             if (strcmp ($node, '.') == 0 || strcmp ($node, '..') == 0 ||
 717                 preg_match ('/\.tmp/i', "$node"))
 718                 continue;
 719
 720             if (is_dir ($d . $node))
 721             {
 722                 /* Push new found directory. */
 723                 $stack[] = $d . $node . '/';
 724             }
 725             elseif (is_file ($d . $node))
 726             {
 727                 /* Read async informations. */
 728                 $a = jirafeau_get_async_ref (basename ($node));
 729                 if (!count ($a))
 730                     continue;
 731                 /* Delete transferts older than 1 hour. */
 732                 if (date ('U') - $a['last_edited'] > 3600)
 733                 {
 734                     jirafeau_async_delete (basename ($node));
 735                     $count++;
 736                 }
 737             }
 738         }
 739     }
 740     return $count;
 741 }
 742 /**
 743  * Read async transfert informations
 744  * @return array containing informations.
 745  */
 746 function
 747 jirafeau_get_async_ref ($ref)
 748 {
 749     $out = array ();
 750     $refinfos = VAR_ASYNC . s2p ("$ref") . "$ref";
 751
 752     if (!file_exists ($refinfos))
 753         return $out;
 754
 755     $c = file ($refinfos);
 756     $out['file_name'] = trim ($c[0]);
 757     $out['mime_type'] = trim ($c[1]);
 758     $out['key'] = trim ($c[2], NL);
 759     $out['time'] = trim ($c[3]);
 760     $out['onetime'] = trim ($c[4]);
 761     $out['ip'] = trim ($c[5]);
 762     $out['last_edited'] = trim ($c[6]);
 763     $out['next_code'] = trim ($c[7]);
 764     return $out;
 765 }
 766
 767 /**
 768  * Delete async transfert informations
 769   */
 770 function
 771 jirafeau_async_delete ($ref)
 772 {
 773     $p = s2p ("$ref");
 774     if (file_exists (VAR_ASYNC . $p . $ref))
 775         unlink (VAR_ASYNC . $p . $ref);
 776     if (file_exists (VAR_ASYNC . $p . $ref . '_data'))
 777         unlink (VAR_ASYNC . $p . $ref . '_data');
 778     $parse = VAR_ASYNC . $p;
 779     $scan = array();
 780     while (file_exists ($parse)
 781            && ($scan = scandir ($parse))
 782            && count ($scan) == 2 // '.' and '..' folders => empty.
 783            && basename ($parse) != basename (VAR_ASYNC))
 784     {
 785         rmdir ($parse);
 786         $parse = substr ($parse, 0, strlen($parse) - strlen(basename ($parse)) - 1);
 787     }
 788 }
 789
 790 /**
 791   * Init a new asynchronous upload.
 792   * @param $finename Name of the file to send
 793   * @param $one_time One time upload parameter
 794   * @param $key eventual password (or blank)
 795   * @param $time time limit
 796   * @param $ip ip address of the client
 797   * @return  a string containing a temporary reference followed by a code or the string "Error"
 798   */
 799 function
 800 jirafeau_async_init ($filename, $type, $one_time, $key, $time, $ip)
 801 {
 802     $res = 'Error';
 803
 804     /* Create temporary folder. */
 805     $ref;
 806     $p;
 807     $code = jirafeau_gen_random (4);
 808     do
 809     {
 810         $ref = jirafeau_gen_random (32);
 811         $p = VAR_ASYNC . s2p ($ref);
 812     } while (file_exists ($p));
 813     @mkdir ($p, 0755, true);
 814     if (!file_exists ($p))
 815     {
 816         echo "Error";
 817         return;
 818     }
 819
 820     /* md5 password or empty */
 821     $password = '';
 822     if (!empty ($key))
 823         $password = md5 ($key);
 824
 825     /* Store informations. */
 826     $p .= $ref;
 827     $handle = fopen ($p, 'w');
 828     fwrite ($handle,
 829             str_replace (NL, '', trim ($filename)) . NL .
 830             str_replace (NL, '', trim ($type)) . NL . $password . NL .
 831             $time . NL . ($one_time ? 'O' : 'R') . NL . $ip . NL .
 832             date ('U') . NL . $code . NL);
 833     fclose ($handle);
 834
 835     return $ref . NL . $code ;
 836 }
 837
 838 /**
 839   * Append a piece of file on the asynchronous upload.
 840   * @param $ref asynchronous upload reference
 841   * @param $file piece of data
 842   * @param $code client code for this operation
 843   * @return  a string containing a next code to use or the string "Error"
 844   */
 845 function
 846 jirafeau_async_push ($ref, $data, $code)
 847 {
 848     /* Get async infos. */
 849     $a = jirafeau_get_async_ref ($ref);
 850
 851     /* Check some errors. */
 852     if (count ($a) == 0
 853         || $a['next_code'] != "$code"
 854         || empty ($data['tmp_name'])
 855         || !is_uploaded_file ($data['tmp_name']))
 856         return "Error";
 857
 858     $p = s2p ($ref);
 859
 860     /* Concatenate data. */
 861     $r = fopen ($data['tmp_name'], 'r');
 862     $w = fopen (VAR_ASYNC . $p . $ref . '_data', 'a');
 863     while (!feof ($r))
 864     {
 865         if (fwrite ($w, fread ($r, 1024)) === false)
 866         {
 867             fclose ($r);
 868             fclose ($w);
 869             jirafeau_async_delete ($ref);
 870             return "Error";
 871         }
 872     }
 873     fclose ($r);
 874     fclose ($w);
 875     unlink ($data['tmp_name']);
 876
 877     /* Update async file. */
 878     $code = jirafeau_gen_random (4);
 879     $handle = fopen (VAR_ASYNC . $p . $ref, 'w');
 880     fwrite ($handle,
 881             $a['file_name'] . NL. $a['mime_type'] . NL. $a['key'] . NL .
 882             $a['time'] . NL . $a['onetime'] . NL . $a['ip'] . NL .
 883             date ('U') . NL . $code . NL);
 884     fclose ($handle);
 885     return $code;
 886 }
 887
 888 /**
 889   * Finalyze an asynchronous upload.
 890   * @param $ref asynchronous upload reference
 891   * @param $code client code for this operation
 892   * @param $crypt boolean asking to crypt or not
 893   * @param $link_name_length link name lenght
 894   * @return  a string containing the download reference followed by a delete code or the string "Error"
 895   */
 896 function
 897 jirafeau_async_end ($ref, $code, $crypt, $link_name_length)
 898 {
 899     /* Get async infos. */
 900     $a = jirafeau_get_async_ref ($ref);
 901     if (count ($a) == 0
 902         || $a['next_code'] != "$code")
 903         return "Error";
 904
 905     /* Generate link infos. */
 906     $p = VAR_ASYNC . s2p ($ref) . $ref . "_data";
 907     if (!file_exists($p))
 908         return "Error";
 909
 910     $crypted = false;
 911     $crypt_key = '';
 912     if ($crypt == true && extension_loaded('mcrypt'))
 913     {
 914         $crypt_key = jirafeau_encrypt_file ($p, $p);
 915         if (strlen($crypt_key) > 0)
 916             $crypted = true;
 917     }
 918
 919     $md5 = md5_file ($p);
 920     $size = filesize($p);
 921     $np = s2p ($md5);
 922     $delete_link_code = jirafeau_gen_random (5);
 923
 924     /* File already exist ? */
 925     if (!file_exists (VAR_FILES . $np))
 926         @mkdir (VAR_FILES . $np, 0755, true);
 927     if (!file_exists (VAR_FILES . $np . $md5))
 928         rename ($p, VAR_FILES . $np . $md5);
 929
 930     /* Increment or create count file. */
 931     $counter = 0;
 932     if (file_exists (VAR_FILES . $np . $md5 . '_count'))
 933     {
 934         $content = file (VAR_FILES . $np . $md5. '_count');
 935         $counter = trim ($content[0]);
 936     }
 937     $counter++;
 938     $handle = fopen (VAR_FILES . $np . $md5. '_count', 'w');
 939     fwrite ($handle, $counter);
 940     fclose ($handle);
 941
 942     /* Create link. */
 943     $link_tmp_name =  VAR_LINKS . $md5 . rand (0, 10000) . '.tmp';
 944     $handle = fopen ($link_tmp_name, 'w');
 945     fwrite ($handle,
 946             $a['file_name'] . NL . $a['mime_type'] . NL . $size . NL .
 947             $a['key'] . NL . $a['time'] . NL . $md5 . NL . $a['onetime'] . NL .
 948             date ('U') . NL . $a['ip'] . NL . $delete_link_code . NL . ($crypted ? 'C' : 'O'));
 949     fclose ($handle);
 950     $md5_link = substr(base_16_to_64 (md5_file ($link_tmp_name)), 0, $link_name_length);
 951     $l = s2p ("$md5_link");
 952     if (!@mkdir (VAR_LINKS . $l, 0755, true) ||
 953         !rename ($link_tmp_name,  VAR_LINKS . $l . $md5_link))
 954         echo "Error";
 955
 956     /* Clean async upload. */
 957     jirafeau_async_delete ($ref);
 958     return $md5_link . NL . $delete_link_code . NL . urlencode($crypt_key);
 959 }
 960
 961 /**
 962   * Delete a block.
 963   * @param $id identifier of the block.
 964   */
 965 function
 966 jirafeau_block_delete_ ($id)
 967 {
 968     $p = VAR_BLOCK . s2p ($id);
 969     if (!file_exists ($p))
 970         return;
 971
 972     if (file_exists ($p . $id))
 973         unlink ($p . $id);
 974     if (file_exists ($p . $id . '_infos'))
 975         unlink ($p . $id . '_infos');
 976     $parse = $p;
 977     $scan = array();
 978     while (file_exists ($parse)
 979            && ($scan = scandir ($parse))
 980            && count ($scan) == 2 // '.' and '..' folders => empty.
 981            && basename ($parse) != basename (VAR_BLOCK))
 982     {
 983         rmdir ($parse);
 984         $parse = substr ($parse, 0, strlen($parse) - strlen(basename ($parse)) - 1);
 985     }
 986 }
 987
 988 /**
 989   * Create a file filled with zeros.
 990   * @param $size size of the file.
 991   * @return  a string corresponding to an id or the string "Error"
 992   */
 993 function
 994 jirafeau_block_init ($size)
 995 {
 996     if (!ctype_digit ($size) || $size <= 0)
 997         return "Error";
 998
 999     /* Create folder. */
1000     $id;
1001     do
1002     {
1003         $id = jirafeau_gen_random (32);
1004         $p = VAR_BLOCK . s2p ($id);
1005     } while (file_exists ($p));
1006     @mkdir ($p, 0755, true);
1007     if (!file_exists ($p))
1008     {
1009         echo "Error";
1010         return;
1011     }
1012
1013     /* Create block. */
1014     $p .= $id;
1015     $h = fopen ($p, 'w');
1016     $fill = str_repeat ("\0", 1024);
1017     for ($cnt = 0; $cnt < $size; $cnt += 1024)
1018     {
1019         if ($size - $cnt < 1024)
1020             $fill = str_repeat ("\0", $size - $cnt);
1021         if (fwrite ($h, $fill) === false)
1022         {
1023             fclose ($h);
1024             jirafeau_block_delete_ ($id);
1025             return "Error";
1026         }
1027     }
1028     fclose ($h);
1029
1030     /* Generate a write/delete code. */
1031     $code = jirafeau_gen_random (12);
1032
1033     /* Add block infos. */
1034     if (file_put_contents ($p . '_infos', date ('U') . NL . $size . NL . $code) === FALSE)
1035     {
1036         jirafeau_block_delete_ ($id);
1037         return "Error";
1038     }
1039
1040     return $id . NL . $code;
1041 }
1042
1043 /** Get block size in bytes.
1044   * @param $id identifier of the block
1045   * @return  block size in bytes
1046   */
1047 function
1048 jirafeau_block_get_size ($id)
1049 {
1050     $p = VAR_BLOCK . s2p ($id) . $id;
1051     if (!file_exists ($p))
1052         return "Error";
1053
1054     /* Check date. */
1055     $f = file ($p . '_infos');
1056     $date = trim ($f[0]);
1057     $block_size = trim ($f[1]);
1058     $stored_code = trim ($f[2]);
1059     /* Update date. */
1060     if (date ('U') - $date > JIRAFEAU_HOUR
1061         && date ('U') - $date < JIRAFEAU_MONTH)
1062     {
1063         if (file_put_contents ($p . '_infos', date ('U') . NL . $block_size . NL . $stored_code) === FALSE)
1064         {
1065             jirafeau_block_delete_ ($id);
1066             return "Error";
1067         }
1068     }
1069     /* Remove data. */
1070     elseif (date ('U') - $date >= JIRAFEAU_MONTH)
1071     {
1072         echo date ('U'). " $date ";
1073         jirafeau_block_delete_ ($id);
1074         return "Error";
1075     }
1076
1077     return $block_size;
1078 }
1079
1080 /**
1081   * Read some data in a block.
1082   * @param $id identifier of the block
1083   * @param $start where to read data (starting from zero).
1084   * @param $length length to read.
1085   * @return  echo data
1086   */
1087 function
1088 jirafeau_block_read ($id, $start, $length)
1089 {
1090     if (!ctype_digit ($start) || $start < 0
1091         || !ctype_digit ($length) || $length <= 0)
1092     {
1093         echo "Error";
1094         return;
1095     }
1096
1097     $p = VAR_BLOCK . s2p ($id) . $id;
1098     if (!file_exists ($p))
1099     {
1100         echo "Error";
1101         return;
1102     }
1103
1104     /* Check date. */
1105     $f = file ($p . '_infos');
1106     $date = trim ($f[0]);
1107     $block_size = trim ($f[1]);
1108     $stored_code = trim ($f[2]);
1109     /* Update date. */
1110     if (date ('U') - $date > JIRAFEAU_HOUR
1111         && date ('U') - $date < JIRAFEAU_MONTH)
1112     {
1113         if (file_put_contents ($p . '_infos', date ('U') . NL . $block_size . NL . $stored_code) === FALSE)
1114         {
1115             jirafeau_block_delete_ ($id);
1116             echo "Error";
1117             return;
1118         }
1119     }
1120     /* Remove data. */
1121     elseif (date ('U') - $date >= JIRAFEAU_MONTH)
1122     {
1123         echo date ('U'). " $date ";
1124         jirafeau_block_delete_ ($id);
1125         echo "Error";
1126         return;
1127     }
1128
1129     if ($start + $length > $block_size)
1130     {
1131         echo "Error";
1132         return;
1133     }
1134
1135     /* Read content. */
1136     header ('Content-Length: ' . $length);
1137     header ('Content-Disposition: attachment');
1138
1139     $r = fopen ($p, 'r');
1140     if (fseek ($r, $start) != 0)
1141     {
1142         echo "Error";
1143         return;
1144     }
1145     $c = 1024;
1146     for ($cnt = 0; $cnt < $length && !feof ($r); $cnt += 1024)
1147     {
1148         if ($length - $cnt < 1024)
1149             $c = $length - $cnt;
1150         print fread ($r, $c);
1151         ob_flush();
1152     }
1153     fclose ($r);
1154 }
1155
1156 /**
1157   * Write some data in a block.
1158   * @param $id identifier of the block
1159   * @param $start where to writing data (starting from zero).
1160   * @param $data data to write.
1161   * @param $code code to allow writing.
1162   * @return  string "Ok" or string "Error".
1163   */
1164 function
1165 jirafeau_block_write ($id, $start, $data, $code)
1166 {
1167     if (!ctype_digit ($start) || $start < 0
1168         || strlen ($code) == 0)
1169         return "Error";
1170
1171     $p = VAR_BLOCK . s2p ($id) . $id;
1172     if (!file_exists ($p))
1173         return "Error";
1174
1175     /* Check date. */
1176     $f = file ($p . '_infos');
1177     $date = trim ($f[0]);
1178     $block_size = trim ($f[1]);
1179     $stored_code = trim ($f[2]);
1180     /* Update date. */
1181     if (date ('U') - $date > JIRAFEAU_HOUR
1182         && date ('U') - $date < JIRAFEAU_MONTH)
1183     {
1184         if (file_put_contents ($p . '_infos', date ('U') . NL . $block_size . NL . $stored_code) === FALSE)
1185         {
1186             jirafeau_block_delete_ ($id);
1187             return "Error";
1188         }
1189     }
1190     /* Remove data. */
1191     elseif (date ('U') - $date >= JIRAFEAU_MONTH)
1192     {
1193         jirafeau_block_delete_ ($id);
1194         return "Error";
1195     }
1196
1197     /* Check code. */
1198     if ($stored_code != $code)
1199     {
1200         echo "Error";
1201         return;
1202     }
1203
1204     /* Check data. */
1205     $size = $data['size'];
1206     if ($size <= 0)
1207         return "Error";
1208     if ($start + $size > $block_size)
1209         return "Error";
1210
1211     /* Open data. */
1212     $r = fopen ($data['tmp_name'], 'r');
1213
1214     /* Open Block. */
1215     $w = fopen ($p, 'r+');
1216     if (fseek ($w, $start) != 0)
1217         return "Error";
1218
1219     /* Write content. */
1220     $c = 1024;
1221     for ($cnt = 0; $cnt <= $size && !feof ($w); $cnt += 1024)
1222     {
1223         if ($size - $cnt < 1024)
1224             $c = $size - $cnt;
1225         $d = fread ($r, $c);
1226         fwrite ($w, $d);
1227     }
1228     fclose ($r);
1229     fclose ($w);
1230     unlink ($data['tmp_name']);
1231     return "Ok";
1232 }
1233
1234 /**
1235   * Delete a block.
1236   * @param $id identifier of the block.
1237   * @param $code code to allow writing.
1238   * @return  string "Ok" or string "Error".
1239   */
1240 function
1241 jirafeau_block_delete ($id, $code)
1242 {
1243     $p = VAR_BLOCK . s2p ($id) . $id;
1244
1245     if (!file_exists ($p))
1246         return "Error";
1247
1248     $f = file ($p . '_infos');
1249     $date = trim ($f[0]);
1250     $block_size = trim ($f[1]);
1251     $stored_code = trim ($f[2]);
1252
1253     if ($code != $stored_code)
1254         return "Error";
1255
1256     jirafeau_block_delete_ ($id);
1257     return "Ok";
1258 }
1259
1260 /**
1261  * Clean old unused blocks.
1262  * @return number of cleaned blocks.
1263  */
1264 function
1265 jirafeau_admin_clean_block ()
1266 {
1267     $count = 0;
1268     /* Get all blocks. */
1269     $stack = array (VAR_BLOCK);
1270     while (($d = array_shift ($stack)) && $d != NULL)
1271     {
1272         $dir = scandir ($d);
1273
1274         foreach ($dir as $node)
1275         {
1276             if (strcmp ($node, '.') == 0 || strcmp ($node, '..') == 0)
1277                 continue;
1278
1279             if (is_dir ($d . $node))
1280             {
1281                 /* Push new found directory. */
1282                 $stack[] = $d . $node . '/';
1283             }
1284             elseif (is_file ($d . $node) && preg_match ('/\_infos/i', "$node"))
1285             {
1286                 /* Read block informations. */
1287                 $f = file ($d . $node);
1288                 $date = trim ($f[0]);
1289                 $block_size = trim ($f[1]);
1290                 if (date ('U') - $date >= JIRAFEAU_MONTH)
1291                 {
1292                     jirafeau_block_delete_ (substr($node, 0, -6));
1293                     $count++;
1294                 }
1295             }
1296         }
1297     }
1298     return $count;
1299 }
1300
1301 function
1302 jirafeau_crypt_create_iv($base, $size)
1303 {
1304     $iv = '';
1305     while (strlen ($iv) < $size)
1306         $iv = $iv . $base;
1307     $iv = substr($iv, 0, $size);
1308     return $iv;
1309 }
1310
1311 /**
1312  * Crypt file and returns decrypt key.
1313  * @param $fp_src file path to the file to crypt.
1314  * @param $fp_dst file path to the file to write crypted file (could be the same).
1315  * @return decrypt key composed of the key and the iv separated by a point ('.')
1316  */
1317 function
1318 jirafeau_encrypt_file ($fp_src, $fp_dst)
1319 {
1320     $fs = filesize ($fp_src);
1321     if ($fs === false || $fs == 0 || !extension_loaded('mcrypt'))
1322         return '';
1323
1324     /* Prepare module. */
1325     $m = mcrypt_module_open('rijndael-256', '', 'ofb', '');
1326     /* Generate key. */
1327     $crypt_key = jirafeau_gen_random (10);
1328     $md5_key = md5($crypt_key);
1329     $iv = jirafeau_crypt_create_iv ($md5_key, mcrypt_enc_get_iv_size($m));
1330     /* Init module. */
1331     mcrypt_generic_init($m, $md5_key, $iv);
1332     /* Crypt file. */
1333     $r = fopen ($fp_src, 'r');
1334     $w = fopen ($fp_dst, 'c');
1335     while (!feof ($r))
1336     {
1337         $enc = mcrypt_generic($m, fread ($r, 1024));
1338         if (fwrite ($w, $enc) === false)
1339             return '';
1340     }
1341     fclose ($r);
1342     fclose ($w);
1343     /* Cleanup. */
1344     mcrypt_generic_deinit($m);
1345     mcrypt_module_close($m);
1346     return $crypt_key;
1347 }
1348
1349 /**
1350  * Decrypt file.
1351  * @param $fp_src file path to the file to decrypt.
1352  * @param $fp_dst file path to the file to write decrypted file (could be the same).
1353  * @param $k string composed of the key and the iv separated by a point ('.')
1354  * @return key used to decrypt. a string of length 0 is returned if failed.
1355  */
1356 function
1357 jirafeau_decrypt_file ($fp_src, $fp_dst, $k)
1358 {
1359     $fs = filesize ($fp_src);
1360     if ($fs === false || $fs == 0 || !extension_loaded('mcrypt'))
1361         return false;
1362
1363     /* Init module */
1364     $m = mcrypt_module_open('rijndael-256', '', 'ofb', '');
1365     /* Extract key and iv. */
1366     $crypt_key = $k;
1367     $md5_key = md5($crypt_key);
1368     $iv = jirafeau_crypt_create_iv ($md5_key, mcrypt_enc_get_iv_size($m));
1369     /* Decrypt file. */
1370     $r = fopen ($fp_src, 'r');
1371     $w = fopen ($fp_dst, 'c');
1372     while (!feof ($r))
1373     {
1374         $dec = mdecrypt_generic($m, fread ($r, 1024));
1375         if (fwrite ($w, $dec) === false)
1376             return false;
1377     }
1378     fclose ($r);
1379     fclose ($w);
1380     /* Cleanup. */
1381     mcrypt_generic_deinit($m);
1382     mcrypt_module_close($m);
1383     return true;
1384 }
1385
1386 ?>