* removed wrong include.
[citadel.git] / ctdlphp / myinfo.php
1 <?PHP
2 $vcard="";
3 include "ctdlheader.php";
4 bbs_page_header();
5
6 echo    "This is an example of the use of " .
7 "ctdl_get_registration_info() to display " .
8 "your personal data.<BR><BR>\n" ;
9
10 echo    "<TABLE border=1>" .
11 "<TR>" .
12 "<TD><B>User</B></TD>" .
13 "<TD><B>Room</B></TD>" .
14 "<TD><B>Host</B></TD>" .
15 "</TR>" ;
16
17 ctdl_goto("My Citadel Config");
18 list($num_msgs, $response, $msgs) = ctdl_msgs("", "");
19
20 echo "num_msgs: " . $num_msgs . "<BR>\n" ;
21 echo "response: " . htmlspecialchars($response) . "<BR>\n" ;
22
23 if ($num_msgs > 0) foreach ($msgs as $msgnum) {
24         print_r($msgnum);
25         $result = get_message_partlist($msgnum);
26         if (is_array($result) &&
27             ($result[4]=="text/x-vcard"))
28         {
29                 list($size, $vcard) = download_attachment($msgnum, $result[2]);
30         }
31 }
32
33 echo "</TABLE>\n <pre>\n".$vcard."</pre>";
34
35 echo "putting it back in!";
36
37 $vcard = 
38 "begin:vcard
39 n:Surename;CName;mitte;Mrs;IV
40 title:master
41 fn:CName Surename
42 org:citadel.org
43 adr:blarg;Road To nowhere ;10;Metropolis;NRW;12345;Country
44 tel;home:888888888
45 tel;work:99999999999
46 email;internet:user@samplecitadel.org
47 email;internet:me@samplecitadel.org
48 email;internet:myself@samplecitadel.org
49 email;internet:i@samplecitadel.org
50 FBURL;PREF:http://samplecitadel.org/Cname_Lastname.vfb
51 UID:Citadel vCard: personal card for Cname Lastname at samplecitadel.org
52 end:vcard
53 ";
54 preg_replace('/Sir/', 'Mrs',$vcard);
55 echo "Now its: <pre>\n".$vcard."</pre>";
56 $entearray=array();
57 $entarray['post']=1;
58 $entarray['format_type']=FMT_RFC822;
59 enter_message_0($entarray, "text/x-vcard; charset=UTF-8", $vcard);
60 ?>
61
62 <BR>Sample links<BR>
63 <a href="welcome.php">Page One</a><BR>
64 <a href="page3.php">Page Three</a><BR>
65
66 <?PHP
67         bbs_page_footer();
68 ?>