[SPIP] +version 3.0.7
[ptitvelo/web/www.git] / www / plugins-dist / urls_etendues / action / supprimer_url.php
diff --git a/www/plugins-dist/urls_etendues/action/supprimer_url.php b/www/plugins-dist/urls_etendues/action/supprimer_url.php
new file mode 100644 (file)
index 0000000..1199f45
--- /dev/null
@@ -0,0 +1,40 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2013                                                *
+ *  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'aide en ligne.   *
+\***************************************************************************/
+
+if (!defined("_ECRIRE_INC_VERSION")) return;
+
+function action_supprimer_url_dist($arg=null) {
+
+       if (is_null($arg)){
+               // Rien a faire ici pour le moment
+               $securiser_action = charger_fonction('securiser_action', 'inc');
+               $arg = $securiser_action();
+       }
+       $arg = explode('-',$arg);
+       $id_parent = array_shift($arg);
+       $url = implode('-',$arg);
+
+       $where = 'id_parent='.intval($id_parent)." AND url=".sql_quote($url);
+       if($row = sql_fetsel('*','spip_urls',$where)){
+
+               if (autoriser('modifier',$row['type'],$row['id_objet'])){
+                       sql_delete('spip_urls',$where);
+               }
+               else
+                       spip_log('supprimer sans autorisation l\'URL '.$id_parent."://".$url,"urls."._LOG_ERREUR);
+
+       }
+       else
+               spip_log('Impossible de supprimer une URL inconnue '.$id_parent."://".$url,"urls."._LOG_INFO_IMPORTANTE);
+       
+
+}