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

Contents of /newmaint/fddelete.wml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download)
Sun Jun 3 22:49:40 2001 UTC (12 years ago) by tbm
Branch: MAIN
Changes since 1.1: +1 -1 lines
speling
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 <P>Successfully deleted <? echo $login; ?> from the list of managers.
37 <? } 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