Artifact dc41f212bc98455e63bba92df42a1739d1c74f58:


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 75 73 65 20   Garradin;..use 
0020: 4b 44 32 5c 53 65 63 75 72 69 74 79 3b 0a 75 73  KD2\Security;.us
0030: 65 20 4b 44 32 5c 46 6f 72 6d 3b 0a 75 73 65 20  e KD2\Form;.use 
0040: 4b 44 32 5c 54 72 61 6e 73 6c 61 74 65 3b 0a 75  KD2\Translate;.u
0050: 73 65 20 4b 44 32 5c 53 4d 54 50 3b 0a 0a 63 6c  se KD2\SMTP;..cl
0060: 61 73 73 20 55 74 69 6c 73 0a 7b 0a 20 20 20 20  ass Utils.{.    
0070: 73 74 61 74 69 63 20 70 72 6f 74 65 63 74 65 64  static protected
0080: 20 24 73 6b 72 69 76 20 3d 20 6e 75 6c 6c 3b 0a   $skriv = null;.
0090: 0a 20 20 20 20 73 74 61 74 69 63 20 70 72 69 76  .    static priv
00a0: 61 74 65 20 24 66 72 65 6e 63 68 5f 64 61 74 65  ate $french_date
00b0: 5f 6e 61 6d 65 73 20 3d 20 5b 0a 20 20 20 20 20  _names = [.     
00c0: 20 20 20 27 4a 61 6e 75 61 72 79 27 3d 3e 27 4a     'January'=>'J
00d0: 61 6e 76 69 65 72 27 2c 20 27 46 65 62 72 75 61  anvier', 'Februa
00e0: 72 79 27 3d 3e 27 46 c3 a9 76 72 69 65 72 27 2c  ry'=>'F..vrier',
00f0: 20 27 4d 61 72 63 68 27 3d 3e 27 4d 61 72 73 27   'March'=>'Mars'
0100: 2c 20 27 41 70 72 69 6c 27 3d 3e 27 41 76 72 69  , 'April'=>'Avri
0110: 6c 27 2c 20 27 4d 61 79 27 3d 3e 27 4d 61 69 27  l', 'May'=>'Mai'
0120: 2c 0a 20 20 20 20 20 20 20 20 27 4a 75 6e 65 27  ,.        'June'
0130: 3d 3e 27 4a 75 69 6e 27 2c 20 27 4a 75 6c 79 27  =>'Juin', 'July'
0140: 3d 3e 27 4a 75 69 6c 6c 65 74 27 2c 20 27 41 75  =>'Juillet', 'Au
0150: 67 75 73 74 27 3d 3e 27 41 6f c3 bb 74 27 2c 20  gust'=>'Ao..t', 
0160: 27 53 65 70 74 65 6d 62 65 72 27 3d 3e 27 53 65  'September'=>'Se
0170: 70 74 65 6d 62 72 65 27 2c 20 27 4f 63 74 6f 62  ptembre', 'Octob
0180: 65 72 27 3d 3e 27 4f 63 74 6f 62 72 65 27 2c 0a  er'=>'Octobre',.
0190: 20 20 20 20 20 20 20 20 27 4e 6f 76 65 6d 62 65          'Novembe
01a0: 72 27 3d 3e 27 4e 6f 76 65 6d 62 72 65 27 2c 20  r'=>'Novembre', 
01b0: 27 44 65 63 65 6d 62 65 72 27 3d 3e 27 44 c3 a9  'December'=>'D..
01c0: 63 65 6d 62 72 65 27 2c 20 27 4d 6f 6e 64 61 79  cembre', 'Monday
01d0: 27 3d 3e 27 4c 75 6e 64 69 27 2c 20 27 54 75 65  '=>'Lundi', 'Tue
01e0: 73 64 61 79 27 3d 3e 27 4d 61 72 64 69 27 2c 20  sday'=>'Mardi', 
01f0: 27 57 65 64 6e 65 73 64 61 79 27 3d 3e 27 4d 65  'Wednesday'=>'Me
0200: 72 63 72 65 64 69 27 2c 0a 20 20 20 20 20 20 20  rcredi',.       
0210: 20 27 54 68 75 72 73 64 61 79 27 3d 3e 27 4a 65   'Thursday'=>'Je
0220: 75 64 69 27 2c 27 46 72 69 64 61 79 27 3d 3e 27  udi','Friday'=>'
0230: 56 65 6e 64 72 65 64 69 27 2c 27 53 61 74 75 72  Vendredi','Satur
0240: 64 61 79 27 3d 3e 27 53 61 6d 65 64 69 27 2c 27  day'=>'Samedi','
0250: 53 75 6e 64 61 79 27 3d 3e 27 44 69 6d 61 6e 63  Sunday'=>'Dimanc
0260: 68 65 27 2c 0a 20 20 20 20 20 20 20 20 27 46 65  he',.        'Fe
0270: 62 27 3d 3e 27 46 c3 a9 76 27 2c 27 41 70 72 27  b'=>'F..v','Apr'
0280: 3d 3e 27 41 76 72 27 2c 27 4d 61 79 27 3d 3e 27  =>'Avr','May'=>'
0290: 4d 61 69 27 2c 27 4a 75 6e 27 3d 3e 27 4a 75 69  Mai','Jun'=>'Jui
02a0: 6e 27 2c 20 27 4a 75 6c 27 3d 3e 27 4a 75 69 6c  n', 'Jul'=>'Juil
02b0: 27 2c 27 41 75 67 27 3d 3e 27 41 6f 75 74 27 2c  ','Aug'=>'Aout',
02c0: 27 44 65 63 27 3d 3e 27 44 c3 a9 63 27 2c 0a 20  'Dec'=>'D..c',. 
02d0: 20 20 20 20 20 20 20 27 4d 6f 6e 27 3d 3e 27 4c         'Mon'=>'L
02e0: 75 6e 27 2c 27 54 75 65 27 3d 3e 27 4d 61 72 27  un','Tue'=>'Mar'
02f0: 2c 27 57 65 64 27 3d 3e 27 4d 65 72 27 2c 27 54  ,'Wed'=>'Mer','T
0300: 68 75 27 3d 3e 27 4a 65 75 27 2c 27 46 72 69 27  hu'=>'Jeu','Fri'
0310: 3d 3e 27 56 65 6e 27 2c 27 53 61 74 27 3d 3e 27  =>'Ven','Sat'=>'
0320: 53 61 6d 27 2c 27 53 75 6e 27 3d 3e 27 44 69 6d  Sam','Sun'=>'Dim
0330: 27 5d 3b 0a 0a 20 20 20 20 73 74 61 74 69 63 20  '];..    static 
0340: 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20  public function 
0350: 73 74 72 66 74 69 6d 65 5f 66 72 28 24 66 6f 72  strftime_fr($for
0360: 6d 61 74 3d 6e 75 6c 6c 2c 20 24 74 73 3d 6e 75  mat=null, $ts=nu
0370: 6c 6c 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20  ll).    {.      
0380: 20 20 69 66 20 28 69 73 5f 6e 75 6c 6c 28 24 66    if (is_null($f
0390: 6f 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20  ormat)).        
03a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 66  {.            $f
03b0: 6f 72 6d 61 74 20 3d 20 27 25 64 2f 25 6d 2f 25  ormat = '%d/%m/%
03c0: 59 20 c3 a0 20 25 48 3a 25 4d 27 3b 0a 20 20 20  Y .. %H:%M';.   
03d0: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20       }..        
03e0: 24 64 61 74 65 20 3d 20 73 74 72 66 74 69 6d 65  $date = strftime
03f0: 28 24 66 6f 72 6d 61 74 2c 20 24 74 73 29 3b 0a  ($format, $ts);.
0400: 20 20 20 20 20 20 20 20 24 64 61 74 65 20 3d 20          $date = 
0410: 73 74 72 74 72 28 24 64 61 74 65 2c 20 73 65 6c  strtr($date, sel
0420: 66 3a 3a 24 66 72 65 6e 63 68 5f 64 61 74 65 5f  f::$french_date_
0430: 6e 61 6d 65 73 29 3b 0a 20 20 20 20 20 20 20 20  names);.        
0440: 24 64 61 74 65 20 3d 20 73 74 72 74 6f 6c 6f 77  $date = strtolow
0450: 65 72 28 24 64 61 74 65 29 3b 0a 20 20 20 20 20  er($date);.     
0460: 20 20 20 72 65 74 75 72 6e 20 24 64 61 74 65 3b     return $date;
0470: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74  .    }..    stat
0480: 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69  ic public functi
0490: 6f 6e 20 64 61 74 65 5f 66 72 28 24 66 6f 72 6d  on date_fr($form
04a0: 61 74 3d 6e 75 6c 6c 2c 20 24 74 73 3d 6e 75 6c  at=null, $ts=nul
04b0: 6c 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20  l).    {.       
04c0: 20 69 66 20 28 69 73 5f 6e 75 6c 6c 28 24 66 6f   if (is_null($fo
04d0: 72 6d 61 74 29 29 0a 20 20 20 20 20 20 20 20 7b  rmat)).        {
04e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 66 6f  .            $fo
04f0: 72 6d 61 74 20 3d 20 27 64 2f 6d 2f 59 20 c3 a0  rmat = 'd/m/Y ..
0500: 20 48 3a 69 27 3b 0a 20 20 20 20 20 20 20 20 7d   H:i';.        }
0510: 0a 0a 20 20 20 20 20 20 20 20 24 64 61 74 65 20  ..        $date 
0520: 3d 20 64 61 74 65 28 24 66 6f 72 6d 61 74 2c 20  = date($format, 
0530: 24 74 73 29 3b 0a 20 20 20 20 20 20 20 20 24 64  $ts);.        $d
0540: 61 74 65 20 3d 20 73 74 72 74 72 28 24 64 61 74  ate = strtr($dat
0550: 65 2c 20 73 65 6c 66 3a 3a 24 66 72 65 6e 63 68  e, self::$french
0560: 5f 64 61 74 65 5f 6e 61 6d 65 73 29 3b 0a 20 20  _date_names);.  
0570: 20 20 20 20 20 20 24 64 61 74 65 20 3d 20 73 74        $date = st
0580: 72 74 6f 6c 6f 77 65 72 28 24 64 61 74 65 29 3b  rtolower($date);
0590: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
05a0: 24 64 61 74 65 3b 0a 20 20 20 20 7d 0a 0a 20 20  $date;.    }..  
05b0: 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63 20    static public 
05c0: 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 44  function sqliteD
05d0: 61 74 65 54 6f 46 72 65 6e 63 68 28 24 64 2c 20  ateToFrench($d, 
05e0: 24 73 68 6f 72 74 20 3d 20 66 61 6c 73 65 29 0a  $short = false).
05f0: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 69 66      {.        if
0600: 20 28 73 74 72 6c 65 6e 28 24 64 29 20 3d 3d 20   (strlen($d) == 
0610: 31 30 20 7c 7c 20 24 73 68 6f 72 74 29 0a 20 20  10 || $short).  
0620: 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20        {.        
0630: 20 20 20 20 24 64 20 3d 20 73 75 62 73 74 72 28      $d = substr(
0640: 24 64 2c 20 30 2c 20 31 30 29 3b 0a 20 20 20 20  $d, 0, 10);.    
0650: 20 20 20 20 20 20 20 20 24 66 20 3d 20 27 59 2d          $f = 'Y-
0660: 6d 2d 64 27 3b 0a 20 20 20 20 20 20 20 20 20 20  m-d';.          
0670: 20 20 24 66 32 20 3d 20 27 64 2f 6d 2f 59 27 3b    $f2 = 'd/m/Y';
0680: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
0690: 20 20 20 65 6c 73 65 69 66 20 28 73 74 72 6c 65     elseif (strle
06a0: 6e 28 24 64 29 20 3d 3d 20 31 36 29 0a 20 20 20  n($d) == 16).   
06b0: 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20       {.         
06c0: 20 20 20 24 66 20 3d 20 27 59 2d 6d 2d 64 20 48     $f = 'Y-m-d H
06d0: 3a 69 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20  :i';.           
06e0: 20 24 66 32 20 3d 20 27 64 2f 6d 2f 59 20 48 3a   $f2 = 'd/m/Y H:
06f0: 69 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  i';.        }.  
0700: 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20        else.     
0710: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
0720: 20 24 66 20 3d 20 27 59 2d 6d 2d 64 20 48 3a 69   $f = 'Y-m-d H:i
0730: 3a 73 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20  :s';.           
0740: 20 24 66 32 20 3d 20 27 64 2f 6d 2f 59 20 48 3a   $f2 = 'd/m/Y H:
0750: 69 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  i';.        }.  
0760: 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 69        .        i
0770: 66 20 28 24 64 74 20 3d 20 5c 44 61 74 65 54 69  f ($dt = \DateTi
0780: 6d 65 3a 3a 63 72 65 61 74 65 46 72 6f 6d 46 6f  me::createFromFo
0790: 72 6d 61 74 28 24 66 2c 20 24 64 29 29 0a 20 20  rmat($f, $d)).  
07a0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
07b0: 20 24 64 74 2d 3e 66 6f 72 6d 61 74 28 24 66 32   $dt->format($f2
07c0: 29 3b 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a  );.        else.
07d0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
07e0: 72 6e 20 24 64 3b 0a 20 20 20 20 7d 0a 0a 20 20  rn $d;.    }..  
07f0: 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63 20    static public 
0800: 66 75 6e 63 74 69 6f 6e 20 6d 61 6b 65 54 69 6d  function makeTim
0810: 65 73 74 61 6d 70 46 72 6f 6d 46 6f 72 6d 28 24  estampFromForm($
0820: 64 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20  d).    {.       
0830: 20 72 65 74 75 72 6e 20 6d 6b 74 69 6d 65 28 24   return mktime($
0840: 64 5b 27 68 27 5d 2c 20 24 64 5b 27 6d 69 6e 27  d['h'], $d['min'
0850: 5d 2c 20 30 2c 20 24 64 5b 27 6d 27 5d 2c 20 24  ], 0, $d['m'], $
0860: 64 5b 27 64 27 5d 2c 20 24 64 5b 27 79 27 5d 29  d['d'], $d['y'])
0870: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61  ;.    }..    sta
0880: 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74  tic public funct
0890: 69 6f 6e 20 6d 6f 64 69 66 79 44 61 74 65 28 24  ion modifyDate($
08a0: 73 74 72 2c 20 24 63 68 61 6e 67 65 2c 20 24 61  str, $change, $a
08b0: 73 5f 74 69 6d 65 73 74 61 6d 70 20 3d 20 66 61  s_timestamp = fa
08c0: 6c 73 65 29 0a 20 20 20 20 7b 0a 20 20 20 20 20  lse).    {.     
08d0: 20 20 20 24 64 61 74 65 20 3d 20 5c 44 61 74 65     $date = \Date
08e0: 54 69 6d 65 3a 3a 63 72 65 61 74 65 46 72 6f 6d  Time::createFrom
08f0: 46 6f 72 6d 61 74 28 27 59 2d 6d 2d 64 27 2c 20  Format('Y-m-d', 
0900: 24 73 74 72 29 3b 0a 20 20 20 20 20 20 20 20 24  $str);.        $
0910: 64 61 74 65 2d 3e 6d 6f 64 69 66 79 28 24 63 68  date->modify($ch
0920: 61 6e 67 65 29 3b 0a 20 20 20 20 20 20 20 20 72  ange);.        r
0930: 65 74 75 72 6e 20 28 24 61 73 5f 74 69 6d 65 73  eturn ($as_times
0940: 74 61 6d 70 20 3f 20 24 64 61 74 65 2d 3e 67 65  tamp ? $date->ge
0950: 74 54 69 6d 65 73 74 61 6d 70 28 29 20 3a 20 24  tTimestamp() : $
0960: 64 61 74 65 2d 3e 66 6f 72 6d 61 74 28 27 59 2d  date->format('Y-
0970: 6d 2d 64 27 29 29 3b 0a 20 20 20 20 7d 0a 0a 20  m-d'));.    }.. 
0980: 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63     static public
0990: 20 66 75 6e 63 74 69 6f 6e 20 63 68 65 63 6b 44   function checkD
09a0: 61 74 65 28 24 73 74 72 29 0a 20 20 20 20 7b 0a  ate($str).    {.
09b0: 20 20 20 20 20 20 20 20 69 66 20 28 21 70 72 65          if (!pre
09c0: 67 5f 6d 61 74 63 68 28 27 21 5e 28 5c 64 7b 34  g_match('!^(\d{4
09d0: 7d 29 2d 28 5c 64 7b 32 7d 29 2d 28 5c 64 7b 32  })-(\d{2})-(\d{2
09e0: 7d 29 24 21 27 2c 20 24 73 74 72 2c 20 24 6d 61  })$!', $str, $ma
09f0: 74 63 68 29 29 0a 20 20 20 20 20 20 20 20 20 20  tch)).          
0a00: 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a    return false;.
0a10: 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 63 68  .        if (!ch
0a20: 65 63 6b 64 61 74 65 28 24 6d 61 74 63 68 5b 32  eckdate($match[2
0a30: 5d 2c 20 24 6d 61 74 63 68 5b 33 5d 2c 20 24 6d  ], $match[3], $m
0a40: 61 74 63 68 5b 31 5d 29 29 0a 20 20 20 20 20 20  atch[1])).      
0a50: 20 20 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c        return fal
0a60: 73 65 3b 0a 0a 20 20 20 20 20 20 20 20 72 65 74  se;..        ret
0a70: 75 72 6e 20 74 72 75 65 3b 0a 20 20 20 20 7d 0a  urn true;.    }.
0a80: 0a 20 20 20 20 73 74 61 74 69 63 20 70 75 62 6c  .    static publ
0a90: 69 63 20 66 75 6e 63 74 69 6f 6e 20 63 68 65 63  ic function chec
0aa0: 6b 44 61 74 65 54 69 6d 65 28 24 73 74 72 29 0a  kDateTime($str).
0ab0: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 69 66      {.        if
0ac0: 20 28 21 70 72 65 67 5f 6d 61 74 63 68 28 27 21   (!preg_match('!
0ad0: 5e 28 5c 64 7b 34 7d 2d 5c 64 7b 32 7d 2d 5c 64  ^(\d{4}-\d{2}-\d
0ae0: 7b 32 7d 29 5b 54 20 5d 28 5c 64 7b 32 7d 29 3a  {2})[T ](\d{2}):
0af0: 28 5c 64 7b 32 7d 29 21 27 2c 20 24 73 74 72 2c  (\d{2})!', $str,
0b00: 20 24 6d 61 74 63 68 29 29 0a 20 20 20 20 20 20   $match)).      
0b10: 20 20 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c        return fal
0b20: 73 65 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20  se;..        if 
0b30: 28 21 73 65 6c 66 3a 3a 63 68 65 63 6b 44 61 74  (!self::checkDat
0b40: 65 28 24 6d 61 74 63 68 5b 31 5d 29 29 0a 20 20  e($match[1])).  
0b50: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
0b60: 20 66 61 6c 73 65 3b 0a 0a 20 20 20 20 20 20 20   false;..       
0b70: 20 69 66 20 28 28 69 6e 74 29 20 24 6d 61 74 63   if ((int) $matc
0b80: 68 5b 32 5d 20 3c 20 30 20 7c 7c 20 28 69 6e 74  h[2] < 0 || (int
0b90: 29 20 24 6d 61 74 63 68 5b 32 5d 20 3e 20 32 33  ) $match[2] > 23
0ba0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ).            re
0bb0: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 0a 20 20 20  turn false;..   
0bc0: 20 20 20 20 20 69 66 20 28 28 69 6e 74 29 20 24       if ((int) $
0bd0: 6d 61 74 63 68 5b 33 5d 20 3c 20 30 20 7c 7c 20  match[3] < 0 || 
0be0: 28 69 6e 74 29 20 24 6d 61 74 63 68 5b 33 5d 20  (int) $match[3] 
0bf0: 3e 20 35 39 29 0a 20 20 20 20 20 20 20 20 20 20  > 59).          
0c00: 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a    return false;.
0c10: 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20          .       
0c20: 20 69 66 20 28 69 73 73 65 74 28 24 6d 61 74 63   if (isset($matc
0c30: 68 5b 34 5d 29 20 26 26 20 28 28 69 6e 74 29 20  h[4]) && ((int) 
0c40: 24 6d 61 74 63 68 5b 34 5d 20 3c 20 30 20 7c 7c  $match[4] < 0 ||
0c50: 20 28 69 6e 74 29 20 24 6d 61 74 63 68 5b 34 5d   (int) $match[4]
0c60: 20 3e 20 35 39 29 29 0a 20 20 20 20 20 20 20 20   > 59)).        
0c70: 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65      return false
0c80: 3b 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  ;..        retur
0c90: 6e 20 74 72 75 65 3b 0a 20 20 20 20 7d 0a 0a 20  n true;.    }.. 
0ca0: 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63     static public
0cb0: 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 52 65 71   function getReq
0cc0: 75 65 73 74 55 52 49 28 29 0a 20 20 20 20 7b 0a  uestURI().    {.
0cd0: 20 20 20 20 20 20 20 20 69 66 20 28 21 65 6d 70          if (!emp
0ce0: 74 79 28 24 5f 53 45 52 56 45 52 5b 27 52 45 51  ty($_SERVER['REQ
0cf0: 55 45 53 54 5f 55 52 49 27 5d 29 29 0a 20 20 20  UEST_URI'])).   
0d00: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
0d10: 24 5f 53 45 52 56 45 52 5b 27 52 45 51 55 45 53  $_SERVER['REQUES
0d20: 54 5f 55 52 49 27 5d 3b 0a 20 20 20 20 20 20 20  T_URI'];.       
0d30: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20   else.          
0d40: 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a    return false;.
0d50: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 69      }..    stati
0d60: 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f  c public functio
0d70: 6e 20 67 65 74 53 65 6c 66 55 52 4c 28 24 71 73  n getSelfURL($qs
0d80: 20 3d 20 74 72 75 65 29 0a 20 20 20 20 7b 0a 20   = true).    {. 
0d90: 20 20 20 20 20 20 20 24 75 72 69 20 3d 20 73 65         $uri = se
0da0: 6c 66 3a 3a 67 65 74 52 65 71 75 65 73 74 55 72  lf::getRequestUr
0db0: 69 28 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66  i();..        if
0dc0: 20 28 73 74 72 70 6f 73 28 24 75 72 69 2c 20 57   (strpos($uri, W
0dd0: 57 57 5f 55 52 49 29 20 3d 3d 3d 20 30 29 0a 20  WW_URI) === 0). 
0de0: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
0df0: 20 20 20 20 20 24 75 72 69 20 3d 20 73 75 62 73       $uri = subs
0e00: 74 72 28 24 75 72 69 2c 20 73 74 72 6c 65 6e 28  tr($uri, strlen(
0e10: 57 57 57 5f 55 52 49 29 29 3b 0a 20 20 20 20 20  WWW_URI));.     
0e20: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66     }..        if
0e30: 20 28 24 71 73 20 21 3d 3d 20 74 72 75 65 20 26   ($qs !== true &
0e40: 26 20 28 73 74 72 70 6f 73 28 24 75 72 69 2c 20  & (strpos($uri, 
0e50: 27 3f 27 29 20 21 3d 3d 20 66 61 6c 73 65 29 29  '?') !== false))
0e60: 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20  .        {.     
0e70: 20 20 20 20 20 20 20 24 75 72 69 20 3d 20 73 75         $uri = su
0e80: 62 73 74 72 28 24 75 72 69 2c 20 30 2c 20 73 74  bstr($uri, 0, st
0e90: 72 70 6f 73 28 24 75 72 69 2c 20 27 3f 27 29 29  rpos($uri, '?'))
0ea0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20  ;.        }..   
0eb0: 20 20 20 20 20 69 66 20 28 69 73 5f 61 72 72 61       if (is_arra
0ec0: 79 28 24 71 73 29 29 0a 20 20 20 20 20 20 20 20  y($qs)).        
0ed0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 75  {.            $u
0ee0: 72 69 20 2e 3d 20 27 3f 27 20 2e 20 68 74 74 70  ri .= '?' . http
0ef0: 5f 62 75 69 6c 64 5f 71 75 65 72 79 28 24 71 73  _build_query($qs
0f00: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  );.        }..  
0f10: 20 20 20 20 20 20 72 65 74 75 72 6e 20 57 57 57        return WWW
0f20: 5f 55 52 4c 20 2e 20 24 75 72 69 3b 0a 20 20 20  _URL . $uri;.   
0f30: 20 7d 0a 0a 20 20 20 20 70 75 62 6c 69 63 20 73   }..    public s
0f40: 74 61 74 69 63 20 66 75 6e 63 74 69 6f 6e 20 72  tatic function r
0f50: 65 64 69 72 65 63 74 28 24 64 65 73 74 69 6e 61  edirect($destina
0f60: 74 69 6f 6e 3d 66 61 6c 73 65 2c 20 24 65 78 69  tion=false, $exi
0f70: 74 3d 74 72 75 65 29 0a 20 20 20 20 7b 0a 20 20  t=true).    {.  
0f80: 20 20 20 20 20 20 69 66 20 28 65 6d 70 74 79 28        if (empty(
0f90: 24 64 65 73 74 69 6e 61 74 69 6f 6e 29 20 7c 7c  $destination) ||
0fa0: 20 21 70 72 65 67 5f 6d 61 74 63 68 28 27 2f 5e   !preg_match('/^
0fb0: 68 74 74 70 73 3f 3a 5c 2f 5c 2f 2f 27 2c 20 24  https?:\/\//', $
0fc0: 64 65 73 74 69 6e 61 74 69 6f 6e 29 29 0a 20 20  destination)).  
0fd0: 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20        {.        
0fe0: 20 20 20 20 69 66 20 28 65 6d 70 74 79 28 24 64      if (empty($d
0ff0: 65 73 74 69 6e 61 74 69 6f 6e 29 29 0a 20 20 20  estination)).   
1000: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 64 65               $de
1010: 73 74 69 6e 61 74 69 6f 6e 20 3d 20 57 57 57 5f  stination = WWW_
1020: 55 52 4c 3b 0a 20 20 20 20 20 20 20 20 20 20 20  URL;.           
1030: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20   else.          
1040: 20 20 20 20 20 20 24 64 65 73 74 69 6e 61 74 69        $destinati
1050: 6f 6e 20 3d 20 57 57 57 5f 55 52 4c 20 2e 20 70  on = WWW_URL . p
1060: 72 65 67 5f 72 65 70 6c 61 63 65 28 27 2f 5e 5c  reg_replace('/^\
1070: 2f 2f 27 2c 20 27 27 2c 20 24 64 65 73 74 69 6e  //', '', $destin
1080: 61 74 69 6f 6e 29 3b 0a 20 20 20 20 20 20 20 20  ation);.        
1090: 7d 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 68  }..        if (h
10a0: 65 61 64 65 72 73 5f 73 65 6e 74 28 29 29 0a 20  eaders_sent()). 
10b0: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
10c0: 20 20 20 20 20 65 63 68 6f 0a 20 20 20 20 20 20       echo.      
10d0: 20 20 20 20 20 20 20 20 27 3c 68 74 6d 6c 3e 27          '<html>'
10e0: 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
10f0: 27 20 3c 68 65 61 64 3e 27 20 2e 0a 20 20 20 20  ' <head>' ..    
1100: 20 20 20 20 20 20 20 20 20 20 27 20 20 3c 73 63            '  <sc
1110: 72 69 70 74 20 74 79 70 65 3d 22 74 65 78 74 2f  ript type="text/
1120: 6a 61 76 61 73 63 72 69 70 74 22 3e 27 20 2e 0a  javascript">' ..
1130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20                ' 
1140: 20 20 20 64 6f 63 75 6d 65 6e 74 2e 6c 6f 63 61     document.loca
1150: 74 69 6f 6e 20 3d 20 22 27 20 2e 20 68 74 6d 6c  tion = "' . html
1160: 73 70 65 63 69 61 6c 63 68 61 72 73 28 24 64 65  specialchars($de
1170: 73 74 69 6e 61 74 69 6f 6e 2c 20 45 4e 54 5f 51  stination, ENT_Q
1180: 55 4f 54 45 53 2c 20 27 55 54 46 2d 38 27 2c 20  UOTES, 'UTF-8', 
1190: 66 61 6c 73 65 29 20 2e 20 27 22 3b 27 20 2e 0a  false) . '";' ..
11a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20                ' 
11b0: 20 3c 2f 73 63 72 69 70 74 3e 27 20 2e 0a 20 20   </script>' ..  
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 27 20 3c 2f              ' </
11d0: 68 65 61 64 3e 27 2e 0a 20 20 20 20 20 20 20 20  head>'..        
11e0: 20 20 20 20 20 20 27 20 3c 62 6f 64 79 3e 27 2e        ' <body>'.
11f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27  .              '
1200: 20 20 20 3c 64 69 76 3e 27 2e 0a 20 20 20 20 20     <div>'..     
1210: 20 20 20 20 20 20 20 20 20 27 20 20 20 20 20 3c           '     <
1220: 61 20 68 72 65 66 3d 22 27 20 2e 20 68 74 6d 6c  a href="' . html
1230: 73 70 65 63 69 61 6c 63 68 61 72 73 28 24 64 65  specialchars($de
1240: 73 74 69 6e 61 74 69 6f 6e 2c 20 45 4e 54 5f 51  stination, ENT_Q
1250: 55 4f 54 45 53 2c 20 27 55 54 46 2d 38 27 2c 20  UOTES, 'UTF-8', 
1260: 66 61 6c 73 65 29 20 2e 20 27 22 3e 43 6c 69 71  false) . '">Cliq
1270: 75 65 7a 20 69 63 69 20 70 6f 75 72 20 63 6f 6e  uez ici pour con
1280: 74 69 6e 75 65 72 2e 2e 2e 3c 2f 61 3e 27 2e 0a  tinuer...</a>'..
1290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20                ' 
12a0: 20 20 3c 2f 64 69 76 3e 27 2e 0a 20 20 20 20 20    </div>'..     
12b0: 20 20 20 20 20 20 20 20 20 27 20 3c 2f 62 6f 64           ' </bod
12c0: 79 3e 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20  y>'..           
12d0: 20 20 20 27 3c 2f 68 74 6d 6c 3e 27 3b 0a 0a 20     '</html>';.. 
12e0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24             if ($
12f0: 65 78 69 74 29 0a 20 20 20 20 20 20 20 20 20 20  exit).          
1300: 20 20 20 20 65 78 69 74 28 29 3b 0a 0a 20 20 20      exit();..   
1310: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
1320: 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a  true;.        }.
1330: 0a 20 20 20 20 20 20 20 20 68 65 61 64 65 72 28  .        header(
1340: 22 4c 6f 63 61 74 69 6f 6e 3a 20 22 20 2e 20 24  "Location: " . $
1350: 64 65 73 74 69 6e 61 74 69 6f 6e 29 3b 0a 0a 20  destination);.. 
1360: 20 20 20 20 20 20 20 69 66 20 28 24 65 78 69 74         if ($exit
1370: 29 0a 20 20 20 20 20 20 20 20 20 20 65 78 69 74  ).          exit
1380: 28 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73  ();.    }..    s
1390: 74 61 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e  tatic public fun
13a0: 63 74 69 6f 6e 20 67 65 74 49 50 28 29 0a 20 20  ction getIP().  
13b0: 20 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28    {.        if (
13c0: 21 65 6d 70 74 79 28 24 5f 53 45 52 56 45 52 5b  !empty($_SERVER[
13d0: 27 52 45 4d 4f 54 45 5f 41 44 44 52 27 5d 29 29  'REMOTE_ADDR']))
13e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
13f0: 75 72 6e 20 24 5f 53 45 52 56 45 52 5b 27 52 45  urn $_SERVER['RE
1400: 4d 4f 54 45 5f 41 44 44 52 27 5d 3b 0a 20 20 20  MOTE_ADDR'];.   
1410: 20 20 20 20 20 72 65 74 75 72 6e 20 27 27 3b 0a       return '';.
1420: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 69      }..    stati
1430: 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f  c public functio
1440: 6e 20 67 65 74 43 6f 75 6e 74 72 79 4c 69 73 74  n getCountryList
1450: 28 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20  ().    {.       
1460: 20 72 65 74 75 72 6e 20 54 72 61 6e 73 6c 61 74   return Translat
1470: 65 3a 3a 67 65 74 43 6f 75 6e 74 72 69 65 73 4c  e::getCountriesL
1480: 69 73 74 28 27 66 72 27 29 3b 0a 20 20 20 20 7d  ist('fr');.    }
1490: 0a 0a 20 20 20 20 73 74 61 74 69 63 20 70 75 62  ..    static pub
14a0: 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20 67 65 74  lic function get
14b0: 43 6f 75 6e 74 72 79 4e 61 6d 65 28 24 63 6f 64  CountryName($cod
14c0: 65 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20  e).    {.       
14d0: 20 24 6c 69 73 74 20 3d 20 73 65 6c 66 3a 3a 67   $list = self::g
14e0: 65 74 43 6f 75 6e 74 72 79 4c 69 73 74 28 29 3b  etCountryList();
14f0: 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 69  ..        if (!i
1500: 73 73 65 74 28 24 6c 69 73 74 5b 24 63 6f 64 65  sset($list[$code
1510: 5d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  ])).            
1520: 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 0a 20  return false;.. 
1530: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 6c         return $l
1540: 69 73 74 5b 24 63 6f 64 65 5d 3b 0a 20 20 20 20  ist[$code];.    
1550: 7d 0a 0a 20 20 20 20 2f 2a 2a 0a 20 20 20 20 20  }..    /**.     
1560: 2a 20 47 c3 a9 6e c3 a9 72 61 74 69 6f 6e 20 70  * G..n..ration p
1570: 61 67 69 6e 61 74 69 6f 6e 20 c3 a0 20 70 61 72  agination .. par
1580: 74 69 72 20 64 65 20 6c 61 20 70 61 67 65 20 63  tir de la page c
1590: 6f 75 72 61 6e 74 65 20 28 24 63 75 72 72 65 6e  ourante ($curren
15a0: 74 29 2c 0a 20 20 20 20 20 2a 20 64 75 20 6e 6f  t),.     * du no
15b0: 6d 62 72 65 20 64 27 69 74 65 6d 73 20 74 6f 74  mbre d'items tot
15c0: 61 6c 20 28 24 74 6f 74 61 6c 29 2c 20 65 74 20  al ($total), et 
15d0: 64 75 20 6e 6f 6d 62 72 65 20 64 27 69 74 65 6d  du nombre d'item
15e0: 73 20 70 61 72 20 70 61 67 65 20 28 24 62 79 70  s par page ($byp
15f0: 61 67 65 29 2e 0a 20 20 20 20 20 2a 20 24 6c 69  age)..     * $li
1600: 73 74 4c 65 6e 67 74 68 20 72 65 70 72 c3 a9 73  stLength repr..s
1610: 65 6e 74 65 20 6c 61 20 6c 6f 6e 67 75 65 75 72  ente la longueur
1620: 20 64 27 69 74 65 6d 73 20 64 65 20 6c 61 20 70   d'items de la p
1630: 61 67 69 6e 61 74 69 6f 6e 20 c3 a0 20 67 c3 a9  agination .. g..
1640: 6e 65 72 65 72 0a 20 20 20 20 20 2a 0a 20 20 20  nerer.     *.   
1650: 20 20 2a 20 40 70 61 72 61 6d 20 69 6e 74 20 24    * @param int $
1660: 63 75 72 72 65 6e 74 0a 20 20 20 20 20 2a 20 40  current.     * @
1670: 70 61 72 61 6d 20 69 6e 74 20 24 74 6f 74 61 6c  param int $total
1680: 0a 20 20 20 20 20 2a 20 40 70 61 72 61 6d 20 69  .     * @param i
1690: 6e 74 20 24 62 79 70 61 67 65 0a 20 20 20 20 20  nt $bypage.     
16a0: 2a 20 40 70 61 72 61 6d 20 69 6e 74 20 24 6c 69  * @param int $li
16b0: 73 74 4c 65 6e 67 74 68 0a 20 20 20 20 20 2a 20  stLength.     * 
16c0: 40 70 61 72 61 6d 20 62 6f 6f 6c 20 24 73 68 6f  @param bool $sho
16d0: 77 4c 61 73 74 20 54 6f 67 67 6c 65 20 6c 27 61  wLast Toggle l'a
16e0: 66 66 69 63 68 61 67 65 20 64 75 20 64 65 72 6e  ffichage du dern
16f0: 69 65 72 20 c3 a9 6c c3 a9 6d 65 6e 74 20 64 65  ier ..l..ment de
1700: 20 6c 61 20 70 61 67 69 6e 61 74 69 6f 6e 0a 20   la pagination. 
1710: 20 20 20 20 2a 20 40 72 65 74 75 72 6e 20 61 72      * @return ar
1720: 72 61 79 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20  ray.     */.    
1730: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 66 75  public static fu
1740: 6e 63 74 69 6f 6e 20 67 65 74 47 65 6e 65 72 69  nction getGeneri
1750: 63 50 61 67 69 6e 61 74 69 6f 6e 28 24 63 75 72  cPagination($cur
1760: 72 65 6e 74 2c 20 24 74 6f 74 61 6c 2c 20 24 62  rent, $total, $b
1770: 79 70 61 67 65 2c 20 24 6c 69 73 74 4c 65 6e 67  ypage, $listLeng
1780: 74 68 3d 31 31 2c 20 24 73 68 6f 77 4c 61 73 74  th=11, $showLast
1790: 20 3d 20 74 72 75 65 29 0a 20 20 20 20 7b 0a 20   = true).    {. 
17a0: 20 20 20 20 20 20 20 69 66 20 28 24 74 6f 74 61         if ($tota
17b0: 6c 20 3c 3d 20 24 62 79 70 61 67 65 29 0a 20 20  l <= $bypage).  
17c0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
17d0: 20 66 61 6c 73 65 3b 0a 0a 20 20 20 20 20 20 20   false;..       
17e0: 20 24 74 6f 74 61 6c 20 3d 20 63 65 69 6c 28 24   $total = ceil($
17f0: 74 6f 74 61 6c 20 2f 20 24 62 79 70 61 67 65 29  total / $bypage)
1800: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 24  ;..        if ($
1810: 74 6f 74 61 6c 20 3c 20 24 63 75 72 72 65 6e 74  total < $current
1820: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ).            re
1830: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 0a 20 20 20  turn false;..   
1840: 20 20 20 20 20 24 6c 65 6e 67 74 68 20 3d 20 28       $length = (
1850: 24 6c 69 73 74 4c 65 6e 67 74 68 20 2f 20 32 29  $listLength / 2)
1860: 3b 0a 0a 20 20 20 20 20 20 20 20 24 62 65 67 69  ;..        $begi
1870: 6e 20 3d 20 24 63 75 72 72 65 6e 74 20 2d 20 63  n = $current - c
1880: 65 69 6c 28 24 6c 65 6e 67 74 68 29 3b 0a 20 20  eil($length);.  
1890: 20 20 20 20 20 20 69 66 20 28 24 62 65 67 69 6e        if ($begin
18a0: 20 3c 20 31 29 0a 20 20 20 20 20 20 20 20 7b 0a   < 1).        {.
18b0: 20 20 20 20 20 20 20 20 20 20 20 20 24 62 65 67              $beg
18c0: 69 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20  in = 1;.        
18d0: 7d 0a 0a 20 20 20 20 20 20 20 20 24 65 6e 64 20  }..        $end 
18e0: 3d 20 24 62 65 67 69 6e 20 2b 20 24 6c 69 73 74  = $begin + $list
18f0: 4c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 20 20  Length;.        
1900: 69 66 28 24 65 6e 64 20 3e 20 24 74 6f 74 61 6c  if($end > $total
1910: 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20  ).        {.    
1920: 20 20 20 20 20 20 20 20 24 62 65 67 69 6e 20 2d          $begin -
1930: 3d 20 28 24 65 6e 64 20 2d 20 24 74 6f 74 61 6c  = ($end - $total
1940: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24  );.            $
1950: 65 6e 64 20 3d 20 24 74 6f 74 61 6c 3b 0a 20 20  end = $total;.  
1960: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
1970: 69 66 20 28 24 62 65 67 69 6e 20 3c 20 31 29 0a  if ($begin < 1).
1980: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
1990: 20 20 20 20 20 20 24 62 65 67 69 6e 20 3d 20 31        $begin = 1
19a0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
19b0: 20 20 20 20 69 66 28 24 65 6e 64 3d 3d 28 24 74      if($end==($t
19c0: 6f 74 61 6c 2d 31 29 29 20 7b 0a 20 20 20 20 20  otal-1)) {.     
19d0: 20 20 20 20 20 20 20 24 65 6e 64 20 3d 20 24 74         $end = $t
19e0: 6f 74 61 6c 3b 0a 20 20 20 20 20 20 20 20 7d 0a  otal;.        }.
19f0: 20 20 20 20 20 20 20 20 69 66 28 24 62 65 67 69          if($begi
1a00: 6e 20 3d 3d 20 32 29 20 7b 0a 20 20 20 20 20 20  n == 2) {.      
1a10: 20 20 20 20 20 20 24 62 65 67 69 6e 20 3d 20 31        $begin = 1
1a20: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
1a30: 20 20 20 20 24 6f 75 74 20 3d 20 5b 5d 3b 0a 0a      $out = [];..
1a40: 20 20 20 20 20 20 20 20 69 66 20 28 24 63 75 72          if ($cur
1a50: 72 65 6e 74 20 3e 20 31 29 20 7b 0a 20 20 20 20  rent > 1) {.    
1a60: 20 20 20 20 20 20 20 20 24 6f 75 74 5b 5d 20 3d          $out[] =
1a70: 20 5b 27 69 64 27 20 3d 3e 20 24 63 75 72 72 65   ['id' => $curre
1a80: 6e 74 20 2d 20 31 2c 20 27 6c 61 62 65 6c 27 20  nt - 1, 'label' 
1a90: 3d 3e 20 20 27 c2 ab 20 27 20 2e 20 27 50 61 67  =>  '.. ' . 'Pag
1aa0: 65 20 70 72 c3 a9 63 c3 a9 64 65 6e 74 65 27 2c  e pr..c..dente',
1ab0: 20 27 63 6c 61 73 73 27 20 3d 3e 20 27 70 72 65   'class' => 'pre
1ac0: 76 27 2c 20 27 61 63 63 65 73 73 6b 65 79 27 20  v', 'accesskey' 
1ad0: 3d 3e 20 27 61 27 5d 3b 0a 20 20 20 20 20 20 20  => 'a'];.       
1ae0: 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28   }..        if (
1af0: 24 62 65 67 69 6e 20 3e 20 31 29 20 7b 0a 20 20  $begin > 1) {.  
1b00: 20 20 20 20 20 20 20 20 20 20 24 6f 75 74 5b 5d            $out[]
1b10: 20 3d 20 5b 27 69 64 27 20 3d 3e 20 31 2c 20 27   = ['id' => 1, '
1b20: 6c 61 62 65 6c 27 20 3d 3e 20 27 31 20 2e 2e 2e  label' => '1 ...
1b30: 27 2c 20 27 63 6c 61 73 73 27 20 3d 3e 20 27 66  ', 'class' => 'f
1b40: 69 72 73 74 27 5d 3b 0a 20 20 20 20 20 20 20 20  irst'];.        
1b50: 7d 0a 0a 20 20 20 20 20 20 20 20 66 6f 72 20 28  }..        for (
1b60: 24 69 20 3d 20 24 62 65 67 69 6e 3b 20 24 69 20  $i = $begin; $i 
1b70: 3c 3d 20 24 65 6e 64 3b 20 24 69 2b 2b 29 0a 20  <= $end; $i++). 
1b80: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
1b90: 20 20 20 20 20 24 6f 75 74 5b 5d 20 3d 20 5b 27       $out[] = ['
1ba0: 69 64 27 20 3d 3e 20 24 69 2c 20 27 6c 61 62 65  id' => $i, 'labe
1bb0: 6c 27 20 3d 3e 20 24 69 2c 20 27 63 6c 61 73 73  l' => $i, 'class
1bc0: 27 20 3d 3e 20 28 24 69 20 3d 3d 20 24 63 75 72  ' => ($i == $cur
1bd0: 72 65 6e 74 29 20 3f 20 27 63 75 72 72 65 6e 74  rent) ? 'current
1be0: 27 20 3a 20 27 27 5d 3b 0a 20 20 20 20 20 20 20  ' : ''];.       
1bf0: 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28   }..        if (
1c00: 24 73 68 6f 77 4c 61 73 74 20 26 26 20 24 65 6e  $showLast && $en
1c10: 64 20 3c 20 24 74 6f 74 61 6c 29 20 7b 0a 20 20  d < $total) {.  
1c20: 20 20 20 20 20 20 20 20 20 20 24 6f 75 74 5b 5d            $out[]
1c30: 20 3d 20 5b 27 69 64 27 20 3d 3e 20 24 74 6f 74   = ['id' => $tot
1c40: 61 6c 2c 20 27 6c 61 62 65 6c 27 20 3d 3e 20 27  al, 'label' => '
1c50: 2e 2e 2e 20 27 20 2e 20 24 74 6f 74 61 6c 2c 20  ... ' . $total, 
1c60: 27 63 6c 61 73 73 27 20 3d 3e 20 27 6c 61 73 74  'class' => 'last
1c70: 27 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20  '];.        }.. 
1c80: 20 20 20 20 20 20 20 69 66 20 28 24 63 75 72 72         if ($curr
1c90: 65 6e 74 20 3c 20 24 74 6f 74 61 6c 29 20 7b 0a  ent < $total) {.
1ca0: 20 20 20 20 20 20 20 20 20 20 20 20 24 6f 75 74              $out
1cb0: 5b 5d 20 3d 20 5b 27 69 64 27 20 3d 3e 20 24 63  [] = ['id' => $c
1cc0: 75 72 72 65 6e 74 20 2b 20 31 2c 20 27 6c 61 62  urrent + 1, 'lab
1cd0: 65 6c 27 20 3d 3e 20 27 50 61 67 65 20 73 75 69  el' => 'Page sui
1ce0: 76 61 6e 74 65 27 20 2e 20 27 20 c2 bb 27 2c 20  vante' . ' ..', 
1cf0: 27 63 6c 61 73 73 27 20 3d 3e 20 27 6e 65 78 74  'class' => 'next
1d00: 27 2c 20 27 61 63 63 65 73 73 6b 65 79 27 20 3d  ', 'accesskey' =
1d10: 3e 20 27 7a 27 5d 3b 0a 20 20 20 20 20 20 20 20  > 'z'];.        
1d20: 7d 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  }..        retur
1d30: 6e 20 24 6f 75 74 3b 0a 20 20 20 20 7d 0a 0a 20  n $out;.    }.. 
1d40: 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63     static public
1d50: 20 66 75 6e 63 74 69 6f 6e 20 74 72 61 6e 73 6c   function transl
1d60: 69 74 65 72 61 74 65 54 6f 41 73 63 69 69 28 24  iterateToAscii($
1d70: 73 74 72 2c 20 24 63 68 61 72 73 65 74 3d 27 55  str, $charset='U
1d80: 54 46 2d 38 27 29 0a 20 20 20 20 7b 0a 20 20 20  TF-8').    {.   
1d90: 20 20 20 20 20 2f 2f 20 44 6f 6e 27 74 20 70 72       // Don't pr
1da0: 6f 63 65 73 73 20 65 6d 70 74 79 20 73 74 72 69  ocess empty stri
1db0: 6e 67 73 0a 20 20 20 20 20 20 20 20 69 66 20 28  ngs.        if (
1dc0: 21 74 72 69 6d 28 24 73 74 72 29 29 0a 20 20 20  !trim($str)).   
1dd0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
1de0: 24 73 74 72 3b 0a 0a 20 20 20 20 20 20 20 20 2f  $str;..        /
1df0: 2f 20 57 65 20 6f 6e 6c 79 20 70 72 6f 63 65 73  / We only proces
1e00: 73 20 6e 6f 6e 2d 61 73 63 69 69 20 73 74 72 69  s non-ascii stri
1e10: 6e 67 73 0a 20 20 20 20 20 20 20 20 69 66 20 28  ngs.        if (
1e20: 70 72 65 67 5f 6d 61 74 63 68 28 27 21 5e 5b 5b  preg_match('!^[[
1e30: 3a 61 73 63 69 69 3a 5d 5d 2b 24 21 27 2c 20 24  :ascii:]]+$!', $
1e40: 73 74 72 29 29 0a 20 20 20 20 20 20 20 20 20 20  str)).          
1e50: 20 20 72 65 74 75 72 6e 20 24 73 74 72 3b 0a 0a    return $str;..
1e60: 20 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 68          $str = h
1e70: 74 6d 6c 65 6e 74 69 74 69 65 73 28 24 73 74 72  tmlentities($str
1e80: 2c 20 45 4e 54 5f 4e 4f 51 55 4f 54 45 53 2c 20  , ENT_NOQUOTES, 
1e90: 24 63 68 61 72 73 65 74 29 3b 0a 0a 20 20 20 20  $charset);..    
1ea0: 20 20 20 20 24 73 74 72 20 3d 20 70 72 65 67 5f      $str = preg_
1eb0: 72 65 70 6c 61 63 65 28 27 23 26 28 5b 41 2d 7a  replace('#&([A-z
1ec0: 61 2d 7a 5d 29 28 3f 3a 61 63 75 74 65 7c 63 65  a-z])(?:acute|ce
1ed0: 64 69 6c 7c 63 69 72 63 7c 67 72 61 76 65 7c 6f  dil|circ|grave|o
1ee0: 72 6e 7c 72 69 6e 67 7c 73 6c 61 73 68 7c 74 68  rn|ring|slash|th
1ef0: 7c 74 69 6c 64 65 7c 75 6d 6c 29 3b 23 27 2c 20  |tilde|uml);#', 
1f00: 27 5c 31 27 2c 20 24 73 74 72 29 3b 0a 20 20 20  '\1', $str);.   
1f10: 20 20 20 20 20 24 73 74 72 20 3d 20 70 72 65 67       $str = preg
1f20: 5f 72 65 70 6c 61 63 65 28 27 23 26 28 5b 41 2d  _replace('#&([A-
1f30: 7a 61 2d 7a 5d 7b 32 7d 29 28 3f 3a 6c 69 67 29  za-z]{2})(?:lig)
1f40: 3b 23 27 2c 20 27 5c 31 27 2c 20 24 73 74 72 29  ;#', '\1', $str)
1f50: 3b 20 2f 2f 20 70 6f 75 72 20 6c 65 73 20 6c 69  ; // pour les li
1f60: 67 61 74 75 72 65 73 20 65 2e 67 2e 20 27 26 6f  gatures e.g. '&o
1f70: 65 6c 69 67 3b 27 0a 0a 20 20 20 20 20 20 20 20  elig;'..        
1f80: 24 73 74 72 20 3d 20 70 72 65 67 5f 72 65 70 6c  $str = preg_repl
1f90: 61 63 65 28 27 23 26 5b 5e 3b 5d 2b 3b 23 27 2c  ace('#&[^;]+;#',
1fa0: 20 27 27 2c 20 24 73 74 72 29 3b 20 2f 2f 20 73   '', $str); // s
1fb0: 75 70 70 72 69 6d 65 20 6c 65 73 20 61 75 74 72  upprime les autr
1fc0: 65 73 20 63 61 72 61 63 74 c3 a8 72 65 73 0a 20  es caract..res. 
1fd0: 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72         $str = pr
1fe0: 65 67 5f 72 65 70 6c 61 63 65 28 27 21 5b 5e 5b  eg_replace('![^[
1ff0: 3a 61 73 63 69 69 3a 5d 5d 2b 21 27 2c 20 27 27  :ascii:]]+!', ''
2000: 2c 20 24 73 74 72 29 3b 0a 0a 20 20 20 20 20 20  , $str);..      
2010: 20 20 72 65 74 75 72 6e 20 24 73 74 72 3b 0a 20    return $str;. 
2020: 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 69 63     }..    static
2030: 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e   public function
2040: 20 68 74 6d 6c 4c 69 6e 6b 73 4f 6e 55 72 6c 73   htmlLinksOnUrls
2050: 28 24 73 74 72 29 0a 20 20 20 20 7b 0a 20 20 20  ($str).    {.   
2060: 20 20 20 20 20 72 65 74 75 72 6e 20 70 72 65 67       return preg
2070: 5f 72 65 70 6c 61 63 65 5f 63 61 6c 6c 62 61 63  _replace_callbac
2080: 6b 28 27 21 28 3f 3c 3d 5c 73 7c 5e 29 28 28 3f  k('!(?<=\s|^)((?
2090: 3a 28 66 74 70 7c 68 74 74 70 73 3f 7c 66 69 6c  :(ftp|https?|fil
20a0: 65 7c 65 64 32 6b 7c 69 72 63 73 3f 29 3a 2f 2f  e|ed2k|ircs?)://
20b0: 7c 28 6d 61 67 6e 65 74 7c 6d 61 69 6c 74 6f 7c  |(magnet|mailto|
20c0: 64 61 74 61 7c 74 65 6c 7c 66 61 78 7c 67 65 6f  data|tel|fax|geo
20d0: 7c 73 69 70 73 3f 7c 78 6d 70 70 29 3a 29 28 5b  |sips?|xmpp):)([
20e0: 5e 5c 73 3c 5d 2b 29 29 21 27 2c 0a 20 20 20 20  ^\s<]+))!',.    
20f0: 20 20 20 20 20 20 20 20 66 75 6e 63 74 69 6f 6e          function
2100: 20 28 24 6d 61 74 63 68 29 20 7b 0a 20 20 20 20   ($match) {.    
2110: 20 20 20 20 20 20 20 20 20 20 20 20 24 70 72 6f              $pro
2120: 74 6f 20 3d 20 24 6d 61 74 63 68 5b 32 5d 20 3f  to = $match[2] ?
2130: 3a 20 24 6d 61 74 63 68 5b 33 5d 3b 0a 20 20 20  : $match[3];.   
2140: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74 65               $te
2150: 78 74 20 3d 20 28 24 70 72 6f 74 6f 20 3d 3d 20  xt = ($proto == 
2160: 27 68 74 74 70 27 20 7c 7c 20 24 70 72 6f 74 6f  'http' || $proto
2170: 20 3d 3d 20 27 6d 61 69 6c 74 6f 27 29 20 3f 20   == 'mailto') ? 
2180: 24 6d 61 74 63 68 5b 34 5d 20 3a 20 24 6d 61 74  $match[4] : $mat
2190: 63 68 5b 31 5d 3b 0a 20 20 20 20 20 20 20 20 20  ch[1];.         
21a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 27 3c         return '<
21b0: 61 20 63 6c 61 73 73 3d 22 27 2e 24 70 72 6f 74  a class="'.$prot
21c0: 6f 2e 27 22 20 68 72 65 66 3d 22 27 2e 68 74 6d  o.'" href="'.htm
21d0: 6c 73 70 65 63 69 61 6c 63 68 61 72 73 28 24 6d  lspecialchars($m
21e0: 61 74 63 68 5b 31 5d 2c 20 45 4e 54 5f 51 55 4f  atch[1], ENT_QUO
21f0: 54 45 53 2c 20 27 55 54 46 2d 38 27 29 2e 27 22  TES, 'UTF-8').'"
2200: 3e 27 2e 68 74 6d 6c 73 70 65 63 69 61 6c 63 68  >'.htmlspecialch
2210: 61 72 73 28 24 74 65 78 74 2c 20 45 4e 54 5f 51  ars($text, ENT_Q
2220: 55 4f 54 45 53 2c 20 27 55 54 46 2d 38 27 29 2e  UOTES, 'UTF-8').
2230: 27 3c 2f 61 3e 27 3b 0a 20 20 20 20 20 20 20 20  '</a>';.        
2240: 20 20 20 20 7d 2c 20 24 73 74 72 29 3b 0a 20 20      }, $str);.  
2250: 20 20 7d 0a 0a 20 20 20 20 2f 2a 2a 0a 20 20 20    }..    /**.   
2260: 20 20 2a 20 54 72 61 6e 73 66 6f 72 6d 65 20 75    * Transforme u
2270: 6e 20 74 65 78 74 65 20 53 6b 72 69 76 4d 4c 20  n texte SkrivML 
2280: 65 6e 20 48 54 4d 4c 0a 20 20 20 20 20 2a 20 40  en HTML.     * @
2290: 70 61 72 61 6d 20 20 73 74 72 69 6e 67 20 24 73  param  string $s
22a0: 74 72 20 54 65 78 74 65 20 53 6b 72 69 76 4d 4c  tr Texte SkrivML
22b0: 0a 20 20 20 20 20 2a 20 40 72 65 74 75 72 6e 20  .     * @return 
22c0: 73 74 72 69 6e 67 20 20 20 20 20 20 54 65 78 74  string      Text
22d0: 65 20 48 54 4d 4c 0a 20 20 20 20 20 2a 2f 0a 20  e HTML.     */. 
22e0: 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63     static public
22f0: 20 66 75 6e 63 74 69 6f 6e 20 53 6b 72 69 76 54   function SkrivT
2300: 6f 48 54 4d 4c 28 24 73 74 72 29 0a 20 20 20 20  oHTML($str).    
2310: 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 73  {.        if (!s
2320: 65 6c 66 3a 3a 24 73 6b 72 69 76 29 0a 20 20 20  elf::$skriv).   
2330: 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20       {.         
2340: 20 20 20 73 65 6c 66 3a 3a 24 73 6b 72 69 76 20     self::$skriv 
2350: 3d 20 6e 65 77 20 5c 4b 44 32 5c 53 6b 72 69 76  = new \KD2\Skriv
2360: 4c 69 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20  Lite;.          
2370: 20 20 73 65 6c 66 3a 3a 24 73 6b 72 69 76 2d 3e    self::$skriv->
2380: 72 65 67 69 73 74 65 72 45 78 74 65 6e 73 69 6f  registerExtensio
2390: 6e 28 27 66 69 63 68 69 65 72 27 2c 20 5b 27 5c  n('fichier', ['\
23a0: 5c 47 61 72 72 61 64 69 6e 5c 5c 46 69 63 68 69  \Garradin\\Fichi
23b0: 65 72 73 27 2c 20 27 53 6b 72 69 76 46 69 63 68  ers', 'SkrivFich
23c0: 69 65 72 27 5d 29 3b 0a 20 20 20 20 20 20 20 20  ier']);.        
23d0: 20 20 20 20 73 65 6c 66 3a 3a 24 73 6b 72 69 76      self::$skriv
23e0: 2d 3e 72 65 67 69 73 74 65 72 45 78 74 65 6e 73  ->registerExtens
23f0: 69 6f 6e 28 27 69 6d 61 67 65 27 2c 20 5b 27 5c  ion('image', ['\
2400: 5c 47 61 72 72 61 64 69 6e 5c 5c 46 69 63 68 69  \Garradin\\Fichi
2410: 65 72 73 27 2c 20 27 53 6b 72 69 76 49 6d 61 67  ers', 'SkrivImag
2420: 65 27 5d 29 3b 0a 0a 20 20 20 20 20 20 20 20 20  e']);..         
2430: 20 20 20 2f 2f 20 45 6e 72 65 67 69 73 74 72 65     // Enregistre
2440: 72 20 64 27 61 75 74 72 65 73 20 65 78 74 65 6e  r d'autres exten
2450: 73 69 6f 6e 73 20 c3 a9 76 65 6e 74 75 65 6c 6c  sions ..ventuell
2460: 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20  ement.          
2470: 20 20 50 6c 75 67 69 6e 3a 3a 66 69 72 65 53 69    Plugin::fireSi
2480: 67 6e 61 6c 28 27 73 6b 72 69 76 2e 69 6e 69 74  gnal('skriv.init
2490: 27 2c 20 5b 27 73 6b 72 69 76 27 20 3d 3e 20 73  ', ['skriv' => s
24a0: 65 6c 66 3a 3a 24 73 6b 72 69 76 5d 29 3b 0a 20  elf::$skriv]);. 
24b0: 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20         }..      
24c0: 20 20 24 73 6b 72 69 76 20 3d 26 20 73 65 6c 66    $skriv =& self
24d0: 3a 3a 24 73 6b 72 69 76 3b 0a 0a 20 20 20 20 20  ::$skriv;..     
24e0: 20 20 20 24 73 74 72 20 3d 20 70 72 65 67 5f 72     $str = preg_r
24f0: 65 70 6c 61 63 65 5f 63 61 6c 6c 62 61 63 6b 28  eplace_callback(
2500: 27 2f 28 66 69 63 68 69 65 72 7c 69 6d 61 67 65  '/(fichier|image
2510: 29 3a 5c 2f 5c 2f 28 5c 64 2b 29 2f 27 2c 20 66  ):\/\/(\d+)/', f
2520: 75 6e 63 74 69 6f 6e 20 28 24 6d 61 74 63 68 29  unction ($match)
2530: 20 75 73 65 20 28 24 73 6b 72 69 76 29 20 7b 0a   use ($skriv) {.
2540: 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 20              try 
2550: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
2560: 20 20 24 66 69 6c 65 20 3d 20 6e 65 77 20 46 69    $file = new Fi
2570: 63 68 69 65 72 73 28 28 69 6e 74 29 24 6d 61 74  chiers((int)$mat
2580: 63 68 5b 32 5d 29 3b 0a 20 20 20 20 20 20 20 20  ch[2]);.        
2590: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
25a0: 20 20 63 61 74 63 68 20 28 5c 49 6e 76 61 6c 69    catch (\Invali
25b0: 64 41 72 67 75 6d 65 6e 74 45 78 63 65 70 74 69  dArgumentExcepti
25c0: 6f 6e 20 24 65 29 0a 20 20 20 20 20 20 20 20 20  on $e).         
25d0: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
25e0: 20 20 20 20 20 72 65 74 75 72 6e 20 24 73 6b 72       return $skr
25f0: 69 76 2d 3e 70 61 72 73 65 45 72 72 6f 72 28 27  iv->parseError('
2600: 2f 21 5c 20 4c 69 65 6e 20 66 69 63 68 69 65 72  /!\ Lien fichier
2610: 20 3a 20 27 20 2e 20 24 65 2d 3e 67 65 74 4d 65   : ' . $e->getMe
2620: 73 73 61 67 65 28 29 29 3b 0a 20 20 20 20 20 20  ssage());.      
2630: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
2640: 20 20 20 20 20 72 65 74 75 72 6e 20 24 66 69 6c       return $fil
2650: 65 2d 3e 67 65 74 55 52 4c 28 29 3b 0a 20 20 20  e->getURL();.   
2660: 20 20 20 20 20 7d 2c 20 24 73 74 72 29 3b 0a 0a       }, $str);..
2670: 20 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 73          $str = s
2680: 65 6c 66 3a 3a 24 73 6b 72 69 76 2d 3e 72 65 6e  elf::$skriv->ren
2690: 64 65 72 28 24 73 74 72 29 3b 0a 0a 20 20 20 20  der($str);..    
26a0: 20 20 20 20 72 65 74 75 72 6e 20 24 73 74 72 3b      return $str;
26b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 2a 0a  .    }..    /**.
26c0: 20 20 20 20 20 2a 20 54 72 61 6e 73 66 6f 72 6d       * Transform
26d0: 65 20 6c 65 73 20 74 61 67 73 20 64 65 20 62 61  e les tags de ba
26e0: 73 65 20 53 50 49 50 20 65 6e 20 74 61 67 73 20  se SPIP en tags 
26f0: 53 6b 72 69 76 4d 4c 0a 20 20 20 20 20 2a 20 40  SkrivML.     * @
2700: 70 61 72 61 6d 20 20 73 74 72 69 6e 67 20 24 73  param  string $s
2710: 74 72 20 54 65 78 74 65 20 64 27 65 6e 74 72 c3  tr Texte d'entr.
2720: a9 65 0a 20 20 20 20 20 2a 20 40 72 65 74 75 72  .e.     * @retur
2730: 6e 20 73 74 72 69 6e 67 20 20 20 20 20 20 54 65  n string      Te
2740: 78 74 65 20 74 72 61 6e 73 66 6f 72 6d c3 a9 0a  xte transform...
2750: 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 74 61 74       */.    stat
2760: 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69  ic public functi
2770: 6f 6e 20 53 70 69 70 54 6f 53 6b 72 69 76 28 24  on SpipToSkriv($
2780: 73 74 72 29 0a 20 20 20 20 7b 0a 20 20 20 20 20  str).    {.     
2790: 20 20 20 24 73 74 72 20 3d 20 70 72 65 67 5f 72     $str = preg_r
27a0: 65 70 6c 61 63 65 28 27 2f 28 3f 3c 21 5c 5c 5c  eplace('/(?<!\\\
27b0: 5c 29 5c 7b 7b 33 7d 28 5c 56 2a 29 5c 7d 7b 33  \)\{{3}(\V*)\}{3
27c0: 7d 2f 27 2c 20 27 3d 3d 3d 20 24 31 20 3d 3d 3d  }/', '=== $1 ===
27d0: 27 2c 20 24 73 74 72 29 3b 0a 20 20 20 20 20 20  ', $str);.      
27e0: 20 20 24 73 74 72 20 3d 20 70 72 65 67 5f 72 65    $str = preg_re
27f0: 70 6c 61 63 65 28 27 2f 28 3f 3c 21 5c 5c 5c 5c  place('/(?<!\\\\
2800: 29 5c 7b 7b 32 7d 28 5c 56 2a 29 5c 7d 7b 32 7d  )\{{2}(\V*)\}{2}
2810: 2f 27 2c 20 27 2a 2a 24 31 2a 2a 27 2c 20 24 73  /', '**$1**', $s
2820: 74 72 29 3b 0a 20 20 20 20 20 20 20 20 24 73 74  tr);.        $st
2830: 72 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 63 65  r = preg_replace
2840: 28 27 2f 28 3f 3c 21 5c 5c 5c 5c 29 5c 7b 28 5c  ('/(?<!\\\\)\{(\
2850: 56 2a 29 5c 7d 2f 27 2c 20 27 5c 27 5c 27 24 31  V*)\}/', '\'\'$1
2860: 5c 27 5c 27 27 2c 20 24 73 74 72 29 3b 0a 20 20  \'\'', $str);.  
2870: 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72 65        $str = pre
2880: 67 5f 72 65 70 6c 61 63 65 28 27 2f 28 3f 3c 21  g_replace('/(?<!
2890: 5c 5c 5c 5c 29 5c 5b 28 2e 2b 3f 29 2d 3e 28 2e  \\\\)\[(.+?)->(.
28a0: 2b 3f 29 5c 5d 2f 27 2c 20 27 5b 5b 24 31 20 7c  +?)\]/', '[[$1 |
28b0: 20 24 32 5d 5d 27 2c 20 24 73 74 72 29 3b 0a 20   $2]]', $str);. 
28c0: 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72         $str = pr
28d0: 65 67 5f 72 65 70 6c 61 63 65 28 27 2f 28 3f 3c  eg_replace('/(?<
28e0: 21 5c 5b 29 5c 5b 28 5b 5e 5c 5b 5c 5d 5d 2b 3f  !\[)\[([^\[\]]+?
28f0: 29 5c 5d 2f 27 2c 20 27 5b 5b 24 31 5d 5d 27 2c  )\]/', '[[$1]]',
2900: 20 24 73 74 72 29 3b 0a 20 20 20 20 20 20 20 20   $str);.        
2910: 72 65 74 75 72 6e 20 24 73 74 72 3b 0a 20 20 20  return $str;.   
2920: 20 7d 0a 0a 20 20 20 20 2f 2a 2a 0a 20 20 20 20   }..    /**.    
2930: 20 2a 20 54 72 61 6e 73 66 6f 72 6d 65 20 6c 65   * Transforme le
2940: 73 20 74 61 67 73 20 48 54 4d 4c 20 62 61 73 69  s tags HTML basi
2950: 71 75 65 73 20 65 6e 20 74 61 67 73 20 53 6b 72  ques en tags Skr
2960: 69 76 4d 4c 0a 20 20 20 20 20 2a 20 40 70 61 72  ivML.     * @par
2970: 61 6d 20 20 73 74 72 69 6e 67 20 24 73 74 72 20  am  string $str 
2980: 54 65 78 74 65 20 64 27 65 6e 74 72 c3 a9 65 0a  Texte d'entr..e.
2990: 20 20 20 20 20 2a 20 40 72 65 74 75 72 6e 20 73       * @return s
29a0: 74 72 69 6e 67 20 20 20 20 20 20 54 65 78 74 65  tring      Texte
29b0: 20 74 72 61 6e 73 66 6f 72 6d c3 a9 0a 20 20 20   transform...   
29c0: 20 20 2a 2f 0a 20 20 20 20 73 74 61 74 69 63 20    */.    static 
29d0: 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20  public function 
29e0: 48 54 4d 4c 54 6f 53 6b 72 69 76 28 24 73 74 72  HTMLToSkriv($str
29f0: 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20  ).    {.        
2a00: 24 73 74 72 20 3d 20 70 72 65 67 5f 72 65 70 6c  $str = preg_repl
2a10: 61 63 65 28 27 2f 3c 68 33 3e 28 5c 56 2a 3f 29  ace('/<h3>(\V*?)
2a20: 3c 5c 2f 68 33 3e 2f 27 2c 20 27 3d 3d 3d 20 24  <\/h3>/', '=== $
2a30: 31 20 3d 3d 3d 27 2c 20 24 73 74 72 29 3b 0a 20  1 ===', $str);. 
2a40: 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72         $str = pr
2a50: 65 67 5f 72 65 70 6c 61 63 65 28 27 2f 3c 62 3e  eg_replace('/<b>
2a60: 28 5c 56 2a 29 3c 5c 2f 62 3e 2f 27 2c 20 27 2a  (\V*)<\/b>/', '*
2a70: 2a 24 31 2a 2a 27 2c 20 24 73 74 72 29 3b 0a 20  *$1**', $str);. 
2a80: 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72         $str = pr
2a90: 65 67 5f 72 65 70 6c 61 63 65 28 27 2f 3c 73 74  eg_replace('/<st
2aa0: 72 6f 6e 67 3e 28 5c 56 2a 3f 29 3c 5c 2f 73 74  rong>(\V*?)<\/st
2ab0: 72 6f 6e 67 3e 2f 27 2c 20 27 2a 2a 24 31 2a 2a  rong>/', '**$1**
2ac0: 27 2c 20 24 73 74 72 29 3b 0a 20 20 20 20 20 20  ', $str);.      
2ad0: 20 20 24 73 74 72 20 3d 20 70 72 65 67 5f 72 65    $str = preg_re
2ae0: 70 6c 61 63 65 28 27 2f 3c 69 3e 28 5c 56 2a 3f  place('/<i>(\V*?
2af0: 29 3c 5c 2f 69 3e 2f 27 2c 20 27 5c 27 5c 27 24  )<\/i>/', '\'\'$
2b00: 31 5c 27 5c 27 27 2c 20 24 73 74 72 29 3b 0a 20  1\'\'', $str);. 
2b10: 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72         $str = pr
2b20: 65 67 5f 72 65 70 6c 61 63 65 28 27 2f 3c 65 6d  eg_replace('/<em
2b30: 3e 28 5c 56 2a 3f 29 3c 5c 2f 65 6d 3e 2f 27 2c  >(\V*?)<\/em>/',
2b40: 20 27 5c 27 5c 27 24 31 5c 27 5c 27 27 2c 20 24   '\'\'$1\'\'', $
2b50: 73 74 72 29 3b 0a 20 20 20 20 20 20 20 20 24 73  str);.        $s
2b60: 74 72 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 63  tr = preg_replac
2b70: 65 28 27 2f 3c 6c 69 3e 28 5c 56 2a 3f 29 3c 5c  e('/<li>(\V*?)<\
2b80: 2f 6c 69 3e 2f 27 2c 20 27 2a 20 24 31 27 2c 20  /li>/', '* $1', 
2b90: 24 73 74 72 29 3b 0a 20 20 20 20 20 20 20 20 24  $str);.        $
2ba0: 73 74 72 20 3d 20 70 72 65 67 5f 72 65 70 6c 61  str = preg_repla
2bb0: 63 65 28 27 2f 3c 75 6c 3e 7c 3c 5c 2f 75 6c 3e  ce('/<ul>|<\/ul>
2bc0: 2f 27 2c 20 27 27 2c 20 24 73 74 72 29 3b 0a 20  /', '', $str);. 
2bd0: 20 20 20 20 20 20 20 24 73 74 72 20 3d 20 70 72         $str = pr
2be0: 65 67 5f 72 65 70 6c 61 63 65 28 27 2f 3c 61 20  eg_replace('/<a 
2bf0: 68 72 65 66 3d 22 28 5b 5e 22 5d 2a 3f 29 22 3e  href="([^"]*?)">
2c00: 28 5c 56 2a 3f 29 3c 5c 2f 61 3e 2f 27 2c 20 27  (\V*?)<\/a>/', '
2c10: 5b 5b 24 32 20 7c 20 24 31 5d 5d 27 2c 20 24 73  [[$2 | $1]]', $s
2c20: 74 72 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74  tr);.        ret
2c30: 75 72 6e 20 24 73 74 72 3b 0a 20 20 20 20 7d 0a  urn $str;.    }.
2c40: 0a 20 20 20 20 73 74 61 74 69 63 20 70 75 62 6c  .    static publ
2c50: 69 63 20 66 75 6e 63 74 69 6f 6e 20 6d 61 69 6c  ic function mail
2c60: 28 24 74 6f 2c 20 24 73 75 62 6a 65 63 74 2c 20  ($to, $subject, 
2c70: 24 63 6f 6e 74 65 6e 74 2c 20 61 72 72 61 79 20  $content, array 
2c80: 24 68 65 61 64 65 72 73 20 3d 20 5b 5d 2c 20 24  $headers = [], $
2c90: 70 67 70 5f 6b 65 79 20 3d 20 6e 75 6c 6c 29 0a  pgp_key = null).
2ca0: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 2f 2f      {.        //
2cb0: 20 43 72 c3 a9 61 74 69 6f 6e 20 64 75 20 63 6f   Cr..ation du co
2cc0: 6e 74 65 6e 75 20 64 75 20 6d 65 73 73 61 67 65  ntenu du message
2cd0: 0a 20 20 20 20 20 20 20 20 24 63 6f 6e 74 65 6e  .        $conten
2ce0: 74 20 3d 20 77 6f 72 64 77 72 61 70 28 24 63 6f  t = wordwrap($co
2cf0: 6e 74 65 6e 74 29 3b 0a 20 20 20 20 20 20 20 20  ntent);.        
2d00: 24 63 6f 6e 74 65 6e 74 20 3d 20 74 72 69 6d 28  $content = trim(
2d10: 24 63 6f 6e 74 65 6e 74 29 3b 0a 0a 20 20 20 20  $content);..    
2d20: 20 20 20 20 24 63 6f 6e 74 65 6e 74 20 3d 20 70      $content = p
2d30: 72 65 67 5f 72 65 70 6c 61 63 65 28 22 23 28 3f  reg_replace("#(?
2d40: 3c 21 5c 72 29 5c 6e 23 73 69 22 2c 20 22 5c 72  <!\r)\n#si", "\r
2d50: 5c 6e 22 2c 20 24 63 6f 6e 74 65 6e 74 29 3b 0a  \n", $content);.
2d60: 20 20 20 20 20 20 20 20 24 63 6f 6e 66 69 67 20          $config 
2d70: 3d 20 43 6f 6e 66 69 67 3a 3a 67 65 74 49 6e 73  = Config::getIns
2d80: 74 61 6e 63 65 28 29 3b 0a 0a 20 20 20 20 20 20  tance();..      
2d90: 20 20 69 66 20 28 65 6d 70 74 79 28 24 68 65 61    if (empty($hea
2da0: 64 65 72 73 5b 27 46 72 6f 6d 27 5d 29 29 0a 20  ders['From'])). 
2db0: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
2dc0: 20 20 20 20 20 24 68 65 61 64 65 72 73 5b 27 46       $headers['F
2dd0: 72 6f 6d 27 5d 20 3d 20 73 70 72 69 6e 74 66 28  rom'] = sprintf(
2de0: 27 22 25 73 22 20 3c 25 73 3e 27 2c 20 24 63 6f  '"%s" <%s>', $co
2df0: 6e 66 69 67 2d 3e 67 65 74 28 27 6e 6f 6d 5f 61  nfig->get('nom_a
2e00: 73 73 6f 27 29 2c 20 24 63 6f 6e 66 69 67 2d 3e  sso'), $config->
2e10: 67 65 74 28 27 65 6d 61 69 6c 5f 65 6e 76 6f 69  get('email_envoi
2e20: 5f 61 75 74 6f 6d 61 74 69 71 75 65 27 29 29 3b  _automatique'));
2e30: 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  .        }..    
2e40: 20 20 20 20 24 68 65 61 64 65 72 73 5b 27 4d 49      $headers['MI
2e50: 4d 45 2d 56 65 72 73 69 6f 6e 27 5d 20 3d 20 27  ME-Version'] = '
2e60: 31 2e 30 27 3b 0a 20 20 20 20 20 20 20 20 24 68  1.0';.        $h
2e70: 65 61 64 65 72 73 5b 27 43 6f 6e 74 65 6e 74 2d  eaders['Content-
2e80: 74 79 70 65 27 5d 20 3d 20 27 74 65 78 74 2f 70  type'] = 'text/p
2e90: 6c 61 69 6e 3b 20 63 68 61 72 73 65 74 3d 55 54  lain; charset=UT
2ea0: 46 2d 38 27 3b 0a 20 20 20 20 20 20 20 20 24 68  F-8';.        $h
2eb0: 65 61 64 65 72 73 5b 27 52 65 74 75 72 6e 2d 50  eaders['Return-P
2ec0: 61 74 68 27 5d 20 3d 20 24 63 6f 6e 66 69 67 2d  ath'] = $config-
2ed0: 3e 67 65 74 28 27 65 6d 61 69 6c 5f 65 6e 76 6f  >get('email_envo
2ee0: 69 5f 61 75 74 6f 6d 61 74 69 71 75 65 27 29 3b  i_automatique');
2ef0: 0a 0a 20 20 20 20 20 20 20 20 24 68 61 73 68 20  ..        $hash 
2f00: 3d 20 73 68 61 31 28 75 6e 69 71 69 64 28 29 20  = sha1(uniqid() 
2f10: 2e 20 76 61 72 5f 65 78 70 6f 72 74 28 5b 24 68  . var_export([$h
2f20: 65 61 64 65 72 73 2c 20 24 74 6f 2c 20 24 73 75  eaders, $to, $su
2f30: 62 6a 65 63 74 2c 20 24 63 6f 6e 74 65 6e 74 5d  bject, $content]
2f40: 2c 20 74 72 75 65 29 29 3b 0a 20 20 20 20 20 20  , true));.      
2f50: 20 20 24 68 65 61 64 65 72 73 5b 27 4d 65 73 73    $headers['Mess
2f60: 61 67 65 2d 49 44 27 5d 20 3d 20 73 70 72 69 6e  age-ID'] = sprin
2f70: 74 66 28 27 25 73 40 25 73 27 2c 20 24 68 61 73  tf('%s@%s', $has
2f80: 68 2c 20 69 73 73 65 74 28 24 5f 53 45 52 56 45  h, isset($_SERVE
2f90: 52 5b 27 53 45 52 56 45 52 5f 4e 41 4d 45 27 5d  R['SERVER_NAME']
2fa0: 29 20 3f 20 24 5f 53 45 52 56 45 52 5b 27 53 45  ) ? $_SERVER['SE
2fb0: 52 56 45 52 5f 4e 41 4d 45 27 5d 20 3a 20 67 65  RVER_NAME'] : ge
2fc0: 74 68 6f 73 74 6e 61 6d 65 28 29 29 3b 0a 0a 20  thostname());.. 
2fd0: 20 20 20 20 20 20 20 69 66 20 28 24 70 67 70 5f         if ($pgp_
2fe0: 6b 65 79 29 0a 20 20 20 20 20 20 20 20 7b 0a 20  key).        {. 
2ff0: 20 20 20 20 20 20 20 20 20 20 20 24 63 6f 6e 74             $cont
3000: 65 6e 74 20 3d 20 53 65 63 75 72 69 74 79 3a 3a  ent = Security::
3010: 65 6e 63 72 79 70 74 57 69 74 68 50 75 62 6c 69  encryptWithPubli
3020: 63 4b 65 79 28 24 70 67 70 5f 6b 65 79 2c 20 24  cKey($pgp_key, $
3030: 63 6f 6e 74 65 6e 74 29 3b 0a 20 20 20 20 20 20  content);.      
3040: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66 20    }..        if 
3050: 28 21 69 73 5f 61 72 72 61 79 28 24 74 6f 29 29  (!is_array($to))
3060: 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20  .        {.     
3070: 20 20 20 20 20 20 20 24 74 6f 20 3d 20 5b 24 74         $to = [$t
3080: 6f 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20  o];.        }.. 
3090: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 28         foreach (
30a0: 24 74 6f 20 61 73 20 24 72 65 63 69 70 69 65 6e  $to as $recipien
30b0: 74 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20  t).        {.   
30c0: 20 20 20 20 20 20 20 20 20 69 66 20 28 21 73 65           if (!se
30d0: 6c 66 3a 3a 5f 73 65 6e 64 4d 61 69 6c 28 24 72  lf::_sendMail($r
30e0: 65 63 69 70 69 65 6e 74 2c 20 24 73 75 62 6a 65  ecipient, $subje
30f0: 63 74 2c 20 24 63 6f 6e 74 65 6e 74 2c 20 24 68  ct, $content, $h
3100: 65 61 64 65 72 73 29 29 0a 20 20 20 20 20 20 20  eaders)).       
3110: 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20       {.         
3120: 20 20 20 20 20 20 20 74 68 72 6f 77 20 6e 65 77         throw new
3130: 20 5c 52 75 6e 74 69 6d 65 45 78 63 65 70 74 69   \RuntimeExcepti
3140: 6f 6e 28 27 49 6d 70 6f 73 73 69 62 6c 65 20 64  on('Impossible d
3150: 5c 27 65 6e 76 6f 79 65 72 20 6c 5c 27 65 6d 61  \'envoyer l\'ema
3160: 69 6c 27 29 3b 0a 20 20 20 20 20 20 20 20 20 20  il');.          
3170: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20    }.        }.. 
3180: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 74 72         return tr
3190: 75 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73  ue;.    }..    s
31a0: 74 61 74 69 63 20 70 72 6f 74 65 63 74 65 64 20  tatic protected 
31b0: 66 75 6e 63 74 69 6f 6e 20 5f 73 65 6e 64 4d 61  function _sendMa
31c0: 69 6c 28 24 74 6f 2c 20 24 73 75 62 6a 65 63 74  il($to, $subject
31d0: 2c 20 24 63 6f 6e 74 65 6e 74 2c 20 61 72 72 61  , $content, arra
31e0: 79 20 24 68 65 61 64 65 72 73 29 0a 20 20 20 20  y $headers).    
31f0: 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 53 4d  {.        if (SM
3200: 54 50 5f 48 4f 53 54 29 0a 20 20 20 20 20 20 20  TP_HOST).       
3210: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24   {.            $
3220: 63 6f 6e 73 74 20 3d 20 27 5c 4b 44 32 5c 53 4d  const = '\KD2\SM
3230: 54 50 3a 3a 27 20 2e 20 73 74 72 74 6f 75 70 70  TP::' . strtoupp
3240: 65 72 28 53 4d 54 50 5f 53 45 43 55 52 49 54 59  er(SMTP_SECURITY
3250: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 0a  );.            .
3260: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28              if (
3270: 21 64 65 66 69 6e 65 64 28 24 63 6f 6e 73 74 29  !defined($const)
3280: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0a  ).            {.
3290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
32a0: 74 68 72 6f 77 20 6e 65 77 20 5c 4c 6f 67 69 63  throw new \Logic
32b0: 45 78 63 65 70 74 69 6f 6e 28 27 43 6f 6e 66 69  Exception('Confi
32c0: 67 75 72 61 74 69 6f 6e 3a 20 53 4d 54 50 5f 53  guration: SMTP_S
32d0: 45 43 55 52 49 54 59 20 6e 5c 27 61 20 70 61 73  ECURITY n\'a pas
32e0: 20 75 6e 65 20 76 61 6c 65 75 72 20 72 65 63 6f   une valeur reco
32f0: 6e 6e 75 65 2e 20 56 61 6c 65 75 72 73 20 61 63  nnue. Valeurs ac
3300: 63 65 70 74 c3 a9 65 73 3a 20 53 54 41 52 54 54  cept..es: STARTT
3310: 4c 53 2c 20 53 53 4c 2c 20 4e 4f 4e 45 2e 27 29  LS, SSL, NONE.')
3320: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a  ;.            }.
3330: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 73 65  .            $se
3340: 63 75 72 65 20 3d 20 63 6f 6e 73 74 61 6e 74 28  cure = constant(
3350: 24 63 6f 6e 73 74 29 3b 0a 0a 20 20 20 20 20 20  $const);..      
3360: 20 20 20 20 20 20 24 73 6d 74 70 20 3d 20 6e 65        $smtp = ne
3370: 77 20 53 4d 54 50 28 53 4d 54 50 5f 48 4f 53 54  w SMTP(SMTP_HOST
3380: 2c 20 53 4d 54 50 5f 50 4f 52 54 2c 20 53 4d 54  , SMTP_PORT, SMT
3390: 50 5f 55 53 45 52 2c 20 53 4d 54 50 5f 50 41 53  P_USER, SMTP_PAS
33a0: 53 57 4f 52 44 2c 20 24 73 65 63 75 72 65 29 3b  SWORD, $secure);
33b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
33c0: 75 72 6e 20 24 73 6d 74 70 2d 3e 73 65 6e 64 28  urn $smtp->send(
33d0: 24 74 6f 2c 20 24 73 75 62 6a 65 63 74 2c 20 24  $to, $subject, $
33e0: 63 6f 6e 74 65 6e 74 2c 20 24 68 65 61 64 65 72  content, $header
33f0: 73 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  s);.        }.  
3400: 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20        else.     
3410: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
3420: 20 2f 2f 20 45 6e 63 6f 64 61 67 65 20 64 75 20   // Encodage du 
3430: 73 75 6a 65 74 0a 20 20 20 20 20 20 20 20 20 20  sujet.          
3440: 20 20 24 73 75 62 6a 65 63 74 20 3d 20 73 70 72    $subject = spr
3450: 69 6e 74 66 28 27 3d 3f 55 54 46 2d 38 3f 42 3f  intf('=?UTF-8?B?
3460: 25 73 3f 3d 27 2c 20 62 61 73 65 36 34 5f 65 6e  %s?=', base64_en
3470: 63 6f 64 65 28 24 73 75 62 6a 65 63 74 29 29 3b  code($subject));
3480: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 72 61  .            $ra
3490: 77 5f 68 65 61 64 65 72 73 20 3d 20 27 27 3b 0a  w_headers = '';.
34a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20  .            // 
34b0: 53 c3 a9 72 69 61 6c 69 73 61 74 69 6f 6e 20 64  S..rialisation d
34c0: 65 73 20 65 6e 74 c3 aa 74 65 73 0a 20 20 20 20  es ent..tes.    
34d0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
34e0: 28 24 68 65 61 64 65 72 73 20 61 73 20 24 6e 61  ($headers as $na
34f0: 6d 65 3d 3e 24 76 61 6c 75 65 29 0a 20 20 20 20  me=>$value).    
3500: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
3510: 20 20 20 20 20 20 20 20 20 20 24 72 61 77 5f 68            $raw_h
3520: 65 61 64 65 72 73 20 2e 3d 20 73 70 72 69 6e 74  eaders .= sprint
3530: 66 28 22 25 73 3a 20 25 73 5c 72 5c 6e 22 2c 20  f("%s: %s\r\n", 
3540: 24 6e 61 6d 65 2c 20 24 76 61 6c 75 65 29 3b 0a  $name, $value);.
3550: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 20              }.. 
3560: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
3570: 6e 20 6d 61 69 6c 28 24 74 6f 2c 20 24 73 75 62  n mail($to, $sub
3580: 6a 65 63 74 2c 20 24 63 6f 6e 74 65 6e 74 2c 20  ject, $content, 
3590: 24 72 61 77 5f 68 65 61 64 65 72 73 29 3b 0a 20  $raw_headers);. 
35a0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a         }.    }..
35b0: 20 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69      static publi
35c0: 63 20 66 75 6e 63 74 69 6f 6e 20 63 6c 65 61 72  c function clear
35d0: 43 61 63 68 65 73 28 24 70 61 74 68 20 3d 20 66  Caches($path = f
35e0: 61 6c 73 65 29 0a 20 20 20 20 7b 0a 20 20 20 20  alse).    {.    
35f0: 20 20 20 20 69 66 20 28 21 24 70 61 74 68 29 0a      if (!$path).
3600: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
3610: 20 20 20 20 20 20 73 65 6c 66 3a 3a 63 6c 65 61        self::clea
3620: 72 43 61 63 68 65 73 28 27 63 6f 6d 70 69 6c 65  rCaches('compile
3630: 64 27 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  d');.           
3640: 20 73 65 6c 66 3a 3a 63 6c 65 61 72 43 61 63 68   self::clearCach
3650: 65 73 28 27 73 74 61 74 69 63 27 29 3b 0a 20 20  es('static');.  
3660: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
3670: 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 7d   true;.        }
3680: 0a 0a 20 20 20 20 20 20 20 20 24 70 61 74 68 20  ..        $path 
3690: 3d 20 43 41 43 48 45 5f 52 4f 4f 54 20 2e 20 27  = CACHE_ROOT . '
36a0: 2f 27 20 2e 20 24 70 61 74 68 3b 0a 20 20 20 20  /' . $path;.    
36b0: 20 20 20 20 24 64 69 72 20 3d 20 64 69 72 28 24      $dir = dir($
36c0: 70 61 74 68 29 3b 0a 0a 20 20 20 20 20 20 20 20  path);..        
36d0: 77 68 69 6c 65 20 28 24 66 69 6c 65 20 3d 20 24  while ($file = $
36e0: 64 69 72 2d 3e 72 65 61 64 28 29 29 0a 20 20 20  dir->read()).   
36f0: 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20       {.         
3700: 20 20 20 69 66 20 28 24 66 69 6c 65 5b 30 5d 20     if ($file[0] 
3710: 21 3d 20 27 2e 27 29 0a 20 20 20 20 20 20 20 20  != '.').        
3720: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20      {.          
3730: 20 20 20 20 20 20 75 6e 6c 69 6e 6b 28 24 70 61        unlink($pa
3740: 74 68 20 2e 20 27 2f 27 20 2e 20 24 66 69 6c 65  th . '/' . $file
3750: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  );.            }
3760: 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  .        }..    
3770: 20 20 20 20 24 64 69 72 2d 3e 63 6c 6f 73 65 28      $dir->close(
3780: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  );.        retur
3790: 6e 20 74 72 75 65 3b 0a 20 20 20 20 7d 0a 0a 20  n true;.    }.. 
37a0: 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69 63     static public
37b0: 20 66 75 6e 63 74 69 6f 6e 20 73 75 67 67 65 73   function sugges
37c0: 74 50 61 73 73 77 6f 72 64 28 29 0a 20 20 20 20  tPassword().    
37d0: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  {.        return
37e0: 20 53 65 63 75 72 69 74 79 3a 3a 67 65 74 52 61   Security::getRa
37f0: 6e 64 6f 6d 50 61 73 73 70 68 72 61 73 65 28 52  ndomPassphrase(R
3800: 4f 4f 54 20 2e 20 27 2f 69 6e 63 6c 75 64 65 2f  OOT . '/include/
3810: 64 61 74 61 2f 64 69 63 74 69 6f 6e 61 72 79 2e  data/dictionary.
3820: 66 72 27 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  fr');.    }..   
3830: 20 73 74 61 74 69 63 20 70 75 62 6c 69 63 20 66   static public f
3840: 75 6e 63 74 69 6f 6e 20 63 68 65 63 6b 49 42 41  unction checkIBA
3850: 4e 28 24 76 61 6c 75 65 29 0a 20 20 20 20 7b 0a  N($value).    {.
3860: 20 20 20 20 20 20 20 20 2f 2f 20 45 6e 6c 65 76          // Enlev
3870: 65 72 20 6c 65 73 20 63 61 72 61 63 74 c3 a8 72  er les caract..r
3880: 65 73 20 69 6e 64 c3 a9 73 69 72 61 62 6c 65 73  es ind..sirables
3890: 20 28 65 73 70 61 63 65 73 2c 20 74 69 72 65 74   (espaces, tiret
38a0: 73 29 2c 0a 20 20 20 20 20 20 20 20 24 76 61 6c  s),.        $val
38b0: 75 65 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 63  ue = preg_replac
38c0: 65 28 27 2f 5b 5e 41 2d 5a 30 2d 39 5d 2f 27 2c  e('/[^A-Z0-9]/',
38d0: 20 27 27 2c 20 73 74 72 74 6f 75 70 70 65 72 28   '', strtoupper(
38e0: 24 76 61 6c 75 65 29 29 3b 0a 20 20 20 20 20 20  $value));.      
38f0: 20 20 0a 20 20 20 20 20 20 20 20 2f 2f 20 53 75    .        // Su
3900: 70 70 72 69 6d 65 72 20 6c 65 73 20 34 20 70 72  pprimer les 4 pr
3910: 65 6d 69 65 72 73 20 63 61 72 61 63 74 c3 a8 72  emiers caract..r
3920: 65 73 20 65 74 20 6c 65 73 20 72 65 70 6c 61 63  es et les replac
3930: 65 72 20 c3 a0 20 6c 61 20 66 69 6e 20 64 75 20  er .. la fin du 
3940: 63 6f 6d 70 74 65 0a 20 20 20 20 20 20 20 20 24  compte.        $
3950: 76 61 6c 75 65 20 3d 20 73 75 62 73 74 72 28 24  value = substr($
3960: 76 61 6c 75 65 2c 20 34 29 20 2e 20 73 75 62 73  value, 4) . subs
3970: 74 72 28 24 76 61 6c 75 65 2c 20 30 2c 20 34 29  tr($value, 0, 4)
3980: 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2f 20 52 65  ;..        // Re
3990: 6d 70 6c 61 63 65 72 20 6c 65 73 20 6c 65 74 74  mplacer les lett
39a0: 72 65 73 20 70 61 72 20 64 65 73 20 63 68 69 66  res par des chif
39b0: 66 72 65 73 20 61 75 20 6d 6f 79 65 6e 20 64 27  fres au moyen d'
39c0: 75 6e 65 20 74 61 62 6c 65 20 64 65 20 63 6f 6e  une table de con
39d0: 76 65 72 73 69 6f 6e 20 28 41 3d 31 30 2c 20 42  version (A=10, B
39e0: 3d 31 31 2c 20 43 3d 31 32 20 65 74 63 2e 29 0a  =11, C=12 etc.).
39f0: 20 20 20 20 20 20 20 20 24 76 61 6c 75 65 20 3d          $value =
3a00: 20 73 74 72 5f 72 65 70 6c 61 63 65 28 72 61 6e   str_replace(ran
3a10: 67 65 28 27 41 27 2c 20 27 5a 27 29 2c 20 72 61  ge('A', 'Z'), ra
3a20: 6e 67 65 28 31 30 2c 20 33 35 29 2c 20 24 76 61  nge(10, 35), $va
3a30: 6c 75 65 29 3b 0a 0a 20 20 20 20 20 20 20 20 2f  lue);..        /
3a40: 2f 20 44 69 76 69 73 65 72 20 6c 65 20 6e 6f 6d  / Diviser le nom
3a50: 62 72 65 20 61 69 6e 73 69 20 6f 62 74 65 6e 75  bre ainsi obtenu
3a60: 20 70 61 72 20 39 37 0a 20 20 20 20 20 20 20 20   par 97.        
3a70: 2f 2f 20 53 69 20 6c 65 20 72 65 73 74 65 20 6e  // Si le reste n
3a80: 27 65 73 74 20 70 61 73 20 c3 a9 67 61 6c 20 c3  'est pas ..gal .
3a90: a0 20 31 20 6c 27 49 42 41 4e 20 65 73 74 20 69  . 1 l'IBAN est i
3aa0: 6e 63 6f 72 72 65 63 74 20 3a 20 4d 6f 64 75 6c  ncorrect : Modul
3ab0: 6f 20 64 65 20 39 37 20 c3 a9 67 61 6c 20 c3 a0  o de 97 ..gal ..
3ac0: 20 31 2e 0a 20 20 20 20 20 20 20 20 72 65 74 75   1..        retu
3ad0: 72 6e 20 28 73 65 6c 66 3a 3a 62 63 6d 6f 64 28  rn (self::bcmod(
3ae0: 24 76 61 6c 75 65 2c 20 39 37 29 20 3d 3d 20 31  $value, 97) == 1
3af0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  );.    }..    /*
3b00: 2a 20 0a 20 20 20 20 20 2a 20 6d 79 5f 62 63 6d  * .     * my_bcm
3b10: 6f 64 20 2d 20 67 65 74 20 6d 6f 64 75 6c 75 73  od - get modulus
3b20: 20 28 73 75 62 73 74 69 74 75 74 65 20 66 6f 72   (substitute for
3b30: 20 62 63 6d 6f 64 29 20 0a 20 20 20 20 20 2a 20   bcmod) .     * 
3b40: 73 74 72 69 6e 67 20 6d 79 5f 62 63 6d 6f 64 20  string my_bcmod 
3b50: 28 20 73 74 72 69 6e 67 20 6c 65 66 74 5f 6f 70  ( string left_op
3b60: 65 72 61 6e 64 2c 20 69 6e 74 20 6d 6f 64 75 6c  erand, int modul
3b70: 75 73 20 29 20 0a 20 20 20 20 20 2a 20 6c 65 66  us ) .     * lef
3b80: 74 5f 6f 70 65 72 61 6e 64 20 63 61 6e 20 62 65  t_operand can be
3b90: 20 72 65 61 6c 6c 79 20 62 69 67 2c 20 62 75 74   really big, but
3ba0: 20 62 65 20 63 61 72 65 66 75 6c 6c 20 77 69 74   be carefull wit
3bb0: 68 20 6d 6f 64 75 6c 75 73 20 3a 28 20 0a 20 20  h modulus :( .  
3bc0: 20 20 20 2a 20 62 79 20 41 6e 64 72 69 75 73 20     * by Andrius 
3bd0: 42 61 72 61 6e 61 75 73 6b 61 73 20 61 6e 64 20  Baranauskas and 
3be0: 4c 61 75 72 79 6e 61 73 20 42 75 74 6b 75 73 20  Laurynas Butkus 
3bf0: 3a 29 20 56 69 6c 6e 69 75 73 2c 20 4c 69 74 68  :) Vilnius, Lith
3c00: 75 61 6e 69 61 20 0a 20 20 20 20 20 2a 20 40 6c  uania .     * @l
3c10: 69 6e 6b 20 68 74 74 70 73 3a 2f 2f 70 68 70 2e  ink https://php.
3c20: 6e 65 74 2f 6d 61 6e 75 61 6c 2f 66 72 2f 66 75  net/manual/fr/fu
3c30: 6e 63 74 69 6f 6e 2e 62 63 6d 6f 64 2e 70 68 70  nction.bcmod.php
3c40: 23 33 38 34 37 34 0a 20 20 20 20 20 2a 2f 20 0a  #38474.     */ .
3c50: 20 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69      static publi
3c60: 63 20 66 75 6e 63 74 69 6f 6e 20 62 63 6d 6f 64  c function bcmod
3c70: 28 24 78 2c 20 24 79 29 0a 20 20 20 20 7b 0a 20  ($x, $y).    {. 
3c80: 20 20 20 20 20 20 20 69 66 20 28 66 75 6e 63 74         if (funct
3c90: 69 6f 6e 5f 65 78 69 73 74 73 28 27 5c 62 63 6d  ion_exists('\bcm
3ca0: 6f 64 27 29 29 0a 20 20 20 20 20 20 20 20 7b 0a  od')).        {.
3cb0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
3cc0: 72 6e 20 5c 62 63 6d 6f 64 28 24 78 2c 20 24 79  rn \bcmod($x, $y
3cd0: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  );.        }..  
3ce0: 20 20 20 20 20 20 2f 2f 20 68 6f 77 20 6d 61 6e        // how man
3cf0: 79 20 6e 75 6d 62 65 72 73 20 74 6f 20 74 61 6b  y numbers to tak
3d00: 65 20 61 74 20 6f 6e 63 65 3f 20 63 61 72 65 66  e at once? caref
3d10: 75 6c 6c 20 6e 6f 74 20 74 6f 20 65 78 63 65 65  ull not to excee
3d20: 64 20 28 69 6e 74 29 0a 20 20 20 20 20 20 20 20  d (int).        
3d30: 24 74 61 6b 65 20 3d 20 35 3b 0a 20 20 20 20 20  $take = 5;.     
3d40: 20 20 20 24 6d 6f 64 20 3d 20 27 27 3b 0a 0a 20     $mod = '';.. 
3d50: 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20         do.      
3d60: 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20    {.            
3d70: 24 61 20 3d 20 28 69 6e 74 29 24 6d 6f 64 2e 73  $a = (int)$mod.s
3d80: 75 62 73 74 72 28 20 24 78 2c 20 30 2c 20 24 74  ubstr( $x, 0, $t
3d90: 61 6b 65 20 29 3b 0a 20 20 20 20 20 20 20 20 20  ake );.         
3da0: 20 20 20 24 78 20 3d 20 73 75 62 73 74 72 28 20     $x = substr( 
3db0: 24 78 2c 20 24 74 61 6b 65 20 29 3b 0a 20 20 20  $x, $take );.   
3dc0: 20 20 20 20 20 20 20 20 20 24 6d 6f 64 20 3d 20           $mod = 
3dd0: 24 61 20 25 20 24 79 3b 0a 20 20 20 20 20 20 20  $a % $y;.       
3de0: 20 7d 20 0a 20 20 20 20 20 20 20 20 77 68 69 6c   } .        whil
3df0: 65 20 28 73 74 72 6c 65 6e 28 24 78 29 29 3b 0a  e (strlen($x));.
3e00: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
3e10: 28 69 6e 74 29 24 6d 6f 64 3b 0a 20 20 20 20 7d  (int)$mod;.    }
3e20: 0a 20 20 20 20 0a 20 20 20 20 73 74 61 74 69 63  .    .    static
3e30: 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e   public function
3e40: 20 63 68 65 63 6b 42 49 43 28 24 62 69 63 29 0a   checkBIC($bic).
3e50: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 72 65      {.        re
3e60: 74 75 72 6e 20 70 72 65 67 5f 6d 61 74 63 68 28  turn preg_match(
3e70: 27 21 5e 5b 41 2d 5a 5d 7b 34 7d 5b 41 2d 5a 5d  '!^[A-Z]{4}[A-Z]
3e80: 7b 32 7d 5b 31 2d 39 41 2d 5a 5d 7b 32 7d 28 3f  {2}[1-9A-Z]{2}(?
3e90: 3a 5b 41 2d 5a 5c 64 5d 7b 33 7d 29 3f 24 21 27  :[A-Z\d]{3})?$!'
3ea0: 2c 20 24 62 69 63 29 3b 0a 20 20 20 20 7d 0a 0a  , $bic);.    }..
3eb0: 20 20 20 20 73 74 61 74 69 63 20 70 75 62 6c 69      static publi
3ec0: 63 20 66 75 6e 63 74 69 6f 6e 20 6e 6f 72 6d 61  c function norma
3ed0: 6c 69 7a 65 50 68 6f 6e 65 4e 75 6d 62 65 72 28  lizePhoneNumber(
3ee0: 24 6e 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20  $n).    {.      
3ef0: 20 20 24 6e 20 3d 20 70 72 65 67 5f 72 65 70 6c    $n = preg_repl
3f00: 61 63 65 28 27 21 28 5c 2b 5c 64 2b 29 5c 28 30  ace('!(\+\d+)\(0
3f10: 5c 29 21 27 2c 20 27 5c 5c 31 27 2c 20 24 6e 29  \)!', '\\1', $n)
3f20: 3b 0a 20 20 20 20 20 20 20 20 24 6e 20 3d 20 70  ;.        $n = p
3f30: 72 65 67 5f 72 65 70 6c 61 63 65 28 27 21 5b 5e  reg_replace('![^
3f40: 5c 64 5c 2b 5d 21 27 2c 20 27 27 2c 20 24 6e 29  \d\+]!', '', $n)
3f50: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
3f60: 20 24 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20   $n;.    }..    
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 77 72 69 74 65 5f 69 6e 69  nction write_ini
3f90: 5f 73 74 72 69 6e 67 28 24 69 6e 29 0a 20 20 20  _string($in).   
3fa0: 20 7b 0a 20 20 20 20 20 20 20 20 24 6f 75 74 20   {.        $out 
3fb0: 3d 20 27 27 3b 0a 20 20 20 20 20 20 20 20 24 67  = '';.        $g
3fc0: 65 74 5f 69 6e 69 5f 6c 69 6e 65 20 3d 20 66 75  et_ini_line = fu
3fd0: 6e 63 74 69 6f 6e 20 28 24 6b 65 79 2c 20 24 76  nction ($key, $v
3fe0: 61 6c 75 65 29 20 75 73 65 20 28 26 24 67 65 74  alue) use (&$get
3ff0: 5f 69 6e 69 5f 6c 69 6e 65 29 0a 20 20 20 20 20  _ini_line).     
4000: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20     {.           
4010: 20 69 66 20 28 69 73 5f 62 6f 6f 6c 28 24 76 61   if (is_bool($va
4020: 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20  lue)).          
4030: 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20    {.            
4040: 20 20 20 20 72 65 74 75 72 6e 20 24 6b 65 79 20      return $key 
4050: 2e 20 27 20 3d 20 27 20 2e 20 28 24 76 61 6c 75  . ' = ' . ($valu
4060: 65 20 3f 20 27 74 72 75 65 27 20 3a 20 27 66 61  e ? 'true' : 'fa
4070: 6c 73 65 27 29 3b 0a 20 20 20 20 20 20 20 20 20  lse');.         
4080: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20     }.           
4090: 20 65 6c 73 65 69 66 20 28 69 73 5f 6e 75 6d 65   elseif (is_nume
40a0: 72 69 63 28 24 76 61 6c 75 65 29 29 0a 20 20 20  ric($value)).   
40b0: 20 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20           {.     
40c0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
40d0: 6e 20 24 6b 65 79 20 2e 20 27 20 3d 20 27 20 2e  n $key . ' = ' .
40e0: 20 24 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20   $value;.       
40f0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
4100: 20 20 20 65 6c 73 65 69 66 20 28 69 73 5f 61 72     elseif (is_ar
4110: 72 61 79 28 24 76 61 6c 75 65 29 20 7c 7c 20 69  ray($value) || i
4120: 73 5f 6f 62 6a 65 63 74 28 24 76 61 6c 75 65 29  s_object($value)
4130: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0a  ).            {.
4140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4150: 24 6f 75 74 20 3d 20 27 27 3b 0a 20 20 20 20 20  $out = '';.     
4160: 20 20 20 20 20 20 20 20 20 20 20 24 76 61 6c 75             $valu
4170: 65 20 3d 20 28 61 72 72 61 79 29 20 24 76 61 6c  e = (array) $val
4180: 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ue;.            
4190: 20 20 20 20 66 6f 72 65 61 63 68 20 28 24 76 61      foreach ($va
41a0: 6c 75 65 20 61 73 20 24 72 6f 77 29 0a 20 20 20  lue as $row).   
41b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0a 20               {. 
41c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
41d0: 20 20 20 24 6f 75 74 20 2e 3d 20 24 67 65 74 5f     $out .= $get_
41e0: 69 6e 69 5f 6c 69 6e 65 28 24 6b 65 79 20 2e 20  ini_line($key . 
41f0: 27 5b 5d 27 2c 20 24 72 6f 77 29 20 2e 20 22 5c  '[]', $row) . "\
4200: 6e 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  n";.            
4210: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 20      }..         
4220: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 75         return su
4230: 62 73 74 72 28 24 6f 75 74 2c 20 30 2c 20 2d 31  bstr($out, 0, -1
4240: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  );.            }
4250: 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73  .            els
4260: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0a  e.            {.
4270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4280: 72 65 74 75 72 6e 20 24 6b 65 79 20 2e 20 27 20  return $key . ' 
4290: 3d 20 22 27 20 2e 20 73 74 72 5f 72 65 70 6c 61  = "' . str_repla
42a0: 63 65 28 27 22 27 2c 20 27 5c 5c 22 27 2c 20 24  ce('"', '\\"', $
42b0: 76 61 6c 75 65 29 20 2e 20 27 22 27 3b 0a 20 20  value) . '"';.  
42c0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
42d0: 20 20 20 20 7d 3b 0a 0a 20 20 20 20 20 20 20 20      };..        
42e0: 66 6f 72 65 61 63 68 20 28 24 69 6e 20 61 73 20  foreach ($in as 
42f0: 24 6b 65 79 3d 3e 24 76 61 6c 75 65 29 0a 20 20  $key=>$value).  
4300: 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20        {.        
4310: 20 20 20 20 69 66 20 28 28 69 73 5f 61 72 72 61      if ((is_arra
4320: 79 28 24 76 61 6c 75 65 29 20 7c 7c 20 69 73 5f  y($value) || is_
4330: 6f 62 6a 65 63 74 28 24 76 61 6c 75 65 29 29 20  object($value)) 
4340: 26 26 20 69 73 5f 73 74 72 69 6e 67 28 24 6b 65  && is_string($ke
4350: 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  y)).            
4360: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
4370: 20 20 24 6f 75 74 20 2e 3d 20 27 5b 27 20 2e 20    $out .= '[' . 
4380: 24 6b 65 79 20 2e 20 22 5d 5c 6e 22 3b 0a 0a 20  $key . "]\n";.. 
4390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66                 f
43a0: 6f 72 65 61 63 68 20 28 24 76 61 6c 75 65 20 61  oreach ($value a
43b0: 73 20 24 72 6f 77 5f 6b 65 79 3d 3e 24 72 6f 77  s $row_key=>$row
43c0: 5f 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20  _value).        
43d0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
43e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6f                $o
43f0: 75 74 20 2e 3d 20 24 67 65 74 5f 69 6e 69 5f 6c  ut .= $get_ini_l
4400: 69 6e 65 28 24 72 6f 77 5f 6b 65 79 2c 20 24 72  ine($row_key, $r
4410: 6f 77 5f 76 61 6c 75 65 29 20 2e 20 22 5c 6e 22  ow_value) . "\n"
4420: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
4430: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
4440: 20 20 20 20 20 24 6f 75 74 20 2e 3d 20 22 5c 6e       $out .= "\n
4450: 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  ";.            }
4460: 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73  .            els
4470: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0a  e.            {.
4480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4490: 24 6f 75 74 20 2e 3d 20 24 67 65 74 5f 69 6e 69  $out .= $get_ini
44a0: 5f 6c 69 6e 65 28 24 6b 65 79 2c 20 24 76 61 6c  _line($key, $val
44b0: 75 65 29 20 2e 20 22 5c 6e 22 3b 0a 20 20 20 20  ue) . "\n";.    
44c0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
44d0: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 72 65 74    }..        ret
44e0: 75 72 6e 20 24 6f 75 74 3b 0a 20 20 20 20 7d 0a  urn $out;.    }.
44f0: 0a 20 20 20 20 73 74 61 74 69 63 20 70 75 62 6c  .    static publ
4500: 69 63 20 66 75 6e 63 74 69 6f 6e 20 67 65 74 4d  ic function getM
4510: 61 78 55 70 6c 6f 61 64 53 69 7a 65 28 29 0a 20  axUploadSize(). 
4520: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 24 6c 69     {.        $li
4530: 6d 69 74 73 20 3d 20 5b 0a 20 20 20 20 20 20 20  mits = [.       
4540: 20 20 20 20 20 73 65 6c 66 3a 3a 72 65 74 75 72       self::retur
4550: 6e 5f 62 79 74 65 73 28 69 6e 69 5f 67 65 74 28  n_bytes(ini_get(
4560: 27 75 70 6c 6f 61 64 5f 6d 61 78 5f 66 69 6c 65  'upload_max_file
4570: 73 69 7a 65 27 29 29 2c 0a 20 20 20 20 20 20 20  size')),.       
4580: 20 20 20 20 20 73 65 6c 66 3a 3a 72 65 74 75 72       self::retur
4590: 6e 5f 62 79 74 65 73 28 69 6e 69 5f 67 65 74 28  n_bytes(ini_get(
45a0: 27 70 6f 73 74 5f 6d 61 78 5f 73 69 7a 65 27 29  'post_max_size')
45b0: 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  ),.            s
45c0: 65 6c 66 3a 3a 72 65 74 75 72 6e 5f 62 79 74 65  elf::return_byte
45d0: 73 28 69 6e 69 5f 67 65 74 28 27 6d 65 6d 6f 72  s(ini_get('memor
45e0: 79 5f 6c 69 6d 69 74 27 29 29 0a 20 20 20 20 20  y_limit')).     
45f0: 20 20 20 5d 3b 0a 0a 20 20 20 20 20 20 20 20 72     ];..        r
4600: 65 74 75 72 6e 20 6d 69 6e 28 61 72 72 61 79 5f  eturn min(array_
4610: 66 69 6c 74 65 72 28 24 6c 69 6d 69 74 73 29 29  filter($limits))
4620: 3b 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 73 74  ;.    }...    st
4630: 61 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63  atic public func
4640: 74 69 6f 6e 20 72 65 74 75 72 6e 5f 62 79 74 65  tion return_byte
4650: 73 28 24 73 69 7a 65 5f 73 74 72 29 0a 20 20 20  s($size_str).   
4660: 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 24   {.        if ($
4670: 73 69 7a 65 5f 73 74 72 20 3d 3d 20 27 2d 31 27  size_str == '-1'
4680: 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20  ).        {.    
4690: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 66          return f
46a0: 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a  alse;.        }.
46b0: 0a 20 20 20 20 20 20 20 20 73 77 69 74 63 68 20  .        switch 
46c0: 28 73 75 62 73 74 72 28 24 73 69 7a 65 5f 73 74  (substr($size_st
46d0: 72 2c 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20  r, -1)).        
46e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61  {.            ca
46f0: 73 65 20 27 47 27 3a 20 63 61 73 65 20 27 67 27  se 'G': case 'g'
4700: 3a 20 72 65 74 75 72 6e 20 28 69 6e 74 29 24 73  : return (int)$s
4710: 69 7a 65 5f 73 74 72 20 2a 20 70 6f 77 28 31 30  ize_str * pow(10
4720: 32 34 2c 20 33 29 3b 0a 20 20 20 20 20 20 20 20  24, 3);.        
4730: 20 20 20 20 63 61 73 65 20 27 4d 27 3a 20 63 61      case 'M': ca
4740: 73 65 20 27 6d 27 3a 20 72 65 74 75 72 6e 20 28  se 'm': return (
4750: 69 6e 74 29 24 73 69 7a 65 5f 73 74 72 20 2a 20  int)$size_str * 
4760: 70 6f 77 28 31 30 32 34 2c 20 32 29 3b 0a 20 20  pow(1024, 2);.  
4770: 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 27            case '
4780: 4b 27 3a 20 63 61 73 65 20 27 6b 27 3a 20 72 65  K': case 'k': re
4790: 74 75 72 6e 20 28 69 6e 74 29 24 73 69 7a 65 5f  turn (int)$size_
47a0: 73 74 72 20 2a 20 31 30 32 34 3b 0a 20 20 20 20  str * 1024;.    
47b0: 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 3a          default:
47c0: 20 72 65 74 75 72 6e 20 24 73 69 7a 65 5f 73 74   return $size_st
47d0: 72 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  r;.        }.   
47e0: 20 7d 0a 0a 20 20 20 20 73 74 61 74 69 63 20 70   }..    static p
47f0: 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20 66  ublic function f
4800: 6f 72 6d 61 74 5f 62 79 74 65 73 28 24 73 69 7a  ormat_bytes($siz
4810: 65 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20  e) {.        if 
4820: 28 24 73 69 7a 65 20 3e 20 28 31 30 32 34 20 2a  ($size > (1024 *
4830: 20 31 30 32 34 29 29 0a 20 20 20 20 20 20 20 20   1024)).        
4840: 20 20 20 20 72 65 74 75 72 6e 20 73 74 72 5f 72      return str_r
4850: 65 70 6c 61 63 65 28 27 2e 27 2c 20 27 2c 27 2c  eplace('.', ',',
4860: 20 72 6f 75 6e 64 28 24 73 69 7a 65 20 2f 20 31   round($size / 1
4870: 30 32 34 20 2f 20 31 30 32 34 2c 20 32 29 29 20  024 / 1024, 2)) 
4880: 2e 20 27 20 4d 6f 27 3b 0a 20 20 20 20 20 20 20  . ' Mo';.       
4890: 20 65 6c 73 65 69 66 20 28 24 73 69 7a 65 20 3e   elseif ($size >
48a0: 20 31 30 32 34 29 0a 20 20 20 20 20 20 20 20 20   1024).         
48b0: 20 20 20 72 65 74 75 72 6e 20 73 74 72 5f 72 65     return str_re
48c0: 70 6c 61 63 65 28 27 2e 27 2c 20 27 2c 27 2c 20  place('.', ',', 
48d0: 72 6f 75 6e 64 28 24 73 69 7a 65 20 2f 20 31 30  round($size / 10
48e0: 32 34 2c 20 32 29 29 20 2e 20 27 20 4b 6f 27 3b  24, 2)) . ' Ko';
48f0: 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20  .        else.  
4900: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
4910: 20 24 73 69 7a 65 20 2e 20 27 20 6f 27 3b 0a 20   $size . ' o';. 
4920: 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 69 63     }..    static
4930: 20 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e   public function
4940: 20 64 65 6c 65 74 65 52 65 63 75 72 73 69 76 65   deleteRecursive
4950: 28 24 70 61 74 68 2c 20 24 64 65 6c 65 74 65 5f  ($path, $delete_
4960: 74 61 72 67 65 74 20 3d 20 66 61 6c 73 65 29 0a  target = false).
4970: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 69 66      {.        if
4980: 20 28 21 66 69 6c 65 5f 65 78 69 73 74 73 28 24   (!file_exists($
4990: 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20  path)).         
49a0: 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 3b     return false;
49b0: 0a 0a 20 20 20 20 20 20 20 20 24 64 69 72 20 3d  ..        $dir =
49c0: 20 64 69 72 28 24 70 61 74 68 29 3b 0a 20 20 20   dir($path);.   
49d0: 20 20 20 20 20 69 66 20 28 21 24 64 69 72 29 20       if (!$dir) 
49e0: 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a 0a 20  return false;.. 
49f0: 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 24 66         while ($f
4a00: 69 6c 65 20 3d 20 24 64 69 72 2d 3e 72 65 61 64  ile = $dir->read
4a10: 28 29 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20  ()).        {.  
4a20: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24 66            if ($f
4a30: 69 6c 65 20 3d 3d 20 27 2e 27 20 7c 7c 20 24 66  ile == '.' || $f
4a40: 69 6c 65 20 3d 3d 20 27 2e 2e 27 29 0a 20 20 20  ile == '..').   
4a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e               con
4a60: 74 69 6e 75 65 3b 0a 0a 20 20 20 20 20 20 20 20  tinue;..        
4a70: 20 20 20 20 69 66 20 28 69 73 5f 64 69 72 28 24      if (is_dir($
4a80: 70 61 74 68 20 2e 20 27 2f 27 20 2e 20 24 66 69  path . '/' . $fi
4a90: 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20  le)).           
4aa0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   {.             
4ab0: 20 20 20 69 66 20 28 21 73 65 6c 66 3a 3a 64 65     if (!self::de
4ac0: 6c 65 74 65 52 65 63 75 72 73 69 76 65 28 24 70  leteRecursive($p
4ad0: 61 74 68 20 2e 20 27 2f 27 20 2e 20 24 66 69 6c  ath . '/' . $fil
4ae0: 65 2c 20 74 72 75 65 29 29 0a 20 20 20 20 20 20  e, true)).      
4af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
4b00: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 20 20 20 20  turn false;.    
4b10: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4b20: 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20        else.     
4b30: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
4b40: 20 20 20 20 20 20 20 20 20 75 6e 6c 69 6e 6b 28           unlink(
4b50: 24 70 61 74 68 20 2e 20 27 2f 27 20 2e 20 24 66  $path . '/' . $f
4b60: 69 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20  ile);.          
4b70: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20    }.        }.. 
4b80: 20 20 20 20 20 20 20 24 64 69 72 2d 3e 63 6c 6f         $dir->clo
4b90: 73 65 28 29 3b 0a 20 20 20 20 20 20 20 20 72 6d  se();.        rm
4ba0: 64 69 72 28 24 70 61 74 68 29 3b 0a 0a 20 20 20  dir($path);..   
4bb0: 20 20 20 20 20 72 65 74 75 72 6e 20 74 72 75 65       return true
4bc0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61  ;.    }..    sta
4bd0: 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63 74  tic public funct
4be0: 69 6f 6e 20 70 6c 75 67 69 6e 5f 75 72 6c 28 24  ion plugin_url($
4bf0: 70 61 72 61 6d 73 20 3d 20 5b 5d 29 0a 20 20 20  params = []).   
4c00: 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 69   {.        if (i
4c10: 73 73 65 74 28 24 70 61 72 61 6d 73 5b 27 69 64  sset($params['id
4c20: 27 5d 29 29 0a 20 20 20 20 20 20 20 20 7b 0a 20  '])).        {. 
4c30: 20 20 20 20 20 20 20 20 20 20 20 24 75 72 6c 20             $url 
4c40: 3d 20 57 57 57 5f 55 52 4c 20 2e 20 27 61 64 6d  = WWW_URL . 'adm
4c50: 69 6e 2f 70 6c 75 67 69 6e 2f 27 20 2e 20 24 70  in/plugin/' . $p
4c60: 61 72 61 6d 73 5b 27 69 64 27 5d 20 2e 20 27 2f  arams['id'] . '/
4c70: 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  ';.        }.   
4c80: 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20       else.      
4c90: 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20    {.            
4ca0: 24 75 72 6c 20 3d 20 50 4c 55 47 49 4e 5f 55 52  $url = PLUGIN_UR
4cb0: 4c 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  L;.        }..  
4cc0: 20 20 20 20 20 20 69 66 20 28 21 65 6d 70 74 79        if (!empty
4cd0: 28 24 70 61 72 61 6d 73 5b 27 66 69 6c 65 27 5d  ($params['file']
4ce0: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 24  )).            $
4cf0: 75 72 6c 20 2e 3d 20 24 70 61 72 61 6d 73 5b 27  url .= $params['
4d00: 66 69 6c 65 27 5d 3b 0a 0a 20 20 20 20 20 20 20  file'];..       
4d10: 20 69 66 20 28 21 65 6d 70 74 79 28 24 70 61 72   if (!empty($par
4d20: 61 6d 73 5b 27 71 75 65 72 79 27 5d 29 29 0a 20  ams['query'])). 
4d30: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
4d40: 20 20 20 20 20 24 75 72 6c 20 2e 3d 20 27 3f 27       $url .= '?'
4d50: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 0a 20  ;.            . 
4d60: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 21             if (!
4d70: 28 69 73 5f 6e 75 6d 65 72 69 63 28 24 70 61 72  (is_numeric($par
4d80: 61 6d 73 5b 27 71 75 65 72 79 27 5d 29 20 26 26  ams['query']) &&
4d90: 20 28 69 6e 74 29 24 70 61 72 61 6d 73 5b 27 71   (int)$params['q
4da0: 75 65 72 79 27 5d 20 3d 3d 3d 20 31 29 20 26 26  uery'] === 1) &&
4db0: 20 24 70 61 72 61 6d 73 5b 27 71 75 65 72 79 27   $params['query'
4dc0: 5d 20 21 3d 3d 20 74 72 75 65 29 0a 20 20 20 20  ] !== true).    
4dd0: 20 20 20 20 20 20 20 20 20 20 20 20 24 75 72 6c              $url
4de0: 20 2e 3d 20 24 70 61 72 61 6d 73 5b 27 71 75 65   .= $params['que
4df0: 72 79 27 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a  ry'];.        }.
4e00: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
4e10: 24 75 72 6c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  $url;.    }..   
4e20: 20 73 74 61 74 69 63 20 70 75 62 6c 69 63 20 66   static public f
4e30: 75 6e 63 74 69 6f 6e 20 66 69 6e 64 5f 63 73 76  unction find_csv
4e40: 5f 64 65 6c 69 6d 28 26 24 66 70 29 0a 20 20 20  _delim(&$fp).   
4e50: 20 7b 0a 20 20 20 20 20 20 20 20 24 6c 69 6e 65   {.        $line
4e60: 20 3d 20 27 27 3b 0a 0a 20 20 20 20 20 20 20 20   = '';..        
4e70: 77 68 69 6c 65 20 28 24 6c 69 6e 65 20 3d 3d 3d  while ($line ===
4e80: 20 27 27 20 26 26 20 21 66 65 6f 66 28 24 66 70   '' && !feof($fp
4e90: 29 29 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20  )).        {.   
4ea0: 20 20 20 20 20 20 20 20 20 24 6c 69 6e 65 20 3d           $line =
4eb0: 20 74 72 69 6d 28 66 67 65 74 73 28 24 66 70 2c   trim(fgets($fp,
4ec0: 20 34 30 39 36 29 29 3b 0a 20 20 20 20 20 20 20   4096));.       
4ed0: 20 7d 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20   }.        .    
4ee0: 20 20 20 20 2f 2f 20 44 65 6c 65 74 65 20 74 68      // Delete th
4ef0: 65 20 63 6f 6c 75 6d 6e 73 20 63 6f 6e 74 65 6e  e columns conten
4f00: 74 0a 20 20 20 20 20 20 20 20 24 6c 69 6e 65 20  t.        $line 
4f10: 3d 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28 27  = preg_replace('
4f20: 2f 22 2e 2a 3f 22 2f 27 2c 20 27 27 2c 20 24 6c  /".*?"/', '', $l
4f30: 69 6e 65 29 3b 0a 0a 20 20 20 20 20 20 20 20 24  ine);..        $
4f40: 64 65 6c 69 6d 73 20 3d 20 5b 0a 20 20 20 20 20  delims = [.     
4f50: 20 20 20 20 20 20 20 27 3b 27 20 3d 3e 20 73 75         ';' => su
4f60: 62 73 74 72 5f 63 6f 75 6e 74 28 24 6c 69 6e 65  bstr_count($line
4f70: 2c 20 27 3b 27 29 2c 0a 20 20 20 20 20 20 20 20  , ';'),.        
4f80: 20 20 20 20 27 2c 27 20 3d 3e 20 73 75 62 73 74      ',' => subst
4f90: 72 5f 63 6f 75 6e 74 28 24 6c 69 6e 65 2c 20 27  r_count($line, '
4fa0: 2c 27 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20  ,'),.           
4fb0: 20 22 5c 74 22 3d 3e 20 73 75 62 73 74 72 5f 63   "\t"=> substr_c
4fc0: 6f 75 6e 74 28 24 6c 69 6e 65 2c 20 22 5c 74 22  ount($line, "\t"
4fd0: 29 0a 20 20 20 20 20 20 20 20 5d 3b 0a 0a 20 20  ).        ];..  
4fe0: 20 20 20 20 20 20 61 72 73 6f 72 74 28 24 64 65        arsort($de
4ff0: 6c 69 6d 73 29 3b 0a 20 20 20 20 20 20 20 20 72  lims);.        r
5000: 65 73 65 74 28 24 64 65 6c 69 6d 73 29 3b 0a 0a  eset($delims);..
5010: 20 20 20 20 20 20 20 20 72 65 77 69 6e 64 28 24          rewind($
5020: 66 70 29 3b 0a 0a 20 20 20 20 20 20 20 20 72 65  fp);..        re
5030: 74 75 72 6e 20 6b 65 79 28 24 64 65 6c 69 6d 73  turn key($delims
5040: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74  );.    }..    st
5050: 61 74 69 63 20 70 75 62 6c 69 63 20 66 75 6e 63  atic public func
5060: 74 69 6f 6e 20 73 6b 69 70 5f 62 6f 6d 28 26 24  tion skip_bom(&$
5070: 66 70 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20  fp).    {.      
5080: 20 20 2f 2f 20 53 6b 69 70 20 42 4f 4d 0a 20 20    // Skip BOM.  
5090: 20 20 20 20 20 20 69 66 20 28 66 67 65 74 73 28        if (fgets(
50a0: 24 66 70 2c 20 34 29 20 21 3d 3d 20 63 68 72 28  $fp, 4) !== chr(
50b0: 30 78 45 46 29 20 2e 20 63 68 72 28 30 78 42 42  0xEF) . chr(0xBB
50c0: 29 20 2e 20 63 68 72 28 30 78 42 46 29 29 0a 20  ) . chr(0xBF)). 
50d0: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
50e0: 20 20 20 20 20 66 73 65 65 6b 28 24 66 70 2c 20       fseek($fp, 
50f0: 30 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  0);.        }.  
5100: 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 69 63 20    }..    static 
5110: 70 75 62 6c 69 63 20 66 75 6e 63 74 69 6f 6e 20  public function 
5120: 72 6f 77 5f 74 6f 5f 63 73 76 28 24 72 6f 77 29  row_to_csv($row)
5130: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 24  .    {.        $
5140: 72 6f 77 20 3d 20 28 61 72 72 61 79 29 20 24 72  row = (array) $r
5150: 6f 77 3b 0a 0a 20 20 20 20 20 20 20 20 61 72 72  ow;..        arr
5160: 61 79 5f 77 61 6c 6b 28 24 72 6f 77 2c 20 66 75  ay_walk($row, fu
5170: 6e 63 74 69 6f 6e 20 28 24 66 69 65 6c 64 29 20  nction ($field) 
5180: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  {.            re
5190: 74 75 72 6e 20 73 74 72 74 72 28 24 66 69 65 6c  turn strtr($fiel
51a0: 64 2c 20 5b 27 22 27 20 3d 3e 20 27 22 22 27 2c  d, ['"' => '""',
51b0: 20 22 5c 72 5c 6e 22 20 3d 3e 20 22 5c 6e 22 5d   "\r\n" => "\n"]
51c0: 29 3b 0a 20 20 20 20 20 20 20 20 7d 29 3b 0a 0a  );.        });..
51d0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 27          return '
51e0: 22 27 20 2e 20 69 6d 70 6c 6f 64 65 28 27 22 2c  "' . implode('",
51f0: 20 22 27 2c 20 24 72 6f 77 29 20 2e 20 27 22 27   "', $row) . '"'
5200: 3b 0a 20 20 20 20 7d 0a 7d 0a                    ;.    }.}.