Subs-Package.php 97 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157
  1. <?php
  2. /**
  3. * This file's central purpose of existence is that of making the package
  4. * manager work nicely. It contains functions for handling tar.gz and zip
  5. * files, as well as a simple xml parser to handle the xml package stuff.
  6. * Not to mention a few functions to make file handling easier.
  7. *
  8. * Simple Machines Forum (SMF)
  9. *
  10. * @package SMF
  11. * @author Simple Machines http://www.simplemachines.org
  12. * @copyright 2012 Simple Machines
  13. * @license http://www.simplemachines.org/about/smf/license.php BSD
  14. *
  15. * @version 2.1 Alpha 1
  16. */
  17. if (!defined('SMF'))
  18. die('Hacking attempt...');
  19. /**
  20. * Reads a .tar.gz file, filename, in and extracts file(s) from it.
  21. * essentially just a shortcut for read_tgz_data().
  22. * @param string $filename
  23. * @param string $destination
  24. * @param bool $single_file = false
  25. * @param bool $overwrite = false
  26. * @param array $files_to_extract = null
  27. */
  28. function read_tgz_file($gzfilename, $destination, $single_file = false, $overwrite = false, $files_to_extract = null)
  29. {
  30. if (substr($gzfilename, 0, 7) == 'http://')
  31. {
  32. $data = fetch_web_data($gzfilename);
  33. if ($data === false)
  34. return false;
  35. }
  36. else
  37. {
  38. $data = @file_get_contents($gzfilename);
  39. if ($data === false)
  40. return false;
  41. }
  42. return read_tgz_data($data, $destination, $single_file, $overwrite, $files_to_extract);
  43. }
  44. /**
  45. * Extracts a file or files from the .tar.gz contained in data.
  46. *
  47. * detects if the file is really a .zip file, and if so returns the result of read_zip_data
  48. *
  49. * if destination is null
  50. * - returns a list of files in the archive.
  51. *
  52. * if single_file is true
  53. * - returns the contents of the file specified by destination, if it exists, or false.
  54. * - destination can start with * and / to signify that the file may come from any directory.
  55. * - destination should not begin with a / if single_file is true.
  56. *
  57. * overwrites existing files with newer modification times if and only if overwrite is true.
  58. * creates the destination directory if it doesn't exist, and is is specified.
  59. * requires zlib support be built into PHP.
  60. * returns an array of the files extracted.
  61. * if files_to_extract is not equal to null only extracts file within this array.
  62. *
  63. * @param string data,
  64. * @param string destination,
  65. * @param bool single_file = false,
  66. * @param bool overwrite = false,
  67. * @param array files_to_extract = null
  68. * @return array
  69. */
  70. function read_tgz_data($data, $destination, $single_file = false, $overwrite = false, $files_to_extract = null)
  71. {
  72. // Make sure we have this loaded.
  73. loadLanguage('Packages');
  74. // This function sorta needs gzinflate!
  75. if (!function_exists('gzinflate'))
  76. fatal_lang_error('package_no_zlib', 'critical');
  77. umask(0);
  78. if (!$single_file && $destination !== null && !file_exists($destination))
  79. mktree($destination, 0777);
  80. // No signature?
  81. if (strlen($data) < 2)
  82. return false;
  83. $id = unpack('H2a/H2b', substr($data, 0, 2));
  84. if (strtolower($id['a'] . $id['b']) != '1f8b')
  85. {
  86. // Okay, this ain't no tar.gz, but maybe it's a zip file.
  87. if (substr($data, 0, 2) == 'PK')
  88. return read_zip_data($data, $destination, $single_file, $overwrite, $files_to_extract);
  89. else
  90. return false;
  91. }
  92. $flags = unpack('Ct/Cf', substr($data, 2, 2));
  93. // Not deflate!
  94. if ($flags['t'] != 8)
  95. return false;
  96. $flags = $flags['f'];
  97. $offset = 10;
  98. $octdec = array('mode', 'uid', 'gid', 'size', 'mtime', 'checksum', 'type');
  99. // "Read" the filename and comment.
  100. // @todo Might be mussed.
  101. if ($flags & 12)
  102. {
  103. while ($flags & 8 && $data{$offset++} != "\0")
  104. continue;
  105. while ($flags & 4 && $data{$offset++} != "\0")
  106. continue;
  107. }
  108. $crc = unpack('Vcrc32/Visize', substr($data, strlen($data) - 8, 8));
  109. $data = @gzinflate(substr($data, $offset, strlen($data) - 8 - $offset));
  110. // smf_crc32 and crc32 may not return the same results, so we accept either.
  111. if ($crc['crc32'] != smf_crc32($data) && $crc['crc32'] != crc32($data))
  112. return false;
  113. $blocks = strlen($data) / 512 - 1;
  114. $offset = 0;
  115. $return = array();
  116. while ($offset < $blocks)
  117. {
  118. $header = substr($data, $offset << 9, 512);
  119. $current = unpack('a100filename/a8mode/a8uid/a8gid/a12size/a12mtime/a8checksum/a1type/a100linkname/a6magic/a2version/a32uname/a32gname/a8devmajor/a8devminor/a155path', $header);
  120. // Blank record? This is probably at the end of the file.
  121. if (empty($current['filename']))
  122. {
  123. $offset += 512;
  124. continue;
  125. }
  126. if ($current['type'] == 5 && substr($current['filename'], -1) != '/')
  127. $current['filename'] .= '/';
  128. foreach ($current as $k => $v)
  129. {
  130. if (in_array($k, $octdec))
  131. $current[$k] = octdec(trim($v));
  132. else
  133. $current[$k] = trim($v);
  134. }
  135. $checksum = 256;
  136. for ($i = 0; $i < 148; $i++)
  137. $checksum += ord($header{$i});
  138. for ($i = 156; $i < 512; $i++)
  139. $checksum += ord($header{$i});
  140. if ($current['checksum'] != $checksum)
  141. break;
  142. $size = ceil($current['size'] / 512);
  143. $current['data'] = substr($data, ++$offset << 9, $current['size']);
  144. $offset += $size;
  145. // Not a directory and doesn't exist already...
  146. if (substr($current['filename'], -1, 1) != '/' && !file_exists($destination . '/' . $current['filename']))
  147. $write_this = true;
  148. // File exists... check if it is newer.
  149. elseif (substr($current['filename'], -1, 1) != '/')
  150. $write_this = $overwrite || filemtime($destination . '/' . $current['filename']) < $current['mtime'];
  151. // Folder... create.
  152. elseif ($destination !== null && !$single_file)
  153. {
  154. // Protect from accidental parent directory writing...
  155. $current['filename'] = strtr($current['filename'], array('../' => '', '/..' => ''));
  156. if (!file_exists($destination . '/' . $current['filename']))
  157. mktree($destination . '/' . $current['filename'], 0777);
  158. $write_this = false;
  159. }
  160. else
  161. $write_this = false;
  162. if ($write_this && $destination !== null)
  163. {
  164. if (strpos($current['filename'], '/') !== false && !$single_file)
  165. mktree($destination . '/' . dirname($current['filename']), 0777);
  166. // Is this the file we're looking for?
  167. if ($single_file && ($destination == $current['filename'] || $destination == '*/' . basename($current['filename'])))
  168. return $current['data'];
  169. // If we're looking for another file, keep going.
  170. elseif ($single_file)
  171. continue;
  172. // Looking for restricted files?
  173. elseif ($files_to_extract !== null && !in_array($current['filename'], $files_to_extract))
  174. continue;
  175. package_put_contents($destination . '/' . $current['filename'], $current['data']);
  176. }
  177. if (substr($current['filename'], -1, 1) != '/')
  178. $return[] = array(
  179. 'filename' => $current['filename'],
  180. 'md5' => md5($current['data']),
  181. 'preview' => substr($current['data'], 0, 100),
  182. 'size' => $current['size'],
  183. 'skipped' => false
  184. );
  185. }
  186. if ($destination !== null && !$single_file)
  187. package_flush_cache();
  188. if ($single_file)
  189. return false;
  190. else
  191. return $return;
  192. }
  193. // Extract zip data. If destination is null, return a listing.
  194. function read_zip_data($data, $destination, $single_file = false, $overwrite = false, $files_to_extract = null)
  195. {
  196. umask(0);
  197. if ($destination !== null && !file_exists($destination) && !$single_file)
  198. mktree($destination, 0777);
  199. // Look for the end of directory signature 0x06054b50
  200. $data_ecr = explode("\x50\x4b\x05\x06", $data);
  201. if (!isset($data_ecr[1]))
  202. return false;
  203. $return = array();
  204. // Get all the basic zip file info since we are here
  205. $zip_info = unpack('vdisks/vrecords/vfiles/Vsize/Voffset/vcomment_length/', $data_ecr[1]);
  206. // Cut file at the central directory file header signature -- 0x02014b50, use unpack if you want any of the data, we don't
  207. $file_sections = explode("\x50\x4b\x01\x02", $data);
  208. // Cut the result on each local file header -- 0x04034b50 so we have each file in the archive as an element.
  209. $file_sections = explode("\x50\x4b\x03\x04", $file_sections[0]);
  210. array_shift($file_sections);
  211. // sections and count from the signature must match or the zip file is bad
  212. if (count($file_sections) != $zip_info['files'])
  213. return false;
  214. // go though each file in the archive
  215. foreach ($file_sections as $data)
  216. {
  217. // Get all the important file information.
  218. $file_info = unpack("vversion/vgeneral_purpose/vcompress_method/vfile_time/vfile_date/Vcrc/Vcompressed_size/Vsize/vfilename_length/vextrafield_length", $data);
  219. $file_info['filename'] = substr($data, 26, $file_info['filename_length']);
  220. $file_info['dir'] = $destination . '/' . dirname($file_info['filename']);
  221. // If bit 3 (0x08) of the general-purpose flag is set, then the CRC and file size were not available when the header was written
  222. // In this case the CRC and size are instead appended in a 12-byte structure immediately after the compressed data
  223. if ($file_info['general_purpose'] & 0x0008)
  224. {
  225. $unzipped2 = unpack("Vcrc/Vcompressed_size/Vsize", substr($$data, -12));
  226. $file_info['crc'] = $unzipped2['crc'];
  227. $file_info['compressed_size'] = $unzipped2['compressed_size'];
  228. $file_info['size'] = $unzipped2['size'];
  229. unset($unzipped2);
  230. }
  231. // If this is a file, and it doesn't exist.... happy days!
  232. if (substr($file_info['filename'], -1) != '/' && !file_exists($destination . '/' . $file_info['filename']))
  233. $write_this = true;
  234. // If the file exists, we may not want to overwrite it.
  235. elseif (substr($file_info['filename'], -1) != '/')
  236. $write_this = $overwrite;
  237. // This is a directory, so we're gonna want to create it. (probably...)
  238. elseif ($destination !== null && !$single_file)
  239. {
  240. // Just a little accident prevention, don't mind me.
  241. $file_info['filename'] = strtr($file_info['filename'], array('../' => '', '/..' => ''));
  242. if (!file_exists($destination . '/' . $file_info['filename']))
  243. mktree($destination . '/' . $file_info['filename'], 0777);
  244. $write_this = false;
  245. }
  246. else
  247. $write_this = false;
  248. // Get the actual compressed data.
  249. $file_info['data'] = substr($data, 26 + $file_info['filename_length'] + $file_info['extrafield_length']);
  250. // Only inflate it if we need to ;)
  251. if (!empty($file_info['compress_method']) || ($file_info['compressed_size'] != $file_info['size']))
  252. $file_info['data'] = gzinflate($file_info['data']);
  253. // Okay! We can write this file, looks good from here...
  254. if ($write_this && $destination !== null)
  255. {
  256. if ((strpos($file_info['filename'], '/') !== false && !$single_file) || (!$single_file && !is_dir($file_info['dir'])))
  257. mktree($file_info['dir'], 0777);
  258. // If we're looking for a specific file, and this is it... ka-bam, baby.
  259. if ($single_file && ($destination == $file_info['filename'] || $destination == '*/' . basename($file_info['filename'])))
  260. return $file_info['data'];
  261. // Oh? Another file. Fine. You don't like this file, do you? I know how it is. Yeah... just go away. No, don't apologize. I know this file's just not *good enough* for you.
  262. elseif ($single_file)
  263. continue;
  264. // Don't really want this?
  265. elseif ($files_to_extract !== null && !in_array($file_info['filename'], $files_to_extract))
  266. continue;
  267. package_put_contents($destination . '/' . $file_info['filename'], $file_info['data']);
  268. }
  269. if (substr($file_info['filename'], -1, 1) != '/')
  270. $return[] = array(
  271. 'filename' => $file_info['filename'],
  272. 'md5' => md5($file_info['data']),
  273. 'preview' => substr($file_info['data'], 0, 100),
  274. 'size' => $file_info['size'],
  275. 'skipped' => false
  276. );
  277. }
  278. if ($destination !== null && !$single_file)
  279. package_flush_cache();
  280. if ($single_file)
  281. return false;
  282. else
  283. return $return;
  284. }
  285. /**
  286. * Checks the existence of a remote file since file_exists() does not do remote.
  287. * will return false if the file is "moved permanently" or similar.
  288. * @param string url
  289. * @return bool true if the remote url exists.
  290. */
  291. function url_exists($url)
  292. {
  293. $a_url = parse_url($url);
  294. if (!isset($a_url['scheme']))
  295. return false;
  296. // Attempt to connect...
  297. $temp = '';
  298. $fid = fsockopen($a_url['host'], !isset($a_url['port']) ? 80 : $a_url['port'], $temp, $temp, 8);
  299. if (!$fid)
  300. return false;
  301. fputs($fid, 'HEAD ' . $a_url['path'] . ' HTTP/1.0' . "\r\n" . 'Host: ' . $a_url['host'] . "\r\n\r\n");
  302. $head = fread($fid, 1024);
  303. fclose($fid);
  304. return preg_match('~^HTTP/.+\s+(20[01]|30[127])~i', $head) == 1;
  305. }
  306. /**
  307. * Loads and returns an array of installed packages.
  308. * - gets this information from Packages/installed.list.
  309. * - returns the array of data.
  310. * - default sort order is package_installed time
  311. *
  312. * @return array
  313. */
  314. function loadInstalledPackages()
  315. {
  316. global $boarddir, $smcFunc;
  317. // First, check that the database is valid, installed.list is still king.
  318. $install_file = implode('', file($boarddir . '/Packages/installed.list'));
  319. if (trim($install_file) == '')
  320. {
  321. $smcFunc['db_query']('', '
  322. UPDATE {db_prefix}log_packages
  323. SET install_state = {int:not_installed}',
  324. array(
  325. 'not_installed' => 0,
  326. )
  327. );
  328. // Don't have anything left, so send an empty array.
  329. return array();
  330. }
  331. // Load the packages from the database - note this is ordered by install time to ensure latest package uninstalled first.
  332. $request = $smcFunc['db_query']('', '
  333. SELECT id_install, package_id, filename, name, version
  334. FROM {db_prefix}log_packages
  335. WHERE install_state != {int:not_installed}
  336. ORDER BY time_installed DESC',
  337. array(
  338. 'not_installed' => 0,
  339. )
  340. );
  341. $installed = array();
  342. $found = array();
  343. while ($row = $smcFunc['db_fetch_assoc']($request))
  344. {
  345. // Already found this? If so don't add it twice!
  346. if (in_array($row['package_id'], $found))
  347. continue;
  348. $found[] = $row['package_id'];
  349. $installed[] = array(
  350. 'id' => $row['id_install'],
  351. 'name' => $row['name'],
  352. 'filename' => $row['filename'],
  353. 'package_id' => $row['package_id'],
  354. 'version' => $row['version'],
  355. );
  356. }
  357. $smcFunc['db_free_result']($request);
  358. return $installed;
  359. }
  360. /**
  361. * Loads a package's information and returns a representative array.
  362. * - expects the file to be a package in Packages/.
  363. * - returns a error string if the package-info is invalid.
  364. * - otherwise returns a basic array of id, version, filename, and similar information.
  365. * - an xmlArray is available in 'xml'.
  366. *
  367. * @param string $filename
  368. * @return array
  369. */
  370. function getPackageInfo($gzfilename)
  371. {
  372. global $boarddir, $sourcedir, $smcFunc;
  373. // Extract package-info.xml from downloaded file. (*/ is used because it could be in any directory.)
  374. if (strpos($gzfilename, 'http://') !== false)
  375. $packageInfo = read_tgz_data(fetch_web_data($gzfilename, '', true), '*/package-info.xml', true);
  376. else
  377. {
  378. if (!file_exists($boarddir . '/Packages/' . $gzfilename))
  379. return 'package_get_error_not_found';
  380. if (is_file($boarddir . '/Packages/' . $gzfilename))
  381. $packageInfo = read_tgz_file($boarddir . '/Packages/' . $gzfilename, '*/package-info.xml', true);
  382. elseif (file_exists($boarddir . '/Packages/' . $gzfilename . '/package-info.xml'))
  383. $packageInfo = file_get_contents($boarddir . '/Packages/' . $gzfilename . '/package-info.xml');
  384. else
  385. return 'package_get_error_missing_xml';
  386. }
  387. // Nothing?
  388. if (empty($packageInfo))
  389. {
  390. // Perhaps they are trying to install a theme, lets tell them nicely this is the wrong function
  391. $packageInfo = read_tgz_file($boarddir . '/Packages/' . $gzfilename, '*/theme_info.xml', true);
  392. if (!empty($packageInfo))
  393. return 'package_get_error_is_theme';
  394. else
  395. return 'package_get_error_is_zero';
  396. }
  397. // Parse package-info.xml into an xmlArray.
  398. require_once($sourcedir . '/Class-Package.php');
  399. $packageInfo = new xmlArray($packageInfo);
  400. // @todo Error message of some sort?
  401. if (!$packageInfo->exists('package-info[0]'))
  402. return 'package_get_error_packageinfo_corrupt';
  403. $packageInfo = $packageInfo->path('package-info[0]');
  404. $package = $packageInfo->to_array();
  405. $package['xml'] = $packageInfo;
  406. $package['filename'] = $gzfilename;
  407. $package['name'] = $smcFunc['htmlspecialchars']($package['name']);
  408. if (!isset($package['type']))
  409. $package['type'] = 'modification';
  410. return $package;
  411. }
  412. // Create a chmod control for chmoding files.
  413. function create_chmod_control($chmodFiles = array(), $chmodOptions = array(), $restore_write_status = false)
  414. {
  415. global $context, $modSettings, $package_ftp, $boarddir, $txt, $sourcedir, $scripturl;
  416. // If we're restoring the status of existing files prepare the data.
  417. if ($restore_write_status && isset($_SESSION['pack_ftp']) && !empty($_SESSION['pack_ftp']['original_perms']))
  418. {
  419. function list_restoreFiles($dummy1, $dummy2, $dummy3, $do_change)
  420. {
  421. global $txt;
  422. $restore_files = array();
  423. foreach ($_SESSION['pack_ftp']['original_perms'] as $file => $perms)
  424. {
  425. // Check the file still exists, and the permissions were indeed different than now.
  426. $file_permissions = @fileperms($file);
  427. if (!file_exists($file) || $file_permissions == $perms)
  428. {
  429. unset($_SESSION['pack_ftp']['original_perms'][$file]);
  430. continue;
  431. }
  432. // Are we wanting to change the permission?
  433. if ($do_change && isset($_POST['restore_files']) && in_array($file, $_POST['restore_files']))
  434. {
  435. // Use FTP if we have it.
  436. // @todo where does $package_ftp get set?
  437. if (!empty($package_ftp))
  438. {
  439. $ftp_file = strtr($file, array($_SESSION['pack_ftp']['root'] => ''));
  440. $package_ftp->chmod($ftp_file, $perms);
  441. }
  442. else
  443. @chmod($file, $perms);
  444. $new_permissions = @fileperms($file);
  445. $result = $new_permissions == $perms ? 'success' : 'failure';
  446. unset($_SESSION['pack_ftp']['original_perms'][$file]);
  447. }
  448. elseif ($do_change)
  449. {
  450. $new_permissions = '';
  451. $result = 'skipped';
  452. unset($_SESSION['pack_ftp']['original_perms'][$file]);
  453. }
  454. // Record the results!
  455. $restore_files[] = array(
  456. 'path' => $file,
  457. 'old_perms_raw' => $perms,
  458. 'old_perms' => substr(sprintf('%o', $perms), -4),
  459. 'cur_perms' => substr(sprintf('%o', $file_permissions), -4),
  460. 'new_perms' => isset($new_permissions) ? substr(sprintf('%o', $new_permissions), -4) : '',
  461. 'result' => isset($result) ? $result : '',
  462. 'writable_message' => '<span style="color: ' . (@is_writable($file) ? 'green' : 'red') . '">' . (@is_writable($file) ? $txt['package_file_perms_writable'] : $txt['package_file_perms_not_writable']) . '</span>',
  463. );
  464. }
  465. return $restore_files;
  466. }
  467. $listOptions = array(
  468. 'id' => 'restore_file_permissions',
  469. 'title' => $txt['package_restore_permissions'],
  470. 'get_items' => array(
  471. 'function' => 'list_restoreFiles',
  472. 'params' => array(
  473. !empty($_POST['restore_perms']),
  474. ),
  475. ),
  476. 'columns' => array(
  477. 'path' => array(
  478. 'header' => array(
  479. 'value' => $txt['package_restore_permissions_filename'],
  480. ),
  481. 'data' => array(
  482. 'db' => 'path',
  483. 'class' => 'smalltext',
  484. ),
  485. ),
  486. 'old_perms' => array(
  487. 'header' => array(
  488. 'value' => $txt['package_restore_permissions_orig_status'],
  489. ),
  490. 'data' => array(
  491. 'db' => 'old_perms',
  492. 'class' => 'smalltext',
  493. ),
  494. ),
  495. 'cur_perms' => array(
  496. 'header' => array(
  497. 'value' => $txt['package_restore_permissions_cur_status'],
  498. ),
  499. 'data' => array(
  500. 'function' => create_function('$rowData', '
  501. global $txt;
  502. $formatTxt = $rowData[\'result\'] == \'\' || $rowData[\'result\'] == \'skipped\' ? $txt[\'package_restore_permissions_pre_change\'] : $txt[\'package_restore_permissions_post_change\'];
  503. return sprintf($formatTxt, $rowData[\'cur_perms\'], $rowData[\'new_perms\'], $rowData[\'writable_message\']);
  504. '),
  505. 'class' => 'smalltext',
  506. ),
  507. ),
  508. 'check' => array(
  509. 'header' => array(
  510. 'value' => '<input type="checkbox" onclick="invertAll(this, this.form);" class="input_check" />',
  511. ),
  512. 'data' => array(
  513. 'sprintf' => array(
  514. 'format' => '<input type="checkbox" name="restore_files[]" value="%1$s" class="input_check" />',
  515. 'params' => array(
  516. 'path' => false,
  517. ),
  518. ),
  519. 'style' => 'text-align: center',
  520. ),
  521. ),
  522. 'result' => array(
  523. 'header' => array(
  524. 'value' => $txt['package_restore_permissions_result'],
  525. ),
  526. 'data' => array(
  527. 'function' => create_function('$rowData', '
  528. global $txt;
  529. return $txt[\'package_restore_permissions_action_\' . $rowData[\'result\']];
  530. '),
  531. 'class' => 'smalltext',
  532. ),
  533. ),
  534. ),
  535. 'form' => array(
  536. 'href' => !empty($chmodOptions['destination_url']) ? $chmodOptions['destination_url'] : $scripturl . '?action=admin;area=packages;sa=perms;restore;' . $context['session_var'] . '=' . $context['session_id'],
  537. ),
  538. 'additional_rows' => array(
  539. array(
  540. 'position' => 'below_table_data',
  541. 'value' => '<input type="submit" name="restore_perms" value="' . $txt['package_restore_permissions_restore'] . '" class="button_submit" />',
  542. 'class' => 'titlebg',
  543. 'style' => 'text-align: right;',
  544. ),
  545. array(
  546. 'position' => 'after_title',
  547. 'value' => '<span class="smalltext">' . $txt['package_restore_permissions_desc'] . '</span>',
  548. 'class' => 'windowbg2',
  549. ),
  550. ),
  551. );
  552. // Work out what columns and the like to show.
  553. if (!empty($_POST['restore_perms']))
  554. {
  555. $listOptions['additional_rows'][1]['value'] = sprintf($txt['package_restore_permissions_action_done'], $scripturl . '?action=admin;area=packages;sa=perms;' . $context['session_var'] . '=' . $context['session_id']);
  556. unset($listOptions['columns']['check'], $listOptions['form'], $listOptions['additional_rows'][0]);
  557. $context['sub_template'] = 'show_list';
  558. $context['default_list'] = 'restore_file_permissions';
  559. }
  560. else
  561. {
  562. unset($listOptions['columns']['result']);
  563. }
  564. // Create the list for display.
  565. require_once($sourcedir . '/Subs-List.php');
  566. createList($listOptions);
  567. // If we just restored permissions then whereever we are, we are now done and dusted.
  568. if (!empty($_POST['restore_perms']))
  569. obExit();
  570. }
  571. // Otherwise, it's entirely irrelevant?
  572. elseif ($restore_write_status)
  573. return true;
  574. // This is where we report what we got up to.
  575. $return_data = array(
  576. 'files' => array(
  577. 'writable' => array(),
  578. 'notwritable' => array(),
  579. ),
  580. );
  581. // If we have some FTP information already, then let's assume it was required and try to get ourselves connected.
  582. if (!empty($_SESSION['pack_ftp']['connected']))
  583. {
  584. // Load the file containing the ftp_connection class.
  585. require_once($sourcedir . '/Class-Package.php');
  586. $package_ftp = new ftp_connection($_SESSION['pack_ftp']['server'], $_SESSION['pack_ftp']['port'], $_SESSION['pack_ftp']['username'], package_crypt($_SESSION['pack_ftp']['password']));
  587. }
  588. // Just got a submission did we?
  589. if (empty($package_ftp) && isset($_POST['ftp_username']))
  590. {
  591. require_once($sourcedir . '/Class-Package.php');
  592. $ftp = new ftp_connection($_POST['ftp_server'], $_POST['ftp_port'], $_POST['ftp_username'], $_POST['ftp_password']);
  593. // We're connected, jolly good!
  594. if ($ftp->error === false)
  595. {
  596. // Common mistake, so let's try to remedy it...
  597. if (!$ftp->chdir($_POST['ftp_path']))
  598. {
  599. $ftp_error = $ftp->last_message;
  600. $ftp->chdir(preg_replace('~^/home[2]?/[^/]+?~', '', $_POST['ftp_path']));
  601. }
  602. if (!in_array($_POST['ftp_path'], array('', '/')))
  603. {
  604. $ftp_root = strtr($boarddir, array($_POST['ftp_path'] => ''));
  605. if (substr($ftp_root, -1) == '/' && ($_POST['ftp_path'] == '' || substr($_POST['ftp_path'], 0, 1) == '/'))
  606. $ftp_root = substr($ftp_root, 0, -1);
  607. }
  608. else
  609. $ftp_root = $boarddir;
  610. $_SESSION['pack_ftp'] = array(
  611. 'server' => $_POST['ftp_server'],
  612. 'port' => $_POST['ftp_port'],
  613. 'username' => $_POST['ftp_username'],
  614. 'password' => package_crypt($_POST['ftp_password']),
  615. 'path' => $_POST['ftp_path'],
  616. 'root' => $ftp_root,
  617. 'connected' => true,
  618. );
  619. if (!isset($modSettings['package_path']) || $modSettings['package_path'] != $_POST['ftp_path'])
  620. updateSettings(array('package_path' => $_POST['ftp_path']));
  621. // This is now the primary connection.
  622. $package_ftp = $ftp;
  623. }
  624. }
  625. // Now try to simply make the files writable, with whatever we might have.
  626. if (!empty($chmodFiles))
  627. {
  628. foreach ($chmodFiles as $k => $file)
  629. {
  630. // Sometimes this can somehow happen maybe?
  631. if (empty($file))
  632. unset($chmodFiles[$k]);
  633. // Already writable?
  634. elseif (@is_writable($file))
  635. $return_data['files']['writable'][] = $file;
  636. else
  637. {
  638. // Now try to change that.
  639. $return_data['files'][package_chmod($file, 'writable', true) ? 'writable' : 'notwritable'][] = $file;
  640. }
  641. }
  642. }
  643. // Have we still got nasty files which ain't writable? Dear me we need more FTP good sir.
  644. if (empty($package_ftp) && (!empty($return_data['files']['notwritable']) || !empty($chmodOptions['force_find_error'])))
  645. {
  646. if (!isset($ftp) || $ftp->error !== false)
  647. {
  648. if (!isset($ftp))
  649. {
  650. require_once($sourcedir . '/Class-Package.php');
  651. $ftp = new ftp_connection(null);
  652. }
  653. elseif ($ftp->error !== false && !isset($ftp_error))
  654. $ftp_error = $ftp->last_message === null ? '' : $ftp->last_message;
  655. list ($username, $detect_path, $found_path) = $ftp->detect_path($boarddir);
  656. if ($found_path)
  657. $_POST['ftp_path'] = $detect_path;
  658. elseif (!isset($_POST['ftp_path']))
  659. $_POST['ftp_path'] = isset($modSettings['package_path']) ? $modSettings['package_path'] : $detect_path;
  660. if (!isset($_POST['ftp_username']))
  661. $_POST['ftp_username'] = $username;
  662. }
  663. $context['package_ftp'] = array(
  664. 'server' => isset($_POST['ftp_server']) ? $_POST['ftp_server'] : (isset($modSettings['package_server']) ? $modSettings['package_server'] : 'localhost'),
  665. 'port' => isset($_POST['ftp_port']) ? $_POST['ftp_port'] : (isset($modSettings['package_port']) ? $modSettings['package_port'] : '21'),
  666. 'username' => isset($_POST['ftp_username']) ? $_POST['ftp_username'] : (isset($modSettings['package_username']) ? $modSettings['package_username'] : ''),
  667. 'path' => $_POST['ftp_path'],
  668. 'error' => empty($ftp_error) ? null : $ftp_error,
  669. 'destination' => !empty($chmodOptions['destination_url']) ? $chmodOptions['destination_url'] : '',
  670. );
  671. // Which files failed?
  672. if (!isset($context['notwritable_files']))
  673. $context['notwritable_files'] = array();
  674. $context['notwritable_files'] = array_merge($context['notwritable_files'], $return_data['files']['notwritable']);
  675. // Sent here to die?
  676. if (!empty($chmodOptions['crash_on_error']))
  677. {
  678. $context['page_title'] = $txt['package_ftp_necessary'];
  679. $context['sub_template'] = 'ftp_required';
  680. obExit();
  681. }
  682. }
  683. return $return_data;
  684. }
  685. /**
  686. * @param string $destination_url
  687. * @param array $files = none
  688. * @param bool $return = false
  689. */
  690. function packageRequireFTP($destination_url, $files = null, $return = false)
  691. {
  692. global $context, $modSettings, $package_ftp, $boarddir, $txt, $sourcedir;
  693. // Try to make them writable the manual way.
  694. if ($files !== null)
  695. {
  696. foreach ($files as $k => $file)
  697. {
  698. // If this file doesn't exist, then we actually want to look at the directory, no?
  699. if (!file_exists($file))
  700. $file = dirname($file);
  701. // This looks odd, but it's an attempt to work around PHP suExec.
  702. if (!@is_writable($file))
  703. @chmod($file, 0755);
  704. if (!@is_writable($file))
  705. @chmod($file, 0777);
  706. if (!@is_writable(dirname($file)))
  707. @chmod($file, 0755);
  708. if (!@is_writable(dirname($file)))
  709. @chmod($file, 0777);
  710. $fp = is_dir($file) ? @opendir($file) : @fopen($file, 'rb');
  711. if (@is_writable($file) && $fp)
  712. {
  713. unset($files[$k]);
  714. if (!is_dir($file))
  715. fclose($fp);
  716. else
  717. closedir($fp);
  718. }
  719. }
  720. // No FTP required!
  721. if (empty($files))
  722. return array();
  723. }
  724. // They've opted to not use FTP, and try anyway.
  725. if (isset($_SESSION['pack_ftp']) && $_SESSION['pack_ftp'] == false)
  726. {
  727. if ($files === null)
  728. return array();
  729. foreach ($files as $k => $file)
  730. {
  731. // This looks odd, but it's an attempt to work around PHP suExec.
  732. if (!file_exists($file))
  733. {
  734. mktree(dirname($file), 0755);
  735. @touch($file);
  736. @chmod($file, 0755);
  737. }
  738. if (!@is_writable($file))
  739. @chmod($file, 0777);
  740. if (!@is_writable(dirname($file)))
  741. @chmod(dirname($file), 0777);
  742. if (@is_writable($file))
  743. unset($files[$k]);
  744. }
  745. return $files;
  746. }
  747. elseif (isset($_SESSION['pack_ftp']))
  748. {
  749. // Load the file containing the ftp_connection class.
  750. require_once($sourcedir . '/Class-Package.php');
  751. $package_ftp = new ftp_connection($_SESSION['pack_ftp']['server'], $_SESSION['pack_ftp']['port'], $_SESSION['pack_ftp']['username'], package_crypt($_SESSION['pack_ftp']['password']));
  752. if ($files === null)
  753. return array();
  754. foreach ($files as $k => $file)
  755. {
  756. $ftp_file = strtr($file, array($_SESSION['pack_ftp']['root'] => ''));
  757. // This looks odd, but it's an attempt to work around PHP suExec.
  758. if (!file_exists($file))
  759. {
  760. mktree(dirname($file), 0755);
  761. $package_ftp->create_file($ftp_file);
  762. $package_ftp->chmod($ftp_file, 0755);
  763. }
  764. if (!@is_writable($file))
  765. $package_ftp->chmod($ftp_file, 0777);
  766. if (!@is_writable(dirname($file)))
  767. $package_ftp->chmod(dirname($ftp_file), 0777);
  768. if (@is_writable($file))
  769. unset($files[$k]);
  770. }
  771. return $files;
  772. }
  773. if (isset($_POST['ftp_none']))
  774. {
  775. $_SESSION['pack_ftp'] = false;
  776. $files = packageRequireFTP($destination_url, $files, $return);
  777. return $files;
  778. }
  779. elseif (isset($_POST['ftp_username']))
  780. {
  781. require_once($sourcedir . '/Class-Package.php');
  782. $ftp = new ftp_connection($_POST['ftp_server'], $_POST['ftp_port'], $_POST['ftp_username'], $_POST['ftp_password']);
  783. if ($ftp->error === false)
  784. {
  785. // Common mistake, so let's try to remedy it...
  786. if (!$ftp->chdir($_POST['ftp_path']))
  787. {
  788. $ftp_error = $ftp->last_message;
  789. $ftp->chdir(preg_replace('~^/home[2]?/[^/]+?~', '', $_POST['ftp_path']));
  790. }
  791. }
  792. }
  793. if (!isset($ftp) || $ftp->error !== false)
  794. {
  795. if (!isset($ftp))
  796. {
  797. require_once($sourcedir . '/Class-Package.php');
  798. $ftp = new ftp_connection(null);
  799. }
  800. elseif ($ftp->error !== false && !isset($ftp_error))
  801. $ftp_error = $ftp->last_message === null ? '' : $ftp->last_message;
  802. list ($username, $detect_path, $found_path) = $ftp->detect_path($boarddir);
  803. if ($found_path)
  804. $_POST['ftp_path'] = $detect_path;
  805. elseif (!isset($_POST['ftp_path']))
  806. $_POST['ftp_path'] = isset($modSettings['package_path']) ? $modSettings['package_path'] : $detect_path;
  807. if (!isset($_POST['ftp_username']))
  808. $_POST['ftp_username'] = $username;
  809. $context['package_ftp'] = array(
  810. 'server' => isset($_POST['ftp_server']) ? $_POST['ftp_server'] : (isset($modSettings['package_server']) ? $modSettings['package_server'] : 'localhost'),
  811. 'port' => isset($_POST['ftp_port']) ? $_POST['ftp_port'] : (isset($modSettings['package_port']) ? $modSettings['package_port'] : '21'),
  812. 'username' => isset($_POST['ftp_username']) ? $_POST['ftp_username'] : (isset($modSettings['package_username']) ? $modSettings['package_username'] : ''),
  813. 'path' => $_POST['ftp_path'],
  814. 'error' => empty($ftp_error) ? null : $ftp_error,
  815. 'destination' => $destination_url,
  816. );
  817. // If we're returning dump out here.
  818. if ($return)
  819. return $files;
  820. $context['page_title'] = $txt['package_ftp_necessary'];
  821. $context['sub_template'] = 'ftp_required';
  822. obExit();
  823. }
  824. else
  825. {
  826. if (!in_array($_POST['ftp_path'], array('', '/')))
  827. {
  828. $ftp_root = strtr($boarddir, array($_POST['ftp_path'] => ''));
  829. if (substr($ftp_root, -1) == '/' && ($_POST['ftp_path'] == '' || $_POST['ftp_path'][0] == '/'))
  830. $ftp_root = substr($ftp_root, 0, -1);
  831. }
  832. else
  833. $ftp_root = $boarddir;
  834. $_SESSION['pack_ftp'] = array(
  835. 'server' => $_POST['ftp_server'],
  836. 'port' => $_POST['ftp_port'],
  837. 'username' => $_POST['ftp_username'],
  838. 'password' => package_crypt($_POST['ftp_password']),
  839. 'path' => $_POST['ftp_path'],
  840. 'root' => $ftp_root,
  841. );
  842. if (!isset($modSettings['package_path']) || $modSettings['package_path'] != $_POST['ftp_path'])
  843. updateSettings(array('package_path' => $_POST['ftp_path']));
  844. $files = packageRequireFTP($destination_url, $files, $return);
  845. }
  846. return $files;
  847. }
  848. /**
  849. * Parses the actions in package-info.xml file from packages.
  850. *
  851. * - package should be an xmlArray with package-info as its base.
  852. * - testing_only should be true if the package should not actually be applied.
  853. * - method can be upgrade, install, or uninstall. Its default is install.
  854. * - previous_version should be set to the previous installed version of this package, if any.
  855. * - does not handle failure terribly well; testing first is always better.
  856. *
  857. * @param xmlArray &$package
  858. * @param bool $testing_only = true
  859. * @param string $method = 'install' ('install', 'upgrade', or 'uninstall')
  860. * @param string $previous_version = ''
  861. * @return array an array of those changes made.
  862. */
  863. function parsePackageInfo(&$packageXML, $testing_only = true, $method = 'install', $previous_version = '')
  864. {
  865. global $boarddir, $forum_version, $context, $temp_path, $language;
  866. // Mayday! That action doesn't exist!!
  867. if (empty($packageXML) || !$packageXML->exists($method))
  868. return array();
  869. // We haven't found the package script yet...
  870. $script = false;
  871. $the_version = strtr($forum_version, array('SMF ' => ''));
  872. // Emulation support...
  873. if (!empty($_SESSION['version_emulate']))
  874. $the_version = $_SESSION['version_emulate'];
  875. // Single package emulation
  876. if (!empty($_REQUEST['ve']) && !empty($_REQUEST['package']))
  877. {
  878. $the_version = $_REQUEST['ve'];
  879. $_SESSION['single_version_emulate'][$_REQUEST['package']] = $the_version;
  880. }
  881. if (!empty($_REQUEST['package']) && (!empty($_SESSION['single_version_emulate'][$_REQUEST['package']])))
  882. $the_version = $_SESSION['single_version_emulate'][$_REQUEST['package']];
  883. // Get all the versions of this method and find the right one.
  884. $these_methods = $packageXML->set($method);
  885. foreach ($these_methods as $this_method)
  886. {
  887. // They specified certain versions this part is for.
  888. if ($this_method->exists('@for'))
  889. {
  890. // Don't keep going if this won't work for this version of SMF.
  891. if (!matchPackageVersion($the_version, $this_method->fetch('@for')))
  892. continue;
  893. }
  894. // Upgrades may go from a certain old version of the mod.
  895. if ($method == 'upgrade' && $this_method->exists('@from'))
  896. {
  897. // Well, this is for the wrong old version...
  898. if (!matchPackageVersion($previous_version, $this_method->fetch('@from')))
  899. continue;
  900. }
  901. // We've found it!
  902. $script = $this_method;
  903. break;
  904. }
  905. // Bad news, a matching script wasn't found!
  906. if ($script === false)
  907. return array();
  908. // Find all the actions in this method - in theory, these should only be allowed actions. (* means all.)
  909. $actions = $script->set('*');
  910. $return = array();
  911. $temp_auto = 0;
  912. $temp_path = $boarddir . '/Packages/temp/' . (isset($context['base_path']) ? $context['base_path'] : '');
  913. $context['readmes'] = array();
  914. $context['licences'] = array();
  915. // This is the testing phase... nothing shall be done yet.
  916. foreach ($actions as $action)
  917. {
  918. $actionType = $action->name();
  919. if (in_array($actionType, array('readme', 'code', 'database', 'modification', 'redirect', 'license')))
  920. {
  921. // Allow for translated readme and license files.
  922. if ($actionType == 'readme' || $actionType == 'license')
  923. {
  924. $type = $actionType . 's';
  925. if ($action->exists('@lang'))
  926. {
  927. // Auto-select the language based on either request variable or current language.
  928. if ((isset($_REQUEST['readme']) && $action->fetch('@lang') == $_REQUEST['readme']) || (isset($_REQUEST['license']) && $action->fetch('@lang') == $_REQUEST['license']) || (!isset($_REQUEST['readme']) && $action->fetch('@lang') == $language) || (!isset($_REQUEST['license']) && $action->fetch('@lang') == $language))
  929. {
  930. // In case the user put the blocks in the wrong order.
  931. if (isset($context[$type]['selected']) && $context[$type]['selected'] == 'default')
  932. $context[$type][] = 'default';
  933. $context[$type]['selected'] = htmlspecialchars($action->fetch('@lang'));
  934. }
  935. else
  936. {
  937. // We don't want this now, but we'll allow the user to select to read it.
  938. $context[$type][] = htmlspecialchars($action->fetch('@lang'));
  939. continue;
  940. }
  941. }
  942. // Fallback when we have no lang parameter.
  943. else
  944. {
  945. // Already selected one for use?
  946. if (isset($context[$type]['selected']))
  947. {
  948. $context[$type][] = 'default';
  949. continue;
  950. }
  951. else
  952. $context[$type]['selected'] = 'default';
  953. }
  954. }
  955. // @todo Make sure the file actually exists? Might not work when testing?
  956. if ($action->exists('@type') && $action->fetch('@type') == 'inline')
  957. {
  958. $filename = $temp_path . '$auto_' . $temp_auto++ . (in_array($actionType, array('readme', 'redirect', 'license')) ? '.txt' : ($actionType == 'code' || $actionType == 'database' ? '.php' : '.mod'));
  959. package_put_contents($filename, $action->fetch('.'));
  960. $filename = strtr($filename, array($temp_path => ''));
  961. }
  962. else
  963. $filename = $action->fetch('.');
  964. $return[] = array(
  965. 'type' => $actionType,
  966. 'filename' => $filename,
  967. 'description' => '',
  968. 'reverse' => $action->exists('@reverse') && $action->fetch('@reverse') == 'true',
  969. 'boardmod' => $action->exists('@format') && $action->fetch('@format') == 'boardmod',
  970. 'redirect_url' => $action->exists('@url') ? $action->fetch('@url') : '',
  971. 'redirect_timeout' => $action->exists('@timeout') ? (int) $action->fetch('@timeout') : '',
  972. 'parse_bbc' => $action->exists('@parsebbc') && $action->fetch('@parsebbc') == 'true',
  973. 'language' => (($actionType == 'readme' || $actionType == 'license') && $action->exists('@lang') && $action->fetch('@lang') == $language) ? $language : '',
  974. );
  975. continue;
  976. }
  977. elseif ($actionType == 'hook')
  978. {
  979. $return[] = array(
  980. 'type' => $actionType,
  981. 'function' => $action->exists('@function') ? $action->fetch('@function') : '',
  982. 'hook' => $action->exists('@hook') ? $action->fetch('@hook') : $action->fetch('.'),
  983. 'include_file' => $action->exists('@file') ? $action->fetch('@file') : '',
  984. 'reverse' => $action->exists('@reverse') && $action->fetch('@reverse') == 'true' ? true : false,
  985. 'description' => '',
  986. );
  987. continue;
  988. }
  989. elseif ($actionType == 'credits')
  990. {
  991. // quick check of any supplied url
  992. $url = $action->exists('@url') ? $action->fetch('@url') : '';
  993. if (strlen(trim($url)) > 0 && substr($url, 0, 7) !== 'http://' && substr($url, 0, 8) !== 'https://')
  994. {
  995. $url = 'http://' . $url;
  996. if (strlen($url) < 8 || (substr($url, 0, 7) !== 'http://' && substr($url, 0, 8) !== 'https://'))
  997. $url = '';
  998. }
  999. $return[] = array(
  1000. 'type' => $actionType,
  1001. 'url' => $url,
  1002. 'license' => $action->exists('@license') ? $action->fetch('@license') : '',
  1003. 'copyright' => $action->exists('@copyright') ? $action->fetch('@copyright') : '',
  1004. 'title' => $action->fetch('.'),
  1005. );
  1006. continue;
  1007. }
  1008. elseif ($actionType == 'requires')
  1009. {
  1010. $return[] = array(
  1011. 'type' => $actionType,
  1012. 'id' => $action->exists('@id') ? $action->fetch('@id') : '',
  1013. 'version' => $action->exists('@version') ? $action->fetch('@version') : $action->fetch('.'),
  1014. 'description' => '',
  1015. );
  1016. continue;
  1017. }
  1018. elseif ($actionType == 'error')
  1019. {
  1020. $return[] = array(
  1021. 'type' => 'error',
  1022. );
  1023. }
  1024. elseif (in_array($actionType, array('require-file', 'remove-file', 'require-dir', 'remove-dir', 'move-file', 'move-dir', 'create-file', 'create-dir')))
  1025. {
  1026. $this_action = &$return[];
  1027. $this_action = array(
  1028. 'type' => $actionType,
  1029. 'filename' => $action->fetch('@name'),
  1030. 'description' => $action->fetch('.')
  1031. );
  1032. // If there is a destination, make sure it makes sense.
  1033. if (substr($actionType, 0, 6) != 'remove')
  1034. {
  1035. $this_action['unparsed_destination'] = $action->fetch('@destination');
  1036. $this_action['destination'] = parse_path($action->fetch('@destination')) . '/' . basename($this_action['filename']);
  1037. }
  1038. else
  1039. {
  1040. $this_action['unparsed_filename'] = $this_action['filename'];
  1041. $this_action['filename'] = parse_path($this_action['filename']);
  1042. }
  1043. // If we're moving or requiring (copying) a file.
  1044. if (substr($actionType, 0, 4) == 'move' || substr($actionType, 0, 7) == 'require')
  1045. {
  1046. if ($action->exists('@from'))
  1047. $this_action['source'] = parse_path($action->fetch('@from'));
  1048. else
  1049. $this_action['source'] = $temp_path . $this_action['filename'];
  1050. }
  1051. // Check if these things can be done. (chmod's etc.)
  1052. if ($actionType == 'create-dir')
  1053. {
  1054. if (!mktree($this_action['destination'], false))
  1055. {
  1056. $temp = $this_action['destination'];
  1057. while (!file_exists($temp) && strlen($temp) > 1)
  1058. $temp = dirname($temp);
  1059. $return[] = array(
  1060. 'type' => 'chmod',
  1061. 'filename' => $temp
  1062. );
  1063. }
  1064. }
  1065. elseif ($actionType == 'create-file')
  1066. {
  1067. if (!mktree(dirname($this_action['destination']), false))
  1068. {
  1069. $temp = dirname($this_action['destination']);
  1070. while (!file_exists($temp) && strlen($temp) > 1)
  1071. $temp = dirname($temp);
  1072. $return[] = array(
  1073. 'type' => 'chmod',
  1074. 'filename' => $temp
  1075. );
  1076. }
  1077. if (!is_writable($this_action['destination']) && (file_exists($this_action['destination']) || !is_writable(dirname($this_action['destination']))))
  1078. $return[] = array(
  1079. 'type' => 'chmod',
  1080. 'filename' => $this_action['destination']
  1081. );
  1082. }
  1083. elseif ($actionType == 'require-dir')
  1084. {
  1085. if (!mktree($this_action['destination'], false))
  1086. {
  1087. $temp = $this_action['destination'];
  1088. while (!file_exists($temp) && strlen($temp) > 1)
  1089. $temp = dirname($temp);
  1090. $return[] = array(
  1091. 'type' => 'chmod',
  1092. 'filename' => $temp
  1093. );
  1094. }
  1095. }
  1096. elseif ($actionType == 'require-file')
  1097. {
  1098. if ($action->exists('@theme'))
  1099. $this_action['theme_action'] = $action->fetch('@theme');
  1100. if (!mktree(dirname($this_action['destination']), false))
  1101. {
  1102. $temp = dirname($this_action['destination']);
  1103. while (!file_exists($temp) && strlen($temp) > 1)
  1104. $temp = dirname($temp);
  1105. $return[] = array(
  1106. 'type' => 'chmod',
  1107. 'filename' => $temp
  1108. );
  1109. }
  1110. if (!is_writable($this_action['destination']) && (file_exists($this_action['destination']) || !is_writable(dirname($this_action['destination']))))
  1111. $return[] = array(
  1112. 'type' => 'chmod',
  1113. 'filename' => $this_action['destination']
  1114. );
  1115. }
  1116. elseif ($actionType == 'move-dir' || $actionType == 'move-file')
  1117. {
  1118. if (!mktree(dirname($this_action['destination']), false))
  1119. {
  1120. $temp = dirname($this_action['destination']);
  1121. while (!file_exists($temp) && strlen($temp) > 1)
  1122. $temp = dirname($temp);
  1123. $return[] = array(
  1124. 'type' => 'chmod',
  1125. 'filename' => $temp
  1126. );
  1127. }
  1128. if (!is_writable($this_action['destination']) && (file_exists($this_action['destination']) || !is_writable(dirname($this_action['destination']))))
  1129. $return[] = array(
  1130. 'type' => 'chmod',
  1131. 'filename' => $this_action['destination']
  1132. );
  1133. }
  1134. elseif ($actionType == 'remove-dir')
  1135. {
  1136. if (!is_writable($this_action['filename']) && file_exists($this_action['filename']))
  1137. $return[] = array(
  1138. 'type' => 'chmod',
  1139. 'filename' => $this_action['filename']
  1140. );
  1141. }
  1142. elseif ($actionType == 'remove-file')
  1143. {
  1144. if (!is_writable($this_action['filename']) && file_exists($this_action['filename']))
  1145. $return[] = array(
  1146. 'type' => 'chmod',
  1147. 'filename' => $this_action['filename']
  1148. );
  1149. }
  1150. }
  1151. else
  1152. {
  1153. $return[] = array(
  1154. 'type' => 'error',
  1155. 'error_msg' => 'unknown_action',
  1156. 'error_var' => $actionType
  1157. );
  1158. }
  1159. }
  1160. // Only testing - just return a list of things to be done.
  1161. if ($testing_only)
  1162. return $return;
  1163. umask(0);
  1164. $failure = false;
  1165. $not_done = array(array('type' => '!'));
  1166. foreach ($return as $action)
  1167. {
  1168. if (in_array($action['type'], array('modification', 'code', 'database', 'redirect', 'hook', 'credits')))
  1169. $not_done[] = $action;
  1170. if ($action['type'] == 'create-dir')
  1171. {
  1172. if (!mktree($action['destination'], 0755) || !is_writable($action['destination']))
  1173. $failure |= !mktree($action['destination'], 0777);
  1174. }
  1175. elseif ($action['type'] == 'create-file')
  1176. {
  1177. if (!mktree(dirname($action['destination']), 0755) || !is_writable(dirname($action['destination'])))
  1178. $failure |= !mktree(dirname($action['destination']), 0777);
  1179. // Create an empty file.
  1180. package_put_contents($action['destination'], package_get_contents($action['source']), $testing_only);
  1181. if (!file_exists($action['destination']))
  1182. $failure = true;
  1183. }
  1184. elseif ($action['type'] == 'require-dir')
  1185. {
  1186. copytree($action['source'], $action['destination']);
  1187. // Any other theme folders?
  1188. if (!empty($context['theme_copies']) && !empty($context['theme_copies'][$action['type']][$action['destination']]))
  1189. foreach ($context['theme_copies'][$action['type']][$action['destination']] as $theme_destination)
  1190. copytree($action['source'], $theme_destination);
  1191. }
  1192. elseif ($action['type'] == 'require-file')
  1193. {
  1194. if (!mktree(dirname($action['destination']), 0755) || !is_writable(dirname($action['destination'])))
  1195. $failure |= !mktree(dirname($action['destination']), 0777);
  1196. package_put_contents($action['destination'], package_get_contents($action['source']), $testing_only);
  1197. $failure |= !copy($action['source'], $action['destination']);
  1198. // Any other theme files?
  1199. if (!empty($context['theme_copies']) && !empty($context['theme_copies'][$action['type']][$action['destination']]))
  1200. foreach ($context['theme_copies'][$action['type']][$action['destination']] as $theme_destination)
  1201. {
  1202. if (!mktree(dirname($theme_destination), 0755) || !is_writable(dirname($theme_destination)))
  1203. $failure |= !mktree(dirname($theme_destination), 0777);
  1204. package_put_contents($theme_destination, package_get_contents($action['source']), $testing_only);
  1205. $failure |= !copy($action['source'], $theme_destination);
  1206. }
  1207. }
  1208. elseif ($action['type'] == 'move-file')
  1209. {
  1210. if (!mktree(dirname($action['destination']), 0755) || !is_writable(dirname($action['destination'])))
  1211. $failure |= !mktree(dirname($action['destination']), 0777);
  1212. $failure |= !rename($action['source'], $action['destination']);
  1213. }
  1214. elseif ($action['type'] == 'move-dir')
  1215. {
  1216. if (!mktree($action['destination'], 0755) || !is_writable($action['destination']))
  1217. $failure |= !mktree($action['destination'], 0777);
  1218. $failure |= !rename($action['source'], $action['destination']);
  1219. }
  1220. elseif ($action['type'] == 'remove-dir')
  1221. {
  1222. deltree($action['filename']);
  1223. // Any other theme folders?
  1224. if (!empty($context['theme_copies']) && !empty($context['theme_copies'][$action['type']][$action['filename']]))
  1225. foreach ($context['theme_copies'][$action['type']][$action['filename']] as $theme_destination)
  1226. deltree($theme_destination);
  1227. }
  1228. elseif ($action['type'] == 'remove-file')
  1229. {
  1230. // Make sure the file exists before deleting it.
  1231. if (file_exists($action['filename']))
  1232. {
  1233. package_chmod($action['filename']);
  1234. $failure |= !unlink($action['filename']);
  1235. }
  1236. // The file that was supposed to be deleted couldn't be found.
  1237. else
  1238. $failure = true;
  1239. // Any other theme folders?
  1240. if (!empty($context['theme_copies']) && !empty($context['theme_copies'][$action['type']][$action['filename']]))
  1241. foreach ($context['theme_copies'][$action['type']][$action['filename']] as $theme_destination)
  1242. if (file_exists($theme_destination))
  1243. $failure |= !unlink($theme_destination);
  1244. else
  1245. $failure = true;
  1246. }
  1247. }
  1248. return $not_done;
  1249. }
  1250. /**
  1251. * Checks if version matches any of the versions in versions.
  1252. * - supports comma separated version numbers, with or without whitespace.
  1253. * - supports lower and upper bounds. (1.0-1.2)
  1254. * - returns true if the version matched.
  1255. *
  1256. * @param string $versions
  1257. * @return highest install value string or false
  1258. */
  1259. function matchHighestPackageVersion($versions, $reset = false, $the_version)
  1260. {
  1261. static $near_version = 0;
  1262. if ($reset)
  1263. $near_version = 0;
  1264. // Normalize the $versions while we remove our previous Doh!
  1265. $versions = explode(',', str_replace(array(' ', '2.0rc1-1'), array('', '2.0rc1.1'), strtolower($versions)));
  1266. // Loop through each version, save the highest we can find
  1267. foreach ($versions as $for)
  1268. {
  1269. // Adjust for those wild cards
  1270. if (strpos($for, '*') !== false)
  1271. $for = str_replace('*', '0dev0', $for) . '-' . str_replace('*', '999', $for);
  1272. // If we have a range, grab the lower value, done this way so it looks normal-er to the user e.g. 2.0 vs 2.0.99
  1273. if (strpos($for, '-') !== false)
  1274. list ($for, $higher) = explode('-', $for);
  1275. // Do the compare, if the for is greater, than what we have but not greater than what we are running .....
  1276. if (compareVersions($near_version, $for) === -1 && compareVersions($for, $the_version) !== 1)
  1277. $near_version = $for;
  1278. }
  1279. return !empty($near_version) ? $near_version : false;
  1280. }
  1281. /**
  1282. * Checks if the forum version matches any of the available versions from the package install xml.
  1283. * - supports comma separated version numbers, with or without whitespace.
  1284. * - supports lower and upper bounds. (1.0-1.2)
  1285. * - returns true if the version matched.
  1286. *
  1287. * @param string $version
  1288. * @param string $versions
  1289. * @return bool
  1290. */
  1291. function matchPackageVersion($version, $versions)
  1292. {
  1293. // Make sure everything is lowercase and clean of spaces and unpleasant history.
  1294. $version = str_replace(array(' ', '2.0rc1-1'), array('', '2.0rc1.1'), strtolower($version));
  1295. $versions = explode(',', str_replace(array(' ', '2.0rc1-1'), array('', '2.0rc1.1'), strtolower($versions)));
  1296. // Perhaps we do accept anything?
  1297. if (in_array('all', $versions))
  1298. return true;
  1299. // Loop through each version.
  1300. foreach ($versions as $for)
  1301. {
  1302. // Wild card spotted?
  1303. if (strpos($for, '*') !== false)
  1304. $for = str_replace('*', '0dev0', $for) . '-' . str_replace('*', '999', $for);
  1305. // Do we have a range?
  1306. if (strpos($for, '-') !== false)
  1307. {
  1308. list ($lower, $upper) = explode('-', $for);
  1309. // Compare the version against lower and upper bounds.
  1310. if (compareVersions($version, $lower) > -1 && compareVersions($version, $upper) < 1)
  1311. return true;
  1312. }
  1313. // Otherwise check if they are equal...
  1314. elseif (compareVersions($version, $for) === 0)
  1315. return true;
  1316. }
  1317. return false;
  1318. }
  1319. /**
  1320. * Compares two versions and determines if one is newer, older or the same, returns
  1321. * - (-1) if version1 is lower than version2
  1322. * - (0) if version1 is equal to version2
  1323. * - (1) if version1 is higher than version2
  1324. *
  1325. * @param string version1
  1326. * @param string version2
  1327. * @return int (-1, 0, 1)
  1328. */
  1329. function compareVersions($version1, $version2)
  1330. {
  1331. static $categories;
  1332. $versions = array();
  1333. foreach (array(1 => $version1, $version2) as $id => $version)
  1334. {
  1335. // Clean the version and extract the version parts.
  1336. $clean = str_replace(array(' ', '2.0rc1-1'), array('', '2.0rc1.1'), strtolower($version));
  1337. preg_match('~(\d+)(?:\.(\d+|))?(?:\.)?(\d+|)(?:(alpha|beta|rc)(\d+|)(?:\.)?(\d+|))?(?:(dev))?(\d+|)~', $clean, $parts);
  1338. // Build an array of parts.
  1339. $versions[$id] = array(
  1340. 'major' => (int) $parts[1],
  1341. 'minor' => !empty($parts[2]) ? (int) $parts[2] : 0,
  1342. 'patch' => !empty($parts[3]) ? (int) $parts[3] : 0,
  1343. 'type' => empty($parts[4]) ? 'stable' : $parts[4],
  1344. 'type_major' => !empty($parts[6]) ? (int) $parts[5] : 0,
  1345. 'type_minor' => !empty($parts[6]) ? (int) $parts[6] : 0,
  1346. 'dev' => !empty($parts[7]),
  1347. );
  1348. }
  1349. // Are they the same, perhaps?
  1350. if ($versions[1] === $versions[2])
  1351. return 0;
  1352. // Get version numbering categories...
  1353. if (!isset($categories))
  1354. $categories = array_keys($versions[1]);
  1355. // Loop through each category.
  1356. foreach ($categories as $category)
  1357. {
  1358. // Is there something for us to calculate?
  1359. if ($versions[1][$category] !== $versions[2][$category])
  1360. {
  1361. // Dev builds are a problematic exception.
  1362. // (stable) dev < (stable) but (unstable) dev = (unstable)
  1363. if ($category == 'type')
  1364. return $versions[1][$category] > $versions[2][$category] ? ($versions[1]['dev'] ? -1 : 1) : ($versions[2]['dev'] ? 1 : -1);
  1365. elseif ($category == 'dev')
  1366. return $versions[1]['dev'] ? ($versions[2]['type'] == 'stable' ? -1 : 0) : ($versions[1]['type'] == 'stable' ? 1 : 0);
  1367. // Otherwise a simple comparison.
  1368. else
  1369. return $versions[1][$category] > $versions[2][$category] ? 1 : -1;
  1370. }
  1371. }
  1372. // They are the same!
  1373. return 0;
  1374. }
  1375. /**
  1376. * Parses special identifiers out of the specified path.
  1377. * @param string $path
  1378. * @return string The parsed path
  1379. */
  1380. function parse_path($path)
  1381. {
  1382. global $modSettings, $boarddir, $sourcedir, $settings, $temp_path;
  1383. $dirs = array(
  1384. '\\' => '/',
  1385. '$boarddir' => $boarddir,
  1386. '$sourcedir' => $sourcedir,
  1387. '$avatardir' => $modSettings['avatar_directory'],
  1388. '$avatars_dir' => $modSettings['avatar_directory'],
  1389. '$themedir' => $settings['default_theme_dir'],
  1390. '$imagesdir' => $settings['default_theme_dir'] . '/' . basename($settings['default_images_url']),
  1391. '$themes_dir' => $boarddir . '/Themes',
  1392. '$languagedir' => $settings['default_theme_dir'] . '/languages',
  1393. '$languages_dir' => $settings['default_theme_dir'] . '/languages',
  1394. '$smileysdir' => $modSettings['smileys_dir'],
  1395. '$smileys_dir' => $modSettings['smileys_dir'],
  1396. );
  1397. // do we parse in a package directory?
  1398. if (!empty($temp_path))
  1399. $dirs['$package'] = $temp_path;
  1400. if (strlen($path) == 0)
  1401. trigger_error('parse_path(): There should never be an empty filename', E_USER_ERROR);
  1402. return strtr($path, $dirs);
  1403. }
  1404. /**
  1405. * Deletes a directory, and all the files and direcories inside it.
  1406. * requires access to delete these files.
  1407. * @param string $path
  1408. * @param bool $delete_directory = true
  1409. */
  1410. function deltree($dir, $delete_dir = true)
  1411. {
  1412. global $package_ftp;
  1413. if (!file_exists($dir))
  1414. return;
  1415. $current_dir = @opendir($dir);
  1416. if ($current_dir == false)
  1417. {
  1418. if ($delete_dir && isset($package_ftp))
  1419. {
  1420. $ftp_file = strtr($dir, array($_SESSION['pack_ftp']['root'] => ''));
  1421. // @todo $entryname is never set
  1422. if (!is_writable($dir . '/' . $entryname))
  1423. $package_ftp->chmod($ftp_file, 0777);
  1424. $package_ftp->unlink($ftp_file);
  1425. }
  1426. return;
  1427. }
  1428. while ($entryname = readdir($current_dir))
  1429. {
  1430. if (in_array($entryname, array('.', '..')))
  1431. continue;
  1432. if (is_dir($dir . '/' . $entryname))
  1433. deltree($dir . '/' . $entryname);
  1434. else
  1435. {
  1436. // Here, 755 doesn't really matter since we're deleting it anyway.
  1437. if (isset($package_ftp))
  1438. {
  1439. $ftp_file = strtr($dir . '/' . $entryname, array($_SESSION['pack_ftp']['root'] => ''));
  1440. if (!is_writable($dir . '/' . $entryname))
  1441. $package_ftp->chmod($ftp_file, 0777);
  1442. $package_ftp->unlink($ftp_file);
  1443. }
  1444. else
  1445. {
  1446. if (!is_writable($dir . '/' . $entryname))
  1447. @chmod($dir . '/' . $entryname, 0777);
  1448. unlink($dir . '/' . $entryname);
  1449. }
  1450. }
  1451. }
  1452. closedir($current_dir);
  1453. if ($delete_dir)
  1454. {
  1455. if (isset($package_ftp))
  1456. {
  1457. $ftp_file = strtr($dir, array($_SESSION['pack_ftp']['root'] => ''));
  1458. if (!is_writable($dir . '/' . $entryname))
  1459. $package_ftp->chmod($ftp_file, 0777);
  1460. $package_ftp->unlink($ftp_file);
  1461. }
  1462. else
  1463. {
  1464. if (!is_writable($dir))
  1465. @chmod($dir, 0777);
  1466. @rmdir($dir);
  1467. }
  1468. }
  1469. }
  1470. /**
  1471. * Creates the specified tree structure with the mode specified.
  1472. * creates every directory in path until it finds one that already exists.
  1473. * @param string $path
  1474. * @param int $mode
  1475. * @return bool true if successful, false otherwise
  1476. */
  1477. function mktree($strPath, $mode)
  1478. {
  1479. global $package_ftp;
  1480. if (is_dir($strPath))
  1481. {
  1482. if (!is_writable($strPath) && $mode !== false)
  1483. {
  1484. if (isset($package_ftp))
  1485. $package_ftp->chmod(strtr($strPath, array($_SESSION['pack_ftp']['root'] => '')), $mode);
  1486. else
  1487. @chmod($strPath, $mode);
  1488. }
  1489. $test = @opendir($strPath);
  1490. if ($test)
  1491. {
  1492. closedir($test);
  1493. return is_writable($strPath);
  1494. }
  1495. else
  1496. return false;
  1497. }
  1498. // Is this an invalid path and/or we can't make the directory?
  1499. if ($strPath == dirname($strPath) || !mktree(dirname($strPath), $mode))
  1500. return false;
  1501. if (!is_writable(dirname($strPath)) && $mode !== false)
  1502. {
  1503. if (isset($package_ftp))
  1504. $package_ftp->chmod(dirname(strtr($strPath, array($_SESSION['pack_ftp']['root'] => ''))), $mode);
  1505. else
  1506. @chmod(dirname($strPath), $mode);
  1507. }
  1508. if ($mode !== false && isset($package_ftp))
  1509. return $package_ftp->create_dir(strtr($strPath, array($_SESSION['pack_ftp']['root'] => '')));
  1510. elseif ($mode === false)
  1511. {
  1512. $test = @opendir(dirname($strPath));
  1513. if ($test)
  1514. {
  1515. closedir($test);
  1516. return true;
  1517. }
  1518. else
  1519. return false;
  1520. }
  1521. else
  1522. {
  1523. @mkdir($strPath, $mode);
  1524. $test = @opendir($strPath);
  1525. if ($test)
  1526. {
  1527. closedir($test);
  1528. return true;
  1529. }
  1530. else
  1531. return false;
  1532. }
  1533. }
  1534. /**
  1535. * Copies one directory structure over to another.
  1536. * requires the destination to be writable.
  1537. * @param string $source
  1538. * @param string $destination
  1539. */
  1540. function copytree($source, $destination)
  1541. {
  1542. global $package_ftp;
  1543. if (!file_exists($destination) || !is_writable($destination))
  1544. mktree($destination, 0755);
  1545. if (!is_writable($destination))
  1546. mktree($destination, 0777);
  1547. $current_dir = opendir($source);
  1548. if ($current_dir == false)
  1549. return;
  1550. while ($entryname = readdir($current_dir))
  1551. {
  1552. if (in_array($entryname, array('.', '..')))
  1553. continue;
  1554. if (isset($package_ftp))
  1555. $ftp_file = strtr($destination . '/' . $entryname, array($_SESSION['pack_ftp']['root'] => ''));
  1556. if (is_file($source . '/' . $entryname))
  1557. {
  1558. if (isset($package_ftp) && !file_exists($destination . '/' . $entryname))
  1559. $package_ftp->create_file($ftp_file);
  1560. elseif (!file_exists($destination . '/' . $entryname))
  1561. @touch($destination . '/' . $entryname);
  1562. }
  1563. package_chmod($destination . '/' . $entryname);
  1564. if (is_dir($source . '/' . $entryname))
  1565. copytree($source . '/' . $entryname, $destination . '/' . $entryname);
  1566. elseif (file_exists($destination . '/' . $entryname))
  1567. package_put_contents($destination . '/' . $entryname, package_get_contents($source . '/' . $entryname));
  1568. else
  1569. copy($source . '/' . $entryname, $destination . '/' . $entryname);
  1570. }
  1571. closedir($current_dir);
  1572. }
  1573. /**
  1574. * @param string $path
  1575. * @param string $sub_path = ''
  1576. * @return array
  1577. */
  1578. function listtree($path, $sub_path = '')
  1579. {
  1580. $data = array();
  1581. $dir = @dir($path . $sub_path);
  1582. if (!$dir)
  1583. return array();
  1584. while ($entry = $dir->read())
  1585. {
  1586. if ($entry == '.' || $entry == '..')
  1587. continue;
  1588. if (is_dir($path . $sub_path . '/' . $entry))
  1589. $data = array_merge($data, listtree($path, $sub_path . '/' . $entry));
  1590. else
  1591. $data[] = array(
  1592. 'filename' => $sub_path == '' ? $entry : $sub_path . '/' . $entry,
  1593. 'size' => filesize($path . $sub_path . '/' . $entry),
  1594. 'skipped' => false,
  1595. );
  1596. }
  1597. $dir->close();
  1598. return $data;
  1599. }
  1600. /**
  1601. * Parses a xml-style modification file (file).
  1602. * @param string $file
  1603. * @param bool $testing = true tells it the modifications shouldn't actually be saved.
  1604. * @param bool $undo = false specifies that the modifications the file requests should be undone; this doesn't work with everything (regular expressions.)
  1605. * @param array $theme_paths = array()
  1606. * @return array an array of those changes made.
  1607. */
  1608. function parseModification($file, $testing = true, $undo = false, $theme_paths = array())
  1609. {
  1610. global $boarddir, $sourcedir, $settings, $txt, $modSettings, $package_ftp;
  1611. @set_time_limit(600);
  1612. require_once($sourcedir . '/Class-Package.php');
  1613. $xml = new xmlArray(strtr($file, array("\r" => '')));
  1614. $actions = array();
  1615. $everything_found = true;
  1616. if (!$xml->exists('modification') || !$xml->exists('modification/file'))
  1617. {
  1618. $actions[] = array(
  1619. 'type' => 'error',
  1620. 'filename' => '-',
  1621. 'debug' => $txt['package_modification_malformed']
  1622. );
  1623. return $actions;
  1624. }
  1625. // Get the XML data.
  1626. $files = $xml->set('modification/file');
  1627. // Use this for holding all the template changes in this mod.
  1628. $template_changes = array();
  1629. // This is needed to hold the long paths, as they can vary...
  1630. $long_changes = array();
  1631. // First, we need to build the list of all the files likely to get changed.
  1632. foreach ($files as $file)
  1633. {
  1634. // What is the filename we're currently on?
  1635. $filename = parse_path(trim($file->fetch('@name')));
  1636. // Now, we need to work out whether this is even a template file...
  1637. foreach ($theme_paths as $id => $theme)
  1638. {
  1639. // If this filename is relative, if so take a guess at what it should be.
  1640. $real_filename = $filename;
  1641. if (strpos($filename, 'Themes') === 0)
  1642. $real_filename = $boarddir . '/' . $filename;
  1643. if (strpos($real_filename, $theme['theme_dir']) === 0)
  1644. {
  1645. $template_changes[$id][] = substr($real_filename, strlen($theme['theme_dir']) + 1);
  1646. $long_changes[$id][] = $filename;
  1647. }
  1648. }
  1649. }
  1650. // Custom themes to add.
  1651. $custom_themes_add = array();
  1652. // If we have some template changes, we need to build a master link of what new ones are required for the custom themes.
  1653. if (!empty($template_changes[1]))
  1654. {
  1655. foreach ($theme_paths as $id => $theme)
  1656. {
  1657. // Default is getting done anyway, so no need for involvement here.
  1658. if ($id == 1)
  1659. continue;
  1660. // For every template, do we want it? Yea, no, maybe?
  1661. foreach ($template_changes[1] as $index => $template_file)
  1662. {
  1663. // What, it exists and we haven't already got it?! Lordy, get it in!
  1664. if (file_exists($theme['theme_dir'] . '/' . $template_file) && (!isset($template_changes[$id]) || !in_array($template_file, $template_changes[$id])))
  1665. {
  1666. // Now let's add it to the "todo" list.
  1667. $custom_themes_add[$long_changes[1][$index]][$id] = $theme['theme_dir'] . '/' . $template_file;
  1668. }
  1669. }
  1670. }
  1671. }
  1672. foreach ($files as $file)
  1673. {
  1674. // This is the actual file referred to in the XML document...
  1675. $files_to_change = array(
  1676. 1 => parse_path(trim($file->fetch('@name'))),
  1677. );
  1678. // Sometimes though, we have some additional files for other themes, if we have add them to the mix.
  1679. if (isset($custom_themes_add[$files_to_change[1]]))
  1680. $files_to_change += $custom_themes_add[$files_to_change[1]];
  1681. // Now, loop through all the files we're changing, and, well, change them ;)
  1682. foreach ($files_to_change as $theme => $working_file)
  1683. {
  1684. if ($working_file[0] != '/' && $working_file[1] != ':')
  1685. {
  1686. trigger_error('parseModification(): The filename \'' . $working_file . '\' is not a full path!', E_USER_WARNING);
  1687. $working_file = $boarddir . '/' . $working_file;
  1688. }
  1689. // Doesn't exist - give an error or what?
  1690. if (!file_exists($working_file) && (!$file->exists('@error') || !in_array(trim($file->fetch('@error')), array('ignore', 'skip'))))
  1691. {
  1692. $actions[] = array(
  1693. 'type' => 'missing',
  1694. 'filename' => $working_file,
  1695. 'debug' => $txt['package_modification_missing']
  1696. );
  1697. $everything_found = false;
  1698. continue;
  1699. }
  1700. // Skip the file if it doesn't exist.
  1701. elseif (!file_exists($working_file) && $file->exists('@error') && trim($file->fetch('@error')) == 'skip')
  1702. {
  1703. $actions[] = array(
  1704. 'type' => 'skipping',
  1705. 'filename' => $working_file,
  1706. );
  1707. continue;
  1708. }
  1709. // Okay, we're creating this file then...?
  1710. elseif (!file_exists($working_file))
  1711. $working_data = '';
  1712. // Phew, it exists! Load 'er up!
  1713. else
  1714. $working_data = str_replace("\r", '', package_get_contents($working_file));
  1715. $actions[] = array(
  1716. 'type' => 'opened',
  1717. 'filename' => $working_file
  1718. );
  1719. $operations = $file->exists('operation') ? $file->set('operation') : array();
  1720. foreach ($operations as $operation)
  1721. {
  1722. // Convert operation to an array.
  1723. $actual_operation = array(
  1724. 'searches' => array(),
  1725. 'error' => $operation->exists('@error') && in_array(trim($operation->fetch('@error')), array('ignore', 'fatal', 'required')) ? trim($operation->fetch('@error')) : 'fatal',
  1726. );
  1727. // The 'add' parameter is used for all searches in this operation.
  1728. $add = $operation->exists('add') ? $operation->fetch('add') : '';
  1729. // Grab all search items of this operation (in most cases just 1).
  1730. $searches = $operation->set('search');
  1731. foreach ($searches as $i => $search)
  1732. $actual_operation['searches'][] = array(
  1733. 'position' => $search->exists('@position') && in_array(trim($search->fetch('@position')), array('before', 'after', 'replace', 'end')) ? trim($search->fetch('@position')) : 'replace',
  1734. 'is_reg_exp' => $search->exists('@regexp') && trim($search->fetch('@regexp')) === 'true',
  1735. 'loose_whitespace' => $search->exists('@whitespace') && trim($search->fetch('@whitespace')) === 'loose',
  1736. 'search' => $search->fetch('.'),
  1737. 'add' => $add,
  1738. 'preg_search' => '',
  1739. 'preg_replace' => '',
  1740. );
  1741. // At least one search should be defined.
  1742. if (empty($actual_operation['searches']))
  1743. {
  1744. $actions[] = array(
  1745. 'type' => 'failure',
  1746. 'filename' => $working_file,
  1747. 'search' => $search['search'],
  1748. 'is_custom' => $theme > 1 ? $theme : 0,
  1749. );
  1750. // Skip to the next operation.
  1751. continue;
  1752. }
  1753. // Reverse the operations in case of undoing stuff.
  1754. if ($undo)
  1755. {
  1756. foreach ($actual_operation['searches'] as $i => $search)
  1757. {
  1758. // Reverse modification of regular expressions are not allowed.
  1759. if ($search['is_reg_exp'])
  1760. {
  1761. if ($actual_operation['error'] === 'fatal')
  1762. $actions[] = array(
  1763. 'type' => 'failure',
  1764. 'filename' => $working_file,
  1765. 'search' => $search['search'],
  1766. 'is_custom' => $theme > 1 ? $theme : 0,
  1767. );
  1768. // Continue to the next operation.
  1769. continue 2;
  1770. }
  1771. // The replacement is now the search subject...
  1772. if ($search['position'] === 'replace' || $search['position'] === 'end')
  1773. $actual_operation['searches'][$i]['search'] = $search['add'];
  1774. else
  1775. {
  1776. // Reversing a before/after modification becomes a replacement.
  1777. $actual_operation['searches'][$i]['position'] = 'replace';
  1778. if ($search['position'] === 'before')
  1779. $actual_operation['searches'][$i]['search'] .= $search['add'];
  1780. elseif ($search['position'] === 'after')
  1781. $actual_operation['searches'][$i]['search'] = $search['add'] . $search['search'];
  1782. }
  1783. // ...and the search subject is now the replacement.
  1784. $actual_operation['searches'][$i]['add'] = $search['search'];
  1785. }
  1786. }
  1787. // Sort the search list so the replaces come before the add before/after's.
  1788. if (count($actual_operation['searches']) !== 1)
  1789. {
  1790. $replacements = array();
  1791. foreach ($actual_operation['searches'] as $i => $search)
  1792. {
  1793. if ($search['position'] === 'replace')
  1794. {
  1795. $replacements[] = $search;
  1796. unset($actual_operation['searches'][$i]);
  1797. }
  1798. }
  1799. $actual_operation['searches'] = array_merge($replacements, $actual_operation['searches']);
  1800. }
  1801. // Create regular expression replacements from each search.
  1802. foreach ($actual_operation['searches'] as $i => $search)
  1803. {
  1804. // Not much needed if the search subject is already a regexp.
  1805. if ($search['is_reg_exp'])
  1806. $actual_operation['searches'][$i]['preg_search'] = $search['search'];
  1807. else
  1808. {
  1809. // Make the search subject fit into a regular expression.
  1810. $actual_operation['searches'][$i]['preg_search'] = preg_quote($search['search'], '~');
  1811. // Using 'loose', a random amount of tabs and spaces may be used.
  1812. if ($search['loose_whitespace'])
  1813. $actual_operation['searches'][$i]['preg_search'] = preg_replace('~[ \t]+~', '[ \t]+', $actual_operation['searches'][$i]['preg_search']);
  1814. }
  1815. // Shuzzup. This is done so we can safely use a regular expression. ($0 is bad!!)
  1816. $actual_operation['searches'][$i]['preg_replace'] = strtr($search['add'], array('$' => '[$PACK' . 'AGE1$]', '\\' => '[$PACK' . 'AGE2$]'));
  1817. // Before, so the replacement comes after the search subject :P
  1818. if ($search['position'] === 'before')
  1819. {
  1820. $actual_operation['searches'][$i]['preg_search'] = '(' . $actual_operation['searches'][$i]['preg_search'] . ')';
  1821. $actual_operation['searches'][$i]['preg_replace'] = '$1' . $actual_operation['searches'][$i]['preg_replace'];
  1822. }
  1823. // After, after what?
  1824. elseif ($search['position'] === 'after')
  1825. {
  1826. $actual_operation['searches'][$i]['preg_search'] = '(' . $actual_operation['searches'][$i]['preg_search'] . ')';
  1827. $actual_operation['searches'][$i]['preg_replace'] .= '$1';
  1828. }
  1829. // Position the replacement at the end of the file (or just before the closing PHP tags).
  1830. elseif ($search['position'] === 'end')
  1831. {
  1832. if ($undo)
  1833. {
  1834. $actual_operation['searches'][$i]['preg_replace'] = '';
  1835. }
  1836. else
  1837. {
  1838. $actual_operation['searches'][$i]['preg_search'] = '(\\n\\?\\>)?$';
  1839. $actual_operation['searches'][$i]['preg_replace'] .= '$1';
  1840. }
  1841. }
  1842. // Testing 1, 2, 3...
  1843. $failed = preg_match('~' . $actual_operation['searches'][$i]['preg_search'] . '~s', $working_data) === 0;
  1844. // Nope, search pattern not found.
  1845. if ($failed && $actual_operation['error'] === 'fatal')
  1846. {
  1847. $actions[] = array(
  1848. 'type' => 'failure',
  1849. 'filename' => $working_file,
  1850. 'search' => $actual_operation['searches'][$i]['preg_search'],
  1851. 'search_original' => $actual_operation['searches'][$i]['search'],
  1852. 'replace_original' => $actual_operation['searches'][$i]['add'],
  1853. 'position' => $search['position'],
  1854. 'is_custom' => $theme > 1 ? $theme : 0,
  1855. 'failed' => $failed,
  1856. );
  1857. $everything_found = false;
  1858. continue;
  1859. }
  1860. // Found, but in this case, that means failure!
  1861. elseif (!$failed && $actual_operation['error'] === 'required')
  1862. {
  1863. $actions[] = array(
  1864. 'type' => 'failure',
  1865. 'filename' => $working_file,
  1866. 'search' => $actual_operation['searches'][$i]['preg_search'],
  1867. 'search_original' => $actual_operation['searches'][$i]['search'],
  1868. 'replace_original' => $actual_operation['searches'][$i]['add'],
  1869. 'position' => $search['position'],
  1870. 'is_custom' => $theme > 1 ? $theme : 0,
  1871. 'failed' => $failed,
  1872. );
  1873. $everything_found = false;
  1874. continue;
  1875. }
  1876. // Replace it into nothing? That's not an option...unless it's an undoing end.
  1877. if ($search['add'] === '' && ($search['position'] !== 'end' || !$undo))
  1878. continue;
  1879. // Finally, we're doing some replacements.
  1880. $working_data = preg_replace('~' . $actual_operation['searches'][$i]['preg_search'] . '~s', $actual_operation['searches'][$i]['preg_replace'], $working_data, 1);
  1881. $actions[] = array(
  1882. 'type' => 'replace',
  1883. 'filename' => $working_file,
  1884. 'search' => $actual_operation['searches'][$i]['preg_search'],
  1885. 'replace' => $actual_operation['searches'][$i]['preg_replace'],
  1886. 'search_original' => $actual_operation['searches'][$i]['search'],
  1887. 'replace_original' => $actual_operation['searches'][$i]['add'],
  1888. 'position' => $search['position'],
  1889. 'failed' => $failed,
  1890. 'ignore_failure' => $failed && $actual_operation['error'] === 'ignore',
  1891. 'is_custom' => $theme > 1 ? $theme : 0,
  1892. );
  1893. }
  1894. }
  1895. // Fix any little helper symbols ;).
  1896. $working_data = strtr($working_data, array('[$PACK' . 'AGE1$]' => '$', '[$PACK' . 'AGE2$]' => '\\'));
  1897. package_chmod($working_file);
  1898. if ((file_exists($working_file) && !is_writable($working_file)) || (!file_exists($working_file) && !is_writable(dirname($working_file))))
  1899. $actions[] = array(
  1900. 'type' => 'chmod',
  1901. 'filename' => $working_file
  1902. );
  1903. if (basename($working_file) == 'Settings_bak.php')
  1904. continue;
  1905. if (!$testing && !empty($modSettings['package_make_backups']) && file_exists($working_file))
  1906. {
  1907. // No, no, not Settings.php!
  1908. if (basename($working_file) == 'Settings.php')
  1909. @copy($working_file, dirname($working_file) . '/Settings_bak.php');
  1910. else
  1911. @copy($working_file, $working_file . '~');
  1912. }
  1913. // Always call this, even if in testing, because it won't really be written in testing mode.
  1914. package_put_contents($working_file, $working_data, $testing);
  1915. $actions[] = array(
  1916. 'type' => 'saved',
  1917. 'filename' => $working_file,
  1918. 'is_custom' => $theme > 1 ? $theme : 0,
  1919. );
  1920. }
  1921. }
  1922. $actions[] = array(
  1923. 'type' => 'result',
  1924. 'status' => $everything_found
  1925. );
  1926. return $actions;
  1927. }
  1928. /**
  1929. * Parses a boardmod-style modification file (file).
  1930. * @param string $file
  1931. * @param bool $testing = true tells it the modifications shouldn't actually be saved.
  1932. * @param bool $undo = false specifies that the modifications the file requests should be undone.
  1933. * @param array $theme_paths = array()
  1934. * @return array an array of those changes made.
  1935. */
  1936. function parseBoardMod($file, $testing = true, $undo = false, $theme_paths = array())
  1937. {
  1938. global $boarddir, $sourcedir, $settings, $txt, $modSettings;
  1939. @set_time_limit(600);
  1940. $file = strtr($file, array("\r" => ''));
  1941. $working_file = null;
  1942. $working_search = null;
  1943. $working_data = '';
  1944. $replace_with = null;
  1945. $actions = array();
  1946. $everything_found = true;
  1947. // This holds all the template changes in the standard mod file.
  1948. $template_changes = array();
  1949. // This is just the temporary file.
  1950. $temp_file = $file;
  1951. // This holds the actual changes on a step counter basis.
  1952. $temp_changes = array();
  1953. $counter = 0;
  1954. $step_counter = 0;
  1955. // Before we do *anything*, let's build a list of what we're editing, as it's going to be used for other theme edits.
  1956. while (preg_match('~<(edit file|file|search|search for|add|add after|replace|add before|add above|above|before)>\n(.*?)\n</\\1>~is', $temp_file, $code_match) != 0)
  1957. {
  1958. $counter++;
  1959. // Get rid of the old stuff.
  1960. $temp_file = substr_replace($temp_file, '', strpos($temp_file, $code_match[0]), strlen($code_match[0]));
  1961. // No interest to us?
  1962. if ($code_match[1] != 'edit file' && $code_match[1] != 'file')
  1963. {
  1964. // It's a step, let's add that to the current steps.
  1965. if (isset($temp_changes[$step_counter]))
  1966. $temp_changes[$step_counter]['changes'][] = $code_match[0];
  1967. continue;
  1968. }
  1969. // We've found a new edit - let's make ourself heard, kind of.
  1970. $step_counter = $counter;
  1971. $temp_changes[$step_counter] = array(
  1972. 'title' => $code_match[0],
  1973. 'changes' => array(),
  1974. );
  1975. $filename = parse_path($code_match[2]);
  1976. // Now, is this a template file, and if so, which?
  1977. foreach ($theme_paths as $id => $theme)
  1978. {
  1979. // If this filename is relative, if so take a guess at what it should be.
  1980. if (strpos($filename, 'Themes') === 0)
  1981. $filename = $boarddir . '/' . $filename;
  1982. if (strpos($filename, $theme['theme_dir']) === 0)
  1983. $template_changes[$id][$counter] = substr($filename, strlen($theme['theme_dir']) + 1);
  1984. }
  1985. }
  1986. // Anything above $counter must be for custom themes.
  1987. $custom_template_begin = $counter;
  1988. // Reference for what theme ID this action belongs to.
  1989. $theme_id_ref = array();
  1990. // Now we know what templates we need to touch, cycle through each theme and work out what we need to edit.
  1991. if (!empty($template_changes[1]))
  1992. {
  1993. foreach ($theme_paths as $id => $theme)
  1994. {
  1995. // Don't do default, it means nothing to me.
  1996. if ($id == 1)
  1997. continue;
  1998. // Now, for each file do we need to edit it?
  1999. foreach ($template_changes[1] as $pos => $template_file)
  2000. {
  2001. // It does? Add it to the list darlin'.
  2002. if (file_exists($theme['theme_dir'] . '/' . $template_file) && (!isset($template_changes[$id][$pos]) || !in_array($template_file, $template_changes[$id][$pos])))
  2003. {
  2004. // Actually add it to the mod file too, so we can see that it will work ;)
  2005. if (!empty($temp_changes[$pos]['changes']))
  2006. {
  2007. $file .= "\n\n" . '<edit file>' . "\n" . $theme['theme_dir'] . '/' . $template_file . "\n" . '</edit file>' . "\n\n" . implode("\n\n", $temp_changes[$pos]['changes']);
  2008. $theme_id_ref[$counter] = $id;
  2009. $counter += 1 + count($temp_changes[$pos]['changes']);
  2010. }
  2011. }
  2012. }
  2013. }
  2014. }
  2015. $counter = 0;
  2016. $is_custom = 0;
  2017. while (preg_match('~<(edit file|file|search|search for|add|add after|replace|add before|add above|above|before)>\n(.*?)\n</\\1>~is', $file, $code_match) != 0)
  2018. {
  2019. // This is for working out what we should be editing.
  2020. $counter++;
  2021. // Edit a specific file.
  2022. if ($code_match[1] == 'file' || $code_match[1] == 'edit file')
  2023. {
  2024. // Backup the old file.
  2025. if ($working_file !== null)
  2026. {
  2027. package_chmod($working_file);
  2028. // Don't even dare.
  2029. if (basename($working_file) == 'Settings_bak.php')
  2030. continue;
  2031. if (!is_writable($working_file))
  2032. $actions[] = array(
  2033. 'type' => 'chmod',
  2034. 'filename' => $working_file
  2035. );
  2036. if (!$testing && !empty($modSettings['package_make_backups']) && file_exists($working_file))
  2037. {
  2038. if (basename($working_file) == 'Settings.php')
  2039. @copy($working_file, dirname($working_file) . '/Settings_bak.php');
  2040. else
  2041. @copy($working_file, $working_file . '~');
  2042. }
  2043. package_put_contents($working_file, $working_data, $testing);
  2044. }
  2045. if ($working_file !== null)
  2046. $actions[] = array(
  2047. 'type' => 'saved',
  2048. 'filename' => $working_file,
  2049. 'is_custom' => $is_custom,
  2050. );
  2051. // Is this "now working on" file a theme specific one?
  2052. $is_custom = isset($theme_id_ref[$counter - 1]) ? $theme_id_ref[$counter - 1] : 0;
  2053. // Make sure the file exists!
  2054. $working_file = parse_path($code_match[2]);
  2055. if ($working_file[0] != '/' && $working_file[1] != ':')
  2056. {
  2057. trigger_error('parseBoardMod(): The filename \'' . $working_file . '\' is not a full path!', E_USER_WARNING);
  2058. $working_file = $boarddir . '/' . $working_file;
  2059. }
  2060. if (!file_exists($working_file))
  2061. {
  2062. $places_to_check = array($boarddir, $sourcedir, $settings['default_theme_dir'], $settings['default_theme_dir'] . '/languages');
  2063. foreach ($places_to_check as $place)
  2064. if (file_exists($place . '/' . $working_file))
  2065. {
  2066. $working_file = $place . '/' . $working_file;
  2067. break;
  2068. }
  2069. }
  2070. if (file_exists($working_file))
  2071. {
  2072. // Load the new file.
  2073. $working_data = str_replace("\r", '', package_get_contents($working_file));
  2074. $actions[] = array(
  2075. 'type' => 'opened',
  2076. 'filename' => $working_file
  2077. );
  2078. }
  2079. else
  2080. {
  2081. $actions[] = array(
  2082. 'type' => 'missing',
  2083. 'filename' => $working_file
  2084. );
  2085. $working_file = null;
  2086. $everything_found = false;
  2087. }
  2088. // Can't be searching for something...
  2089. $working_search = null;
  2090. }
  2091. // Search for a specific string.
  2092. elseif (($code_match[1] == 'search' || $code_match[1] == 'search for') && $working_file !== null)
  2093. {
  2094. if ($working_search !== null)
  2095. {
  2096. $actions[] = array(
  2097. 'type' => 'error',
  2098. 'filename' => $working_file
  2099. );
  2100. $everything_found = false;
  2101. }
  2102. $working_search = $code_match[2];
  2103. }
  2104. // Must've already loaded a search string.
  2105. elseif ($working_search !== null)
  2106. {
  2107. // This is the base string....
  2108. $replace_with = $code_match[2];
  2109. // Add this afterward...
  2110. if ($code_match[1] == 'add' || $code_match[1] == 'add after')
  2111. $replace_with = $working_search . "\n" . $replace_with;
  2112. // Add this beforehand.
  2113. elseif ($code_match[1] == 'before' || $code_match[1] == 'add before' || $code_match[1] == 'above' || $code_match[1] == 'add above')
  2114. $replace_with .= "\n" . $working_search;
  2115. // Otherwise.. replace with $replace_with ;).
  2116. }
  2117. // If we have a search string, replace string, and open file..
  2118. if ($working_search !== null && $replace_with !== null && $working_file !== null)
  2119. {
  2120. // Make sure it's somewhere in the string.
  2121. if ($undo)
  2122. {
  2123. $temp = $replace_with;
  2124. $replace_with = $working_search;
  2125. $working_search = $temp;
  2126. }
  2127. if (strpos($working_data, $working_search) !== false)
  2128. {
  2129. $working_data = str_replace($working_search, $replace_with, $working_data);
  2130. $actions[] = array(
  2131. 'type' => 'replace',
  2132. 'filename' => $working_file,
  2133. 'search' => $working_search,
  2134. 'replace' => $replace_with,
  2135. 'search_original' => $working_search,
  2136. 'replace_original' => $replace_with,
  2137. 'position' => $code_match[1] == 'replace' ? 'replace' : ($code_match[1] == 'add' || $code_match[1] == 'add after' ? 'before' : 'after'),
  2138. 'is_custom' => $is_custom,
  2139. 'failed' => false,
  2140. );
  2141. }
  2142. // It wasn't found!
  2143. else
  2144. {
  2145. $actions[] = array(
  2146. 'type' => 'failure',
  2147. 'filename' => $working_file,
  2148. 'search' => $working_search,
  2149. 'is_custom' => $is_custom,
  2150. 'search_original' => $working_search,
  2151. 'replace_original' => $replace_with,
  2152. 'position' => $code_match[1] == 'replace' ? 'replace' : ($code_match[1] == 'add' || $code_match[1] == 'add after' ? 'before' : 'after'),
  2153. 'is_custom' => $is_custom,
  2154. 'failed' => true,
  2155. );
  2156. $everything_found = false;
  2157. }
  2158. // These don't hold any meaning now.
  2159. $working_search = null;
  2160. $replace_with = null;
  2161. }
  2162. // Get rid of the old tag.
  2163. $file = substr_replace($file, '', strpos($file, $code_match[0]), strlen($code_match[0]));
  2164. }
  2165. // Backup the old file.
  2166. if ($working_file !== null)
  2167. {
  2168. package_chmod($working_file);
  2169. if (!is_writable($working_file))
  2170. $actions[] = array(
  2171. 'type' => 'chmod',
  2172. 'filename' => $working_file
  2173. );
  2174. if (!$testing && !empty($modSettings['package_make_backups']) && file_exists($working_file))
  2175. {
  2176. if (basename($working_file) == 'Settings.php')
  2177. @copy($working_file, dirname($working_file) . '/Settings_bak.php');
  2178. else
  2179. @copy($working_file, $working_file . '~');
  2180. }
  2181. package_put_contents($working_file, $working_data, $testing);
  2182. }
  2183. if ($working_file !== null)
  2184. $actions[] = array(
  2185. 'type' => 'saved',
  2186. 'filename' => $working_file,
  2187. 'is_custom' => $is_custom,
  2188. );
  2189. $actions[] = array(
  2190. 'type' => 'result',
  2191. 'status' => $everything_found
  2192. );
  2193. return $actions;
  2194. }
  2195. function package_get_contents($filename)
  2196. {
  2197. global $package_cache, $modSettings;
  2198. if (!isset($package_cache))
  2199. {
  2200. $mem_check = setMemoryLimit('128M');
  2201. // Windows doesn't seem to care about the memory_limit.
  2202. if (!empty($modSettings['package_disable_cache']) || $mem_check || stripos(PHP_OS, 'win') !== false)
  2203. $package_cache = array();
  2204. else
  2205. $package_cache = false;
  2206. }
  2207. if (strpos($filename, 'Packages/') !== false || $package_cache === false || !isset($package_cache[$filename]))
  2208. return file_get_contents($filename);
  2209. else
  2210. return $package_cache[$filename];
  2211. }
  2212. /**
  2213. * Writes data to a file, almost exactly like the file_put_contents() function.
  2214. * uses FTP to create/chmod the file when necessary and available.
  2215. * uses text mode for text mode file extensions.
  2216. * returns the number of bytes written.
  2217. * @param string $filename
  2218. * @param string $data
  2219. * @return int
  2220. */
  2221. function package_put_contents($filename, $data, $testing = false)
  2222. {
  2223. global $package_ftp, $package_cache, $modSettings;
  2224. static $text_filetypes = array('php', 'txt', '.js', 'css', 'vbs', 'tml', 'htm');
  2225. if (!isset($package_cache))
  2226. {
  2227. // Try to increase the memory limit - we don't want to run out of ram!
  2228. $mem_check = setMemoryLimit('128M');
  2229. if (!empty($modSettings['package_disable_cache']) || $mem_check || stripos(PHP_OS, 'win') !== false)
  2230. $package_cache = array();
  2231. else
  2232. $package_cache = false;
  2233. }
  2234. if (isset($package_ftp))
  2235. $ftp_file = strtr($filename, array($_SESSION['pack_ftp']['root'] => ''));
  2236. if (!file_exists($filename) && isset($package_ftp))
  2237. $package_ftp->create_file($ftp_file);
  2238. elseif (!file_exists($filename))
  2239. @touch($filename);
  2240. package_chmod($filename);
  2241. if (!$testing && (strpos($filename, 'Packages/') !== false || $package_cache === false))
  2242. {
  2243. $fp = @fopen($filename, in_array(substr($filename, -3), $text_filetypes) ? 'w' : 'wb');
  2244. // We should show an error message or attempt a rollback, no?
  2245. if (!$fp)
  2246. return false;
  2247. fwrite($fp, $data);
  2248. fclose($fp);
  2249. }
  2250. elseif (strpos($filename, 'Packages/') !== false || $package_cache === false)
  2251. return strlen($data);
  2252. else
  2253. {
  2254. $package_cache[$filename] = $data;
  2255. // Permission denied, eh?
  2256. $fp = @fopen($filename, 'r+');
  2257. if (!$fp)
  2258. return false;
  2259. fclose($fp);
  2260. }
  2261. return strlen($data);
  2262. }
  2263. function package_flush_cache($trash = false)
  2264. {
  2265. global $package_ftp, $package_cache;
  2266. static $text_filetypes = array('php', 'txt', '.js', 'css', 'vbs', 'tml', 'htm');
  2267. if (empty($package_cache))
  2268. return;
  2269. // First, let's check permissions!
  2270. foreach ($package_cache as $filename => $data)
  2271. {
  2272. if (isset($package_ftp))
  2273. $ftp_file = strtr($filename, array($_SESSION['pack_ftp']['root'] => ''));
  2274. if (!file_exists($filename) && isset($package_ftp))
  2275. $package_ftp->create_file($ftp_file);
  2276. elseif (!file_exists($filename))
  2277. @touch($filename);
  2278. $result = package_chmod($filename);
  2279. // if we are not doing our test pass, then lets do a full write check
  2280. if (!$trash)
  2281. {
  2282. // acid test, can we really open this file for writing?
  2283. $fp = ($result) ? fopen($filename, 'r+') : $result;
  2284. if (!$fp)
  2285. {
  2286. // We should have package_chmod()'d them before, no?!
  2287. trigger_error('package_flush_cache(): some files are still not writable', E_USER_WARNING);
  2288. return;
  2289. }
  2290. fclose($fp);
  2291. }
  2292. }
  2293. if ($trash)
  2294. {
  2295. $package_cache = array();
  2296. return;
  2297. }
  2298. foreach ($package_cache as $filename => $data)
  2299. {
  2300. $fp = fopen($filename, in_array(substr($filename, -3), $text_filetypes) ? 'w' : 'wb');
  2301. fwrite($fp, $data);
  2302. fclose($fp);
  2303. }
  2304. $package_cache = array();
  2305. }
  2306. /**
  2307. * Try to make a file writable.
  2308. *
  2309. * @param string $filename
  2310. * @param string $perm_state = 'writable'
  2311. * @param bool $track_change = false
  2312. * @return bool True if it worked, false if it didn't
  2313. */
  2314. function package_chmod($filename, $perm_state = 'writable', $track_change = false)
  2315. {
  2316. global $package_ftp;
  2317. if (file_exists($filename) && is_writable($filename) && $perm_state == 'writable')
  2318. return true;
  2319. // Start off checking without FTP.
  2320. if (!isset($package_ftp) || $package_ftp === false)
  2321. {
  2322. for ($i = 0; $i < 2; $i++)
  2323. {
  2324. $chmod_file = $filename;
  2325. // Start off with a less agressive test.
  2326. if ($i == 0)
  2327. {
  2328. // If this file doesn't exist, then we actually want to look at whatever parent directory does.
  2329. $subTraverseLimit = 2;
  2330. while (!file_exists($chmod_file) && $subTraverseLimit)
  2331. {
  2332. $chmod_file = dirname($chmod_file);
  2333. $subTraverseLimit--;
  2334. }
  2335. // Keep track of the writable status here.
  2336. $file_permissions = @fileperms($chmod_file);
  2337. }
  2338. else
  2339. {
  2340. // This looks odd, but it's an attempt to work around PHP suExec.
  2341. if (!file_exists($chmod_file) && $perm_state == 'writable')
  2342. {
  2343. $file_permissions = @fileperms(dirname($chmod_file));
  2344. mktree(dirname($chmod_file), 0755);
  2345. @touch($chmod_file);
  2346. @chmod($chmod_file, 0755);
  2347. }
  2348. else
  2349. $file_permissions = @fileperms($chmod_file);
  2350. }
  2351. // This looks odd, but it's another attempt to work around PHP suExec.
  2352. if ($perm_state != 'writable')
  2353. @chmod($chmod_file, $perm_state == 'execute' ? 0755 : 0644);
  2354. else
  2355. {
  2356. if (!@is_writable($chmod_file))
  2357. @chmod($chmod_file, 0755);
  2358. if (!@is_writable($chmod_file))
  2359. @chmod($chmod_file, 0777);
  2360. if (!@is_writable(dirname($chmod_file)))
  2361. @chmod($chmod_file, 0755);
  2362. if (!@is_writable(dirname($chmod_file)))
  2363. @chmod($chmod_file, 0777);
  2364. }
  2365. // The ultimate writable test.
  2366. if ($perm_state == 'writable')
  2367. {
  2368. $fp = is_dir($chmod_file) ? @opendir($chmod_file) : @fopen($chmod_file, 'rb');
  2369. if (@is_writable($chmod_file) && $fp)
  2370. {
  2371. if (!is_dir($chmod_file))
  2372. fclose($fp);
  2373. else
  2374. closedir($fp);
  2375. // It worked!
  2376. if ($track_change)
  2377. $_SESSION['pack_ftp']['original_perms'][$chmod_file] = $file_permissions;
  2378. return true;
  2379. }
  2380. }
  2381. elseif ($perm_state != 'writable' && isset($_SESSION['pack_ftp']['original_perms'][$chmod_file]))
  2382. unset($_SESSION['pack_ftp']['original_perms'][$chmod_file]);
  2383. }
  2384. // If we're here we're a failure.
  2385. return false;
  2386. }
  2387. // Otherwise we do have FTP?
  2388. elseif ($package_ftp !== false && !empty($_SESSION['pack_ftp']))
  2389. {
  2390. $ftp_file = strtr($filename, array($_SESSION['pack_ftp']['root'] => ''));
  2391. // This looks odd, but it's an attempt to work around PHP suExec.
  2392. if (!file_exists($filename) && $perm_state == 'writable')
  2393. {
  2394. $file_permissions = @fileperms(dirname($filename));
  2395. mktree(dirname($filename), 0755);
  2396. $package_ftp->create_file($ftp_file);
  2397. $package_ftp->chmod($ftp_file, 0755);
  2398. }
  2399. else
  2400. $file_permissions = @fileperms($filename);
  2401. if ($perm_state != 'writable')
  2402. {
  2403. $package_ftp->chmod($ftp_file, $perm_state == 'execute' ? 0755 : 0644);
  2404. }
  2405. else
  2406. {
  2407. if (!@is_writable($filename))
  2408. $package_ftp->chmod($ftp_file, 0777);
  2409. if (!@is_writable(dirname($filename)))
  2410. $package_ftp->chmod(dirname($ftp_file), 0777);
  2411. }
  2412. if (@is_writable($filename))
  2413. {
  2414. if ($track_change)
  2415. $_SESSION['pack_ftp']['original_perms'][$filename] = $file_permissions;
  2416. return true;
  2417. }
  2418. elseif ($perm_state != 'writable' && isset($_SESSION['pack_ftp']['original_perms'][$filename]))
  2419. unset($_SESSION['pack_ftp']['original_perms'][$filename]);
  2420. }
  2421. // Oh dear, we failed if we get here.
  2422. return false;
  2423. }
  2424. /**
  2425. * Used to crypt the supplied ftp password in this session
  2426. *
  2427. * @param string $pass
  2428. * @return string The encrypted password
  2429. */
  2430. function package_crypt($pass)
  2431. {
  2432. $n = strlen($pass);
  2433. $salt = session_id();
  2434. while (strlen($salt) < $n)
  2435. $salt .= session_id();
  2436. for ($i = 0; $i < $n; $i++)
  2437. $pass{$i} = chr(ord($pass{$i}) ^ (ord($salt{$i}) - 32));
  2438. return $pass;
  2439. }
  2440. /**
  2441. * @todo Document this
  2442. * @param string $id
  2443. */
  2444. function package_create_backup($id = 'backup')
  2445. {
  2446. global $sourcedir, $boarddir, $smcFunc;
  2447. $files = array();
  2448. $base_files = array('index.php', 'SSI.php', 'agreement.txt', 'ssi_examples.php', 'ssi_examples.shtml', 'subscriptions.php');
  2449. foreach ($base_files as $file)
  2450. {
  2451. if (file_exists($boarddir . '/' . $file))
  2452. $files[realpath($boarddir . '/' . $file)] = array(
  2453. empty($_REQUEST['use_full_paths']) ? $file : $boarddir . '/' . $file,
  2454. stat($boarddir . '/' . $file)
  2455. );
  2456. }
  2457. $dirs = array(
  2458. $sourcedir => empty($_REQUEST['use_full_paths']) ? 'Sources/' : strtr($sourcedir . '/', '\\', '/')
  2459. );
  2460. $request = $smcFunc['db_query']('', '
  2461. SELECT value
  2462. FROM {db_prefix}themes
  2463. WHERE id_member = {int:no_member}
  2464. AND variable = {string:theme_dir}',
  2465. array(
  2466. 'no_member' => 0,
  2467. 'theme_dir' => 'theme_dir',
  2468. )
  2469. );
  2470. while ($row = $smcFunc['db_fetch_assoc']($request))
  2471. $dirs[$row['value']] = empty($_REQUEST['use_full_paths']) ? 'Themes/' . basename($row['value']) . '/' : strtr($row['value'] . '/', '\\', '/');
  2472. $smcFunc['db_free_result']($request);
  2473. while (!empty($dirs))
  2474. {
  2475. list ($dir, $dest) = each($dirs);
  2476. unset($dirs[$dir]);
  2477. $listing = @dir($dir);
  2478. if (!$listing)
  2479. continue;
  2480. while ($entry = $listing->read())
  2481. {
  2482. if (preg_match('~^(\.{1,2}|CVS|backup.*|help|images|.*\~)$~', $entry) != 0)
  2483. continue;
  2484. $filepath = realpath($dir . '/' . $entry);
  2485. if (isset($files[$filepath]))
  2486. continue;
  2487. $stat = stat($dir . '/' . $entry);
  2488. if ($stat['mode'] & 040000)
  2489. {
  2490. $files[$filepath] = array($dest . $entry . '/', $stat);
  2491. $dirs[$dir . '/' . $entry] = $dest . $entry . '/';
  2492. }
  2493. else
  2494. $files[$filepath] = array($dest . $entry, $stat);
  2495. }
  2496. $listing->close();
  2497. }
  2498. if (!file_exists($boarddir . '/Packages/backups'))
  2499. mktree($boarddir . '/Packages/backups', 0777);
  2500. if (!is_writable($boarddir . '/Packages/backups'))
  2501. package_chmod($boarddir . '/Packages/backups');
  2502. $output_file = $boarddir . '/Packages/backups/' . strftime('%Y-%m-%d_') . preg_replace('~[$\\\\/:<>|?*"\']~', '', $id);
  2503. $output_ext = '.tar' . (function_exists('gzopen') ? '.gz' : '');
  2504. if (file_exists($output_file . $output_ext))
  2505. {
  2506. $i = 2;
  2507. while (file_exists($output_file . '_' . $i . $output_ext))
  2508. $i++;
  2509. $output_file = $output_file . '_' . $i . $output_ext;
  2510. }
  2511. else
  2512. $output_file .= $output_ext;
  2513. @set_time_limit(300);
  2514. if (function_exists('apache_reset_timeout'))
  2515. @apache_reset_timeout();
  2516. if (function_exists('gzopen'))
  2517. {
  2518. $fwrite = 'gzwrite';
  2519. $fclose = 'gzclose';
  2520. $output = gzopen($output_file, 'wb');
  2521. }
  2522. else
  2523. {
  2524. $fwrite = 'fwrite';
  2525. $fclose = 'fclose';
  2526. $output = fopen($output_file, 'wb');
  2527. }
  2528. foreach ($files as $real_file => $file)
  2529. {
  2530. if (!file_exists($real_file))
  2531. continue;
  2532. $stat = $file[1];
  2533. if (substr($file[0], -1) == '/')
  2534. $stat['size'] = 0;
  2535. $current = pack('a100a8a8a8a12a12a8a1a100a6a2a32a32a8a8a155a12', $file[0], decoct($stat['mode']), sprintf('%06d', decoct($stat['uid'])), sprintf('%06d', decoct($stat['gid'])), decoct($stat['size']), decoct($stat['mtime']), '', 0, '', '', '', '', '', '', '', '', '');
  2536. $checksum = 256;
  2537. for ($i = 0; $i < 512; $i++)
  2538. $checksum += ord($current{$i});
  2539. $fwrite($output, substr($current, 0, 148) . pack('a8', decoct($checksum)) . substr($current, 156, 511));
  2540. if ($stat['size'] == 0)
  2541. continue;
  2542. $fp = fopen($real_file, 'rb');
  2543. while (!feof($fp))
  2544. $fwrite($output, fread($fp, 16384));
  2545. fclose($fp);
  2546. $fwrite($output, pack('a' . (512 - $stat['size'] % 512), ''));
  2547. }
  2548. $fwrite($output, pack('a1024', ''));
  2549. $fclose($output);
  2550. }
  2551. /**
  2552. * Get the contents of a URL, irrespective of allow_url_fopen.
  2553. *
  2554. * - reads the contents of an http or ftp address and retruns the page in a string
  2555. * - will accept up to 3 page redirections (redirectio_level in the function call is private)
  2556. * - if post_data is supplied, the value and lenght is posted to the given url as form data
  2557. * - URL must be supplied in lowercase
  2558. *
  2559. * @param string $url
  2560. * @param string $post_data = ''
  2561. * @param bool $keep_alive = false
  2562. * @param $redirection_level = 0
  2563. * @return string
  2564. */
  2565. function fetch_web_data($url, $post_data = '', $keep_alive = false, $redirection_level = 0)
  2566. {
  2567. global $webmaster_email, $sourcedir;
  2568. static $keep_alive_dom = null, $keep_alive_fp = null;
  2569. preg_match('~^(http|ftp)(s)?://([^/:]+)(:(\d+))?(.+)$~', $url, $match);
  2570. // An FTP url. We should try connecting and RETRieving it...
  2571. if (empty($match[1]))
  2572. return false;
  2573. elseif ($match[1] == 'ftp')
  2574. {
  2575. // Include the file containing the ftp_connection class.
  2576. require_once($sourcedir . '/Class-Package.php');
  2577. // Establish a connection and attempt to enable passive mode.
  2578. $ftp = new ftp_connection(($match[2] ? 'ssl://' : '') . $match[3], empty($match[5]) ? 21 : $match[5], 'anonymous', $webmaster_email);
  2579. if ($ftp->error !== false || !$ftp->passive())
  2580. return false;
  2581. // I want that one *points*!
  2582. fwrite($ftp->connection, 'RETR ' . $match[6] . "\r\n");
  2583. // Since passive mode worked (or we would have returned already!) open the connection.
  2584. $fp = @fsockopen($ftp->pasv['ip'], $ftp->pasv['port'], $err, $err, 5);
  2585. if (!$fp)
  2586. return false;
  2587. // The server should now say something in acknowledgement.
  2588. $ftp->check_response(150);
  2589. $data = '';
  2590. while (!feof($fp))
  2591. $data .= fread($fp, 4096);
  2592. fclose($fp);
  2593. // All done, right? Good.
  2594. $ftp->check_response(226);
  2595. $ftp->close();
  2596. }
  2597. // More likely a standard HTTP URL, first try to use cURL if available
  2598. elseif (isset($match[1]) && $match[1] === 'http' && function_exists('curl_init'))
  2599. {
  2600. // Include the file containing the curl_fetch_web_data class.
  2601. require_once($sourcedir . '/Class-CurlFetchWeb.php');
  2602. $fetch_data = new curl_fetch_web_data();
  2603. $fetch_data->get_url_data($url, $post_data);
  2604. // no errors and a 200 result, then we have a good dataset, well we at least have data ;)
  2605. if ($fetch_data->result('code') == 200 && !$fetch_data->result('error'))
  2606. $data = $fetch_data->result('body');
  2607. else
  2608. return false;
  2609. }
  2610. // This is more likely; a standard HTTP URL.
  2611. elseif (isset($match[1]) && $match[1] == 'http')
  2612. {
  2613. if ($keep_alive && $match[3] == $keep_alive_dom)
  2614. $fp = $keep_alive_fp;
  2615. if (empty($fp))
  2616. {
  2617. // Open the socket on the port we want...
  2618. $fp = @fsockopen(($match[2] ? 'ssl://' : '') . $match[3], empty($match[5]) ? ($match[2] ? 443 : 80) : $match[5], $err, $err, 5);
  2619. if (!$fp)
  2620. return false;
  2621. }
  2622. if ($keep_alive)
  2623. {
  2624. $keep_alive_dom = $match[3];
  2625. $keep_alive_fp = $fp;
  2626. }
  2627. // I want this, from there, and I'm not going to be bothering you for more (probably.)
  2628. if (empty($post_data))
  2629. {
  2630. fwrite($fp, 'GET ' . ($match[6] !== '/' ? str_replace(' ', '%20', $match[6]) : '') . ' HTTP/1.0' . "\r\n");
  2631. fwrite($fp, 'Host: ' . $match[3] . (empty($match[5]) ? ($match[2] ? ':443' : '') : ':' . $match[5]) . "\r\n");
  2632. fwrite($fp, 'User-Agent: PHP/SMF' . "\r\n");
  2633. if ($keep_alive)
  2634. fwrite($fp, 'Connection: Keep-Alive' . "\r\n\r\n");
  2635. else
  2636. fwrite($fp, 'Connection: close' . "\r\n\r\n");
  2637. }
  2638. else
  2639. {
  2640. fwrite($fp, 'POST ' . ($match[6] !== '/' ? $match[6] : '') . ' HTTP/1.0' . "\r\n");
  2641. fwrite($fp, 'Host: ' . $match[3] . (empty($match[5]) ? ($match[2] ? ':443' : '') : ':' . $match[5]) . "\r\n");
  2642. fwrite($fp, 'User-Agent: PHP/SMF' . "\r\n");
  2643. if ($keep_alive)
  2644. fwrite($fp, 'Connection: Keep-Alive' . "\r\n");
  2645. else
  2646. fwrite($fp, 'Connection: close' . "\r\n");
  2647. fwrite($fp, 'Content-Type: application/x-www-form-urlencoded' . "\r\n");
  2648. fwrite($fp, 'Content-Length: ' . strlen($post_data) . "\r\n\r\n");
  2649. fwrite($fp, $post_data);
  2650. }
  2651. $response = fgets($fp, 768);
  2652. // Redirect in case this location is permanently or temporarily moved.
  2653. if ($redirection_level < 3 && preg_match('~^HTTP/\S+\s+30[127]~i', $response) === 1)
  2654. {
  2655. $header = '';
  2656. $location = '';
  2657. while (!feof($fp) && trim($header = fgets($fp, 4096)) != '')
  2658. if (strpos($header, 'Location:') !== false)
  2659. $location = trim(substr($header, strpos($header, ':') + 1));
  2660. if (empty($location))
  2661. return false;
  2662. else
  2663. {
  2664. if (!$keep_alive)
  2665. fclose($fp);
  2666. return fetch_web_data($location, $post_data, $keep_alive, $redirection_level + 1);
  2667. }
  2668. }
  2669. // Make sure we get a 200 OK.
  2670. elseif (preg_match('~^HTTP/\S+\s+20[01]~i', $response) === 0)
  2671. return false;
  2672. // Skip the headers...
  2673. while (!feof($fp) && trim($header = fgets($fp, 4096)) != '')
  2674. {
  2675. if (preg_match('~content-length:\s*(\d+)~i', $header, $match) != 0)
  2676. $content_length = $match[1];
  2677. elseif (preg_match('~connection:\s*close~i', $header) != 0)
  2678. {
  2679. $keep_alive_dom = null;
  2680. $keep_alive = false;
  2681. }
  2682. continue;
  2683. }
  2684. $data = '';
  2685. if (isset($content_length))
  2686. {
  2687. while (!feof($fp) && strlen($data) < $content_length)
  2688. $data .= fread($fp, $content_length - strlen($data));
  2689. }
  2690. else
  2691. {
  2692. while (!feof($fp))
  2693. $data .= fread($fp, 4096);
  2694. }
  2695. if (!$keep_alive)
  2696. fclose($fp);
  2697. }
  2698. else
  2699. {
  2700. // Umm, this shouldn't happen?
  2701. trigger_error('fetch_web_data(): Bad URL', E_USER_NOTICE);
  2702. $data = false;
  2703. }
  2704. return $data;
  2705. }
  2706. // crc32 doesn't work as expected on 64-bit functions - make our own.
  2707. // http://www.php.net/crc32#79567
  2708. if (!function_exists('smf_crc32'))
  2709. {
  2710. function smf_crc32($number)
  2711. {
  2712. $crc = crc32($number);
  2713. if ($crc & 0x80000000)
  2714. {
  2715. $crc ^= 0xffffffff;
  2716. $crc += 1;
  2717. $crc = -$crc;
  2718. }
  2719. return $crc;
  2720. }
  2721. }
  2722. ?>