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

Contents of /newmaint/fddelete.wml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations) (download)
Sun Jun 3 22:49:40 2001 UTC (11 years, 11 months ago) by tbm
Branch: MAIN
Changes since 1.1: +1 -1 lines
speling
1 csmall 1.1 <?
2     session_start();
3     include("config.inc");
4     include("common.inc");
5    
6     function delete_am($login) {
7     if (! ($db = open_db())) {
8     return FALSE;
9     }
10     $sql = "DELETE from manager WHERE login='$login'";
11     if (! ($query = pg_exec($db, $sql))) {
12     echo "Problem with query", pg_ErrorMessage($db), "<BR>";
13     echo "SQL was: $sql<BR>\n";
14     return FALSE;
15     }
16     return TRUE;
17     }
18     ?>
19     #use wml::nmpage title="Debian New Maintainer - Delete Application Manager"
20     <?
21     if (!session_is_registered("s_username") || !session_is_registered("s_isam") || !session_is_registered("s_isfd")) {
22     ?>
23     <STRONG>
24     You should not be here!!</STRONG>
25     <? } else {
26     session_register("s_username");
27     session_register("s_isfd");
28     session_register("s_isdam");
29     ?>
30     <H1>Debian New Maintainer Status</H1><BR>
31     <? if ($s_isfd == 't' && $login != "") { ?>
32     <H3>Deleting Application Manager</H3>
33     <?
34     if (delete_am($login)) {
35     ?>
36 tbm 1.2 <P>Successfully deleted <? echo $login; ?> from the list of managers.
37 csmall 1.1 <? } else { ?>
38     <P> Could not delete <? echo $login; ?> from list of managers.
39     <? } # check database query ?>
40     <? } else { #you are not a fd, go away ?>
41     <P>What are you doing here huh?
42     <? } } ?>

  ViewVC Help
Powered by ViewVC 1.1.5