www/plugins-dist/urls_etendues/action/supprimer_url.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2019                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 if (!defined("_ECRIRE_INC_VERSION")) {
  14         return;
  15 }
  16
  17 function action_supprimer_url_dist($arg = null) {
  18
  19         if (is_null($arg)) {
  20                 // Rien a faire ici pour le moment
  21                 $securiser_action = charger_fonction('securiser_action', 'inc');
  22                 $arg = $securiser_action();
  23         }
  24         if (strncmp($arg, "-1-", 3) == 0) {
  25                 $id_parent = -1;
  26                 $url = substr($arg, 3);
  27         } else {
  28                 $arg = explode('-', $arg);
  29                 $id_parent = array_shift($arg);
  30                 $url = implode('-', $arg);
  31         }
  32
  33         $where = 'id_parent=' . intval($id_parent) . " AND url=" . sql_quote($url);
  34         if ($row = sql_fetsel('*', 'spip_urls', $where)) {
  35
  36                 if (autoriser('modifierurl', $row['type'], $row['id_objet'])) {
  37                         include_spip('action/editer_url');
  38                         url_delete($row['type'], $row['id_objet'], $url, $id_parent);
  39                 } else {
  40                         spip_log('supprimer sans autorisation l\'URL ' . $id_parent . "://" . $url, "urls." . _LOG_ERREUR);
  41                 }
  42
  43         } else {
  44                 spip_log('Impossible de supprimer une URL inconnue ' . $id_parent . "://" . $url, "urls." . _LOG_INFO_IMPORTANTE);
  45         }
  46
  47
  48 }