No regular expressions were active.
1 |
|
<?
|
|
1 |
|
<?
|
2 |
|
|
|
2 |
|
|
3 |
|
/*********
**********
**********
**********
**********
**********
**********
******
|
|
3 |
|
/*********
**********
**********
**********
**********
**********
**********
******
|
4 |
|
*
D
olphin Sma
rt Communi
ty Builder
|
|
4 |
|
*
D
olphin Sma
rt Communi
ty Builder
|
5 |
|
*
---------
--------
|
|
5 |
|
*
---------
--------
|
6 |
|
* begi
n
: M
on Mar 23
2006
|
|
6 |
|
* begi
n
: M
on Mar 23
2006
|
7 |
|
* copy
right
: (
C) 2006 Bo
onEx Group
|
|
7 |
|
* copy
right
: (
C) 2006 Bo
onEx Group
|
8 |
|
* webs
ite
: h
ttp://www.
boonex.com
/
|
|
8 |
|
* webs
ite
: h
ttp://www.
boonex.com
/
|
9 |
|
* This fil
e is part
of Dolphin
- Smart C
ommunity B
uilder
|
|
9 |
|
* This fil
e is part
of Dolphin
- Smart C
ommunity B
uilder
|
10 |
|
*
|
|
10 |
|
*
|
11 |
|
* Dolphin
is free so
ftware. Th
is work is
licensed
under a Cr
eative Com
mons Attri
bution 3.0
License.
|
|
11 |
|
* Dolphin
is free so
ftware. Th
is work is
licensed
under a Cr
eative Com
mons Attri
bution 3.0
License.
|
12 |
|
* http://c
reativecom
mons.org/l
icenses/by
/3.0/
|
|
12 |
|
* http://c
reativecom
mons.org/l
icenses/by
/3.0/
|
13 |
|
*
|
|
13 |
|
*
|
14 |
|
* Dolphin
is distrib
uted in th
e hope tha
t it will
be useful,
but WITHO
UT ANY WAR
RANTY;
|
|
14 |
|
* Dolphin
is distrib
uted in th
e hope tha
t it will
be useful,
but WITHO
UT ANY WAR
RANTY;
|
15 |
|
* without
even the i
mplied war
ranty of
MERCHANTAB
ILITY or F
ITNESS FOR
A PARTICU
LAR PURPOS
E.
|
|
15 |
|
* without
even the i
mplied war
ranty of
MERCHANTAB
ILITY or F
ITNESS FOR
A PARTICU
LAR PURPOS
E.
|
16 |
|
* See the
Creative C
ommons Att
ribution 3
.0 License
for more
details.
|
|
16 |
|
* See the
Creative C
ommons Att
ribution 3
.0 License
for more
details.
|
17 |
|
* You shou
ld have re
ceived a c
opy of the
Creative
Commons At
tribution
3.0 Licens
e along wi
th Dolphin
,
|
|
17 |
|
* You shou
ld have re
ceived a c
opy of the
Creative
Commons At
tribution
3.0 Licens
e along wi
th Dolphin
,
|
18 |
|
* see lice
nse.txt fi
le; if not
, write to
marketing
@boonex.co
m
|
|
18 |
|
* see lice
nse.txt fi
le; if not
, write to
marketing
@boonex.co
m
|
19 |
|
**********
**********
**********
**********
**********
**********
**********
*****/
|
|
19 |
|
**********
**********
**********
**********
**********
**********
**********
*****/
|
20 |
|
|
|
20 |
|
|
21 |
|
require_on
ce( 'inc/h
eader.inc.
php' );
|
|
21 |
|
require_on
ce( 'inc/h
eader.inc.
php' );
|
22 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'd
esign.inc.
php' );
|
|
22 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'd
esign.inc.
php' );
|
23 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'p
rofiles.in
c.php' );
|
|
23 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'p
rofiles.in
c.php' );
|
24 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'u
tils.inc.p
hp' );
|
|
24 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'u
tils.inc.p
hp' );
|
25 |
|
|
|
25 |
|
|
26 |
|
// -------
-------- p
age variab
les and lo
gin
|
|
26 |
|
// -------
-------- p
age variab
les and lo
gin
|
27 |
|
|
|
27 |
|
|
28 |
|
$_page['na
me_index']
= 29;
|
|
28 |
|
$_page['na
me_index']
= 29;
|
29 |
|
$_page['cs
s_name']
= 'tel
lfriend.cs
s';
|
|
29 |
|
$_page['cs
s_name']
= 'tel
lfriend.cs
s';
|
30 |
|
|
|
30 |
|
|
31 |
|
$logged['m
ember'] =
member_aut
h( 0, fals
e );
|
|
31 |
|
$logged['m
ember'] =
member_aut
h( 0, fals
e );
|
32 |
|
|
|
32 |
|
|
33 |
|
$_page['he
ader'] = _
t("_Tell a
friend");
|
|
33 |
|
$_page['he
ader'] = _
t("_Tell a
friend");
|
34 |
|
$_page['he
ader_text'
] = _t("_T
ell a frie
nd");
|
|
34 |
|
$_page['he
ader_text'
] = _t("_T
ell a frie
nd");
|
35 |
|
|
|
35 |
|
|
36 |
|
$profileID
= (int)($
_GET['ID']
? $_GET['
ID'] : $_P
OST['ID'])
;
|
|
36 |
|
$profileID
= (int)($
_GET['ID']
? $_GET['
ID'] : $_P
OST['ID'])
;
|
37 |
|
|
|
37 |
|
|
38 |
|
if ( $prof
ileID > 0
)
|
|
38 |
|
if ( $prof
ileID > 0
)
|
39 |
|
{
|
|
39 |
|
{
|
40 |
|
$yourI
D = (int)$
_COOKIE['m
emberID'];
|
|
40 |
|
$yourI
D = (int)$
_COOKIE['m
emberID'];
|
41 |
|
|
|
41 |
|
|
42 |
|
if ( $
yourID > 0
)
|
|
42 |
|
if ( $
yourID > 0
)
|
43 |
|
{
|
|
43 |
|
{
|
44 |
|
$y
our_arr =
getProfile
Info( $you
rID ); //d
b_arr("SEL
ECT `NickN
ame`, `Ema
il` FROM `
Profiles`
WHERE `ID`
= $yourID
", 0);
|
|
44 |
|
$y
our_arr =
getProfile
Info( $you
rID ); //d
b_arr("SEL
ECT `NickN
ame`, `Ema
il` FROM `
Profiles`
WHERE `ID`
= $yourID
", 0);
|
45 |
|
$y
ourName =
$your_arr[
'NickName'
];
|
|
45 |
|
$y
ourName =
$your_arr[
'NickName'
];
|
46 |
|
$y
ourEmail =
$your_arr
['Email'];
|
|
46 |
|
$y
ourEmail =
$your_arr
['Email'];
|
47 |
|
}
|
|
47 |
|
}
|
48 |
|
}
|
|
48 |
|
}
|
49 |
|
|
|
49 |
|
|
50 |
|
|
|
50 |
|
|
51 |
|
// -------
-------- G
ET/POST ac
tions
|
|
51 |
|
// -------
-------- G
ET/POST ac
tions
|
52 |
|
|
|
52 |
|
|
53 |
|
if ( $_POS
T['submit'
] )
|
|
53 |
|
if ( $_POS
T['submit'
] )
|
54 |
|
{
|
|
54 |
|
{
|
55 |
|
if ( S
endTellFri
end() )
|
|
55 |
|
if ( S
endTellFri
end() )
|
56 |
|
{
|
|
56 |
|
{
|
57 |
|
$t
ell_friend
_text = "<
b>"._t("_E
mail was s
uccessfull
y sent")."
</b>";
|
|
57 |
|
$t
ell_friend
_text = "<
b>"._t("_E
mail was s
uccessfull
y sent")."
</b>";
|
58 |
|
}
|
|
58 |
|
}
|
59 |
|
else
|
|
59 |
|
else
|
60 |
|
{
|
|
60 |
|
{
|
61 |
|
$t
ell_friend
_text = "<
b style=\"
color:red;
\">"._t("_
Email sent
failed").
"</b>";
|
|
61 |
|
$t
ell_friend
_text = "<
b style=\"
color:red;
\">"._t("_
Email sent
failed").
"</b>";
|
62 |
|
}
|
|
62 |
|
}
|
63 |
|
}
|
|
63 |
|
}
|
64 |
|
else
|
|
64 |
|
else
|
65 |
|
{
|
|
65 |
|
{
|
66 |
|
if ( $
profileID
> 0)
|
|
66 |
|
if ( $
profileID
> 0)
|
67 |
|
$t
ell_friend
_text = _t
("_TELLAFR
IEND2", $s
ite['title
']);
|
|
67 |
|
$t
ell_friend
_text = _t
("_TELLAFR
IEND2", $s
ite['title
']);
|
68 |
|
else
|
|
68 |
|
else
|
69 |
|
$t
ell_friend
_text = ''
;//_t("_TE
LLAFRIEND"
, $site['t
itle']);
|
|
69 |
|
$t
ell_friend
_text = ''
;//_t("_TE
LLAFRIEND"
, $site['t
itle']);
|
70 |
|
}
|
|
70 |
|
}
|
71 |
|
|
|
71 |
|
|
72 |
|
|
|
72 |
|
|
73 |
|
// -------
-------- p
age compon
ents
|
|
73 |
|
// -------
-------- p
age compon
ents
|
74 |
|
|
|
74 |
|
|
75 |
|
$_ni = $_p
age['name_
index'];
|
|
75 |
|
$_ni = $_p
age['name_
index'];
|
76 |
|
$_page_con
t[$_ni]['i
nvite_frie
nd_text']
= $tell_fr
iend_text;
|
|
76 |
|
$_page_con
t[$_ni]['i
nvite_frie
nd_text']
= $tell_fr
iend_text;
|
77 |
|
$_page_con
t[$_ni]['i
d'] = $pro
fileID;
|
|
77 |
|
$_page_con
t[$_ni]['i
d'] = $pro
fileID;
|
78 |
|
$_page_con
t[$_ni]['y
our_name']
= _t("_Yo
ur name");
|
|
78 |
|
$_page_con
t[$_ni]['y
our_name']
= _t("_Yo
ur name");
|
79 |
|
$_page_con
t[$_ni]['y
our_name_v
al'] = $yo
urName;
|
|
79 |
|
$_page_con
t[$_ni]['y
our_name_v
al'] = $yo
urName;
|
80 |
|
$_page_con
t[$_ni]['y
our_email'
] = _t("_Y
our email"
);
|
|
80 |
|
$_page_con
t[$_ni]['y
our_email'
] = _t("_Y
our email"
);
|
81 |
|
$_page_con
t[$_ni]['y
our_email_
val'] = $y
ourEmail;
|
|
81 |
|
$_page_con
t[$_ni]['y
our_email_
val'] = $y
ourEmail;
|
82 |
|
$_page_con
t[$_ni]['f
riend_emai
l'] = _t("
_Friend em
ail");
|
|
82 |
|
$_page_con
t[$_ni]['f
riend_emai
l'] = _t("
_Friend em
ail");
|
83 |
|
$_page_con
t[$_ni]['s
end_letter
'] = _t("_
Send Lette
r");
|
|
83 |
|
$_page_con
t[$_ni]['s
end_letter
'] = _t("_
Send Lette
r");
|
84 |
|
|
|
84 |
|
|
|
|
85 |
|
$sYEmlNotV
alidC = _t
('_Incorre
ct Email')
;
|
|
|
86 |
|
$sFEmlNotV
alidC = $s
YEmlNotVal
idC . ' ('
. _t('_Fr
iend email
') . ')';
|
|
|
87 |
|
|
|
|
88 |
|
$_page_con
t[$_ni]['o
nsubmit']
= <<<EOF
|
|
|
89 |
|
onsubmit="
var feml
= document
.getElemen
tById('fri
ends_email
s'); var y
eml = docu
ment.getEl
ementById(
'email');
var bRet =
true; if
(emailChec
k(yeml.val
ue)==false
) { alert(
'{$sYEmlNo
tValidC}')
; bRet = f
alse; } if
(emailChe
ck(feml.va
lue)==fals
e) { alert
('{$sFEmlN
otValidC}'
); bRet =
false; } r
eturn bRet
; "
|
|
|
90 |
|
EOF;
|
|
|
91 |
|
|
85 |
|
// -------
-------- [
END] page
components
|
|
92 |
|
// -------
-------- [
END] page
components
|
86 |
|
|
|
93 |
|
|
87 |
|
PageCode()
;
|
|
94 |
|
PageCode()
;
|
88 |
|
|
|
95 |
|
|
89 |
|
// -------
-------- p
age compon
ents funct
ions
|
|
96 |
|
// -------
-------- p
age compon
ents funct
ions
|
90 |
|
|
|
97 |
|
|
91 |
|
/**
|
|
98 |
|
/**
|
92 |
|
* send "t
ell a frie
nd" email
|
|
99 |
|
* send "t
ell a frie
nd" email
|
93 |
|
*/
|
|
100 |
|
*/
|
94 |
|
|
|
101 |
|
|
95 |
|
function S
endTellFri
end()
|
|
102 |
|
function S
endTellFri
end()
|
96 |
|
{
|
|
103 |
|
{
|
97 |
|
global
$site;
|
|
104 |
|
global
$site;
|
98 |
|
global
$profileI
D;
|
|
105 |
|
global
$profileI
D;
|
99 |
|
global
$yourID;
|
|
106 |
|
global
$yourID;
|
100 |
|
global
$yourEmai
l;
|
|
107 |
|
global
$yourEmai
l;
|
101 |
|
global
$yourName
;
|
|
108 |
|
global
$yourName
;
|
102 |
|
global
$logged;
|
|
109 |
|
global
$logged;
|
103 |
|
|
|
110 |
|
|
104 |
|
if ( s
trlen( tri
m($_POST['
friends_em
ails']) )
<= 0 )
|
|
111 |
|
if ( s
trlen( tri
m($_POST['
friends_em
ails']) )
<= 0 )
|
105 |
|
re
turn 0;
|
|
112 |
|
re
turn 0;
|
106 |
|
if ( s
trlen( tri
m($_POST['
email']) )
<= 0 )
|
|
113 |
|
if ( s
trlen( tri
m($_POST['
email']) )
<= 0 )
|
107 |
|
re
turn 0;
|
|
114 |
|
re
turn 0;
|
108 |
|
|
|
115 |
|
|
109 |
|
// Get
notificat
ion email
and subjec
t from glo
bal settin
gs.
|
|
116 |
|
// Get
notificat
ion email
and subjec
t from glo
bal settin
gs.
|
110 |
|
if ( $
profileID
)
|
|
117 |
|
if ( $
profileID
)
|
111 |
|
{
|
|
118 |
|
{
|
112 |
|
$m
essage = g
etParam( "
t_TellFrie
ndProfile"
);
|
|
119 |
|
$m
essage = g
etParam( "
t_TellFrie
ndProfile"
);
|
113 |
|
$s
ubject = g
etParam('t
_TellFrien
dProfile_s
ubject');
|
|
120 |
|
$s
ubject = g
etParam('t
_TellFrien
dProfile_s
ubject');
|
114 |
|
}
|
|
121 |
|
}
|
115 |
|
else
|
|
122 |
|
else
|
116 |
|
{
|
|
123 |
|
{
|
117 |
|
$m
essage = g
etParam( "
t_TellFrie
nd" );
|
|
124 |
|
$m
essage = g
etParam( "
t_TellFrie
nd" );
|
118 |
|
$s
ubject = g
etParam('t
_TellFrien
d_subject'
);
|
|
125 |
|
$s
ubject = g
etParam('t
_TellFrien
d_subject'
);
|
119 |
|
}
|
|
126 |
|
}
|
120 |
|
|
|
127 |
|
|
121 |
|
$recip
ient = $_P
OST['frien
ds_emails'
];
|
|
128 |
|
$recip
ient = $_P
OST['frien
ds_emails'
];
|
122 |
|
|
|
129 |
|
|
123 |
|
$heade
rs .= "Fro
m: =?UTF-8
?B?" . bas
e64_encode
( $_POST['
name'] ) .
"?= <{$_P
OST['email
']}>";
|
|
130 |
|
$heade
rs .= "Fro
m: =?UTF-8
?B?" . bas
e64_encode
( $_POST['
name'] ) .
"?= <{$_P
OST['email
']}>";
|
124 |
|
$heade
rs = "MIME
-Version:
1.0\r\n" .
"Content-
type: text
/html; cha
rset=UTF-8
\r\n" . $h
eaders;
|
|
131 |
|
$heade
rs = "MIME
-Version:
1.0\r\n" .
"Content-
type: text
/html; cha
rset=UTF-8
\r\n" . $h
eaders;
|
125 |
|
$heade
rs2 .= "-f
{$_POST['e
mail']}";
|
|
132 |
|
$heade
rs2 .= "-f
{$_POST['e
mail']}";
|
126 |
|
|
|
133 |
|
|
127 |
|
$sLink
Add = $log
ged['membe
r'] ? 'idF
riend='. (
int)$_COOK
IE['member
ID'] : '';
|
|
134 |
|
$sLink
Add = $log
ged['membe
r'] ? 'idF
riend='. (
int)$_COOK
IE['member
ID'] : '';
|
128 |
|
|
|
135 |
|
|
129 |
|
if ( $
profileID
)
|
|
136 |
|
if ( $
profileID
)
|
130 |
|
$L
ink = getP
rofileLink
($profileI
D, $sLinkA
dd);
|
|
137 |
|
$L
ink = getP
rofileLink
($profileI
D, $sLinkA
dd);
|
131 |
|
else
|
|
138 |
|
else
|
132 |
|
$L
ink = "{$s
ite['url']
}" . ( $sL
inkAdd ? "
?{$sLinkAd
d}" : '' )
;
|
|
139 |
|
$L
ink = "{$s
ite['url']
}" . ( $sL
inkAdd ? "
?{$sLinkAd
d}" : '' )
;
|
133 |
|
|
|
140 |
|
|
134 |
|
$subje
ct = '=?UT
F-8?B?' .
base64_enc
ode( $subj
ect ) . '?
=';
|
|
141 |
|
$subje
ct = '=?UT
F-8?B?' .
base64_enc
ode( $subj
ect ) . '?
=';
|
135 |
|
|
|
142 |
|
|
136 |
|
$messa
ge = str_r
eplace( "<
Link>", $L
ink, $mess
age );
|
|
143 |
|
$messa
ge = str_r
eplace( "<
Link>", $L
ink, $mess
age );
|
137 |
|
$messa
ge = str_r
eplace( "<
FromName>"
, $_POST['
name'], $m
essage );
|
|
144 |
|
$messa
ge = str_r
eplace( "<
FromName>"
, $_POST['
name'], $m
essage );
|
138 |
|
|
|
145 |
|
|
139 |
|
return
mail( $re
cipient, $
subject, $
message, $
headers, $
headers2 )
;
|
|
146 |
|
return
mail( $re
cipient, $
subject, $
message, $
headers, $
headers2 )
;
|
140 |
|
}
|
|
147 |
|
}
|
141 |
|
|
|
148 |
|
|
142 |
|
?>
|
|
149 |
|
?>
|