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

Contents of /newmaint/gpgmain.wml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations) (download)
Sun Jul 15 00:13:59 2001 UTC (11 years, 10 months ago) by tbm
Branch: MAIN
Changes since 1.1: +1 -0 lines
add missing }
1 tbm 1.1 <?
2     session_start();
3     include("gpgconfig.inc");
4     include("common.inc");
5     include("gpgcommon.inc");
6    
7     ?>
8     #use wml::gpgpage title="GPG Signing Coordination - Your profile"
9     <?
10     if (!session_is_registered("s_username")) {
11     ?>
12     <STRONG>
13     You should not be here!</STRONG>
14     <? } else {
15     session_register("s_username");
16 tbm 1.2 }
17 tbm 1.1 ?>
18    
19     <?
20     if (($db = open_db())) {
21     $sql = "SELECT id, forename, surname FROM people WHERE email = '$s_username'";
22     if (! ($query = pg_exec($db, $sql))) {
23     echo "Problem with query", pg_ErrorMessage($db), "<BR>";
24     return FALSE;
25     }
26    
27     if (pg_NumRows($result) != 1) {
28     echo "That e-mail address is wicked.";
29     return FALSE;
30     }
31    
32     print_all_places($row["id"], TRUE);
33     }
34     ?>
35    

  ViewVC Help
Powered by ViewVC 1.1.5