    <div class="row">
        <div class="col-12">
            <pre class="with-hljs"><code class="lang-php">&lt;?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l&#039;internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2016                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l&#039;aide en ligne.   *
\***************************************************************************/

if (!defined(&#039;_ECRIRE_INC_VERSION&#039;)) return;

include_spip(&#039;inc/presentation&#039;);
include_spip(&#039;base/dump&#039;);

// http://doc.spip.org/@exec_admin_tech_dist
function exec_admin_tech_dist()
{
	if (!autoriser(&#039;sauvegarder&#039;)){
		include_spip(&#039;inc/minipres&#039;);
		echo minipres();
	} else exec_admin_tech_args(options_avancees_dump());
}

function exec_admin_tech_args($tables)
{
	$commencer_page = charger_fonction(&#039;commencer_page&#039;, &#039;inc&#039;);
	echo $commencer_page(_T(&#039;titre_admin_tech&#039;), &quot;configuration&quot;, &quot;base&quot;);

	echo &quot;&lt;br /&gt;&lt;br /&gt;&quot;;
	echo &quot;&lt;div style=&#039;text-align: center&#039;&gt;&quot;,
	  gros_titre(_T(&#039;titre_admin_tech&#039;),&#039;&#039;,false),
	  &#039;&lt;/div&gt;&#039;;

	if ($GLOBALS[&#039;connect_toutes_rubriques&#039;]) {

		echo barre_onglets(&quot;administration&quot;, &quot;sauver&quot;) . &quot;&lt;br /&gt;&quot;;
		echo debut_gauche(&#039;&#039;,true);
		echo debut_boite_info(true);
		echo  _T(&#039;info_gauche_admin_tech&#039;);
		echo fin_boite_info(true);
		$repertoire = _DIR_DUMP;
		if (!@file_exists($repertoire)
			AND !$repertoire = sous_repertoire(_DIR_DUMP,&#039;&#039;,false,true)
		) {
			$repertoire = preg_replace(&#039;,&#039;._DIR_TMP.&#039;,&#039;, &#039;&#039;, _DIR_DUMP);
			$repertoire = sous_repertoire(_DIR_TMP, $repertoire);
		}
		$dir_dump = $repertoire;

	} else {
		echo debut_gauche(&#039;&#039;, true);
		$dir_dump = determine_upload();
	}

	echo debut_droite(&#039;&#039;,true);

	//
	// Sauvegarde de la base
	//

	// a passer en fonction
	if (substr(_DIR_IMG, 0, strlen(_DIR_RACINE)) === _DIR_RACINE)
	 $dir_img = substr(_DIR_IMG,strlen(_DIR_RACINE));
	else
	 $dir_img = _DIR_IMG;

	$dir_dump = joli_repertoire($dir_dump);

	$res = 
	 &quot;\n&lt;p&gt;&quot; .
	 http_img_pack(&#039;warning.gif&#039;, _T(&#039;info_avertissement&#039;), 
		 &quot;style=&#039;width: 48px; height: 48px; float: right;margin: 10px;&#039;&quot;) .
	 _T(&#039;texte_admin_tech_01&#039;,
	   array(&#039;dossier&#039; =&gt; &#039;&lt;i&gt;&#039;.$dir_dump.&#039;&lt;/i&gt;&#039;, &#039;img&#039;=&gt;&#039;&lt;i&gt;&#039;.$dir_img.&#039;&lt;/i&gt;&#039;)) .
	 &#039;&amp;nbsp;&#039; .
	 _T(&#039;texte_admin_tech_02&#039;,
		array(&#039;spipnet&#039; =&gt; $GLOBALS[&#039;home_server&#039;]
		      . &#039;/&#039; .  $GLOBALS[&#039;spip_lang&#039;] . &#039;_article1489.html&#039;
		      )) .
	&quot;&lt;/p&gt;&quot;;
	
	$file = nom_fichier_dump();

	$chercher_rubrique = charger_fonction(&#039;chercher_rubrique&#039;, &#039;inc&#039;);

	$form = $chercher_rubrique(0, $GLOBALS[&#039;connect_id_rubrique&#039;] ? &#039;breve&#039; : &#039;rubrique&#039;, $GLOBALS[&#039;connect_id_rubrique&#039;], 0, &#039;admin_tech&#039;);

	if ($form) {
		if (preg_match(&#039;@^&lt;select([^&gt;]*)&gt;(\s*&lt;option[^&gt;]*)&gt;([^[&lt;]+)(.*)$@s&#039;, $form, $r)) {
			if (!strpos($r[2], &#039;selected=&#039;))
				$r[2] .=  &quot; selected=&#039;selected&#039;&quot;;
			$form = &quot;&lt;select onchange=&#039;x=this.options[this.options.selectedIndex].firstChild.data.match(/\w+/); findObj_forcer(\&quot;znom_sauvegarde\&quot;).value=x[0]; findObj_forcer(\&quot;nom_sauvegarde\&quot;).value=x[0];&#039;&quot; . $r[1] . &#039;&gt;&#039; . $r[2] . &#039;&gt;&#039; . $r[3] . $r[4];
			if ($GLOBALS[&#039;connect_id_rubrique&#039;])
				$file = trim($r[3]);
		} elseif (preg_match(&#039;@^&lt;input[^&gt;]*&gt;([^[&lt;]+)@&#039;, $form, $r))
			if ($GLOBALS[&#039;connect_id_rubrique&#039;])
				$file = trim($r[1]);

		$res .= &quot;\n&lt;label for=&#039;id_parent&#039;&gt;&quot; .
			  _T(&#039;texte_admin_tech_04&#039;) .
			  &quot;&lt;/label&gt;&lt;br /&gt;&lt;br /&gt;\n&quot; .
			  $form . &#039;&lt;br /&gt;&lt;br /&gt;&#039;;
	}

	$nom = &quot;\n&lt;input name=&#039;nom_sauvegarde&#039; id=&#039;nom_sauvegarde&#039; size=&#039;40&#039; value=&#039;$file&#039; /&gt;&quot;;
	$znom = &quot;\n&lt;input name=&#039;znom_sauvegarde&#039; id=&#039;znom_sauvegarde&#039; size=&#039;40&#039; value=&#039;$file&#039; /&gt;&quot;;
	
	$res .= 
	  _T(&#039;texte_admin_tech_03&#039;) .
	  &quot;\n&lt;ul&gt;&quot; .
	  &quot;\n&lt;li style=&#039;list-style:none;&#039;&gt;&lt;input type=&#039;radio&#039; name=&#039;gz&#039; value=&#039;1&#039; id=&#039;gz_on&#039; checked=&#039;checked&#039; /&gt;&lt;label for=&#039;gz_on&#039;&gt; &quot; .
	  _T(&#039;bouton_radio_sauvegarde_compressee&#039;, array(&#039;fichier&#039;=&gt;&#039;&#039;)) .
	  &quot; &lt;/label&gt;&lt;br /&gt;\n&quot; .
	  &#039;&lt;b&gt;&#039; . $dir_dump . &quot;&lt;/b&gt;&quot; .
	  $znom .
	  &quot;&lt;b&gt;.xml.gz&lt;/b&gt;&lt;/li&gt;&quot; . 
	  &quot;\n&lt;li style=&#039;list-style:none;&#039;&gt;&lt;input type=&#039;radio&#039; name=&#039;gz&#039; value=&#039;0&#039; id=&#039;gz_off&#039; /&gt;&lt;label for=&#039;gz_off&#039;&gt;&quot; .
	  _T(&#039;bouton_radio_sauvegarde_non_compressee&#039;,  array(&#039;fichier&#039;=&gt;&#039;&#039;)) .
	  &#039;&lt;/label&gt;&lt;br /&gt;&lt;b&gt;&#039; .
	  $dir_dump .
	  &quot;&lt;/b&gt;$nom&lt;b&gt;.xml&lt;/b&gt;&lt;/li&gt;&lt;/ul&gt;\n&quot; .
	  &quot;\n&lt;input type=&#039;hidden&#039; name=&#039;reinstall&#039; value=&#039;non&#039; /&gt;&quot;;

	if (!$GLOBALS[&#039;connect_toutes_rubriques&#039;])
	  foreach($tables as $k =&gt; $v)
	    if (!strpos($v, &#039;checked&#039;)) unset($tables[$k]);

	$bloc = &quot;&lt;h3&gt;&quot;._T(&#039;install_tables_base&#039;).&quot;&lt;/h3&gt;&quot; .
	  &quot;\n&lt;ol style=&#039;spip&#039;&gt;&lt;li&gt;\n&quot; .
	  join(&quot;&lt;/li&gt;\n&lt;li&gt;&quot;, $tables) .
	  &quot;&lt;/li&gt;&lt;/ol&gt;\n&quot;;

	$bloc = block_parfois_visible(&#039;export_tables&#039;, _T(&#039;info_options_avancees&#039;), $bloc, &#039;&#039;, false);

	echo
		debut_cadre_trait_couleur(&#039;&#039;,true,&#039;&#039;,_T(&#039;texte_sauvegarde&#039;),&#039;sauvegarder&#039;),
		generer_form_ecrire(&#039;export_all&#039;, $res . $bloc, &#039;&#039;, _T(&#039;texte_sauvegarde_base&#039;)),
 		fin_cadre_trait_couleur(true);

	//
	// Restauration de la base
	//

	// restaurer est equivalent a detruire, ou pas (cas des restaurations partielles, a affiner ?)
	if (autoriser(&#039;detruire&#039;)) {
	
		echo debut_cadre_trait_couleur(&#039;&#039;,true,&#039;&#039;, _T(&#039;texte_restaurer_base&#039;),&#039;restaurer&#039;);
		echo admin_sauvegardes($dir_dump, _request(&#039;tri&#039;));
		echo fin_cadre_trait_couleur(true);

		//
		// Lien vers la reparation
		//

		if (!_request(&#039;reinstall&#039;) AND version_compare(sql_version(),&#039;3.23.14&#039;,&#039;&gt;=&#039;)) {
			$res = &quot;\n&lt;p style=&#039;text-align: justify;&#039;&gt;&quot;.
				_T(&#039;texte_crash_base&#039;) .
				&quot;\n&lt;/p&gt;&quot;;
	
			echo 
				debut_cadre_trait_couleur(&#039;&#039;,true,&#039;&#039;,_T(&#039;texte_recuperer_base&#039;),&#039;reparer&#039;),
				generer_form_ecrire(&#039;admin_repair&#039;, $res, &#039;&#039;, _T(&#039;bouton_tenter_recuperation&#039;)),
				fin_cadre_trait_couleur(true);
		}
	}
	echo &quot;&lt;br /&gt;&quot;;

	echo fin_gauche(), fin_page();
}

function admin_sauvegardes($dir_dump, $tri)
{
	$liste_dump = preg_files(_DIR_DUMP,&#039;\.xml(\.gz)?$&#039;,50,false);
	$selected = end($liste_dump);
	$n = strlen(_DIR_DUMP);
	$tl = $tt = $td = array(); 
	$f = &quot;&quot;;
	$i = 0;
	foreach($liste_dump as $fichier){
		$i++;
		$d = filemtime($fichier);
		$t = filesize($fichier);
		$s = ($fichier==$selected);
		$class = &#039;row_&#039;.alterner($i, &#039;even&#039;, &#039;odd&#039;);
		$fichier = substr($fichier, $n);
		$tl[]= liste_sauvegardes($i, $fichier, $class, $s, $d, $t);
		$td[] = $d;
		$tt[] = $t;
	}
	if ($tri == &#039;taille&#039;)
		array_multisort($tt, SORT_ASC, $tl);
	elseif ($tri == &#039;date&#039;)
		array_multisort($td, SORT_ASC, $tl);
	$fichier_defaut = $f ? basename($f) : str_replace(array(&quot;@stamp@&quot;,&quot;@nom_site@&quot;),array(&quot;&quot;,&quot;&quot;),_SPIP_DUMP);

	$self = self();
	$class = &#039;row_&#039;.alterner($i+1, &#039;even&#039;, &#039;odd&#039;);
	$head = !$tl ? &#039;&#039; : (
		&quot;\n&lt;tr&gt;&quot;
		. &#039;&lt;th&gt;&lt;/th&gt;&lt;th&gt;&lt;a href=&quot;&#039;
		. parametre_url($self, &#039;tri&#039;, &#039;nom&#039;)
		. &#039;#sauvegardes&quot;&gt;&#039;
		. _T(&#039;info_nom&#039;)
	  	. &quot;&lt;/a&gt;&lt;/th&gt;\n&quot; . &#039;&lt;th&gt;&lt;a href=&quot;&#039;
		. parametre_url($self, &#039;tri&#039;, &#039;taille&#039;)
		. &#039;#sauvegardes&quot;&gt;&#039;
		. _T(&#039;taille_octets&#039;, array(&#039;taille&#039; =&gt; &#039;&#039;))
	 	. &quot;&lt;/a&gt;&lt;/th&gt;\n&quot; . &#039;&lt;th&gt;&lt;a href=&quot;&#039;
		. parametre_url($self, &#039;tri&#039;, &#039;date&#039;)
		. &#039;#sauvegardes&quot;&gt;&#039;
		. _T(&#039;public:date&#039;)
		. &#039;&lt;/a&gt;&lt;/th&gt;&lt;/tr&gt;&#039;);
	  
	$texte = _T(&#039;texte_compresse_ou_non&#039;).&quot;&amp;nbsp;&quot;;

	$h = _T(&#039;texte_restaurer_sauvegarde&#039;, array(&#039;dossier&#039; =&gt; &#039;&lt;i&gt;&#039;.$dir_dump.&#039;&lt;/i&gt;&#039;));

	$res = &quot;\n&lt;p style=&#039;text-align: justify;&#039;&gt; &quot;
		. $h
		.  &#039;&lt;/p&gt;&#039;
		. _T(&#039;entree_nom_fichier&#039;, array(&#039;texte_compresse&#039; =&gt; $texte))

		. &quot;\n&lt;br /&gt;&lt;br /&gt;&lt;table class=&#039;spip&#039; id=&#039;sauvegardes&#039;&gt;&quot;
		. $head
		.  join(&#039;&#039;,$tl)
		. &quot;\n&lt;tr class=&#039;$class&#039;&gt;&lt;td&gt;&lt;input type=&#039;radio&#039; name=&#039;archive&#039; id=&#039;archive&#039; value=&#039;&#039; /&gt;&lt;/td&gt;&lt;td  colspan=&#039;3&#039;&gt;&quot;
		. &quot;\n&lt;span class=&#039;spip_x-small&#039;&gt;&lt;input type=&#039;text&#039; name=&#039;archive_perso&#039; id=&#039;archive_perso&#039; value=&#039;$fichier_defaut&#039; size=&#039;55&#039; /&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
		. &#039;&lt;/table&gt;&#039;;


	$plie = _T(&#039;info_options_avancees&#039;);
	// restauration partielle / fusion
	$opt = debut_cadre_enfonce(&#039;&#039;,true) .
		&quot;\n&lt;div&gt;&quot; .
		 &quot;&lt;input name=&#039;insertion&#039; id=&#039;insertion&#039; type=&#039;checkbox&#039; /&gt;&amp;nbsp; &lt;label for=&#039;insertion&#039;&gt;&quot;. 
		  _T(&#039;sauvegarde_fusionner&#039;) .
		  &quot;&lt;/label&gt;&lt;br /&gt;\n&quot; .
		 &quot;&lt;input name=&#039;statut&#039; id=&#039;statut&#039; type=&#039;checkbox&#039; /&gt;&amp;nbsp; &lt;label for=&#039;statut&#039;&gt;\n&quot;. 
		  _T(&#039;sauvegarde_fusionner_depublier&#039;) .
		  &quot;&lt;/label&gt;&lt;br /&gt;\n&quot; .
		  &quot;&lt;label for=&#039;url_site&#039;&gt;&quot; .
		  _T(&#039;sauvegarde_url_origine&#039;) .
		  &quot;&lt;/label&gt;&quot; .
		  &quot; &amp;nbsp;\n&lt;input name=&#039;url_site&#039; id=&#039;url_site&#039; type=&#039;text&#039; size=&#039;25&#039; /&gt;&quot; .
		  &#039;&lt;/div&gt;&#039; .
		  fin_cadre_enfonce(true);

	$res .= block_parfois_visible(&#039;import_tables&#039;, $plie, $opt, &#039;&#039;, false);

	return generer_form_ecrire(&#039;import_all&#039;, $res, &#039;&#039;, _T(&#039;bouton_restaurer_base&#039;));
}


// http://doc.spip.org/@liste_sauvegardes
function liste_sauvegardes($key, $fichier, $class, $selected, $date, $taille)
{
	return &quot;\n&lt;tr class=&#039;$class&#039;&gt;&lt;td&gt;&lt;input type=&#039;radio&#039; name=&#039;archive&#039; value=&#039;&quot;
		. $fichier
		. &quot;&#039; id=&#039;dump_$key&#039; &quot;
		. ($selected?&quot;checked=&#039;checked&#039; &quot;:&quot;&quot;)
		. &quot;/&gt;&lt;/td&gt;&lt;td&gt;\n&lt;label for=&#039;dump_$key&#039;&gt;&quot;
		. str_replace(&#039;/&#039;, &#039; / &#039;, $fichier)
		. &quot;&lt;/label&gt;&lt;/td&gt;&lt;td style=&#039;text-align: right&#039;&gt;&quot;
		. taille_en_octets($taille)
		. &#039;&lt;/td&gt;&lt;td&gt;&#039;
		. affdate_heure(date(&#039;Y-m-d H:i:s&#039;,$date))
		. &#039;&lt;/td&gt;&lt;/tr&gt;&#039;;
}

// http://doc.spip.org/@nom_fichier_dump
function nom_fichier_dump()
{
	global $connect_toutes_rubriques;

	if ($connect_toutes_rubriques AND file_exists(_DIR_DUMP))
		$dir = _DIR_DUMP;
	else $dir = determine_upload();
	$site = isset($GLOBALS[&#039;meta&#039;][&#039;nom_site&#039;])
	  ? preg_replace(array(&quot;,\W,is&quot;,&quot;,_(?=_),&quot;,&quot;,_$,&quot;),array(&quot;_&quot;,&quot;&quot;,&quot;&quot;), couper(translitteration(trim($GLOBALS[&#039;meta&#039;][&#039;nom_site&#039;])),30,&quot;&quot;))
	  : &#039;spip&#039;;

	$site .= &#039;_&#039; . date(&#039;Ymd&#039;);

	$nom = $site;
	$cpt=0;
	while (file_exists($dir. $nom . &quot;.xml&quot;) OR
	       file_exists($dir. $nom . &quot;.xml.gz&quot;)) {
		$nom = $site . sprintf(&#039;_%03d&#039;, ++$cpt);
	}
	return $nom;
}


function options_avancees_dump(){
	list($tables,) = base_liste_table_for_dump(lister_tables_noexport());
	return controle_tables_en_base(&#039;export&#039;, $tables);
}


// Fabrique la liste a cocher des tables presentes
function controle_tables_en_base($name, $check)
{
	$p = &#039;/^&#039; . $GLOBALS[&#039;table_prefix&#039;] . &#039;/&#039;;
	$res = $check;
	foreach(sql_alltable() as $t) {
		$t = preg_replace($p, &#039;spip&#039;, $t);
		if (!in_array($t, $check)) $res[]= $t;
	}
	sort($res);

	foreach ($res as $k =&gt; $t) {

		$res[$k] = &quot;&lt;input type=&#039;checkbox&#039; value=&#039;$t&#039; name=&#039;$name&quot;
			. &quot;[]&#039;&quot;
			. (in_array($t, $check) ? &quot; checked=&#039;checked&#039;&quot; : &#039;&#039;) 
			. &quot;/&gt;\n&quot;
			. $t
			. &quot; (&quot;
			.  sql_countsel($t)
	  		. &quot;)&quot;;
	}
	return $res;
}

?&gt;
</code></pre>        </div>
    </div>