/[webwml]/newmaint/fddelete.wml
ViewVC logotype

Contents of /newmaint/fddelete.wml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations) (download)
Sun Aug 14 19:16:26 2005 UTC (7 years, 9 months ago) by tbm
Branch: MAIN
CVS Tags: HEAD
Changes since 1.4: +4 -0 lines
add proper copyright headers.  This code is unser the GPL, version 2 or
higher.  Most of it has been written by Craig Small <csmall@debian.org> and
Martin Michlmayr <tbm@cyrius.com>, with some contributions from Peter
Palfrader <weasel@debian.org>, Ralf Treinen <treinen@debian.org> and
others.
1 tbm 1.5 # Copyright (C) 2001 Craig Small <csmall@debian.org>
2     # Copyright (C) 2001, 2002, 2003, 2004, 2005 Martin Michlmayr <tbm@cyrius.com>
3     # This file may be distributed under the GPL v2 or higher.
4    
5 csmall 1.1 <?
6     session_start();
7     include("config.inc");
8     include("common.inc");
9    
10     function delete_am($login) {
11     if (! ($db = open_db())) {
12     return FALSE;
13     }
14     $sql = "DELETE from manager WHERE login='$login'";
15     if (! ($query = pg_exec($db, $sql))) {
16     echo "Problem with query", pg_ErrorMessage($db), "<BR>";
17     echo "SQL was: $sql<BR>\n";
18     return FALSE;
19     }
20     return TRUE;
21     }
22     ?>
23     #use wml::nmpage title="Debian New Maintainer - Delete Application Manager"
24     <?
25     if (!session_is_registered("s_username") || !session_is_registered("s_isam") || !session_is_registered("s_isfd")) {
26     ?>
27     <STRONG>
28 tbm 1.3 You should not be here!</STRONG>
29 csmall 1.1 <? } else {
30     session_register("s_username");
31     session_register("s_isfd");
32     session_register("s_isdam");
33 tbm 1.4 $login = $_REQUEST['login'];
34 csmall 1.1 ?>
35     <H1>Debian New Maintainer Status</H1><BR>
36 tbm 1.4 <? if ($_SESSION['s_isfd'] == 't' && $login != "") { ?>
37 csmall 1.1 <H3>Deleting Application Manager</H3>
38     <?
39 tbm 1.4 if (delete_am($_REQUEST['login'])) {
40 csmall 1.1 ?>
41 tbm 1.2 <P>Successfully deleted <? echo $login; ?> from the list of managers.
42 csmall 1.1 <? } else { ?>
43     <P> Could not delete <? echo $login; ?> from list of managers.
44     <? } # check database query ?>
45     <? } else { #you are not a fd, go away ?>
46     <P>What are you doing here huh?
47     <? } } ?>

  ViewVC Help
Powered by ViewVC 1.1.5