Artifact 5f508c4d7656a009fdb8bf48b23ca3e8da8e59ee:


0000: 3c 3f 70 68 70 0a 0a 6e 61 6d 65 73 70 61 63 65  <?php..namespace
0010: 20 47 61 72 72 61 64 69 6e 3b 0a 0a 63 6c 61 73   Garradin;..clas
0020: 73 20 46 69 63 68 69 65 72 73 0a 7b 0a 09 70 75  s Fichiers.{..pu
0030: 62 6c 69 63 20 24 69 64 3b 0a 09 70 75 62 6c 69  blic $id;..publi
0040: 63 20 24 6e 6f 6d 3b 0a 09 70 75 62 6c 69 63 20  c $nom;..public 
0050: 24 74 79 70 65 3b 0a 09 70 75 62 6c 69 63 20 24  $type;..public $
0060: 69 6d 61 67 65 3b 0a 09 70 75 62 6c 69 63 20 24  image;..public $
0070: 64 61 74 65 74 69 6d 65 3b 0a 09 70 75 62 6c 69  datetime;..publi
0080: 63 20 24 68 61 73 68 3b 0a 09 70 75 62 6c 69 63  c $hash;..public
0090: 20 24 74 61 69 6c 6c 65 3b 0a 09 70 75 62 6c 69   $taille;..publi
00a0: 63 20 24 69 64 5f 63 6f 6e 74 65 6e 75 3b 0a 0a  c $id_contenu;..
00b0: 09 2f 2a 2a 0a 09 20 2a 20 54 61 69 6c 6c 65 73  ./**.. * Tailles
00c0: 20 64 65 20 6d 69 6e 69 61 74 75 72 65 73 20 61   de miniatures a
00d0: 75 74 6f 72 69 73 c3 a9 65 73 2c 20 70 6f 75 72  utoris..es, pour
00e0: 20 6e 65 20 70 61 73 20 61 76 6f 69 72 20 35 30   ne pas avoir 50
00f0: 30 20 66 69 63 68 69 65 72 73 20 67 c3 a9 6e c3  0 fichiers g..n.
0100: a9 72 c3 a9 73 20 61 76 65 63 20 35 30 30 20 74  .r..s avec 500 t
0110: 61 69 6c 6c 65 73 20 64 69 66 66 c3 a9 72 65 6e  ailles diff..ren
0120: 74 65 73 0a 09 20 2a 20 40 76 61 72 20 61 72 72  tes.. * @var arr
0130: 61 79 0a 09 20 2a 2f 0a 09 70 72 6f 74 65 63 74  ay.. */..protect
0140: 65 64 20 73 74 61 74 69 63 20 24 61 6c 6c 6f 77  ed static $allow
0150: 65 64 5f 74 68 75 6d 62 5f 73 69 7a 65 73 20 3d  ed_thumb_sizes =
0160: 20 5b 32 30 30 2c 20 35 30 30 5d 3b 0a 0a 09 63   [200, 500];...c
0170: 6f 6e 73 74 20 4c 49 45 4e 5f 43 4f 4d 50 54 41  onst LIEN_COMPTA
0180: 20 3d 20 27 63 6f 6d 70 74 61 5f 6a 6f 75 72 6e   = 'compta_journ
0190: 61 6c 27 3b 0a 09 63 6f 6e 73 74 20 4c 49 45 4e  al';..const LIEN
01a0: 5f 57 49 4b 49 20 3d 20 27 77 69 6b 69 5f 70 61  _WIKI = 'wiki_pa
01b0: 67 65 73 27 3b 0a 09 63 6f 6e 73 74 20 4c 49 45  ges';..const LIE
01c0: 4e 5f 4d 45 4d 42 52 45 53 20 3d 20 27 6d 65 6d  N_MEMBRES = 'mem
01d0: 62 72 65 73 27 3b 0a 0a 09 2f 2a 2a 0a 09 20 2a  bres';.../**.. *
01e0: 20 52 65 6e 76 6f 69 65 20 6c 27 55 52 4c 20 76   Renvoie l'URL v
01f0: 65 72 73 20 75 6e 20 66 69 63 68 69 65 72 0a 09  ers un fichier..
0200: 20 2a 20 40 70 61 72 61 6d 20 20 69 6e 74 65 67   * @param  integ
0210: 65 72 20 24 69 64 20 20 20 4e 75 6d c3 a9 72 6f  er $id   Num..ro
0220: 20 64 75 20 66 69 63 68 69 65 72 0a 09 20 2a 20   du fichier.. * 
0230: 40 70 61 72 61 6d 20 20 73 74 72 69 6e 67 20 20  @param  string  
0240: 24 6e 6f 6d 20 20 4e 6f 6d 20 64 65 20 66 69 63  $nom  Nom de fic
0250: 68 69 65 72 20 61 76 65 63 20 65 78 74 65 6e 73  hier avec extens
0260: 69 6f 6e 0a 09 20 2a 20 40 70 61 72 61 6d 20 20  ion.. * @param  
0270: 69 6e 74 65 67 65 72 20 24 73 69 7a 65 20 54 61  integer $size Ta
0280: 69 6c 6c 65 20 64 65 20 6c 61 20 6d 69 6e 69 61  ille de la minia
0290: 74 75 72 65 20 64 c3 a9 73 69 72 c3 a9 65 20 28  ture d..sir..e (
02a0: 70 6f 75 72 20 6c 65 73 20 69 6d 61 67 65 73 29  pour les images)
02b0: 0a 09 20 2a 20 40 72 65 74 75 72 6e 20 73 74 72  .. * @return str
02c0: 69 6e 67 20 20 20 20 20 20 20 20 55 52 4c 20 64  ing        URL d
02d0: 75 20 66 69 63 68 69 65 72 0a 09 20 2a 2f 0a 09  u fichier.. */..
02e0: 73 74 61 74 69 63 20 70 75 62 6c 69 63 20 66 75  static public fu
02f0: 6e 63 74 69 6f 6e 20 5f 67 65 74 55 52 4c 28 24  nction _getURL($
0300: 69 64 2c 20 24 6e 6f 6d 2c 20 24 73 69 7a 65 20  id, $nom, $size 
0310: 3d 20 66 61 6c 73 65 29 0a 09 7b 0a 09 09 24 75  = false)..{...$u
0320: 72 6c 20 3d 20 57 57 57 5f 55 52 4c 20 2e 20 27  rl = WWW_URL . '
0330: 66 2f 27 20 2e 20 62 61 73 65 5f 63 6f 6e 76 65  f/' . base_conve
0340: 72 74 28 28 69 6e 74 29 24 69 64 2c 20 31 30 2c  rt((int)$id, 10,
0350: 20 33 36 29 20 2e 20 27 2f 27 20 2e 20 24 6e 6f   36) . '/' . $no
0360: 6d 3b 0a 0a 09 09 69 66 20 28 24 73 69 7a 65 29  m;....if ($size)
0370: 0a 09 09 7b 0a 09 09 09 24 75 72 6c 20 2e 3d 20  ...{....$url .= 
0380: 27 3f 27 20 2e 20 73 65 6c 66 3a 3a 5f 66 69 6e  '?' . self::_fin
0390: 64 54 68 75 6d 62 53 69 7a 65 28 24 73 69 7a 65  dThumbSize($size
03a0: 29 20 2e 20 27 70 78 27 3b 0a 09 09 7d 0a 0a 09  ) . 'px';...}...
03b0: 09 72 65 74 75 72 6e 20 24 75 72 6c 3b 0a 09 7d  .return $url;..}
03c0: 0a 0a 09 2f 2a 2a 0a 09 20 2a 20 52 65 6e 76 6f  .../**.. * Renvo
03d0: 69 65 20 6c 61 20 74 61 69 6c 6c 65 20 64 65 20  ie la taille de 
03e0: 6d 69 6e 69 61 74 75 72 65 20 6c 61 20 70 6c 75  miniature la plu
03f0: 73 20 70 72 6f 63 68 65 20 64 65 20 6c 61 20 74  s proche de la t
0400: 61 69 6c 6c 65 20 64 65 6d 61 6e 64 c3 a9 65 0a  aille demand..e.
0410: 09 20 2a 20 40 70 61 72 61 6d 20 20 69 6e 74 65  . * @param  inte
0420: 67 65 72 20 24 73 69 7a 65 20 54 61 69 6c 6c 65  ger $size Taille
0430: 20 64 65 6d 61 6e 64 c3 a9 65 0a 09 20 2a 20 40   demand..e.. * @
0440: 72 65 74 75 72 6e 20 69 6e 74 65 67 65 72 20 20  return integer  
0450: 20 20 20 20 20 54 61 69 6c 6c 65 20 70 6f 73 73       Taille poss
0460: 69 62 6c 65 0a 09 20 2a 2f 0a 09 73 74 61 74 69  ible.. */..stati
0470: 63 20 70 72 6f 74 65 63 74 65 64 20 66 75 6e 63  c protected func
0480: 74 69 6f 6e 20 5f 66 69 6e 64 54 68 75 6d 62 53  tion _findThumbS
0490: 69 7a 65 28 24 73 69 7a 65 29 0a 09 7b 0a 09 09  ize($size)..{...
04a0: 24 73 69 7a 65 20 3d 20 28 69 6e 74 29 20 24 73  $size = (int) $s
04b0: 69 7a 65 3b 0a 0a 09 09 69 66 20 28 69 6e 5f 61  ize;....if (in_a
04c0: 72 72 61 79 28 24 73 69 7a 65 2c 20 73 65 6c 66  rray($size, self
04d0: 3a 3a 24 61 6c 6c 6f 77 65 64 5f 74 68 75 6d 62  ::$allowed_thumb
04e0: 5f 73 69 7a 65 73 29 29 0a 09 09 7b 0a 09 09 09  _sizes))...{....
04f0: 72 65 74 75 72 6e 20 24 73 69 7a 65 3b 0a 09 09  return $size;...
0500: 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20 28 73 65  }....foreach (se
0510: 6c 66 3a 3a 24 61 6c 6c 6f 77 65 64 5f 74 68 75  lf::$allowed_thu
0520: 6d 62 5f 73 69 7a 65 73 20 61 73 20 24 73 29 0a  mb_sizes as $s).
0530: 09 09 7b 0a 09 09 09 69 66 20 28 24 73 20 3e 3d  ..{....if ($s >=
0540: 20 24 73 69 7a 65 29 0a 09 09 09 09 72 65 74 75   $size).....retu
0550: 72 6e 20 24 73 69 7a 65 3b 0a 09 09 7d 0a 0a 09  rn $size;...}...
0560: 09 72 65 74 75 72 6e 20 6d 61 78 28 73 65 6c 66  .return max(self
0570: 3a 3a 24 61 6c 6c 6f 77 65 64 5f 74 68 75 6d 62  ::$allowed_thumb
0580: 5f 73 69 7a 65 73 29 3b 0a 09 7d 0a 0a 09 2f 2a  _sizes);..}.../*
0590: 2a 0a 09 20 2a 20 43 6f 6e 73 74 72 75 63 74 65  *.. * Constructe
05a0: 75 72 20 64 65 20 6c 27 6f 62 6a 65 74 20 70 6f  ur de l'objet po
05b0: 75 72 20 75 6e 20 66 69 63 68 69 65 72 0a 09 20  ur un fichier.. 
05c0: 2a 20 40 70 61 72 61 6d 20 69 6e 74 65 67 65 72  * @param integer
05d0: 20 24 69 64 20 4e 75 6d c3 a9 72 6f 20 75 6e 69   $id Num..ro uni
05e0: 71 75 65 20 64 75 20 66 69 63 68 69 65 72 0a 09  que du fichier..
05f0: 20 2a 2f 0a 09 70 75 62 6c 69 63 20 66 75 6e 63   */..public func
0600: 74 69 6f 6e 20 5f 5f 63 6f 6e 73 74 72 75 63 74  tion __construct
0610: 28 24 69 64 2c 20 24 64 61 74 61 20 3d 20 6e 75  ($id, $data = nu
0620: 6c 6c 29 0a 09 7b 0a 09 09 69 66 20 28 69 73 5f  ll)..{...if (is_
0630: 6e 75 6c 6c 28 24 64 61 74 61 29 29 0a 09 09 7b  null($data))...{
0640: 0a 09 09 09 24 64 61 74 61 20 3d 20 44 42 3a 3a  ....$data = DB::
0650: 67 65 74 49 6e 73 74 61 6e 63 65 28 29 2d 3e 73  getInstance()->s
0660: 69 6d 70 6c 65 51 75 65 72 79 53 69 6e 67 6c 65  impleQuerySingle
0670: 28 27 53 45 4c 45 43 54 20 66 69 63 68 69 65 72  ('SELECT fichier
0680: 73 2e 2a 2c 20 66 63 2e 68 61 73 68 2c 20 66 63  s.*, fc.hash, fc
0690: 2e 74 61 69 6c 6c 65 2c 0a 09 09 09 09 73 74 72  .taille,.....str
06a0: 66 74 69 6d 65 28 5c 27 25 73 5c 27 2c 20 64 61  ftime(\'%s\', da
06b0: 74 65 74 69 6d 65 29 20 41 53 20 64 61 74 65 74  tetime) AS datet
06c0: 69 6d 65 0a 09 09 09 09 46 52 4f 4d 20 66 69 63  ime.....FROM fic
06d0: 68 69 65 72 73 20 49 4e 4e 45 52 20 4a 4f 49 4e  hiers INNER JOIN
06e0: 20 66 69 63 68 69 65 72 73 5f 63 6f 6e 74 65 6e   fichiers_conten
06f0: 75 20 41 53 20 66 63 20 4f 4e 20 66 63 2e 69 64  u AS fc ON fc.id
0700: 20 3d 20 66 69 63 68 69 65 72 73 2e 69 64 5f 63   = fichiers.id_c
0710: 6f 6e 74 65 6e 75 0a 09 09 09 09 57 48 45 52 45  ontenu.....WHERE
0720: 20 66 69 63 68 69 65 72 73 2e 69 64 20 3d 20 3f   fichiers.id = ?
0730: 3b 27 2c 20 74 72 75 65 2c 20 28 69 6e 74 29 24  ;', true, (int)$
0740: 69 64 29 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28  id);...}....if (
0750: 21 24 64 61 74 61 29 0a 09 09 7b 0a 09 09 09 74  !$data)...{....t
0760: 68 72 6f 77 20 6e 65 77 20 5c 49 6e 76 61 6c 69  hrow new \Invali
0770: 64 41 72 67 75 6d 65 6e 74 45 78 63 65 70 74 69  dArgumentExcepti
0780: 6f 6e 28 27 43 65 20 66 69 63 68 69 65 72 20 6e  on('Ce fichier n
0790: 5c 27 65 78 69 73 74 65 20 70 61 73 2e 27 29 3b  \'existe pas.');
07a0: 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20  ...}....foreach 
07b0: 28 24 64 61 74 61 20 61 73 20 24 6b 65 79 3d 3e  ($data as $key=>
07c0: 24 76 61 6c 75 65 29 0a 09 09 7b 0a 09 09 09 24  $value)...{....$
07d0: 74 68 69 73 2d 3e 24 6b 65 79 20 3d 20 24 76 61  this->$key = $va
07e0: 6c 75 65 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 2f 2a  lue;...}..}.../*
07f0: 2a 0a 09 20 2a 20 52 65 6e 76 6f 69 65 20 6c 27  *.. * Renvoie l'
0800: 61 64 72 65 73 73 65 20 64 27 61 63 63 c3 a8 73  adresse d'acc..s
0810: 20 61 75 20 66 69 63 68 69 65 72 0a 09 20 2a 20   au fichier.. * 
0820: 40 70 61 72 61 6d 20 20 62 6f 6f 6c 65 61 6e 20  @param  boolean 
0830: 24 73 69 7a 65 20 54 61 69 6c 6c 65 20 c3 a9 76  $size Taille ..v
0840: 65 6e 74 75 65 6c 6c 65 20 64 65 20 6c 61 20 6d  entuelle de la m
0850: 69 6e 69 61 74 75 72 65 20 64 65 6d 61 6e 64 c3  iniature demand.
0860: a9 65 0a 09 20 2a 20 40 72 65 74 75 72 6e 20 73  .e.. * @return s
0870: 74 72 69 6e 67 20 20 20 20 20 20 20 20 55 52 4c  tring        URL
0880: 20 64 27 61 63 63 c3 a8 73 20 61 75 20 66 69 63   d'acc..s au fic
0890: 68 69 65 72 0a 09 20 2a 2f 0a 09 70 75 62 6c 69  hier.. */..publi
08a0: 63 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 55 52  c function getUR
08b0: 4c 28 24 73 69 7a 65 20 3d 20 66 61 6c 73 65 29  L($size = false)
08c0: 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 73 65 6c  ..{...return sel
08d0: 66 3a 3a 5f 67 65 74 55 52 4c 28 24 74 68 69 73  f::_getURL($this
08e0: 2d 3e 69 64 2c 20 24 74 68 69 73 2d 3e 6e 6f 6d  ->id, $this->nom
08f0: 2c 20 24 73 69 7a 65 29 3b 0a 09 7d 0a 0a 09 2f  , $size);..}.../
0900: 2a 2a 0a 09 20 2a 20 4c 69 65 72 20 75 6e 20 66  **.. * Lier un f
0910: 69 63 68 69 65 72 20 c3 a0 20 75 6e 20 63 6f 6e  ichier .. un con
0920: 74 65 6e 75 0a 09 20 2a 20 40 70 61 72 61 6d 20  tenu.. * @param 
0930: 20 73 74 72 69 6e 67 20 24 74 79 70 65 20 20 20   string $type   
0940: 20 20 20 20 54 79 70 65 20 64 65 20 63 6f 6e 74      Type de cont
0950: 65 6e 75 20 28 63 6f 6e 73 74 61 6e 74 65 73 20  enu (constantes 
0960: 4c 49 45 4e 5f 2a 29 0a 09 20 2a 20 40 70 61 72  LIEN_*).. * @par
0970: 61 6d 20 20 69 6e 74 65 67 65 72 20 24 66 6f 72  am  integer $for
0980: 65 69 67 6e 5f 69 64 20 49 44 20 64 75 20 63 6f  eign_id ID du co
0990: 6e 74 65 6e 75 20 6c 69 c3 a9 0a 09 20 2a 20 40  ntenu li.... * @
09a0: 72 65 74 75 72 6e 20 62 6f 6f 6c 65 61 6e 20 54  return boolean T
09b0: 52 55 45 20 65 6e 20 63 61 73 20 64 65 20 73 75  RUE en cas de su
09c0: 63 63 c3 a8 73 0a 09 20 2a 2f 0a 09 70 75 62 6c  cc..s.. */..publ
09d0: 69 63 20 66 75 6e 63 74 69 6f 6e 20 6c 69 6e 6b  ic function link
09e0: 54 6f 28 24 74 79 70 65 2c 20 24 66 6f 72 65 69  To($type, $forei
09f0: 67 6e 5f 69 64 29 0a 09 7b 0a 09 09 24 64 62 20  gn_id)..{...$db 
0a00: 3d 20 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63  = DB::getInstanc
0a10: 65 28 29 3b 0a 09 09 24 63 68 65 63 6b 20 3d 20  e();...$check = 
0a20: 5b 73 65 6c 66 3a 3a 4c 49 45 4e 5f 4d 45 4d 42  [self::LIEN_MEMB
0a30: 52 45 53 2c 20 73 65 6c 66 3a 3a 4c 49 45 4e 5f  RES, self::LIEN_
0a40: 57 49 4b 49 2c 20 73 65 6c 66 3a 3a 4c 49 45 4e  WIKI, self::LIEN
0a50: 5f 43 4f 4d 50 54 41 5d 3b 0a 0a 09 09 69 66 20  _COMPTA];....if 
0a60: 28 21 69 6e 5f 61 72 72 61 79 28 24 74 79 70 65  (!in_array($type
0a70: 2c 20 24 63 68 65 63 6b 29 29 0a 09 09 7b 0a 09  , $check))...{..
0a80: 09 09 74 68 72 6f 77 20 6e 65 77 20 5c 4c 6f 67  ..throw new \Log
0a90: 69 63 45 78 63 65 70 74 69 6f 6e 28 27 54 79 70  icException('Typ
0aa0: 65 20 64 65 20 6c 69 65 6e 20 64 65 20 66 69 63  e de lien de fic
0ab0: 68 69 65 72 20 69 6e 63 6f 6e 6e 75 2e 27 29 3b  hier inconnu.');
0ac0: 0a 09 09 7d 0a 0a 09 09 75 6e 73 65 74 28 24 63  ...}....unset($c
0ad0: 68 65 63 6b 5b 61 72 72 61 79 5f 73 65 61 72 63  heck[array_searc
0ae0: 68 28 24 74 79 70 65 2c 20 24 63 68 65 63 6b 29  h($type, $check)
0af0: 5d 29 3b 0a 09 09 0a 09 09 66 6f 72 65 61 63 68  ]);......foreach
0b00: 20 28 24 63 68 65 63 6b 20 61 73 20 24 63 68 65   ($check as $che
0b10: 63 6b 5f 74 79 70 65 29 0a 09 09 7b 0a 09 09 09  ck_type)...{....
0b20: 69 66 20 28 24 64 62 2d 3e 73 69 6d 70 6c 65 51  if ($db->simpleQ
0b30: 75 65 72 79 53 69 6e 67 6c 65 28 27 53 45 4c 45  uerySingle('SELE
0b40: 43 54 20 31 20 46 52 4f 4d 20 66 69 63 68 69 65  CT 1 FROM fichie
0b50: 72 73 5f 27 20 2e 20 24 63 68 65 63 6b 5f 74 79  rs_' . $check_ty
0b60: 70 65 20 2e 20 27 20 57 48 45 52 45 20 66 69 63  pe . ' WHERE fic
0b70: 68 69 65 72 20 3d 20 3f 3b 27 2c 20 66 61 6c 73  hier = ?;', fals
0b80: 65 2c 20 28 69 6e 74 29 24 74 68 69 73 2d 3e 69  e, (int)$this->i
0b90: 64 29 29 0a 09 09 09 7b 0a 09 09 09 09 74 68 72  d))....{.....thr
0ba0: 6f 77 20 6e 65 77 20 5c 4c 6f 67 69 63 45 78 63  ow new \LogicExc
0bb0: 65 70 74 69 6f 6e 28 27 43 65 20 66 69 63 68 69  eption('Ce fichi
0bc0: 65 72 20 65 73 74 20 64 c3 a9 6a c3 a0 20 6c 69  er est d..j.. li
0bd0: c3 a9 20 c3 a0 20 75 6e 20 61 75 74 72 65 20 63  .. .. un autre c
0be0: 6f 6e 74 65 6e 75 20 3a 20 27 20 2e 20 24 63 68  ontenu : ' . $ch
0bf0: 65 63 6b 5f 74 79 70 65 29 3b 0a 09 09 09 7d 0a  eck_type);....}.
0c00: 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 64  ..}....return $d
0c10: 62 2d 3e 73 69 6d 70 6c 65 45 78 65 63 28 27 49  b->simpleExec('I
0c20: 4e 53 45 52 54 20 4f 52 20 49 47 4e 4f 52 45 20  NSERT OR IGNORE 
0c30: 49 4e 54 4f 20 66 69 63 68 69 65 72 73 5f 27 20  INTO fichiers_' 
0c40: 2e 20 24 74 79 70 65 20 2e 20 27 20 28 66 69 63  . $type . ' (fic
0c50: 68 69 65 72 2c 20 69 64 29 20 56 41 4c 55 45 53  hier, id) VALUES
0c60: 20 28 3f 2c 20 3f 29 3b 27 2c 0a 09 09 09 28 69   (?, ?);',....(i
0c70: 6e 74 29 24 74 68 69 73 2d 3e 69 64 2c 20 28 69  nt)$this->id, (i
0c80: 6e 74 29 24 66 6f 72 65 69 67 6e 5f 69 64 29 3b  nt)$foreign_id);
0c90: 0a 09 7d 0a 0a 09 2f 2a 2a 0a 09 20 2a 20 56 c3  ..}.../**.. * V.
0ca0: a9 72 69 66 69 65 20 71 75 65 20 6c 27 75 74 69  .rifie que l'uti
0cb0: 6c 69 73 61 74 65 75 72 20 61 20 62 69 65 6e 20  lisateur a bien 
0cc0: 6c 65 20 64 72 6f 69 74 20 64 27 61 63 63 c3 a9  le droit d'acc..
0cd0: 64 65 72 20 c3 a0 20 63 65 20 66 69 63 68 69 65  der .. ce fichie
0ce0: 72 0a 09 20 2a 20 40 70 61 72 61 6d 20 20 6d 69  r.. * @param  mi
0cf0: 78 65 64 20 20 20 24 75 73 65 72 20 54 61 62 6c  xed   $user Tabl
0d00: 65 61 75 20 63 6f 6e 74 65 6e 61 6e 74 20 6c 65  eau contenant le
0d10: 73 20 69 6e 66 6f 73 20 73 75 72 20 6c 27 75 74  s infos sur l'ut
0d20: 69 6c 69 73 61 74 65 75 72 20 63 6f 6e 6e 65 63  ilisateur connec
0d30: 74 c3 a9 2c 20 70 72 6f 76 65 6e 61 6e 74 20 64  t.., provenant d
0d40: 65 20 4d 65 6d 62 72 65 73 3a 3a 67 65 74 4c 6f  e Membres::getLo
0d50: 67 67 65 64 55 73 65 72 2c 20 6f 75 20 66 61 6c  ggedUser, ou fal
0d60: 73 65 0a 09 20 2a 20 40 72 65 74 75 72 6e 20 62  se.. * @return b
0d70: 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 54 52 55  oolean       TRU
0d80: 45 20 73 69 20 6c 27 75 74 69 6c 69 73 61 74 65  E si l'utilisate
0d90: 75 72 20 61 20 6c 65 20 64 72 6f 69 74 20 64 27  ur a le droit d'
0da0: 61 63 63 c3 a9 64 65 72 20 61 75 20 66 69 63 68  acc..der au fich
0db0: 69 65 72 2c 20 73 69 6e 6f 6e 20 46 41 4c 53 45  ier, sinon FALSE
0dc0: 0a 09 20 2a 2f 0a 09 70 75 62 6c 69 63 20 66 75  .. */..public fu
0dd0: 6e 63 74 69 6f 6e 20 63 68 65 63 6b 41 63 63 65  nction checkAcce
0de0: 73 73 28 24 75 73 65 72 20 3d 20 66 61 6c 73 65  ss($user = false
0df0: 29 0a 09 7b 0a 09 09 2f 2f 20 4f 6e 20 72 65 67  )..{...// On reg
0e00: 61 72 64 65 20 64 c3 a9 6a c3 a0 20 73 69 20 6c  arde d..j.. si l
0e10: 65 20 66 69 63 68 69 65 72 20 6e 27 65 73 74 20  e fichier n'est 
0e20: 70 61 73 20 6c 69 c3 a9 20 61 75 20 77 69 6b 69  pas li.. au wiki
0e30: 0a 09 09 24 77 69 6b 69 20 3d 20 44 42 3a 3a 67  ...$wiki = DB::g
0e40: 65 74 49 6e 73 74 61 6e 63 65 28 29 2d 3e 73 69  etInstance()->si
0e50: 6d 70 6c 65 51 75 65 72 79 53 69 6e 67 6c 65 28  mpleQuerySingle(
0e60: 27 53 45 4c 45 43 54 20 77 70 2e 64 72 6f 69 74  'SELECT wp.droit
0e70: 5f 6c 65 63 74 75 72 65 20 46 52 4f 4d 20 66 69  _lecture FROM fi
0e80: 63 68 69 65 72 73 5f 27 20 2e 20 73 65 6c 66 3a  chiers_' . self:
0e90: 3a 4c 49 45 4e 5f 57 49 4b 49 20 2e 20 27 20 41  :LIEN_WIKI . ' A
0ea0: 53 20 6c 69 6e 6b 0a 09 09 09 49 4e 4e 45 52 20  S link....INNER 
0eb0: 4a 4f 49 4e 20 77 69 6b 69 5f 70 61 67 65 73 20  JOIN wiki_pages 
0ec0: 41 53 20 77 70 20 4f 4e 20 77 70 2e 69 64 20 3d  AS wp ON wp.id =
0ed0: 20 6c 69 6e 6b 2e 69 64 0a 09 09 09 57 48 45 52   link.id....WHER
0ee0: 45 20 6c 69 6e 6b 2e 66 69 63 68 69 65 72 20 3d  E link.fichier =
0ef0: 20 3f 20 4c 49 4d 49 54 20 31 3b 27 2c 20 66 61   ? LIMIT 1;', fa
0f00: 6c 73 65 2c 20 28 69 6e 74 29 24 74 68 69 73 2d  lse, (int)$this-
0f10: 3e 69 64 29 3b 0a 0a 09 09 2f 2f 20 50 61 67 65  >id);....// Page
0f20: 20 77 69 6b 69 20 70 75 62 6c 69 71 75 65 2c 20   wiki publique, 
0f30: 61 75 63 75 6e 65 20 76 c3 a9 72 69 66 69 63 61  aucune v..rifica
0f40: 74 69 6f 6e 20 c3 a0 20 66 61 69 72 65 2c 20 73  tion .. faire, s
0f50: 65 75 6c 20 63 61 73 20 64 27 61 63 63 c3 a8 73  eul cas d'acc..s
0f60: 20 c3 a0 20 75 6e 20 66 69 63 68 69 65 72 20 65   .. un fichier e
0f70: 6e 20 64 65 68 6f 72 73 20 64 65 20 6c 27 65 73  n dehors de l'es
0f80: 70 61 63 65 20 61 64 6d 69 6e 0a 09 09 69 66 20  pace admin...if 
0f90: 28 24 77 69 6b 69 20 21 3d 3d 20 66 61 6c 73 65  ($wiki !== false
0fa0: 20 26 26 20 24 77 69 6b 69 20 3d 3d 20 57 69 6b   && $wiki == Wik
0fb0: 69 3a 3a 4c 45 43 54 55 52 45 5f 50 55 42 4c 49  i::LECTURE_PUBLI
0fc0: 43 29 0a 09 09 7b 0a 09 09 09 72 65 74 75 72 6e  C)...{....return
0fd0: 20 74 72 75 65 3b 0a 09 09 7d 0a 09 09 09 0a 09   true;...}......
0fe0: 09 2f 2f 20 50 61 73 20 64 27 75 74 69 6c 69 73  .// Pas d'utilis
0ff0: 61 74 65 75 72 20 63 6f 6e 6e 65 63 74 c3 a9 2c  ateur connect..,
1000: 20 70 61 73 20 64 27 61 63 63 c3 a8 73 20 61 75   pas d'acc..s au
1010: 78 20 66 69 63 68 69 65 72 73 20 64 65 20 6c 27  x fichiers de l'
1020: 65 73 70 61 63 65 20 61 64 6d 69 6e 0a 09 09 69  espace admin...i
1030: 66 20 28 65 6d 70 74 79 28 24 75 73 65 72 5b 27  f (empty($user['
1040: 64 72 6f 69 74 73 27 5d 29 29 0a 09 09 7b 0a 09  droits']))...{..
1050: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a  ..return false;.
1060: 09 09 7d 0a 0a 09 09 69 66 20 28 24 77 69 6b 69  ..}....if ($wiki
1070: 20 21 3d 3d 20 66 61 6c 73 65 29 0a 09 09 7b 0a   !== false)...{.
1080: 09 09 09 2f 2f 20 53 27 69 6c 20 6e 27 61 20 6d  ...// S'il n'a m
1090: c3 aa 6d 65 20 70 61 73 20 64 72 6f 69 74 20 c3  ..me pas droit .
10a0: a0 20 61 63 63 c3 a9 64 65 72 20 61 75 20 77 69  . acc..der au wi
10b0: 6b 69 20 63 27 65 73 74 20 6d 6f 72 74 0a 09 09  ki c'est mort...
10c0: 09 69 66 20 28 24 75 73 65 72 5b 27 64 72 6f 69  .if ($user['droi
10d0: 74 73 27 5d 5b 27 77 69 6b 69 27 5d 20 3c 20 4d  ts']['wiki'] < M
10e0: 65 6d 62 72 65 73 3a 3a 44 52 4f 49 54 5f 41 43  embres::DROIT_AC
10f0: 43 45 53 29 0a 09 09 09 7b 0a 09 09 09 09 72 65  CES)....{.....re
1100: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 09 7d  turn false;....}
1110: 0a 0a 09 09 09 2f 2f 20 4f 6e 20 72 65 6e 76 6f  .....// On renvo
1120: 69 65 20 c3 a0 20 6c 27 6f 62 6a 65 74 20 57 69  ie .. l'objet Wi
1130: 6b 69 20 70 6f 75 72 20 73 61 76 6f 69 72 20 73  ki pour savoir s
1140: 69 20 6c 27 75 74 69 6c 69 73 61 74 65 75 72 20  i l'utilisateur 
1150: 61 20 6c 65 20 64 72 6f 69 74 20 64 65 20 6c 69  a le droit de li
1160: 72 65 20 63 65 20 66 69 63 68 69 65 72 0a 09 09  re ce fichier...
1170: 09 24 5f 77 20 3d 20 6e 65 77 20 57 69 6b 69 3b  .$_w = new Wiki;
1180: 0a 09 09 09 24 5f 77 2d 3e 73 65 74 52 65 73 74  ....$_w->setRest
1190: 72 69 63 74 69 6f 6e 43 61 74 65 67 6f 72 69 65  rictionCategorie
11a0: 28 24 75 73 65 72 5b 27 69 64 5f 63 61 74 65 67  ($user['id_categ
11b0: 6f 72 69 65 27 5d 2c 20 24 75 73 65 72 5b 27 64  orie'], $user['d
11c0: 72 6f 69 74 73 27 5d 5b 27 77 69 6b 69 27 5d 29  roits']['wiki'])
11d0: 3b 0a 09 09 09 72 65 74 75 72 6e 20 24 5f 77 2d  ;....return $_w-
11e0: 3e 63 61 6e 52 65 61 64 50 61 67 65 28 24 77 69  >canReadPage($wi
11f0: 6b 69 29 3b 0a 09 09 7d 0a 0a 09 09 2f 2f 20 4f  ki);...}....// O
1200: 6e 20 72 65 67 61 72 64 65 20 6d 61 69 6e 74 65  n regarde mainte
1210: 6e 61 6e 74 20 73 69 20 6c 65 20 66 69 63 68 69  nant si le fichi
1220: 65 72 20 65 73 74 20 6c 69 c3 a9 20 c3 a0 20 6c  er est li.. .. l
1230: 61 20 63 6f 6d 70 74 61 0a 09 09 24 63 6f 6d 70  a compta...$comp
1240: 74 61 20 3d 20 44 42 3a 3a 67 65 74 49 6e 73 74  ta = DB::getInst
1250: 61 6e 63 65 28 29 2d 3e 73 69 6d 70 6c 65 51 75  ance()->simpleQu
1260: 65 72 79 53 69 6e 67 6c 65 28 27 53 45 4c 45 43  erySingle('SELEC
1270: 54 20 31 20 0a 09 09 09 46 52 4f 4d 20 66 69 63  T 1 ....FROM fic
1280: 68 69 65 72 73 5f 27 20 2e 20 73 65 6c 66 3a 3a  hiers_' . self::
1290: 4c 49 45 4e 5f 43 4f 4d 50 54 41 20 2e 20 27 20  LIEN_COMPTA . ' 
12a0: 57 48 45 52 45 20 66 69 63 68 69 65 72 20 3d 20  WHERE fichier = 
12b0: 3f 20 4c 49 4d 49 54 20 31 3b 27 2c 20 66 61 6c  ? LIMIT 1;', fal
12c0: 73 65 2c 20 28 69 6e 74 29 24 74 68 69 73 2d 3e  se, (int)$this->
12d0: 69 64 29 3b 0a 0a 09 09 69 66 20 28 24 63 6f 6d  id);....if ($com
12e0: 70 74 61 20 26 26 20 24 75 73 65 72 5b 27 64 72  pta && $user['dr
12f0: 6f 69 74 73 27 5d 5b 27 63 6f 6d 70 74 61 27 5d  oits']['compta']
1300: 20 3e 3d 20 4d 65 6d 62 72 65 73 3a 3a 44 52 4f   >= Membres::DRO
1310: 49 54 5f 41 43 43 45 53 29 0a 09 09 7b 0a 09 09  IT_ACCES)...{...
1320: 09 2f 2f 20 4f 4b 20 73 69 20 61 63 63 c3 a8 73  .// OK si acc..s
1330: 20 c3 a0 20 6c 61 20 63 6f 6d 70 74 61 0a 09 09   .. la compta...
1340: 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a 09 09  .return true;...
1350: 7d 0a 0a 09 09 2f 2f 20 45 6e 66 69 6e 2c 20 73  }....// Enfin, s
1360: 69 20 6c 65 20 66 69 63 68 69 65 72 20 65 73 74  i le fichier est
1370: 20 6c 69 c3 a9 20 c3 a0 20 75 6e 20 6d 65 6d 62   li.. .. un memb
1380: 72 65 0a 09 09 24 6d 65 6d 62 72 65 20 3d 20 44  re...$membre = D
1390: 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65 28 29  B::getInstance()
13a0: 2d 3e 73 69 6d 70 6c 65 51 75 65 72 79 53 69 6e  ->simpleQuerySin
13b0: 67 6c 65 28 27 53 45 4c 45 43 54 20 69 64 20 0a  gle('SELECT id .
13c0: 09 09 09 46 52 4f 4d 20 66 69 63 68 69 65 72 73  ...FROM fichiers
13d0: 5f 27 20 2e 20 73 65 6c 66 3a 3a 4c 49 45 4e 5f  _' . self::LIEN_
13e0: 4d 45 4d 42 52 45 53 20 2e 20 27 20 57 48 45 52  MEMBRES . ' WHER
13f0: 45 20 66 69 63 68 69 65 72 20 3d 20 3f 20 4c 49  E fichier = ? LI
1400: 4d 49 54 20 31 3b 27 2c 20 66 61 6c 73 65 2c 20  MIT 1;', false, 
1410: 28 69 6e 74 29 24 74 68 69 73 2d 3e 69 64 29 3b  (int)$this->id);
1420: 0a 0a 09 09 69 66 20 28 24 6d 65 6d 62 72 65 20  ....if ($membre 
1430: 21 3d 3d 20 66 61 6c 73 65 29 0a 09 09 7b 0a 09  !== false)...{..
1440: 09 09 2f 2f 20 44 65 20 6d 61 6e 69 c3 a8 72 65  ..// De mani..re
1450: 20 c3 a9 76 69 64 65 6e 74 65 2c 20 6c 27 75 74   ..vidente, l'ut
1460: 69 6c 69 73 61 74 65 75 72 20 61 20 6c 65 20 64  ilisateur a le d
1470: 72 6f 69 74 20 64 27 61 63 63 c3 a9 64 65 72 20  roit d'acc..der 
1480: 61 75 78 20 66 69 63 68 69 65 72 73 20 6c 69 c3  aux fichiers li.
1490: a9 73 20 c3 a0 20 73 6f 6e 20 70 72 6f 66 69 6c  .s .. son profil
14a0: 0a 09 09 09 69 66 20 28 28 69 6e 74 29 24 6d 65  ....if ((int)$me
14b0: 6d 62 72 65 20 3d 3d 20 24 75 73 65 72 5b 27 69  mbre == $user['i
14c0: 64 27 5d 29 0a 09 09 09 7b 0a 09 09 09 09 72 65  d'])....{.....re
14d0: 74 75 72 6e 20 74 72 75 65 3b 0a 09 09 09 7d 0a  turn true;....}.
14e0: 0a 09 09 09 2f 2f 20 50 6f 75 72 20 76 6f 69 72  ....// Pour voir
14f0: 20 6c 65 73 20 66 69 63 68 69 65 72 73 20 64 65   les fichiers de
1500: 73 20 6d 65 6d 62 72 65 73 20 69 6c 20 66 61 75  s membres il fau
1510: 74 20 70 6f 75 76 6f 69 72 20 6c 65 73 20 67 c3  t pouvoir les g.
1520: a9 72 65 72 0a 09 09 09 69 66 20 28 24 75 73 65  .rer....if ($use
1530: 72 5b 27 64 72 6f 69 74 73 27 5d 5b 27 6d 65 6d  r['droits']['mem
1540: 62 72 65 73 27 5d 20 3e 3d 20 4d 65 6d 62 72 65  bres'] >= Membre
1550: 73 3a 3a 44 52 4f 49 54 5f 45 43 52 49 54 55 52  s::DROIT_ECRITUR
1560: 45 29 0a 09 09 09 7b 0a 09 09 09 09 72 65 74 75  E)....{.....retu
1570: 72 6e 20 74 72 75 65 3b 0a 09 09 09 7d 0a 09 09  rn true;....}...
1580: 7d 0a 0a 09 09 72 65 74 75 72 6e 20 66 61 6c 73  }....return fals
1590: 65 3b 0a 09 7d 0a 0a 09 2f 2a 2a 0a 09 20 2a 20  e;..}.../**.. * 
15a0: 53 75 70 70 72 69 6d 65 20 6c 65 20 66 69 63 68  Supprime le fich
15b0: 69 65 72 0a 09 20 2a 20 40 72 65 74 75 72 6e 20  ier.. * @return 
15c0: 62 6f 6f 6c 65 61 6e 20 54 52 55 45 20 65 6e 20  boolean TRUE en 
15d0: 63 61 73 20 64 65 20 73 75 63 63 c3 a8 73 0a 09  cas de succ..s..
15e0: 20 2a 2f 0a 09 70 75 62 6c 69 63 20 66 75 6e 63   */..public func
15f0: 74 69 6f 6e 20 72 65 6d 6f 76 65 28 29 0a 09 7b  tion remove()..{
1600: 0a 09 09 24 64 62 20 3d 20 44 42 3a 3a 67 65 74  ...$db = DB::get
1610: 49 6e 73 74 61 6e 63 65 28 29 3b 0a 09 09 24 64  Instance();...$d
1620: 62 2d 3e 65 78 65 63 28 27 42 45 47 49 4e 3b 27  b->exec('BEGIN;'
1630: 29 3b 0a 09 09 24 64 62 2d 3e 73 69 6d 70 6c 65  );...$db->simple
1640: 45 78 65 63 28 27 44 45 4c 45 54 45 20 46 52 4f  Exec('DELETE FRO
1650: 4d 20 66 69 63 68 69 65 72 73 5f 63 6f 6d 70 74  M fichiers_compt
1660: 61 5f 6a 6f 75 72 6e 61 6c 20 57 48 45 52 45 20  a_journal WHERE 
1670: 66 69 63 68 69 65 72 20 3d 20 3f 3b 27 2c 20 28  fichier = ?;', (
1680: 69 6e 74 29 24 74 68 69 73 2d 3e 69 64 29 3b 0a  int)$this->id);.
1690: 09 09 24 64 62 2d 3e 73 69 6d 70 6c 65 45 78 65  ..$db->simpleExe
16a0: 63 28 27 44 45 4c 45 54 45 20 46 52 4f 4d 20 66  c('DELETE FROM f
16b0: 69 63 68 69 65 72 73 5f 77 69 6b 69 5f 70 61 67  ichiers_wiki_pag
16c0: 65 73 20 57 48 45 52 45 20 66 69 63 68 69 65 72  es WHERE fichier
16d0: 20 3d 20 3f 3b 27 2c 20 28 69 6e 74 29 24 74 68   = ?;', (int)$th
16e0: 69 73 2d 3e 69 64 29 3b 0a 09 09 24 64 62 2d 3e  is->id);...$db->
16f0: 73 69 6d 70 6c 65 45 78 65 63 28 27 44 45 4c 45  simpleExec('DELE
1700: 54 45 20 46 52 4f 4d 20 66 69 63 68 69 65 72 73  TE FROM fichiers
1710: 5f 6d 65 6d 62 72 65 73 20 57 48 45 52 45 20 66  _membres WHERE f
1720: 69 63 68 69 65 72 20 3d 20 3f 3b 27 2c 20 28 69  ichier = ?;', (i
1730: 6e 74 29 24 74 68 69 73 2d 3e 69 64 29 3b 0a 0a  nt)$this->id);..
1740: 09 09 2f 2f 20 53 75 70 70 72 65 73 73 69 6f 6e  ..// Suppression
1750: 20 64 75 20 63 6f 6e 74 65 6e 75 20 73 27 69 6c   du contenu s'il
1760: 20 6e 27 65 73 74 20 70 61 73 20 75 74 69 6c 69   n'est pas utili
1770: 73 c3 a9 20 70 61 72 20 75 6e 20 61 75 74 72 65  s.. par un autre
1780: 20 66 69 63 68 69 65 72 0a 09 09 69 66 20 28 21   fichier...if (!
1790: 28 24 69 64 5f 63 6f 6e 74 65 6e 75 20 3d 20 24  ($id_contenu = $
17a0: 64 62 2d 3e 73 69 6d 70 6c 65 51 75 65 72 79 53  db->simpleQueryS
17b0: 69 6e 67 6c 65 28 27 53 45 4c 45 43 54 20 66 31  ingle('SELECT f1
17c0: 2e 69 64 5f 63 6f 6e 74 65 6e 75 20 46 52 4f 4d  .id_contenu FROM
17d0: 20 66 69 63 68 69 65 72 73 20 41 53 20 66 31 20   fichiers AS f1 
17e0: 49 4e 4e 45 52 20 4a 4f 49 4e 20 66 69 63 68 69  INNER JOIN fichi
17f0: 65 72 73 20 41 53 20 66 32 20 0a 09 09 09 4f 4e  ers AS f2 ....ON
1800: 20 66 31 2e 69 64 5f 63 6f 6e 74 65 6e 75 20 3d   f1.id_contenu =
1810: 20 66 32 2e 69 64 5f 63 6f 6e 74 65 6e 75 20 41   f2.id_contenu A
1820: 4e 44 20 66 31 2e 69 64 20 21 3d 20 66 32 2e 69  ND f1.id != f2.i
1830: 64 20 57 48 45 52 45 20 66 32 2e 69 64 20 3d 20  d WHERE f2.id = 
1840: 3f 3b 27 2c 20 66 61 6c 73 65 2c 20 28 69 6e 74  ?;', false, (int
1850: 29 24 74 68 69 73 2d 3e 69 64 29 29 29 0a 09 09  )$this->id)))...
1860: 7b 0a 09 09 09 24 64 62 2d 3e 73 69 6d 70 6c 65  {....$db->simple
1870: 45 78 65 63 28 27 44 45 4c 45 54 45 20 46 52 4f  Exec('DELETE FRO
1880: 4d 20 66 69 63 68 69 65 72 73 5f 63 6f 6e 74 65  M fichiers_conte
1890: 6e 75 20 57 48 45 52 45 20 69 64 20 3d 20 3f 3b  nu WHERE id = ?;
18a0: 27 2c 20 28 69 6e 74 29 24 69 64 5f 63 6f 6e 74  ', (int)$id_cont
18b0: 65 6e 75 29 3b 0a 09 09 7d 0a 0a 09 09 24 64 62  enu);...}....$db
18c0: 2d 3e 73 69 6d 70 6c 65 45 78 65 63 28 27 44 45  ->simpleExec('DE
18d0: 4c 45 54 45 20 46 52 4f 4d 20 66 69 63 68 69 65  LETE FROM fichie
18e0: 72 73 20 57 48 45 52 45 20 69 64 20 3d 20 3f 3b  rs WHERE id = ?;
18f0: 27 2c 20 28 69 6e 74 29 24 74 68 69 73 2d 3e 69  ', (int)$this->i
1900: 64 29 3b 0a 0a 09 09 24 63 61 63 68 65 5f 69 64  d);....$cache_id
1910: 20 3d 20 27 66 69 63 68 69 65 72 73 2e 27 20 2e   = 'fichiers.' .
1920: 20 24 74 68 69 73 2d 3e 69 64 5f 63 6f 6e 74 65   $this->id_conte
1930: 6e 75 3b 0a 09 09 0a 09 09 53 74 61 74 69 63 5f  nu;......Static_
1940: 43 61 63 68 65 3a 3a 72 65 6d 6f 76 65 28 24 63  Cache::remove($c
1950: 61 63 68 65 5f 69 64 29 3b 0a 0a 09 09 66 6f 72  ache_id);....for
1960: 65 61 63 68 20 28 73 65 6c 66 3a 3a 24 61 6c 6c  each (self::$all
1970: 6f 77 65 64 5f 74 68 75 6d 62 5f 73 69 7a 65 73  owed_thumb_sizes
1980: 20 61 73 20 24 73 69 7a 65 29 0a 09 09 7b 0a 09   as $size)...{..
1990: 09 09 53 74 61 74 69 63 5f 43 61 63 68 65 3a 3a  ..Static_Cache::
19a0: 72 65 6d 6f 76 65 28 24 63 61 63 68 65 5f 69 64  remove($cache_id
19b0: 20 2e 20 27 2e 74 68 75 6d 62 2e 27 20 2e 20 28   . '.thumb.' . (
19c0: 69 6e 74 29 24 73 69 7a 65 29 3b 0a 09 09 7d 0a  int)$size);...}.
19d0: 0a 09 09 72 65 74 75 72 6e 20 24 64 62 2d 3e 65  ...return $db->e
19e0: 78 65 63 28 27 45 4e 44 3b 27 29 3b 0a 09 7d 0a  xec('END;');..}.
19f0: 0a 09 2f 2a 2a 0a 09 20 2a 20 52 65 6e 76 6f 69  ../**.. * Renvoi
1a00: 65 20 6c 65 20 63 68 65 6d 69 6e 20 76 65 72 73  e le chemin vers
1a10: 20 6c 65 20 66 69 63 68 69 65 72 20 6c 6f 63 61   le fichier loca
1a20: 6c 20 65 6e 20 63 61 63 68 65 2c 20 65 74 20 6c  l en cache, et l
1a30: 65 20 63 72 c3 a9 65 20 73 27 69 6c 20 6e 27 65  e cr..e s'il n'e
1a40: 78 69 73 74 65 20 70 61 73 0a 09 20 2a 20 40 72  xiste pas.. * @r
1a50: 65 74 75 72 6e 20 73 74 72 69 6e 67 20 43 68 65  eturn string Che
1a60: 6d 69 6e 20 6c 6f 63 61 6c 0a 09 20 2a 2f 0a 09  min local.. */..
1a70: 70 72 6f 74 65 63 74 65 64 20 66 75 6e 63 74 69  protected functi
1a80: 6f 6e 20 67 65 74 46 69 6c 65 50 61 74 68 46 72  on getFilePathFr
1a90: 6f 6d 43 61 63 68 65 28 29 0a 09 7b 0a 09 09 2f  omCache()..{.../
1aa0: 2f 20 4c 65 20 63 61 63 68 65 20 65 73 74 20 67  / Le cache est g
1ab0: c3 a9 72 c3 a9 20 70 61 72 20 49 44 20 63 6f 6e  ..r.. par ID con
1ac0: 74 65 6e 75 2c 20 70 61 73 20 49 44 20 66 69 63  tenu, pas ID fic
1ad0: 68 69 65 72 2c 20 70 6f 75 72 20 6d 69 6e 69 6d  hier, pour minim
1ae0: 69 73 65 72 20 6c 27 65 73 70 61 63 65 20 64 69  iser l'espace di
1af0: 73 71 75 65 20 75 74 69 6c 69 73 c3 a9 0a 09 09  sque utilis.....
1b00: 24 63 61 63 68 65 5f 69 64 20 3d 20 27 66 69 63  $cache_id = 'fic
1b10: 68 69 65 72 73 2e 27 20 2e 20 24 74 68 69 73 2d  hiers.' . $this-
1b20: 3e 69 64 5f 63 6f 6e 74 65 6e 75 3b 0a 0a 09 09  >id_contenu;....
1b30: 2f 2f 20 4c 65 20 66 69 63 68 69 65 72 20 6e 27  // Le fichier n'
1b40: 65 78 69 73 74 65 20 70 61 73 20 64 61 6e 73 20  existe pas dans 
1b50: 6c 65 20 63 61 63 68 65 20 73 74 61 74 69 71 75  le cache statiqu
1b60: 65 2c 20 6f 6e 20 6c 27 65 6e 72 65 67 69 73 74  e, on l'enregist
1b70: 72 65 0a 09 09 69 66 20 28 21 53 74 61 74 69 63  re...if (!Static
1b80: 5f 43 61 63 68 65 3a 3a 65 78 69 73 74 73 28 24  _Cache::exists($
1b90: 63 61 63 68 65 5f 69 64 29 29 0a 09 09 7b 0a 09  cache_id))...{..
1ba0: 09 09 24 62 6c 6f 62 20 3d 20 44 42 3a 3a 67 65  ..$blob = DB::ge
1bb0: 74 49 6e 73 74 61 6e 63 65 28 29 2d 3e 6f 70 65  tInstance()->ope
1bc0: 6e 42 6c 6f 62 28 27 66 69 63 68 69 65 72 73 5f  nBlob('fichiers_
1bd0: 63 6f 6e 74 65 6e 75 27 2c 20 27 63 6f 6e 74 65  contenu', 'conte
1be0: 6e 75 27 2c 20 28 69 6e 74 29 24 74 68 69 73 2d  nu', (int)$this-
1bf0: 3e 69 64 5f 63 6f 6e 74 65 6e 75 29 3b 0a 09 09  >id_contenu);...
1c00: 09 53 74 61 74 69 63 5f 43 61 63 68 65 3a 3a 73  .Static_Cache::s
1c10: 74 6f 72 65 46 72 6f 6d 50 6f 69 6e 74 65 72 28  toreFromPointer(
1c20: 24 63 61 63 68 65 5f 69 64 2c 20 24 62 6c 6f 62  $cache_id, $blob
1c30: 29 3b 0a 09 09 09 66 63 6c 6f 73 65 28 24 62 6c  );....fclose($bl
1c40: 6f 62 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75  ob);...}....retu
1c50: 72 6e 20 53 74 61 74 69 63 5f 43 61 63 68 65 3a  rn Static_Cache:
1c60: 3a 67 65 74 50 61 74 68 28 24 63 61 63 68 65 5f  :getPath($cache_
1c70: 69 64 29 3b 0a 09 7d 0a 0a 09 2f 2a 2a 0a 09 20  id);..}.../**.. 
1c80: 2a 20 45 6e 76 6f 69 65 20 6c 65 20 66 69 63 68  * Envoie le fich
1c90: 69 65 72 20 61 75 20 63 6c 69 65 6e 74 20 48 54  ier au client HT
1ca0: 54 50 0a 09 20 2a 20 40 72 65 74 75 72 6e 20 76  TP.. * @return v
1cb0: 6f 69 64 0a 09 20 2a 2f 0a 09 70 75 62 6c 69 63  oid.. */..public
1cc0: 20 66 75 6e 63 74 69 6f 6e 20 73 65 72 76 65 28   function serve(
1cd0: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 24 74  )..{...return $t
1ce0: 68 69 73 2d 3e 5f 73 65 72 76 65 28 24 74 68 69  his->_serve($thi
1cf0: 73 2d 3e 67 65 74 46 69 6c 65 50 61 74 68 46 72  s->getFilePathFr
1d00: 6f 6d 43 61 63 68 65 28 29 2c 20 24 74 68 69 73  omCache(), $this
1d10: 2d 3e 74 79 70 65 2c 20 28 24 74 68 69 73 2d 3e  ->type, ($this->
1d20: 69 6d 61 67 65 20 3f 20 66 61 6c 73 65 20 3a 20  image ? false : 
1d30: 24 74 68 69 73 2d 3e 6e 6f 6d 29 2c 20 24 74 68  $this->nom), $th
1d40: 69 73 2d 3e 74 61 69 6c 6c 65 29 3b 0a 09 7d 0a  is->taille);..}.
1d50: 0a 09 2f 2a 2a 0a 09 20 2a 20 45 6e 76 6f 69 65  ../**.. * Envoie
1d60: 20 75 6e 65 20 6d 69 6e 69 61 74 75 72 65 20 c3   une miniature .
1d70: a0 20 6c 61 20 74 61 69 6c 6c 65 20 69 6e 64 69  . la taille indi
1d80: 71 75 c3 a9 65 20 61 75 20 63 6c 69 65 6e 74 20  qu..e au client 
1d90: 48 54 54 50 0a 09 20 2a 20 40 72 65 74 75 72 6e  HTTP.. * @return
1da0: 20 76 6f 69 64 0a 09 20 2a 2f 0a 09 70 75 62 6c   void.. */..publ
1db0: 69 63 20 66 75 6e 63 74 69 6f 6e 20 73 65 72 76  ic function serv
1dc0: 65 54 68 75 6d 62 6e 61 69 6c 28 24 77 69 64 74  eThumbnail($widt
1dd0: 68 20 3d 20 73 65 6c 66 3a 3a 54 41 49 4c 4c 45  h = self::TAILLE
1de0: 5f 4d 49 4e 49 41 54 55 52 45 29 0a 09 7b 0a 09  _MINIATURE)..{..
1df0: 09 69 66 20 28 21 24 74 68 69 73 2d 3e 69 6d 61  .if (!$this->ima
1e00: 67 65 29 0a 09 09 7b 0a 09 09 09 74 68 72 6f 77  ge)...{....throw
1e10: 20 6e 65 77 20 5c 4c 6f 67 69 63 45 78 63 65 70   new \LogicExcep
1e20: 74 69 6f 6e 28 27 49 6c 20 6e 5c 27 65 73 74 20  tion('Il n\'est 
1e30: 70 61 73 20 70 6f 73 73 69 62 6c 65 20 64 65 20  pas possible de 
1e40: 66 6f 75 72 6e 69 72 20 75 6e 65 20 6d 69 6e 69  fournir une mini
1e50: 61 74 75 72 65 20 70 6f 75 72 20 75 6e 20 66 69  ature pour un fi
1e60: 63 68 69 65 72 20 71 75 69 20 6e 5c 27 65 73 74  chier qui n\'est
1e70: 20 70 61 73 20 75 6e 65 20 69 6d 61 67 65 2e 27   pas une image.'
1e80: 29 3b 0a 09 09 7d 0a 0a 09 09 24 77 69 64 74 68  );...}....$width
1e90: 20 3d 20 73 65 6c 66 3a 3a 5f 66 69 6e 64 54 68   = self::_findTh
1ea0: 75 6d 62 53 69 7a 65 28 24 77 69 64 74 68 29 3b  umbSize($width);
1eb0: 0a 0a 09 09 24 63 61 63 68 65 5f 69 64 20 3d 20  ....$cache_id = 
1ec0: 27 66 69 63 68 69 65 72 73 2e 27 20 2e 20 24 74  'fichiers.' . $t
1ed0: 68 69 73 2d 3e 69 64 5f 63 6f 6e 74 65 6e 75 20  his->id_contenu 
1ee0: 2e 20 27 2e 74 68 75 6d 62 2e 27 20 2e 20 28 69  . '.thumb.' . (i
1ef0: 6e 74 29 24 77 69 64 74 68 3b 0a 09 09 24 70 61  nt)$width;...$pa
1f00: 74 68 20 3d 20 53 74 61 74 69 63 5f 43 61 63 68  th = Static_Cach
1f10: 65 3a 3a 67 65 74 50 61 74 68 28 24 63 61 63 68  e::getPath($cach
1f20: 65 5f 69 64 29 3b 0a 0a 09 09 2f 2f 20 4c 61 20  e_id);....// La 
1f30: 6d 69 6e 69 61 74 75 72 65 20 6e 27 65 78 69 73  miniature n'exis
1f40: 74 65 20 70 61 73 20 64 61 6e 73 20 6c 65 20 63  te pas dans le c
1f50: 61 63 68 65 20 73 74 61 74 69 71 75 65 2c 20 6f  ache statique, o
1f60: 6e 20 6c 61 20 63 72 c3 a9 65 0a 09 09 69 66 20  n la cr..e...if 
1f70: 28 21 53 74 61 74 69 63 5f 43 61 63 68 65 3a 3a  (!Static_Cache::
1f80: 65 78 69 73 74 73 28 24 63 61 63 68 65 5f 69 64  exists($cache_id
1f90: 29 29 0a 09 09 7b 0a 09 09 09 24 73 6f 75 72 63  ))...{....$sourc
1fa0: 65 20 3d 20 24 74 68 69 73 2d 3e 67 65 74 46 69  e = $this->getFi
1fb0: 6c 65 50 61 74 68 46 72 6f 6d 43 61 63 68 65 28  lePathFromCache(
1fc0: 29 3b 0a 09 09 09 5c 4b 44 32 5c 49 6d 61 67 65  );....\KD2\Image
1fd0: 3a 3a 72 65 73 69 7a 65 28 24 73 6f 75 72 63 65  ::resize($source
1fe0: 2c 20 24 70 61 74 68 2c 20 24 77 69 64 74 68 29  , $path, $width)
1ff0: 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20  ;...}....return 
2000: 24 74 68 69 73 2d 3e 5f 73 65 72 76 65 28 24 70  $this->_serve($p
2010: 61 74 68 2c 20 24 74 68 69 73 2d 3e 74 79 70 65  ath, $this->type
2020: 29 3b 0a 09 7d 0a 0a 09 2f 2a 2a 0a 09 20 2a 20  );..}.../**.. * 
2030: 53 65 72 76 69 72 20 75 6e 20 66 69 63 68 69 65  Servir un fichie
2040: 72 20 6c 6f 63 61 6c 20 65 6e 20 48 54 54 50 0a  r local en HTTP.
2050: 09 20 2a 20 40 70 61 72 61 6d 20 20 73 74 72 69  . * @param  stri
2060: 6e 67 20 24 70 61 74 68 20 43 68 65 6d 69 6e 20  ng $path Chemin 
2070: 76 65 72 73 20 6c 65 20 66 69 63 68 69 65 72 20  vers le fichier 
2080: 6c 6f 63 61 6c 0a 09 20 2a 20 40 70 61 72 61 6d  local.. * @param
2090: 20 20 73 74 72 69 6e 67 20 24 74 79 70 65 20 54    string $type T
20a0: 79 70 65 20 4d 49 4d 45 20 64 75 20 66 69 63 68  ype MIME du fich
20b0: 69 65 72 0a 09 20 2a 20 40 70 61 72 61 6d 20 20  ier.. * @param  
20c0: 73 74 72 69 6e 67 20 24 6e 61 6d 65 20 4e 6f 6d  string $name Nom
20d0: 20 64 75 20 66 69 63 68 69 65 72 20 61 76 65 63   du fichier avec
20e0: 20 65 78 74 65 6e 73 69 6f 6e 0a 09 20 2a 20 40   extension.. * @
20f0: 70 61 72 61 6d 20 20 69 6e 74 65 67 65 72 20 24  param  integer $
2100: 73 69 7a 65 20 54 61 69 6c 6c 65 20 64 75 20 66  size Taille du f
2110: 69 63 68 69 65 72 20 65 6e 20 6f 63 74 65 74 73  ichier en octets
2120: 20 28 66 61 63 75 6c 74 61 74 69 66 29 0a 09 20   (facultatif).. 
2130: 2a 20 40 72 65 74 75 72 6e 20 62 6f 6f 6c 65 61  * @return boolea
2140: 6e 20 54 52 55 45 20 65 6e 20 63 61 73 20 64 65  n TRUE en cas de
2150: 20 73 75 63 63 c3 a8 73 0a 09 20 2a 2f 0a 09 70   succ..s.. */..p
2160: 72 6f 74 65 63 74 65 64 20 66 75 6e 63 74 69 6f  rotected functio
2170: 6e 20 5f 73 65 72 76 65 28 24 70 61 74 68 2c 20  n _serve($path, 
2180: 24 74 79 70 65 2c 20 24 6e 61 6d 65 20 3d 20 66  $type, $name = f
2190: 61 6c 73 65 2c 20 24 73 69 7a 65 20 3d 20 6e 75  alse, $size = nu
21a0: 6c 6c 29 0a 09 7b 0a 09 09 2f 2f 20 44 c3 a9 73  ll)..{...// D..s
21b0: 61 63 74 69 76 65 72 20 6c 65 20 63 61 63 68 65  activer le cache
21c0: 0a 09 09 68 65 61 64 65 72 28 27 50 72 61 67 6d  ...header('Pragm
21d0: 61 3a 20 70 75 62 6c 69 63 27 29 3b 0a 09 09 68  a: public');...h
21e0: 65 61 64 65 72 28 27 45 78 70 69 72 65 73 3a 20  eader('Expires: 
21f0: 2d 31 27 29 3b 0a 09 09 68 65 61 64 65 72 28 27  -1');...header('
2200: 43 61 63 68 65 2d 43 6f 6e 74 72 6f 6c 3a 20 70  Cache-Control: p
2210: 75 62 6c 69 63 2c 20 6d 75 73 74 2d 72 65 76 61  ublic, must-reva
2220: 6c 69 64 61 74 65 2c 20 70 6f 73 74 2d 63 68 65  lidate, post-che
2230: 63 6b 3d 30 2c 20 70 72 65 2d 63 68 65 63 6b 3d  ck=0, pre-check=
2240: 30 27 29 3b 0a 0a 09 09 68 65 61 64 65 72 28 27  0');....header('
2250: 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 27 2e  Content-Type: '.
2260: 24 74 79 70 65 29 3b 0a 0a 09 09 69 66 20 28 24  $type);....if ($
2270: 6e 61 6d 65 29 0a 09 09 7b 0a 09 09 09 68 65 61  name)...{....hea
2280: 64 65 72 28 27 43 6f 6e 74 65 6e 74 2d 44 69 73  der('Content-Dis
2290: 70 6f 73 69 74 69 6f 6e 3a 20 61 74 74 61 63 68  position: attach
22a0: 6d 65 6e 74 3b 20 66 69 6c 65 6e 61 6d 65 3d 22  ment; filename="
22b0: 27 20 2e 20 24 6e 61 6d 65 20 2e 20 27 22 27 29  ' . $name . '"')
22c0: 3b 0a 09 09 7d 0a 09 09 0a 09 09 2f 2f 20 55 74  ;...}......// Ut
22d0: 69 6c 69 73 61 74 69 6f 6e 20 64 65 20 58 53 65  ilisation de XSe
22e0: 6e 64 46 69 6c 65 20 73 69 20 64 69 73 70 6f 6e  ndFile si dispon
22f0: 69 62 6c 65 0a 09 09 69 66 20 28 45 4e 41 42 4c  ible...if (ENABL
2300: 45 5f 58 53 45 4e 44 46 49 4c 45 20 26 26 20 69  E_XSENDFILE && i
2310: 73 73 65 74 28 24 5f 53 45 52 56 45 52 5b 27 53  sset($_SERVER['S
2320: 45 52 56 45 52 5f 53 4f 46 54 57 41 52 45 27 5d  ERVER_SOFTWARE']
2330: 29 29 0a 09 09 7b 0a 09 09 09 69 66 20 28 73 74  ))...{....if (st
2340: 72 69 73 74 72 28 24 5f 53 45 52 56 45 52 5b 27  ristr($_SERVER['
2350: 53 45 52 56 45 52 5f 53 4f 46 54 57 41 52 45 27  SERVER_SOFTWARE'
2360: 5d 2c 20 27 61 70 61 63 68 65 27 29 20 0a 09 09  ], 'apache') ...
2370: 09 09 26 26 20 66 75 6e 63 74 69 6f 6e 5f 65 78  ..&& function_ex
2380: 69 73 74 73 28 27 61 70 61 63 68 65 5f 67 65 74  ists('apache_get
2390: 5f 6d 6f 64 75 6c 65 73 27 29 20 0a 09 09 09 09  _modules') .....
23a0: 26 26 20 69 6e 5f 61 72 72 61 79 28 27 6d 6f 64  && in_array('mod
23b0: 5f 78 73 65 6e 64 66 69 6c 65 27 2c 20 61 70 61  _xsendfile', apa
23c0: 63 68 65 5f 67 65 74 5f 6d 6f 64 75 6c 65 73 28  che_get_modules(
23d0: 29 29 29 0a 09 09 09 7b 0a 09 09 09 09 68 65 61  )))....{.....hea
23e0: 64 65 72 28 27 58 2d 53 65 6e 64 66 69 6c 65 3a  der('X-Sendfile:
23f0: 20 27 20 2e 20 24 70 61 74 68 29 3b 0a 09 09 09   ' . $path);....
2400: 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0a 09 09  .return true;...
2410: 09 7d 0a 09 09 09 65 6c 73 65 20 69 66 20 28 73  .}....else if (s
2420: 74 72 69 73 74 72 28 24 5f 53 45 52 56 45 52 5b  tristr($_SERVER[
2430: 27 53 45 52 56 45 52 5f 53 4f 46 54 57 41 52 45  'SERVER_SOFTWARE
2440: 27 5d 2c 20 27 6c 69 67 68 74 74 70 64 27 29 29  '], 'lighttpd'))
2450: 0a 09 09 09 7b 0a 09 09 09 09 68 65 61 64 65 72  ....{.....header
2460: 28 27 58 2d 53 65 6e 64 66 69 6c 65 3a 20 27 20  ('X-Sendfile: ' 
2470: 2e 20 24 70 61 74 68 29 3b 0a 09 09 09 09 72 65  . $path);.....re
2480: 74 75 72 6e 20 74 72 75 65 3b 0a 09 09 09 7d 0a  turn true;....}.
2490: 09 09 7d 0a 0a 09 09 2f 2f 20 44 c3 a9 73 61 63  ..}....// D..sac
24a0: 74 69 76 65 72 20 67 7a 69 70 0a 09 09 69 66 20  tiver gzip...if 
24b0: 28 66 75 6e 63 74 69 6f 6e 5f 65 78 69 73 74 73  (function_exists
24c0: 28 27 61 70 61 63 68 65 5f 73 65 74 65 6e 76 27  ('apache_setenv'
24d0: 29 29 0a 09 09 7b 0a 09 09 09 40 61 70 61 63 68  ))...{....@apach
24e0: 65 5f 73 65 74 65 6e 76 28 27 6e 6f 2d 67 7a 69  e_setenv('no-gzi
24f0: 70 27 2c 20 31 29 3b 0a 09 09 7d 0a 0a 09 09 40  p', 1);...}....@
2500: 69 6e 69 5f 73 65 74 28 27 7a 6c 69 62 2e 6f 75  ini_set('zlib.ou
2510: 74 70 75 74 5f 63 6f 6d 70 72 65 73 73 69 6f 6e  tput_compression
2520: 27 2c 20 27 4f 66 66 27 29 3b 0a 0a 09 09 69 66  ', 'Off');....if
2530: 20 28 24 73 69 7a 65 29 0a 09 09 7b 0a 09 09 09   ($size)...{....
2540: 68 65 61 64 65 72 28 27 43 6f 6e 74 65 6e 74 2d  header('Content-
2550: 4c 65 6e 67 74 68 3a 20 27 2e 20 28 69 6e 74 29  Length: '. (int)
2560: 24 73 69 7a 65 29 3b 0a 09 09 7d 0a 0a 09 09 6f  $size);...}....o
2570: 62 5f 63 6c 65 61 6e 28 29 3b 0a 09 09 66 6c 75  b_clean();...flu
2580: 73 68 28 29 3b 0a 0a 09 09 2f 2f 20 53 69 6e 6f  sh();....// Sino
2590: 6e 20 6f 6e 20 65 6e 76 6f 69 65 20 6c 65 20 66  n on envoie le f
25a0: 69 63 68 69 65 72 20 c3 a0 20 6c 61 20 6d 61 6e  ichier .. la man
25b0: 6f 0a 09 09 72 65 74 75 72 6e 20 72 65 61 64 66  o...return readf
25c0: 69 6c 65 28 24 70 61 74 68 29 3b 0a 09 7d 0a 0a  ile($path);..}..
25d0: 09 2f 2a 2a 0a 09 20 2a 20 56 c3 a9 72 69 66 69  ./**.. * V..rifi
25e0: 65 20 73 69 20 6c 65 20 68 61 73 68 20 66 6f 75  e si le hash fou
25f0: 72 6e 69 20 6e 27 65 73 74 20 70 61 73 20 64 c3  rni n'est pas d.
2600: a9 6a c3 a0 20 73 74 6f 63 6b c3 a9 0a 09 20 2a  .j.. stock.... *
2610: 20 55 74 69 6c 65 20 70 6f 75 72 20 70 61 72 20   Utile pour par 
2620: 65 78 65 6d 70 6c 65 20 72 65 63 6f 6e 6e 61 c3  exemple reconna.
2630: ae 74 72 65 20 75 6e 20 66 69 63 68 65 72 20 64  .tre un ficher d
2640: 6f 6e 74 20 6c 65 20 63 6f 6e 74 65 6e 75 20 65  ont le contenu e
2650: 73 74 20 64 c3 a9 6a c3 a0 20 73 74 6f 63 6b c3  st d..j.. stock.
2660: a9 2c 20 65 74 20 c3 a9 76 69 74 65 72 20 75 6e  ., et ..viter un
2670: 20 6e 6f 75 76 65 6c 20 75 70 6c 6f 61 64 0a 09   nouvel upload..
2680: 20 2a 20 40 70 61 72 61 6d 20 20 73 74 72 69 6e   * @param  strin
2690: 67 20 24 68 61 73 68 20 48 61 73 68 20 53 48 41  g $hash Hash SHA
26a0: 31 0a 09 20 2a 20 40 72 65 74 75 72 6e 20 62 6f  1.. * @return bo
26b0: 6f 6c 65 61 6e 20 20 20 20 20 20 54 52 55 45 20  olean      TRUE 
26c0: 73 69 20 6c 65 20 68 61 73 68 20 65 73 74 20 64  si le hash est d
26d0: c3 a9 6a c3 a0 20 70 72 c3 a9 73 65 6e 74 20 64  ..j.. pr..sent d
26e0: 61 6e 73 20 66 69 63 68 69 65 72 73 5f 63 6f 6e  ans fichiers_con
26f0: 74 65 6e 75 2c 20 46 41 4c 53 45 20 73 69 6e 6f  tenu, FALSE sino
2700: 6e 0a 09 20 2a 2f 0a 09 73 74 61 74 69 63 20 70  n.. */..static p
2710: 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20 63  ublic function c
2720: 68 65 63 6b 48 61 73 68 28 24 68 61 73 68 29 0a  heckHash($hash).
2730: 09 7b 0a 09 09 72 65 74 75 72 6e 20 28 62 6f 6f  .{...return (boo
2740: 6c 65 61 6e 29 20 44 42 3a 3a 67 65 74 49 6e 73  lean) DB::getIns
2750: 74 61 6e 63 65 28 29 2d 3e 73 69 6d 70 6c 65 51  tance()->simpleQ
2760: 75 65 72 79 53 69 6e 67 6c 65 28 0a 09 09 09 27  uerySingle(....'
2770: 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 66 69  SELECT 1 FROM fi
2780: 63 68 69 65 72 73 5f 63 6f 6e 74 65 6e 75 20 57  chiers_contenu W
2790: 48 45 52 45 20 68 61 73 68 20 3d 20 3f 3b 27 2c  HERE hash = ?;',
27a0: 20 0a 09 09 09 66 61 6c 73 65 2c 20 0a 09 09 09   ....false, ....
27b0: 74 72 69 6d 28 73 74 72 74 6f 6c 6f 77 65 72 28  trim(strtolower(
27c0: 24 68 61 73 68 29 29 0a 09 09 29 3b 0a 09 7d 0a  $hash))...);..}.
27d0: 0a 09 2f 2a 2a 0a 09 20 2a 20 52 65 74 6f 75 72  ../**.. * Retour
27e0: 6e 65 20 75 6e 20 74 61 62 6c 65 61 75 20 64 65  ne un tableau de
27f0: 20 68 61 73 68 20 74 72 6f 75 76 c3 a9 73 20 64   hash trouv..s d
2800: 61 6e 73 20 6c 61 20 44 42 20 70 61 72 6d 69 20  ans la DB parmi 
2810: 75 6e 65 20 6c 69 73 74 65 20 64 65 20 68 61 73  une liste de has
2820: 68 20 66 6f 75 72 6e 69 73 0a 09 20 2a 20 40 70  h fournis.. * @p
2830: 61 72 61 6d 20 20 61 72 72 61 79 20 20 24 6c 69  aram  array  $li
2840: 73 74 20 4c 69 73 74 65 20 64 65 20 68 61 73 68  st Liste de hash
2850: 20 c3 a0 20 76 c3 a9 72 69 66 69 65 72 0a 09 20   .. v..rifier.. 
2860: 2a 20 40 72 65 74 75 72 6e 20 61 72 72 61 79 20  * @return array 
2870: 20 20 20 20 20 20 20 4c 69 73 74 65 20 64 65 73         Liste des
2880: 20 68 61 73 68 20 74 72 6f 75 76 c3 a9 73 0a 09   hash trouv..s..
2890: 20 2a 2f 0a 09 73 74 61 74 69 63 20 70 75 62 6c   */..static publ
28a0: 69 63 20 66 75 6e 63 74 69 6f 6e 20 63 68 65 63  ic function chec
28b0: 6b 48 61 73 68 4c 69 73 74 28 24 6c 69 73 74 29  kHashList($list)
28c0: 0a 09 7b 0a 09 09 24 68 61 73 68 5f 6c 69 73 74  ..{...$hash_list
28d0: 20 3d 20 27 27 3b 0a 09 09 24 64 62 20 3d 20 44   = '';...$db = D
28e0: 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65 28 29  B::getInstance()
28f0: 3b 0a 0a 09 09 66 6f 72 65 61 63 68 20 28 24 6c  ;....foreach ($l
2900: 69 73 74 20 61 73 20 24 68 61 73 68 29 0a 09 09  ist as $hash)...
2910: 7b 0a 09 09 09 24 68 61 73 68 5f 6c 69 73 74 20  {....$hash_list 
2920: 2e 3d 20 27 5c 27 27 20 2e 20 24 64 62 2d 3e 65  .= '\'' . $db->e
2930: 73 63 61 70 65 53 74 72 69 6e 67 28 24 68 61 73  scapeString($has
2940: 68 29 20 2e 20 27 5c 27 2c 27 3b 0a 09 09 7d 0a  h) . '\',';...}.
2950: 0a 09 09 24 68 61 73 68 5f 6c 69 73 74 20 3d 20  ...$hash_list = 
2960: 73 75 62 73 74 72 28 24 68 61 73 68 5f 6c 69 73  substr($hash_lis
2970: 74 2c 20 30 2c 20 2d 31 29 3b 0a 0a 09 09 72 65  t, 0, -1);....re
2980: 74 75 72 6e 20 24 64 62 2d 3e 71 75 65 72 79 46  turn $db->queryF
2990: 65 74 63 68 41 73 73 6f 63 28 27 53 45 4c 45 43  etchAssoc('SELEC
29a0: 54 20 68 61 73 68 2c 20 31 0a 09 09 09 46 52 4f  T hash, 1....FRO
29b0: 4d 20 66 69 63 68 69 65 72 73 5f 63 6f 6e 74 65  M fichiers_conte
29c0: 6e 75 20 57 48 45 52 45 20 68 61 73 68 20 49 4e  nu WHERE hash IN
29d0: 20 28 27 20 2e 20 24 68 61 73 68 5f 6c 69 73 74   (' . $hash_list
29e0: 20 2e 20 27 29 3b 27 29 3b 0a 09 7d 0a 0a 09 2f   . ');');..}.../
29f0: 2a 2a 0a 09 20 2a 20 52 c3 a9 63 75 70 c3 a9 72  **.. * R..cup..r
2a00: 61 74 69 6f 6e 20 64 75 20 6d 65 73 73 61 67 65  ation du message
2a10: 20 64 27 65 72 72 65 75 72 0a 09 20 2a 20 40 70   d'erreur.. * @p
2a20: 61 72 61 6d 20 20 69 6e 74 65 67 65 72 20 24 65  aram  integer $e
2a30: 72 72 6f 72 20 43 6f 64 65 20 65 72 72 65 75 72  rror Code erreur
2a40: 20 64 75 20 24 5f 46 49 4c 45 0a 09 20 2a 20 40   du $_FILE.. * @
2a50: 72 65 74 75 72 6e 20 73 74 72 69 6e 67 20 4d 65  return string Me
2a60: 73 73 61 67 65 20 64 27 65 72 72 65 75 72 0a 09  ssage d'erreur..
2a70: 20 2a 2f 0a 09 73 74 61 74 69 63 20 70 75 62 6c   */..static publ
2a80: 69 63 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 45  ic function getE
2a90: 72 72 6f 72 4d 65 73 73 61 67 65 28 24 65 72 72  rrorMessage($err
2aa0: 6f 72 29 0a 09 7b 0a 09 09 73 77 69 74 63 68 20  or)..{...switch 
2ab0: 28 24 65 72 72 6f 72 29 0a 09 09 7b 0a 09 09 09  ($error)...{....
2ac0: 63 61 73 65 20 55 50 4c 4f 41 44 5f 45 52 52 5f  case UPLOAD_ERR_
2ad0: 49 4e 49 5f 53 49 5a 45 3a 0a 09 09 09 09 72 65  INI_SIZE:.....re
2ae0: 74 75 72 6e 20 27 4c 65 20 66 69 63 68 69 65 72  turn 'Le fichier
2af0: 20 65 78 63 c3 a8 64 65 20 6c 61 20 74 61 69 6c   exc..de la tail
2b00: 6c 65 20 70 65 72 6d 69 73 65 20 70 61 72 20 6c  le permise par l
2b10: 61 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20  a configuration 
2b20: 64 75 20 73 65 72 76 65 75 72 2e 27 3b 0a 09 09  du serveur.';...
2b30: 09 63 61 73 65 20 55 50 4c 4f 41 44 5f 45 52 52  .case UPLOAD_ERR
2b40: 5f 46 4f 52 4d 5f 53 49 5a 45 3a 0a 09 09 09 09  _FORM_SIZE:.....
2b50: 72 65 74 75 72 6e 20 27 4c 65 20 66 69 63 68 69  return 'Le fichi
2b60: 65 72 20 65 78 63 c3 a8 64 65 20 6c 61 20 74 61  er exc..de la ta
2b70: 69 6c 6c 65 20 70 65 72 6d 69 73 65 20 70 61 72  ille permise par
2b80: 20 6c 65 20 66 6f 72 6d 75 6c 61 69 72 65 2e 27   le formulaire.'
2b90: 3b 0a 09 09 09 63 61 73 65 20 55 50 4c 4f 41 44  ;....case UPLOAD
2ba0: 5f 45 52 52 5f 50 41 52 54 49 41 4c 3a 0a 09 09  _ERR_PARTIAL:...
2bb0: 09 09 72 65 74 75 72 6e 20 27 4c 5c 27 65 6e 76  ..return 'L\'env
2bc0: 6f 69 20 64 75 20 66 69 63 68 69 65 72 20 61 20  oi du fichier a 
2bd0: c3 a9 74 c3 a9 20 69 6e 74 65 72 72 6f 6d 70 75  ..t.. interrompu
2be0: 2e 27 3b 0a 09 09 09 63 61 73 65 20 55 50 4c 4f  .';....case UPLO
2bf0: 41 44 5f 45 52 52 5f 4e 4f 5f 46 49 4c 45 3a 0a  AD_ERR_NO_FILE:.
2c00: 09 09 09 09 72 65 74 75 72 6e 20 27 41 75 63 75  ....return 'Aucu
2c10: 6e 20 66 69 63 68 69 65 72 20 6e 5c 27 61 20 c3  n fichier n\'a .
2c20: a9 74 c3 a9 20 72 65 c3 a7 75 2e 27 3b 0a 09 09  .t.. re..u.';...
2c30: 09 63 61 73 65 20 55 50 4c 4f 41 44 5f 45 52 52  .case UPLOAD_ERR
2c40: 5f 4e 4f 5f 54 4d 50 5f 44 49 52 3a 0a 09 09 09  _NO_TMP_DIR:....
2c50: 09 72 65 74 75 72 6e 20 27 50 61 73 20 64 65 20  .return 'Pas de 
2c60: 72 c3 a9 70 65 72 74 6f 69 72 65 20 74 65 6d 70  r..pertoire temp
2c70: 6f 72 61 69 72 65 20 70 6f 75 72 20 73 74 6f 63  oraire pour stoc
2c80: 6b 65 72 20 6c 65 20 66 69 63 68 69 65 72 2e 27  ker le fichier.'
2c90: 3b 0a 09 09 09 63 61 73 65 20 55 50 4c 4f 41 44  ;....case UPLOAD
2ca0: 5f 45 52 52 5f 43 41 4e 54 5f 57 52 49 54 45 3a  _ERR_CANT_WRITE:
2cb0: 0a 09 09 09 09 72 65 74 75 72 6e 20 27 49 6d 70  .....return 'Imp
2cc0: 6f 73 73 69 62 6c 65 20 64 5c 27 c3 a9 63 72 69  ossible d\'..cri
2cd0: 72 65 20 6c 65 20 66 69 63 68 69 65 72 20 73 75  re le fichier su
2ce0: 72 20 6c 65 20 64 69 73 71 75 65 20 64 75 20 73  r le disque du s
2cf0: 65 72 76 65 75 72 2e 27 3b 0a 09 09 09 63 61 73  erveur.';....cas
2d00: 65 20 55 50 4c 4f 41 44 5f 45 52 52 5f 45 58 54  e UPLOAD_ERR_EXT
2d10: 45 4e 53 49 4f 4e 3a 0a 09 09 09 09 72 65 74 75  ENSION:.....retu
2d20: 72 6e 20 27 55 6e 65 20 65 78 74 65 6e 73 69 6f  rn 'Une extensio
2d30: 6e 20 64 75 20 73 65 72 76 65 75 72 20 61 20 69  n du serveur a i
2d40: 6e 74 65 72 72 6f 6d 70 75 20 6c 5c 27 65 6e 76  nterrompu l\'env
2d50: 6f 69 20 64 75 20 66 69 63 68 69 65 72 2e 27 3b  oi du fichier.';
2d60: 0a 09 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09  ....default:....
2d70: 09 72 65 74 75 72 6e 20 27 45 72 72 65 75 72 20  .return 'Erreur 
2d80: 69 6e 63 6f 6e 6e 75 65 3a 20 27 20 2e 20 24 65  inconnue: ' . $e
2d90: 72 72 6f 72 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 2f  rror;...}..}.../
2da0: 2a 2a 0a 09 20 2a 20 55 70 6c 6f 61 64 20 64 75  **.. * Upload du
2db0: 20 66 69 63 68 69 65 72 20 70 61 72 20 50 4f 53   fichier par POS
2dc0: 54 0a 09 20 2a 20 40 70 61 72 61 6d 20 20 61 72  T.. * @param  ar
2dd0: 72 61 79 20 20 24 66 69 6c 65 20 20 43 61 72 61  ray  $file  Cara
2de0: 63 74 c3 a9 72 69 73 74 69 71 75 65 73 20 64 75  ct..ristiques du
2df0: 20 66 69 63 68 69 65 72 20 65 6e 76 6f 79 c3 a9   fichier envoy..
2e00: 0a 09 20 2a 20 40 72 65 74 75 72 6e 20 6f 62 6a  .. * @return obj
2e10: 65 63 74 20 55 6e 20 6f 62 6a 65 74 20 46 69 63  ect Un objet Fic
2e20: 68 69 65 72 73 20 65 6e 20 63 61 73 20 64 65 20  hiers en cas de 
2e30: 73 75 63 63 c3 a8 73 0a 09 20 2a 2f 0a 09 73 74  succ..s.. */..st
2e40: 61 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63  atic public func
2e50: 74 69 6f 6e 20 75 70 6c 6f 61 64 28 24 66 69 6c  tion upload($fil
2e60: 65 29 0a 09 7b 0a 09 09 69 66 20 28 21 65 6d 70  e)..{...if (!emp
2e70: 74 79 28 24 66 69 6c 65 5b 27 65 72 72 6f 72 27  ty($file['error'
2e80: 5d 29 29 0a 09 09 7b 0a 09 09 09 74 68 72 6f 77  ]))...{....throw
2e90: 20 6e 65 77 20 55 73 65 72 45 78 63 65 70 74 69   new UserExcepti
2ea0: 6f 6e 28 73 65 6c 66 3a 3a 67 65 74 45 72 72 6f  on(self::getErro
2eb0: 72 4d 65 73 73 61 67 65 28 24 66 69 6c 65 5b 27  rMessage($file['
2ec0: 65 72 72 6f 72 27 5d 29 29 3b 0a 09 09 7d 0a 0a  error']));...}..
2ed0: 09 09 69 66 20 28 65 6d 70 74 79 28 24 66 69 6c  ..if (empty($fil
2ee0: 65 5b 27 73 69 7a 65 27 5d 29 20 7c 7c 20 65 6d  e['size']) || em
2ef0: 70 74 79 28 24 66 69 6c 65 5b 27 6e 61 6d 65 27  pty($file['name'
2f00: 5d 29 29 0a 09 09 7b 0a 09 09 09 74 68 72 6f 77  ]))...{....throw
2f10: 20 6e 65 77 20 55 73 65 72 45 78 63 65 70 74 69   new UserExcepti
2f20: 6f 6e 28 27 46 69 63 68 69 65 72 20 72 65 c3 a7  on('Fichier re..
2f30: 75 20 69 6e 76 61 6c 69 64 65 20 3a 20 76 69 64  u invalide : vid
2f40: 65 20 6f 75 20 73 61 6e 73 20 6e 6f 6d 20 64 65  e ou sans nom de
2f50: 20 66 69 63 68 69 65 72 2e 27 29 3b 0a 09 09 7d   fichier.');...}
2f60: 0a 0a 09 09 69 66 20 28 21 69 73 5f 75 70 6c 6f  ....if (!is_uplo
2f70: 61 64 65 64 5f 66 69 6c 65 28 24 66 69 6c 65 5b  aded_file($file[
2f80: 27 74 6d 70 5f 6e 61 6d 65 27 5d 29 29 0a 09 09  'tmp_name']))...
2f90: 7b 0a 09 09 09 74 68 72 6f 77 20 6e 65 77 20 5c  {....throw new \
2fa0: 52 75 6e 74 69 6d 65 45 78 63 65 70 74 69 6f 6e  RuntimeException
2fb0: 28 27 4c 65 20 66 69 63 68 69 65 72 20 6e 5c 27  ('Le fichier n\'
2fc0: 61 20 70 61 73 20 c3 a9 74 c3 a9 20 65 6e 76 6f  a pas ..t.. envo
2fd0: 79 c3 a9 20 64 65 20 6d 61 6e 69 c3 a8 72 65 20  y.. de mani..re 
2fe0: 63 6f 6e 76 65 6e 74 69 6f 6e 6e 65 6c 6c 65 2e  conventionnelle.
2ff0: 27 29 3b 0a 09 09 7d 0a 0a 09 09 24 6e 61 6d 65  ');...}....$name
3000: 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28   = preg_replace(
3010: 27 2f 5b 20 5d 2f 27 2c 20 27 5f 27 2c 20 24 66  '/[ ]/', '_', $f
3020: 69 6c 65 5b 27 6e 61 6d 65 27 5d 29 3b 0a 09 09  ile['name']);...
3030: 24 6e 61 6d 65 20 3d 20 70 72 65 67 5f 72 65 70  $name = preg_rep
3040: 6c 61 63 65 28 27 2f 5b 5e 5c 64 5c 77 2e 5f 2d  lace('/[^\d\w._-
3050: 5d 2f 75 69 27 2c 20 27 27 2c 20 24 66 69 6c 65  ]/ui', '', $file
3060: 5b 27 6e 61 6d 65 27 5d 29 3b 0a 0a 09 09 24 62  ['name']);....$b
3070: 79 74 65 73 20 3d 20 66 69 6c 65 5f 67 65 74 5f  ytes = file_get_
3080: 63 6f 6e 74 65 6e 74 73 28 24 66 69 6c 65 5b 27  contents($file['
3090: 74 6d 70 5f 6e 61 6d 65 27 5d 2c 20 66 61 6c 73  tmp_name'], fals
30a0: 65 2c 20 6e 75 6c 6c 2c 20 2d 31 2c 20 31 30 32  e, null, -1, 102
30b0: 34 29 3b 0a 09 09 24 74 79 70 65 20 3d 20 5c 4b  4);...$type = \K
30c0: 44 32 5c 46 69 6c 65 49 6e 66 6f 3a 3a 67 75 65  D2\FileInfo::gue
30d0: 73 73 4d 69 6d 65 54 79 70 65 28 24 62 79 74 65  ssMimeType($byte
30e0: 73 29 3b 0a 0a 09 09 69 66 20 28 21 24 74 79 70  s);....if (!$typ
30f0: 65 29 0a 09 09 7b 0a 09 09 09 24 65 78 74 20 3d  e)...{....$ext =
3100: 20 73 75 62 73 74 72 28 24 6e 61 6d 65 2c 20 73   substr($name, s
3110: 74 72 72 70 6f 73 28 24 6e 61 6d 65 2c 20 27 2e  trrpos($name, '.
3120: 27 29 2b 31 29 3b 0a 09 09 09 24 65 78 74 20 3d  ')+1);....$ext =
3130: 20 73 74 72 74 6f 6c 6f 77 65 72 28 24 65 78 74   strtolower($ext
3140: 29 3b 0a 0a 09 09 09 24 74 79 70 65 20 3d 20 5c  );.....$type = \
3150: 4b 44 32 5c 46 69 6c 65 49 6e 66 6f 3a 3a 67 65  KD2\FileInfo::ge
3160: 74 4d 69 6d 65 54 79 70 65 46 72 6f 6d 46 69 6c  tMimeTypeFromFil
3170: 65 45 78 74 65 6e 73 69 6f 6e 28 24 65 78 74 29  eExtension($ext)
3180: 3b 0a 09 09 7d 0a 0a 09 09 24 69 73 5f 69 6d 61  ;...}....$is_ima
3190: 67 65 20 3d 20 70 72 65 67 5f 6d 61 74 63 68 28  ge = preg_match(
31a0: 27 2f 5e 69 6d 61 67 65 5c 2f 2f 27 2c 20 24 74  '/^image\//', $t
31b0: 79 70 65 29 3b 0a 0a 09 09 24 68 61 73 68 20 3d  ype);....$hash =
31c0: 20 73 68 61 31 5f 66 69 6c 65 28 24 66 69 6c 65   sha1_file($file
31d0: 5b 27 74 6d 70 5f 6e 61 6d 65 27 5d 29 3b 0a 09  ['tmp_name']);..
31e0: 09 24 73 69 7a 65 20 3d 20 66 69 6c 65 73 69 7a  .$size = filesiz
31f0: 65 28 24 66 69 6c 65 5b 27 74 6d 70 5f 6e 61 6d  e($file['tmp_nam
3200: 65 27 5d 29 3b 0a 0a 09 09 24 64 62 20 3d 20 44  e']);....$db = D
3210: 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65 28 29  B::getInstance()
3220: 3b 0a 09 09 24 64 62 2d 3e 65 78 65 63 28 27 42  ;...$db->exec('B
3230: 45 47 49 4e 3b 27 29 3b 0a 0a 09 09 24 64 62 2d  EGIN;');....$db-
3240: 3e 73 69 6d 70 6c 65 49 6e 73 65 72 74 28 27 66  >simpleInsert('f
3250: 69 63 68 69 65 72 73 5f 63 6f 6e 74 65 6e 75 27  ichiers_contenu'
3260: 2c 20 5b 0a 09 09 09 27 68 61 73 68 27 09 09 3d  , [....'hash'..=
3270: 3e 09 24 68 61 73 68 2c 0a 09 09 09 27 74 61 69  >.$hash,....'tai
3280: 6c 6c 65 27 09 3d 3e 09 28 69 6e 74 29 24 73 69  lle'.=>.(int)$si
3290: 7a 65 2c 0a 09 09 09 27 63 6f 6e 74 65 6e 75 27  ze,....'contenu'
32a0: 09 3d 3e 09 5b 5c 53 51 4c 49 54 45 33 5f 42 4c  .=>.[\SQLITE3_BL
32b0: 4f 42 2c 20 66 69 6c 65 5f 67 65 74 5f 63 6f 6e  OB, file_get_con
32c0: 74 65 6e 74 73 28 24 66 69 6c 65 5b 27 74 6d 70  tents($file['tmp
32d0: 5f 6e 61 6d 65 27 5d 29 5d 2c 0a 09 09 5d 29 3b  _name'])],...]);
32e0: 0a 0a 09 09 24 69 64 5f 63 6f 6e 74 65 6e 75 20  ....$id_contenu 
32f0: 3d 20 24 64 62 2d 3e 6c 61 73 74 49 6e 73 65 72  = $db->lastInser
3300: 74 52 6f 77 49 44 28 29 3b 0a 0a 09 09 24 64 62  tRowID();....$db
3310: 2d 3e 73 69 6d 70 6c 65 49 6e 73 65 72 74 28 27  ->simpleInsert('
3320: 66 69 63 68 69 65 72 73 27 2c 20 5b 0a 09 09 09  fichiers', [....
3330: 27 69 64 5f 63 6f 6e 74 65 6e 75 27 09 3d 3e 09  'id_contenu'.=>.
3340: 28 69 6e 74 29 24 69 64 5f 63 6f 6e 74 65 6e 75  (int)$id_contenu
3350: 2c 0a 09 09 09 27 6e 6f 6d 27 09 09 09 3d 3e 09  ,....'nom'...=>.
3360: 24 6e 61 6d 65 2c 0a 09 09 09 27 74 79 70 65 27  $name,....'type'
3370: 09 09 09 3d 3e 09 24 74 79 70 65 2c 0a 09 09 09  ...=>.$type,....
3380: 27 69 6d 61 67 65 27 09 09 09 3d 3e 09 28 69 6e  'image'...=>.(in
3390: 74 29 24 69 73 5f 69 6d 61 67 65 2c 0a 09 09 5d  t)$is_image,...]
33a0: 29 3b 0a 0a 09 09 24 64 62 2d 3e 65 78 65 63 28  );....$db->exec(
33b0: 27 45 4e 44 3b 27 29 3b 0a 0a 09 09 72 65 74 75  'END;');....retu
33c0: 72 6e 20 6e 65 77 20 46 69 63 68 69 65 72 73 28  rn new Fichiers(
33d0: 24 64 62 2d 3e 6c 61 73 74 49 6e 73 65 72 74 52  $db->lastInsertR
33e0: 6f 77 49 44 28 29 29 3b 0a 09 7d 0a 0a 09 2f 2a  owID());..}.../*
33f0: 2a 0a 09 20 2a 20 45 6e 76 6f 69 65 20 75 6e 20  *.. * Envoie un 
3400: 66 69 63 68 69 65 72 20 64 c3 a9 6a c3 a0 20 73  fichier d..j.. s
3410: 74 6f 63 6b c3 a9 0a 09 20 2a 20 40 70 61 72 61  tock.... * @para
3420: 6d 20 20 73 74 72 69 6e 67 20 24 6e 61 6d 65 20  m  string $name 
3430: 4e 6f 6d 20 64 75 20 66 69 63 68 69 65 72 0a 09  Nom du fichier..
3440: 20 2a 20 40 70 61 72 61 6d 20 20 73 74 72 69 6e   * @param  strin
3450: 67 20 24 68 61 73 68 20 48 61 73 68 20 53 48 41  g $hash Hash SHA
3460: 31 20 64 75 20 63 6f 6e 74 65 6e 75 20 64 75 20  1 du contenu du 
3470: 66 69 63 68 69 65 72 0a 09 20 2a 20 40 72 65 74  fichier.. * @ret
3480: 75 72 6e 20 6f 62 6a 65 63 74 20 20 20 20 20 20  urn object      
3490: 20 55 6e 20 6f 62 6a 65 74 20 46 69 63 68 69 65   Un objet Fichie
34a0: 72 73 20 65 6e 20 63 61 73 20 64 65 20 73 75 63  rs en cas de suc
34b0: 63 c3 a8 73 0a 09 20 2a 2f 0a 09 73 74 61 74 69  c..s.. */..stati
34c0: 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f  c public functio
34d0: 6e 20 75 70 6c 6f 61 64 45 78 69 73 74 69 6e 67  n uploadExisting
34e0: 48 61 73 68 28 24 6e 61 6d 65 2c 20 24 68 61 73  Hash($name, $has
34f0: 68 29 0a 09 7b 0a 09 09 24 64 62 20 3d 20 44 42  h)..{...$db = DB
3500: 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65 28 29 3b  ::getInstance();
3510: 0a 09 09 24 6e 61 6d 65 20 3d 20 70 72 65 67 5f  ...$name = preg_
3520: 72 65 70 6c 61 63 65 28 27 2f 5b 5e 5c 64 5c 77  replace('/[^\d\w
3530: 2e 5f 2d 5d 2f 75 69 27 2c 20 27 27 2c 20 24 6e  ._-]/ui', '', $n
3540: 61 6d 65 29 3b 0a 0a 09 09 24 66 69 6c 65 20 3d  ame);....$file =
3550: 20 24 64 62 2d 3e 73 69 6d 70 6c 65 51 75 65 72   $db->simpleQuer
3560: 79 53 69 6e 67 6c 65 28 27 53 45 4c 45 43 54 20  ySingle('SELECT 
3570: 2a 20 46 52 4f 4d 20 66 69 63 68 69 65 72 73 20  * FROM fichiers 
3580: 0a 09 09 09 49 4e 4e 45 52 20 4a 4f 49 4e 20 66  ....INNER JOIN f
3590: 69 63 68 69 65 72 73 5f 63 6f 6e 74 65 6e 75 20  ichiers_contenu 
35a0: 41 53 20 66 63 20 4f 4e 20 66 63 2e 69 64 20 3d  AS fc ON fc.id =
35b0: 20 66 69 63 68 69 65 72 73 2e 69 64 5f 63 6f 6e   fichiers.id_con
35c0: 74 65 6e 75 20 41 4e 44 20 66 63 2e 68 61 73 68  tenu AND fc.hash
35d0: 20 3d 20 3f 3b 27 2c 20 74 72 75 65 2c 20 74 72   = ?;', true, tr
35e0: 69 6d 28 24 68 61 73 68 29 29 3b 0a 0a 09 09 69  im($hash));....i
35f0: 66 20 28 21 24 66 69 6c 65 29 0a 09 09 7b 0a 09  f (!$file)...{..
3600: 09 09 74 68 72 6f 77 20 6e 65 77 20 55 73 65 72  ..throw new User
3610: 45 78 63 65 70 74 69 6f 6e 28 27 4c 65 20 66 69  Exception('Le fi
3620: 63 68 69 65 72 20 c3 a0 20 63 6f 70 69 65 72 20  chier .. copier 
3630: 6e 5c 27 65 78 69 73 74 65 20 70 61 73 20 28 61  n\'existe pas (a
3640: 75 63 75 6e 20 68 61 73 68 20 6e 65 20 63 6f 72  ucun hash ne cor
3650: 72 65 73 70 6f 6e 64 20 c3 a0 20 27 2e 24 68 61  respond .. '.$ha
3660: 73 68 2e 27 29 2e 27 29 3b 0a 09 09 7d 0a 0a 09  sh.').');...}...
3670: 09 24 64 62 2d 3e 73 69 6d 70 6c 65 49 6e 73 65  .$db->simpleInse
3680: 72 74 28 27 66 69 63 68 69 65 72 73 27 2c 20 5b  rt('fichiers', [
3690: 0a 09 09 09 27 69 64 5f 63 6f 6e 74 65 6e 75 27  ....'id_contenu'
36a0: 09 3d 3e 09 28 69 6e 74 29 24 66 69 6c 65 5b 27  .=>.(int)$file['
36b0: 69 64 5f 63 6f 6e 74 65 6e 75 27 5d 2c 0a 09 09  id_contenu'],...
36c0: 09 27 6e 6f 6d 27 09 09 09 3d 3e 09 24 6e 61 6d  .'nom'...=>.$nam
36d0: 65 2c 0a 09 09 09 27 74 79 70 65 27 09 09 09 3d  e,....'type'...=
36e0: 3e 09 24 66 69 6c 65 5b 27 74 79 70 65 27 5d 2c  >.$file['type'],
36f0: 0a 09 09 09 27 69 6d 61 67 65 27 09 09 09 3d 3e  ....'image'...=>
3700: 09 28 69 6e 74 29 24 66 69 6c 65 5b 27 69 6d 61  .(int)$file['ima
3710: 67 65 27 5d 2c 0a 09 09 5d 29 3b 0a 0a 09 09 72  ge'],...]);....r
3720: 65 74 75 72 6e 20 6e 65 77 20 46 69 63 68 69 65  eturn new Fichie
3730: 72 73 28 24 64 62 2d 3e 6c 61 73 74 49 6e 73 65  rs($db->lastInse
3740: 72 74 52 6f 77 49 44 28 29 29 3b 0a 09 7d 0a 0a  rtRowID());..}..
3750: 20 20 20 20 2f 2a 2a 0a 20 20 20 20 20 2a 20 52      /**.     * R
3760: c3 a9 63 75 70 c3 a8 72 65 20 6c 61 20 6c 69 73  ..cup..re la lis
3770: 74 65 20 64 65 73 20 66 69 63 68 69 65 72 73 20  te des fichiers 
3780: 6c 69 c3 a9 73 20 c3 a0 20 75 6e 65 20 72 65 73  li..s .. une res
3790: 73 6f 75 72 63 65 0a 20 20 20 20 20 2a 20 0a 20  source.     * . 
37a0: 20 20 20 20 2a 20 40 70 61 72 61 6d 20 20 73 74      * @param  st
37b0: 72 69 6e 67 20 20 24 74 79 70 65 20 20 20 20 54  ring  $type    T
37c0: 79 70 65 20 64 65 20 72 65 73 73 6f 75 72 63 65  ype de ressource
37d0: 0a 20 20 20 20 20 2a 20 40 70 61 72 61 6d 20 20  .     * @param  
37e0: 69 6e 74 65 67 65 72 20 24 69 64 20 20 20 20 20  integer $id     
37f0: 20 4e 75 6d c3 a9 72 6f 20 64 65 20 72 65 73 73   Num..ro de ress
3800: 6f 75 72 63 65 0a 20 20 20 20 20 2a 20 40 70 61  ource.     * @pa
3810: 72 61 6d 20 20 62 6f 6f 6c 65 61 6e 20 24 69 6d  ram  boolean $im
3820: 61 67 65 73 20 20 54 52 55 45 20 70 6f 75 72 20  ages  TRUE pour 
3830: 72 65 74 6f 75 72 6e 65 72 20 73 65 75 6c 65 6d  retourner seulem
3840: 65 6e 74 20 6c 65 73 20 69 6d 61 67 65 73 2c 0a  ent les images,.
3850: 20 20 20 20 20 2a 20 46 41 4c 53 45 20 70 6f 75       * FALSE pou
3860: 72 20 72 65 74 6f 75 72 6e 65 72 20 6c 65 73 20  r retourner les 
3870: 66 69 63 68 69 65 72 73 20 73 61 6e 73 20 69 6d  fichiers sans im
3880: 61 67 65 73 2c 20 4e 55 4c 4c 20 70 6f 75 72 20  ages, NULL pour 
3890: 74 6f 75 74 20 72 65 74 6f 75 72 6e 65 72 0a 20  tout retourner. 
38a0: 20 20 20 20 2a 20 40 72 65 74 75 72 6e 20 61 72      * @return ar
38b0: 72 61 79 20 20 20 20 20 20 20 20 20 20 4c 69 73  ray          Lis
38c0: 74 65 20 64 65 73 20 66 69 63 68 69 65 72 73 0a  te des fichiers.
38d0: 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 74 61 74       */.    stat
38e0: 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69  ic public functi
38f0: 6f 6e 20 6c 69 73 74 4c 69 6e 6b 65 64 46 69 6c  on listLinkedFil
3900: 65 73 28 24 74 79 70 65 2c 20 24 69 64 2c 20 24  es($type, $id, $
3910: 69 6d 61 67 65 73 20 3d 20 66 61 6c 73 65 29 0a  images = false).
3920: 20 20 20 20 7b 0a 09 09 24 63 68 65 63 6b 20 3d      {...$check =
3930: 20 5b 73 65 6c 66 3a 3a 4c 49 45 4e 5f 4d 45 4d   [self::LIEN_MEM
3940: 42 52 45 53 2c 20 73 65 6c 66 3a 3a 4c 49 45 4e  BRES, self::LIEN
3950: 5f 57 49 4b 49 2c 20 73 65 6c 66 3a 3a 4c 49 45  _WIKI, self::LIE
3960: 4e 5f 43 4f 4d 50 54 41 5d 3b 0a 0a 09 09 69 66  N_COMPTA];....if
3970: 20 28 21 69 6e 5f 61 72 72 61 79 28 24 74 79 70   (!in_array($typ
3980: 65 2c 20 24 63 68 65 63 6b 29 29 0a 09 09 7b 0a  e, $check))...{.
3990: 09 09 09 74 68 72 6f 77 20 6e 65 77 20 5c 4c 6f  ...throw new \Lo
39a0: 67 69 63 45 78 63 65 70 74 69 6f 6e 28 27 54 79  gicException('Ty
39b0: 70 65 20 64 65 20 6c 69 65 6e 20 64 65 20 66 69  pe de lien de fi
39c0: 63 68 69 65 72 20 69 6e 63 6f 6e 6e 75 2e 27 29  chier inconnu.')
39d0: 3b 0a 09 09 7d 0a 0a 20 20 20 20 09 24 69 6d 61  ;...}..    .$ima
39e0: 67 65 73 20 3d 20 69 73 5f 6e 75 6c 6c 28 24 69  ges = is_null($i
39f0: 6d 61 67 65 73 29 20 3f 20 27 27 20 3a 20 27 20  mages) ? '' : ' 
3a00: 41 4e 44 20 69 6d 61 67 65 20 3d 20 27 20 2e 20  AND image = ' . 
3a10: 28 69 6e 74 29 24 69 6d 61 67 65 73 3b 0a 0a 20  (int)$images;.. 
3a20: 20 20 20 20 20 20 20 24 66 69 6c 65 73 20 3d 20         $files = 
3a30: 44 42 3a 3a 67 65 74 49 6e 73 74 61 6e 63 65 28  DB::getInstance(
3a40: 29 2d 3e 73 69 6d 70 6c 65 53 74 61 74 65 6d 65  )->simpleStateme
3a50: 6e 74 46 65 74 63 68 28 27 53 45 4c 45 43 54 20  ntFetch('SELECT 
3a60: 66 69 63 68 69 65 72 73 2e 2a 2c 20 63 2e 68 61  fichiers.*, c.ha
3a70: 73 68 2c 20 63 2e 74 61 69 6c 6c 65 0a 20 20 20  sh, c.taille.   
3a80: 20 20 20 20 20 09 46 52 4f 4d 20 66 69 63 68 69       .FROM fichi
3a90: 65 72 73 20 0a 20 20 20 20 20 20 20 20 20 20 20  ers .           
3aa0: 20 49 4e 4e 45 52 20 4a 4f 49 4e 20 66 69 63 68   INNER JOIN fich
3ab0: 69 65 72 73 5f 27 2e 24 74 79 70 65 2e 27 20 41  iers_'.$type.' A
3ac0: 53 20 66 77 70 20 4f 4e 20 66 77 70 2e 66 69 63  S fwp ON fwp.fic
3ad0: 68 69 65 72 20 3d 20 66 69 63 68 69 65 72 73 2e  hier = fichiers.
3ae0: 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 49  id.            I
3af0: 4e 4e 45 52 20 4a 4f 49 4e 20 66 69 63 68 69 65  NNER JOIN fichie
3b00: 72 73 5f 63 6f 6e 74 65 6e 75 20 41 53 20 63 20  rs_contenu AS c 
3b10: 4f 4e 20 63 2e 69 64 20 3d 20 66 69 63 68 69 65  ON c.id = fichie
3b20: 72 73 2e 69 64 5f 63 6f 6e 74 65 6e 75 0a 20 20  rs.id_contenu.  
3b30: 20 20 20 20 20 20 20 20 20 20 57 48 45 52 45 20            WHERE 
3b40: 66 77 70 2e 69 64 20 3d 20 3f 20 27 2e 24 69 6d  fwp.id = ? '.$im
3b50: 61 67 65 73 2e 27 0a 20 20 20 20 20 20 20 20 20  ages.'.         
3b60: 20 20 20 4f 52 44 45 52 20 42 59 20 66 69 63 68     ORDER BY fich
3b70: 69 65 72 73 2e 6e 6f 6d 20 43 4f 4c 4c 41 54 45  iers.nom COLLATE
3b80: 20 4e 4f 43 41 53 45 3b 27 2c 20 5c 53 51 4c 49   NOCASE;', \SQLI
3b90: 54 45 33 5f 41 53 53 4f 43 2c 20 28 69 6e 74 29  TE3_ASSOC, (int)
3ba0: 24 69 64 29 3b 0a 0a 20 20 20 20 20 20 20 20 66  $id);..        f
3bb0: 6f 72 65 61 63 68 20 28 24 66 69 6c 65 73 20 61  oreach ($files a
3bc0: 73 20 26 24 66 69 6c 65 29 0a 20 20 20 20 20 20  s &$file).      
3bd0: 20 20 7b 0a 20 20 20 20 20 20 20 20 09 24 66 69    {.        .$fi
3be0: 6c 65 5b 27 75 72 6c 27 5d 20 3d 20 73 65 6c 66  le['url'] = self
3bf0: 3a 3a 5f 67 65 74 55 52 4c 28 24 66 69 6c 65 5b  ::_getURL($file[
3c00: 27 69 64 27 5d 2c 20 24 66 69 6c 65 5b 27 6e 6f  'id'], $file['no
3c10: 6d 27 5d 29 3b 0a 20 20 20 20 20 20 20 20 09 24  m']);.        .$
3c20: 66 69 6c 65 5b 27 74 68 75 6d 62 27 5d 20 3d 20  file['thumb'] = 
3c30: 24 66 69 6c 65 5b 27 69 6d 61 67 65 27 5d 20 3f  $file['image'] ?
3c40: 20 73 65 6c 66 3a 3a 5f 67 65 74 55 52 4c 28 24   self::_getURL($
3c50: 66 69 6c 65 5b 27 69 64 27 5d 2c 20 24 66 69 6c  file['id'], $fil
3c60: 65 5b 27 6e 6f 6d 27 5d 2c 20 32 30 30 29 20 3a  e['nom'], 200) :
3c70: 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20   false;.        
3c80: 7d 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  }..        retur
3c90: 6e 20 24 66 69 6c 65 73 3b 0a 20 20 20 20 7d 0a  n $files;.    }.
3ca0: 0a 20 20 20 20 2f 2a 2a 0a 20 20 20 20 20 2a 20  .    /**.     * 
3cb0: 45 6e 6c c3 a8 76 65 20 64 27 75 6e 65 20 6c 69  Enl..ve d'une li
3cc0: 73 74 65 20 64 65 20 66 69 63 68 69 65 72 73 20  ste de fichiers 
3cd0: 63 65 75 78 20 71 75 69 20 73 6f 6e 74 20 6d 65  ceux qui sont me
3ce0: 6e 74 69 6f 6e 6e c3 a9 73 20 64 61 6e 73 20 75  ntionn..s dans u
3cf0: 6e 20 74 65 78 74 65 20 77 69 6b 69 0a 20 20 20  n texte wiki.   
3d00: 20 20 2a 20 40 70 61 72 61 6d 20 20 61 72 72 61    * @param  arra
3d10: 79 20 24 66 69 6c 65 73 20 4c 69 73 74 65 20 64  y $files Liste d
3d20: 65 20 66 69 63 68 69 65 72 73 0a 20 20 20 20 20  e fichiers.     
3d30: 2a 20 40 70 61 72 61 6d 20 20 73 74 72 69 6e 67  * @param  string
3d40: 20 24 74 65 78 74 20 20 74 65 78 74 65 20 77 69   $text  texte wi
3d50: 6b 69 0a 20 20 20 20 20 2a 20 40 72 65 74 75 72  ki.     * @retur
3d60: 6e 20 61 72 72 61 79 20 20 20 20 20 20 20 20 55  n array        U
3d70: 6e 20 74 61 62 6c 65 61 75 20 71 75 69 20 6e 65  n tableau qui ne
3d80: 20 63 6f 6e 74 69 65 6e 74 20 70 61 73 20 6c 65   contient pas le
3d90: 73 20 66 69 63 68 69 65 72 73 20 6d 65 6e 74 69  s fichiers menti
3da0: 6f 6e 6e c3 a9 73 20 64 61 6e 73 20 24 74 65 78  onn..s dans $tex
3db0: 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 74  t.     */.    st
3dc0: 61 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63  atic public func
3dd0: 74 69 6f 6e 20 66 69 6c 74 65 72 46 69 6c 65 73  tion filterFiles
3de0: 55 73 65 64 49 6e 54 65 78 74 28 24 66 69 6c 65  UsedInText($file
3df0: 73 2c 20 24 74 65 78 74 29 0a 20 20 20 20 7b 0a  s, $text).    {.
3e00: 20 20 20 20 09 24 75 73 65 64 20 3d 20 73 65 6c      .$used = sel
3e10: 66 3a 3a 6c 69 73 74 46 69 6c 65 73 55 73 65 64  f::listFilesUsed
3e20: 49 6e 54 65 78 74 28 24 74 65 78 74 29 3b 0a 0a  InText($text);..
3e30: 20 20 20 20 09 72 65 74 75 72 6e 20 61 72 72 61      .return arra
3e40: 79 5f 66 69 6c 74 65 72 28 24 66 69 6c 65 73 2c  y_filter($files,
3e50: 20 66 75 6e 63 74 69 6f 6e 20 28 24 72 6f 77 29   function ($row)
3e60: 20 75 73 65 20 28 24 75 73 65 64 29 20 7b 0a 20   use ($used) {. 
3e70: 20 20 20 09 09 72 65 74 75 72 6e 20 21 69 6e 5f     ..return !in_
3e80: 61 72 72 61 79 28 24 72 6f 77 5b 27 69 64 27 5d  array($row['id']
3e90: 2c 20 24 75 73 65 64 29 3b 0a 20 20 20 20 09 7d  , $used);.    .}
3ea0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  );.    }..    /*
3eb0: 2a 0a 20 20 20 20 20 2a 20 52 65 6e 76 6f 69 65  *.     * Renvoie
3ec0: 20 75 6e 65 20 6c 69 73 74 65 20 64 27 49 44 20   une liste d'ID 
3ed0: 64 65 20 66 69 63 68 69 65 72 73 20 6d 65 6e 74  de fichiers ment
3ee0: 69 6f 6e 6e c3 a9 65 73 20 64 61 6e 73 20 75 6e  ionn..es dans un
3ef0: 20 74 65 78 74 65 20 77 69 6b 69 0a 20 20 20 20   texte wiki.    
3f00: 20 2a 20 40 70 61 72 61 6d 20 20 73 74 72 69 6e   * @param  strin
3f10: 67 20 24 74 65 78 74 20 54 65 78 74 65 20 77 69  g $text Texte wi
3f20: 6b 69 0a 20 20 20 20 20 2a 20 40 72 65 74 75 72  ki.     * @retur
3f30: 6e 20 61 72 72 61 79 20 20 20 20 20 20 20 4c 69  n array       Li
3f40: 73 74 65 20 64 65 73 20 49 44 73 20 64 65 20 66  ste des IDs de f
3f50: 69 63 68 69 65 72 73 20 6d 65 6e 74 69 6f 6e 6e  ichiers mentionn
3f60: c3 a9 73 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20  ..s.     */.    
3f70: 73 74 61 74 69 63 20 70 75 62 6c 69 63 20 66 75  static public fu
3f80: 6e 63 74 69 6f 6e 20 6c 69 73 74 46 69 6c 65 73  nction listFiles
3f90: 55 73 65 64 49 6e 54 65 78 74 28 24 74 65 78 74  UsedInText($text
3fa0: 29 0a 09 7b 0a 20 20 20 20 09 70 72 65 67 5f 6d  )..{.    .preg_m
3fb0: 61 74 63 68 5f 61 6c 6c 28 27 2f 3c 3c 3f 28 3f  atch_all('/<<?(?
3fc0: 3a 66 69 63 68 69 65 72 7c 69 6d 61 67 65 29 5c  :fichier|image)\
3fd0: 73 2a 28 3f 3a 5c 7c 5c 73 2a 29 3f 28 5c 64 2b  s*(?:\|\s*)?(\d+
3fe0: 29 2f 27 2c 20 24 74 65 78 74 2c 20 24 6d 61 74  )/', $text, $mat
3ff0: 63 68 2c 20 50 52 45 47 5f 50 41 54 54 45 52 4e  ch, PREG_PATTERN
4000: 5f 4f 52 44 45 52 29 3b 0a 20 20 20 20 09 0a 20  _ORDER);.    .. 
4010: 20 20 20 09 72 65 74 75 72 6e 20 24 6d 61 74 63     .return $matc
4020: 68 5b 31 5d 3b 0a 09 7d 0a 0a 09 2f 2a 2a 0a 09  h[1];..}.../**..
4030: 20 2a 20 43 61 6c 6c 62 61 63 6b 20 75 74 69 6c   * Callback util
4040: 69 73 c3 a9 20 70 6f 75 72 20 6c 27 65 78 74 65  is.. pour l'exte
4050: 6e 73 69 6f 6e 20 3c 3c 66 69 63 68 69 65 72 3e  nsion <<fichier>
4060: 3e 20 64 61 6e 73 20 6c 65 20 77 69 6b 69 2d 74  > dans le wiki-t
4070: 65 78 74 65 0a 09 20 2a 20 40 70 61 72 61 6d 20  exte.. * @param 
4080: 61 72 72 61 79 20 24 61 72 67 73 20 20 20 20 41  array $args    A
4090: 72 67 75 6d 65 6e 74 73 20 70 61 73 73 c3 a9 73  rguments pass..s
40a0: 20 c3 a0 20 6c 27 65 78 74 65 6e 73 69 6f 6e 0a   .. l'extension.
40b0: 09 20 2a 20 40 70 61 72 61 6d 20 73 74 72 69 6e  . * @param strin
40c0: 67 20 24 63 6f 6e 74 65 6e 74 20 43 6f 6e 74 65  g $content Conte
40d0: 6e 75 20 c3 a9 76 65 6e 74 75 65 6c 20 28 65 6e  nu ..ventuel (en
40e0: 20 6d 6f 64 65 20 62 6c 6f 63 29 0a 09 20 2a 20   mode bloc).. * 
40f0: 40 70 61 72 61 6d 20 6f 62 6a 65 63 74 20 24 73  @param object $s
4100: 6b 72 69 76 20 20 20 4f 62 6a 65 74 20 53 6b 72  kriv   Objet Skr
4110: 69 76 4c 69 74 65 0a 09 20 2a 2f 0a 09 73 74 61  ivLite.. */..sta
4120: 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74  tic public funct
4130: 69 6f 6e 20 53 6b 72 69 76 46 69 63 68 69 65 72  ion SkrivFichier
4140: 28 24 61 72 67 73 2c 20 24 63 6f 6e 74 65 6e 74  ($args, $content
4150: 2c 20 24 73 6b 72 69 76 29 0a 09 7b 0a 09 09 24  , $skriv)..{...$
4160: 5f 61 72 67 73 20 3d 20 5b 5d 3b 0a 0a 09 09 66  _args = [];....f
4170: 6f 72 65 61 63 68 20 28 24 61 72 67 73 20 61 73  oreach ($args as
4180: 20 24 76 61 6c 75 65 29 0a 09 09 7b 0a 09 09 09   $value)...{....
4190: 69 66 20 28 70 72 65 67 5f 6d 61 74 63 68 28 27  if (preg_match('
41a0: 2f 5e 5c 64 2b 24 2f 27 2c 20 24 76 61 6c 75 65  /^\d+$/', $value
41b0: 29 29 0a 09 09 09 7b 0a 09 09 09 09 24 5f 61 72  ))....{.....$_ar
41c0: 67 73 5b 27 69 64 27 5d 20 3d 20 28 69 6e 74 29  gs['id'] = (int)
41d0: 24 76 61 6c 75 65 3b 0a 09 09 09 7d 0a 09 09 7d  $value;....}...}
41e0: 0a 0a 09 09 69 66 20 28 65 6d 70 74 79 28 24 5f  ....if (empty($_
41f0: 61 72 67 73 5b 27 69 64 27 5d 29 29 0a 09 09 7b  args['id']))...{
4200: 0a 09 09 09 72 65 74 75 72 6e 20 24 73 6b 72 69  ....return $skri
4210: 76 2d 3e 70 61 72 73 65 45 72 72 6f 72 28 27 2f  v->parseError('/
4220: 21 5c 20 54 61 67 20 66 69 63 68 69 65 72 20 3a  !\ Tag fichier :
4230: 20 61 75 63 75 6e 20 6e 75 6d c3 a9 72 6f 20 64   aucun num..ro d
4240: 65 20 66 69 63 68 69 65 72 20 69 6e 64 69 71 75  e fichier indiqu
4250: c3 a9 2e 27 29 3b 0a 09 09 7d 0a 0a 09 09 74 72  ...');...}....tr
4260: 79 20 7b 0a 09 09 09 24 66 69 6c 65 20 3d 20 6e  y {....$file = n
4270: 65 77 20 46 69 63 68 69 65 72 73 28 24 5f 61 72  ew Fichiers($_ar
4280: 67 73 5b 27 69 64 27 5d 29 3b 0a 09 09 7d 0a 09  gs['id']);...}..
4290: 09 63 61 74 63 68 20 28 5c 49 6e 76 61 6c 69 64  .catch (\Invalid
42a0: 41 72 67 75 6d 65 6e 74 45 78 63 65 70 74 69 6f  ArgumentExceptio
42b0: 6e 20 24 65 29 0a 09 09 7b 0a 09 09 09 72 65 74  n $e)...{....ret
42c0: 75 72 6e 20 24 73 6b 72 69 76 2d 3e 70 61 72 73  urn $skriv->pars
42d0: 65 45 72 72 6f 72 28 27 2f 21 5c 20 54 61 67 20  eError('/!\ Tag 
42e0: 66 69 63 68 69 65 72 20 3a 20 27 20 2e 20 24 65  fichier : ' . $e
42f0: 2d 3e 67 65 74 4d 65 73 73 61 67 65 28 29 29 3b  ->getMessage());
4300: 0a 09 09 7d 0a 0a 09 09 24 6f 75 74 20 3d 20 27  ...}....$out = '
4310: 3c 61 73 69 64 65 20 63 6c 61 73 73 3d 22 66 69  <aside class="fi
4320: 63 68 69 65 72 22 20 64 61 74 61 2d 74 79 70 65  chier" data-type
4330: 3d 22 27 2e 24 73 6b 72 69 76 2d 3e 65 73 63 61  ="'.$skriv->esca
4340: 70 65 28 24 66 69 6c 65 2d 3e 74 79 70 65 29 2e  pe($file->type).
4350: 27 22 3e 27 3b 0a 09 09 24 6f 75 74 2e 3d 20 27  '">';...$out.= '
4360: 3c 61 20 68 72 65 66 3d 22 27 2e 24 66 69 6c 65  <a href="'.$file
4370: 2d 3e 67 65 74 55 52 4c 28 29 2e 27 22 20 63 6c  ->getURL().'" cl
4380: 61 73 73 3d 22 69 6e 74 65 72 6e 61 6c 2d 66 69  ass="internal-fi
4390: 6c 65 22 3e 27 2e 24 73 6b 72 69 76 2d 3e 65 73  le">'.$skriv->es
43a0: 63 61 70 65 28 24 66 69 6c 65 2d 3e 6e 6f 6d 29  cape($file->nom)
43b0: 2e 27 3c 2f 61 3e 20 27 3b 0a 09 09 24 6f 75 74  .'</a> ';...$out
43c0: 2e 3d 20 27 3c 73 6d 61 6c 6c 3e 28 27 2e 24 73  .= '<small>('.$s
43d0: 6b 72 69 76 2d 3e 65 73 63 61 70 65 28 28 24 66  kriv->escape(($f
43e0: 69 6c 65 2d 3e 74 79 70 65 20 3f 20 24 66 69 6c  ile->type ? $fil
43f0: 65 2d 3e 74 79 70 65 20 2e 20 27 2c 20 27 20 3a  e->type . ', ' :
4400: 20 27 27 29 20 2e 20 55 74 69 6c 73 3a 3a 66 6f   '') . Utils::fo
4410: 72 6d 61 74 5f 62 79 74 65 73 28 24 66 69 6c 65  rmat_bytes($file
4420: 2d 3e 74 61 69 6c 6c 65 29 29 2e 27 29 3c 2f 73  ->taille)).')</s
4430: 6d 61 6c 6c 3e 27 3b 0a 09 09 24 6f 75 74 2e 3d  mall>';...$out.=
4440: 20 27 3c 2f 61 73 69 64 65 3e 27 3b 0a 09 09 72   '</aside>';...r
4450: 65 74 75 72 6e 20 24 6f 75 74 3b 0a 09 7d 0a 0a  eturn $out;..}..
4460: 09 2f 2a 2a 0a 09 20 2a 20 43 61 6c 6c 62 61 63  ./**.. * Callbac
4470: 6b 20 75 74 69 6c 69 73 c3 a9 20 70 6f 75 72 20  k utilis.. pour 
4480: 6c 27 65 78 74 65 6e 73 69 6f 6e 20 3c 3c 69 6d  l'extension <<im
4490: 61 67 65 3e 3e 20 64 61 6e 73 20 6c 65 20 77 69  age>> dans le wi
44a0: 6b 69 2d 74 65 78 74 65 0a 09 20 2a 20 40 70 61  ki-texte.. * @pa
44b0: 72 61 6d 20 61 72 72 61 79 20 24 61 72 67 73 20  ram array $args 
44c0: 20 20 20 41 72 67 75 6d 65 6e 74 73 20 70 61 73     Arguments pas
44d0: 73 c3 a9 73 20 c3 a0 20 6c 27 65 78 74 65 6e 73  s..s .. l'extens
44e0: 69 6f 6e 0a 09 20 2a 20 40 70 61 72 61 6d 20 73  ion.. * @param s
44f0: 74 72 69 6e 67 20 24 63 6f 6e 74 65 6e 74 20 43  tring $content C
4500: 6f 6e 74 65 6e 75 20 c3 a9 76 65 6e 74 75 65 6c  ontenu ..ventuel
4510: 20 28 65 6e 20 6d 6f 64 65 20 62 6c 6f 63 29 0a   (en mode bloc).
4520: 09 20 2a 20 40 70 61 72 61 6d 20 6f 62 6a 65 63  . * @param objec
4530: 74 20 24 73 6b 72 69 76 20 20 20 4f 62 6a 65 74  t $skriv   Objet
4540: 20 53 6b 72 69 76 4c 69 74 65 0a 09 20 2a 2f 0a   SkrivLite.. */.
4550: 09 73 74 61 74 69 63 20 70 75 62 6c 69 63 20 66  .static public f
4560: 75 6e 63 74 69 6f 6e 20 53 6b 72 69 76 49 6d 61  unction SkrivIma
4570: 67 65 28 24 61 72 67 73 2c 20 24 63 6f 6e 74 65  ge($args, $conte
4580: 6e 74 2c 20 24 73 6b 72 69 76 29 0a 09 7b 0a 09  nt, $skriv)..{..
4590: 09 24 5f 61 72 67 73 20 3d 20 5b 5d 3b 0a 09 09  .$_args = [];...
45a0: 24 5f 61 6c 69 67 6e 5f 76 61 6c 75 65 73 20 3d  $_align_values =
45b0: 20 5b 27 64 72 6f 69 74 65 27 2c 20 27 67 61 75   ['droite', 'gau
45c0: 63 68 65 27 2c 20 27 63 65 6e 74 72 65 27 5d 3b  che', 'centre'];
45d0: 0a 0a 09 09 66 6f 72 65 61 63 68 20 28 24 61 72  ....foreach ($ar
45e0: 67 73 20 61 73 20 24 76 61 6c 75 65 29 0a 09 09  gs as $value)...
45f0: 7b 0a 09 09 09 69 66 20 28 70 72 65 67 5f 6d 61  {....if (preg_ma
4600: 74 63 68 28 27 2f 5e 5c 64 2b 24 2f 27 2c 20 24  tch('/^\d+$/', $
4610: 76 61 6c 75 65 29 29 0a 09 09 09 7b 0a 09 09 09  value))....{....
4620: 09 24 5f 61 72 67 73 5b 27 69 64 27 5d 20 3d 20  .$_args['id'] = 
4630: 28 69 6e 74 29 24 76 61 6c 75 65 3b 0a 09 09 09  (int)$value;....
4640: 7d 0a 09 09 09 65 6c 73 65 20 69 66 20 28 69 6e  }....else if (in
4650: 5f 61 72 72 61 79 28 24 76 61 6c 75 65 2c 20 24  _array($value, $
4660: 5f 61 6c 69 67 6e 5f 76 61 6c 75 65 73 29 29 0a  _align_values)).
4670: 09 09 09 7b 0a 09 09 09 09 24 5f 61 72 67 73 5b  ...{.....$_args[
4680: 27 61 6c 69 67 6e 27 5d 20 3d 20 24 76 61 6c 75  'align'] = $valu
4690: 65 3b 0a 09 09 09 7d 0a 09 09 09 65 6c 73 65 0a  e;....}....else.
46a0: 09 09 09 7b 0a 09 09 09 09 24 5f 61 72 67 73 5b  ...{.....$_args[
46b0: 27 63 61 70 74 69 6f 6e 27 5d 20 3d 20 24 76 61  'caption'] = $va
46c0: 6c 75 65 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  lue;....}...}...
46d0: 09 69 66 20 28 65 6d 70 74 79 28 24 5f 61 72 67  .if (empty($_arg
46e0: 73 5b 27 69 64 27 5d 29 29 0a 09 09 7b 0a 09 09  s['id']))...{...
46f0: 09 72 65 74 75 72 6e 20 24 73 6b 72 69 76 2d 3e  .return $skriv->
4700: 70 61 72 73 65 45 72 72 6f 72 28 27 2f 21 5c 20  parseError('/!\ 
4710: 54 61 67 20 69 6d 61 67 65 20 3a 20 61 75 63 75  Tag image : aucu
4720: 6e 20 6e 75 6d c3 a9 72 6f 20 64 65 20 66 69 63  n num..ro de fic
4730: 68 69 65 72 20 69 6e 64 69 71 75 c3 a9 2e 27 29  hier indiqu...')
4740: 3b 0a 09 09 7d 0a 0a 09 09 74 72 79 20 7b 0a 09  ;...}....try {..
4750: 09 09 24 66 69 6c 65 20 3d 20 6e 65 77 20 46 69  ..$file = new Fi
4760: 63 68 69 65 72 73 28 24 5f 61 72 67 73 5b 27 69  chiers($_args['i
4770: 64 27 5d 29 3b 0a 09 09 7d 0a 09 09 63 61 74 63  d']);...}...catc
4780: 68 20 28 5c 49 6e 76 61 6c 69 64 41 72 67 75 6d  h (\InvalidArgum
4790: 65 6e 74 45 78 63 65 70 74 69 6f 6e 20 24 65 29  entException $e)
47a0: 0a 09 09 7b 0a 09 09 09 72 65 74 75 72 6e 20 24  ...{....return $
47b0: 73 6b 72 69 76 2d 3e 70 61 72 73 65 45 72 72 6f  skriv->parseErro
47c0: 72 28 27 2f 21 5c 20 54 61 67 20 69 6d 61 67 65  r('/!\ Tag image
47d0: 20 3a 20 27 20 2e 20 24 65 2d 3e 67 65 74 4d 65   : ' . $e->getMe
47e0: 73 73 61 67 65 28 29 29 3b 0a 09 09 7d 0a 0a 09  ssage());...}...
47f0: 09 69 66 20 28 21 24 66 69 6c 65 2d 3e 69 6d 61  .if (!$file->ima
4800: 67 65 29 0a 09 09 7b 0a 09 09 09 72 65 74 75 72  ge)...{....retur
4810: 6e 20 24 73 6b 72 69 76 2d 3e 70 61 72 73 65 45  n $skriv->parseE
4820: 72 72 6f 72 28 27 2f 21 5c 20 54 61 67 20 69 6d  rror('/!\ Tag im
4830: 61 67 65 20 3a 20 63 65 20 66 69 63 68 69 65 72  age : ce fichier
4840: 20 6e 5c 27 65 73 74 20 70 61 73 20 75 6e 65 20   n\'est pas une 
4850: 69 6d 61 67 65 2e 27 29 3b 0a 09 09 7d 0a 0a 09  image.');...}...
4860: 09 69 66 20 28 65 6d 70 74 79 28 24 5f 61 72 67  .if (empty($_arg
4870: 73 5b 27 63 61 70 74 69 6f 6e 27 5d 29 29 0a 09  s['caption']))..
4880: 09 7b 0a 09 09 09 24 5f 61 72 67 73 5b 27 63 61  .{....$_args['ca
4890: 70 74 69 6f 6e 27 5d 20 3d 20 66 61 6c 73 65 3b  ption'] = false;
48a0: 0a 09 09 7d 0a 0a 09 09 24 6f 75 74 20 3d 20 27  ...}....$out = '
48b0: 3c 61 20 68 72 65 66 3d 22 27 2e 24 66 69 6c 65  <a href="'.$file
48c0: 2d 3e 67 65 74 55 52 4c 28 29 2e 27 22 20 63 6c  ->getURL().'" cl
48d0: 61 73 73 3d 22 69 6e 74 65 72 6e 61 6c 2d 69 6d  ass="internal-im
48e0: 61 67 65 22 3e 27 3b 0a 09 09 24 6f 75 74 20 2e  age">';...$out .
48f0: 3d 20 27 3c 69 6d 67 20 73 72 63 3d 22 27 2e 24  = '<img src="'.$
4900: 66 69 6c 65 2d 3e 67 65 74 55 52 4c 28 24 5f 61  file->getURL($_a
4910: 72 67 73 5b 27 61 6c 69 67 6e 27 5d 20 3d 3d 20  rgs['align'] == 
4920: 27 63 65 6e 74 72 65 27 20 3f 20 35 30 30 20 3a  'centre' ? 500 :
4930: 20 32 30 30 29 2e 27 22 20 61 6c 74 3d 22 27 3b   200).'" alt="';
4940: 0a 0a 09 09 69 66 20 28 24 5f 61 72 67 73 5b 27  ....if ($_args['
4950: 63 61 70 74 69 6f 6e 27 5d 29 0a 09 09 7b 0a 09  caption'])...{..
4960: 09 09 24 6f 75 74 20 2e 3d 20 68 74 6d 6c 73 70  ..$out .= htmlsp
4970: 65 63 69 61 6c 63 68 61 72 73 28 24 5f 61 72 67  ecialchars($_arg
4980: 73 5b 27 63 61 70 74 69 6f 6e 27 5d 2c 20 45 4e  s['caption'], EN
4990: 54 5f 51 55 4f 54 45 53 2c 20 27 55 54 46 2d 38  T_QUOTES, 'UTF-8
49a0: 27 29 3b 0a 09 09 7d 0a 0a 09 09 24 6f 75 74 20  ');...}....$out 
49b0: 2e 3d 20 27 22 20 2f 3e 3c 2f 61 3e 27 3b 0a 0a  .= '" /></a>';..
49c0: 09 09 69 66 20 28 21 65 6d 70 74 79 28 24 5f 61  ..if (!empty($_a
49d0: 72 67 73 5b 27 61 6c 69 67 6e 27 5d 29 29 0a 09  rgs['align']))..
49e0: 09 7b 0a 09 09 09 24 6f 75 74 20 3d 20 27 3c 66  .{....$out = '<f
49f0: 69 67 75 72 65 20 63 6c 61 73 73 3d 22 69 6d 61  igure class="ima
4a00: 67 65 20 27 20 2e 20 24 5f 61 72 67 73 5b 27 61  ge ' . $_args['a
4a10: 6c 69 67 6e 27 5d 20 2e 20 27 22 3e 27 20 2e 20  lign'] . '">' . 
4a20: 24 6f 75 74 3b 0a 0a 09 09 09 69 66 20 28 24 5f  $out;.....if ($_
4a30: 61 72 67 73 5b 27 63 61 70 74 69 6f 6e 27 5d 29  args['caption'])
4a40: 0a 09 09 09 7b 0a 09 09 09 09 24 6f 75 74 20 2e  ....{.....$out .
4a50: 3d 20 27 3c 66 69 67 63 61 70 74 69 6f 6e 3e 27  = '<figcaption>'
4a60: 20 2e 20 68 74 6d 6c 73 70 65 63 69 61 6c 63 68   . htmlspecialch
4a70: 61 72 73 28 24 5f 61 72 67 73 5b 27 63 61 70 74  ars($_args['capt
4a80: 69 6f 6e 27 5d 2c 20 45 4e 54 5f 51 55 4f 54 45  ion'], ENT_QUOTE
4a90: 53 2c 20 27 55 54 46 2d 38 27 29 20 2e 20 27 3c  S, 'UTF-8') . '<
4aa0: 2f 66 69 67 63 61 70 74 69 6f 6e 3e 27 3b 0a 09  /figcaption>';..
4ab0: 09 09 7d 0a 0a 09 09 09 24 6f 75 74 20 2e 3d 20  ..}.....$out .= 
4ac0: 27 3c 2f 66 69 67 75 72 65 3e 27 3b 0a 09 09 7d  '</figure>';...}
4ad0: 0a 0a 09 09 72 65 74 75 72 6e 20 24 6f 75 74 3b  ....return $out;
4ae0: 0a 09 7d 0a 7d                                   ..}.}