From: centaurix <centaurix@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Mon, 20 Jan 2003 04:17:00 +0000 (+0000)
Subject: finally. real code. no. not real code. some convert tool even not finished.
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=97424ab09d7be5ff862008d16f20b41b7e90eb6c;p=squirrelmail.git

finally. real code. no. not real code. some convert tool even not finished.
will output .vcard address card files in the data directory (own direcoty later)

second small step to get cool vcard features into SM core.
to be continued (and finalized hopefully to end of feb 2003)

getting some sleep. (5am now)


git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@4440 7612ce4b-ef26-0410-bec9-ea0150e637f0
---

diff --git a/src/abook2vcard.php b/src/abook2vcard.php
new file mode 100644
index 00000000..a9d6567e
--- /dev/null
+++ b/src/abook2vcard.php
@@ -0,0 +1,49 @@
+<?php
+
+/**
+ * read_body.php
+ *
+ * Copyright (c) 1999-2003 The SquirrelMail Project Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * This file is used for reading the msgs array and displaying
+ * the resulting emails in the right frame.
+ *
+ * $Id$
+ */
+
+/* Path for SquirrelMail required files. */
+define('SM_PATH','../');
+
+/* SquirrelMail required files. */
+require_once(SM_PATH . 'include/validate.php');
+require_once(SM_PATH . 'functions/strings.php');
+require_once(SM_PATH . 'functions/prefs.php');
+require_once(SM_PATH . 'config/config.php');
+
+$abook_file=$data_dir.$username.".abook";
+$vcard_dir=$data_dir.$username."/";
+
+$fp = fopen ($abook_file,"r");
+while (!feof ($fp)) {
+    $buffer .= fgets($fp, 4096);
+}
+
+fclose ($fp);
+
+$abook=explode("|",$buffer);
+print_r($abook);
+echo "<p>".$buffer;
+
+while ( list($nick,$email,$fn,$ln,$email)=each($abook) ) {
+echo "
+BEGIN:VCARD
+VERSION:3.0
+N:$ln;$fn;
+NICKNAME:$nick
+EMAIL;INTERNET:$email
+END:VCARD<P>
+";
+}
+
+?>