A lot calls saved, expression language rewritten:
[mailer.git] / inc / modules / guest / what-wernis_portal.php
1 <?php
2 /************************************************************************
3  * Mailer v0.2.1-FINAL                                Start: 10/19/2003 *
4  * ===================                          Last change: 10/19/2003 *
5  *                                                                      *
6  * -------------------------------------------------------------------- *
7  * File              : what-                                            *
8  * -------------------------------------------------------------------- *
9  * Short description :                                                  *
10  * -------------------------------------------------------------------- *
11  * Kurzbeschreibung  :                                                  *
12  * -------------------------------------------------------------------- *
13  * $Revision::                                                        $ *
14  * $Date::                                                            $ *
15  * $Tag:: 0.2.1-FINAL                                                 $ *
16  * $Author::                                                          $ *
17  * Needs to be in all Files and every File needs "svn propset           *
18  * svn:keywords Date Revision" (autoprobset!) at least!!!!!!            *
19  * -------------------------------------------------------------------- *
20  * Copyright (c) 2003 - 2009 by Roland Haeder                           *
21  * Copyright (c) 2009, 2010 by Mailer Developer Team                    *
22  * For more information visit: http://www.mxchange.org                  *
23  *                                                                      *
24  * This program is free software; you can redistribute it and/or modify *
25  * it under the terms of the GNU General Public License as published by *
26  * the Free Software Foundation; either version 2 of the License, or    *
27  * (at your option) any later version.                                  *
28  *                                                                      *
29  * This program is distributed in the hope that it will be useful,      *
30  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
31  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
32  * GNU General Public License for more details.                         *
33  *                                                                      *
34  * You should have received a copy of the GNU General Public License    *
35  * along with this program; if not, write to the Free Software          *
36  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
37  * MA  02110-1301  USA                                                  *
38  ************************************************************************/
39
40 // Some security stuff...
41 if (!defined('__SECURITY')) {
42         die();
43 } // END - if
44
45 // Special file
46 loadIncludeOnce('inc/classes/rdf.class.php');
47
48 // Add description as navigation point
49 addMenuDescription('guest', __FILE__);
50
51 if ((!isExtensionActive('wernis')) && (!isAdmin())) {
52         loadTemplate('admin_settings_saved', false, generateExtensionInactiveNotInstalledMessage('wernis'));
53         return;
54 } // END - if
55
56 outputHtml('<div style="padding-left: 10px; padding-right: 10px">');
57 $rdf = new fase4_rdf();
58 $rdf->_use_nl2br = false;
59 $rdf->use_dynamic_display(false);
60 $rdf->set_CacheDir(getCachePath() . '');
61 $rdf->set_salt(md5(getConfig('SITE_KEY')));
62 $rdf->set_max_item(10);
63 $rdf->set_Options(
64         array(
65                 'textinput' => 'hidden',
66                 'sitelink'  => 'http://www.wds66.com',
67                 'refid'     => getConfig('wernis_refid'),
68                 'reflink'   => '/ref.php?refid=',
69         )
70 );
71
72 // Use proxy?
73 if ((getConfig('proxy_host') != '') && (getConfig('proxy_port') > 0)) {
74         // Set proxy data
75         $rdf->set_proxy(getConfig('proxy_host'), getConfig('proxy_port'));
76
77         // Use auth?
78         if (getConfig('proxy_username') != '') {
79                 // Set auth data
80                 $rdf->set_proxy_auth(getConfig('proxy_username'), getConfig('proxy_password'));
81         } // END  - if
82 } // END - if
83
84 $rdf->parse_RDF('http://www.wds66.com/rss.xml');
85
86 // Fix to avoid 'headers already sent' bug. Thanks to Profi-Concept
87 outputHtml($rdf->finish(true));
88 outputHtml('</div>');
89
90 // [EOF]
91 ?>