summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormensonge <mensonge@b3834d28-1941-0410-a4f8-b48e95affb8f>2008-09-11 16:53:16 +0000
committermensonge <mensonge@b3834d28-1941-0410-a4f8-b48e95affb8f>2008-09-11 16:53:16 +0000
commit0074b6d54e2d753a5a83965def84571bcdc69214 (patch)
tree7f2d232519a9dbd02a49b31637a6b8ee5f65e371
parent1d059dc06d24e02c858c43d70eaa70453d51cdff (diff)
downloadsemanticscuttle-0074b6d54e2d753a5a83965def84571bcdc69214.tar.gz
semanticscuttle-0074b6d54e2d753a5a83965def84571bcdc69214.tar.bz2
Bug fix: add admin page
git-svn-id: https://semanticscuttle.svn.sourceforge.net/svnroot/semanticscuttle/trunk@147 b3834d28-1941-0410-a4f8-b48e95affb8f
-rw-r--r--AUTHORS14
-rw-r--r--admin.php78
2 files changed, 90 insertions, 2 deletions
diff --git a/AUTHORS b/AUTHORS
index a45e1e7..cb1f890 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,4 +1,4 @@
-Scuttle contains code from the following applications:
+Scuttle and SemanticScuttle contain codes from the following applications:
------------
GPL Licenced
@@ -15,4 +15,14 @@ UTF8 Helper Functions
Andreas Gohr <andi@splitbrain.org>
XSPF Web Music Player (Flash)
-http://musicplayer.sourceforge.net/ \ No newline at end of file
+http://musicplayer.sourceforge.net/
+
+
+----
+
+Patches were realised by :
+
+* Simple Admin-Interface for deleting unwanted users
+Idea of the patch from Andreas Jaggi, for details visit:
+http://sourceforge.net/tracker/index.php?func=detail&aid=1543065&group_id=134378&atid=729862
+Adaptation by Andreas Keller (aka Arakel) http://akeller.eu for Takuya Misawa.
diff --git a/admin.php b/admin.php
new file mode 100644
index 0000000..c5563f6
--- /dev/null
+++ b/admin.php
@@ -0,0 +1,78 @@
+<?php
+/***************************************************************************
+Copyright (C) 2007 - 2008 SemanticScuttle project (fork from Scuttle)
+http://sourceforge.net/projects/semanticscuttle/
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+***************************************************************************/
+
+require_once('header.inc.php');
+
+$userservice = & ServiceFactory :: getServiceInstance('UserService');
+$bookmark2tagservice = & ServiceFactory :: getServiceInstance('Bookmark2Tagservice');
+$bookmarkservice = & ServiceFactory :: getServiceInstance('BookmarkService');
+$tag2tagservice = & ServiceFactory :: getServiceInstance('Tag2TagService');
+$templateservice = & ServiceFactory :: getServiceInstance('TemplateService');
+
+// Header variables
+$tplVars['subtitle'] = T_('Manage users');
+$tplVars['loadjs'] = true;
+
+if ( !$userservice->isLoggedOn() ) {
+ header('Location: '. createURL('login', ''));
+ exit();
+}
+
+$currentUser = $userservice->getCurrentUser();
+$currentUserID = $userservice->getCurrentUserId();
+$currentUsername = $currentUser[$userservice->getFieldName('username')];
+
+if ( !$userservice->isAdmin($currentUserID) ) {
+ header('Location: '. createURL('bookmarks', $currentUsername));
+ exit();
+}
+
+@list($url, $action, $user) = isset($_SERVER['PATH_INFO']) ? explode('/', $_SERVER['PATH_INFO']) : NULL;
+
+if ( $action ) {
+ switch ( $action ) {
+ case 'delete':
+ if ( $user && ($userinfo = $userservice->getUserByUsername($user)) ) {
+ $uId = $userinfo['uId'];
+
+ $tag2tagservice->removeLinkedTags('','','',$uId);
+ $userservice->deleteUser($uId);
+ $bookmark2tagservice->deleteTagsForUser($uId);
+ // XXX: don't delete bookmarks before tags, else tags can't be deleted !!!
+ $bookmarkservice->deleteBookmarksForUser($uId);
+
+ $tplVars['msg'] = sprintf(T_('%s and all his bookmarks and tags were deleted.'), $user);
+ }
+ break;
+ default:
+ // DO NOTHING
+ }
+}
+
+$templatename = 'userlist.tpl';
+$users =& $userservice->getAllUsers();
+
+if ( !is_array($users) ) {
+ $users = array();
+}
+
+$tplVars['users'] =& $users;
+
+$templateservice->loadTemplate($templatename, $tplVars);
+?>