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 . 'm
odules.inc
.php' );
|
|
24 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 'm
odules.inc
.php' );
|
25 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 't
ags.inc.ph
p' );
|
|
25 |
|
require_on
ce( BX_DIR
ECTORY_PAT
H_INC . 't
ags.inc.ph
p' );
|
26 |
|
|
|
26 |
|
|
27 |
|
// -------
-------- p
age variab
les and lo
gin
|
|
27 |
|
// -------
-------- p
age variab
les and lo
gin
|
28 |
|
|
|
28 |
|
|
29 |
|
$_page['na
me_index']
= 36;
|
|
29 |
|
$_page['na
me_index']
= 36;
|
30 |
|
$_page['cs
s_name']
= 'cha
nge_status
.css';
|
|
30 |
|
$_page['cs
s_name']
= 'cha
nge_status
.css';
|
31 |
|
|
|
31 |
|
|
32 |
|
$logged['m
ember'] =
member_aut
h(0);
|
|
32 |
|
$logged['m
ember'] =
member_aut
h(0);
|
33 |
|
|
|
33 |
|
|
34 |
|
$_page['he
ader'] = _
t( "_CHANG
E_STATUS_H
" );
|
|
34 |
|
$_page['he
ader'] = _
t( "_CHANG
E_STATUS_H
" );
|
35 |
|
$_page['he
ader_text'
] = _t( "_
CHANGE_STA
TUS_H1", $
site['titl
e'] );
|
|
35 |
|
$_page['he
ader_text'
] = _t( "_
CHANGE_STA
TUS_H1", $
site['titl
e'] );
|
36 |
|
|
|
36 |
|
|
37 |
|
// -------
-------- p
age compon
ents
|
|
37 |
|
// -------
-------- p
age compon
ents
|
38 |
|
|
|
38 |
|
|
39 |
|
$_ni = $_p
age['name_
index'];
|
|
39 |
|
$_ni = $_p
age['name_
index'];
|
40 |
|
$_page_con
t[$_ni]['p
age_main_c
ode'] = Pa
geCompPage
MainCode()
;
|
|
40 |
|
$_page_con
t[$_ni]['p
age_main_c
ode'] = Pa
geCompPage
MainCode()
;
|
41 |
|
|
|
41 |
|
|
42 |
|
// -------
-------- [
END] page
components
|
|
42 |
|
// -------
-------- [
END] page
components
|
43 |
|
|
|
43 |
|
|
44 |
|
PageCode()
;
|
|
44 |
|
PageCode()
;
|
45 |
|
|
|
45 |
|
|
46 |
|
// -------
-------- p
age compon
ents funct
ions
|
|
46 |
|
// -------
-------- p
age compon
ents funct
ions
|
47 |
|
|
|
47 |
|
|
48 |
|
/**
|
|
48 |
|
/**
|
49 |
|
* page co
de functio
n
|
|
49 |
|
* page co
de functio
n
|
50 |
|
*/
|
|
50 |
|
*/
|
51 |
|
function P
ageCompPag
eMainCode(
)
|
|
51 |
|
function P
ageCompPag
eMainCode(
)
|
52 |
|
{
|
|
52 |
|
{
|
53 |
|
global
$dir;
|
|
|
54 |
|
|
|
|
55 |
|
$membe
r['ID'] =
(int)$_COO
KIE['membe
rID'];
|
|
53 |
|
$membe
r['ID'] =
(int)$_COO
KIE['membe
rID'];
|
56 |
|
|
|
54 |
|
|
57 |
|
ob_sta
rt();
|
|
55 |
|
ob_sta
rt();
|
58 |
|
|
|
56 |
|
|
59 |
|
$p_arr
= getProf
ileInfo( $
member['ID
'] );
|
|
57 |
|
$p_arr
= getProf
ileInfo( $
member['ID
'] );
|
60 |
|
|
|
58 |
|
|
61 |
|
if ( $
_POST['CHA
NGE_STATUS
'] )
|
|
59 |
|
if ( $
_POST['CHA
NGE_STATUS
'] )
|
62 |
|
{
|
|
60 |
|
{
|
63 |
|
sw
itch( $_PO
ST['CHANGE
_STATUS']
)
|
|
61 |
|
sw
itch( $_PO
ST['CHANGE
_STATUS']
)
|
64 |
|
{
|
|
62 |
|
{
|
65 |
|
case 'SU
SPEND':
|
|
63 |
|
case 'SU
SPEND':
|
66 |
|
if (
$p_arr['S
tatus'] ==
'Active'
)
|
|
64 |
|
if (
$p_arr['S
tatus'] ==
'Active'
)
|
67 |
|
{
|
|
65 |
|
{
|
68 |
|
db_res( "U
PDATE `Pro
files` SET
`Status`
= 'Suspend
ed' WHERE
`ID` = '{$
member['ID
']}';" );
|
|
66 |
|
db_res( "U
PDATE `Pro
files` SET
`Status`
= 'Suspend
ed' WHERE
`ID` = '{$
member['ID
']}';" );
|
69 |
|
|
|
67 |
|
|
70 |
|
modules_bl
ock($p_arr
['ID']);
|
|
68 |
|
modules_bl
ock($p_arr
['ID']);
|
71 |
|
}
|
|
69 |
|
}
|
72 |
|
break;
|
|
70 |
|
break;
|
73 |
|
|
|
71 |
|
|
74 |
|
case 'AC
TIVATE':
|
|
72 |
|
case 'AC
TIVATE':
|
75 |
|
if (
$p_arr['S
tatus'] ==
'Suspende
d' )
|
|
73 |
|
if (
$p_arr['S
tatus'] ==
'Suspende
d' )
|
76 |
|
{
|
|
74 |
|
{
|
77 |
|
db_res( "U
PDATE `Pro
files` SET
`Status`
= 'Active'
WHERE `ID
` = {$memb
er['ID']}"
);
|
|
75 |
|
db_res( "U
PDATE `Pro
files` SET
`Status`
= 'Active'
WHERE `ID
` = {$memb
er['ID']}"
);
|
78 |
|
|
|
76 |
|
|
79 |
|
// call mo
dules to a
dd user to
modules
|
|
77 |
|
// call mo
dules to a
dd user to
modules
|
80 |
|
$check_res
= checkAc
tion($memb
er['ID'],
ACTION_ID_
USE_CHAT);
|
|
78 |
|
$check_res
= checkAc
tion($memb
er['ID'],
ACTION_ID_
USE_CHAT);
|
81 |
|
if ( $chec
k_res[CHEC
K_ACTION_R
ESULT] ==
CHECK_ACTI
ON_RESULT_
ALLOWED )
|
|
79 |
|
if ( $chec
k_res[CHEC
K_ACTION_R
ESULT] ==
CHECK_ACTI
ON_RESULT_
ALLOWED )
|
82 |
|
module
s_unblock(
$p_arr['ID
'], 'chat'
);
|
|
80 |
|
module
s_unblock(
$p_arr['ID
'], 'chat'
);
|
83 |
|
|
|
81 |
|
|
84 |
|
$check_res
= checkAc
tion($memb
er['ID'],
ACTION_ID_
USE_FORUM)
;
|
|
82 |
|
$check_res
= checkAc
tion($memb
er['ID'],
ACTION_ID_
USE_FORUM)
;
|
85 |
|
if ( $chec
k_res[CHEC
K_ACTION_R
ESULT] ==
CHECK_ACTI
ON_RESULT_
ALLOWED )
|
|
83 |
|
if ( $chec
k_res[CHEC
K_ACTION_R
ESULT] ==
CHECK_ACTI
ON_RESULT_
ALLOWED )
|
86 |
|
module
s_unblock(
$p_arr['ID
'], 'forum
');
|
|
84 |
|
module
s_unblock(
$p_arr['ID
'], 'forum
');
|
87 |
|
}
|
|
85 |
|
}
|
88 |
|
break;
|
|
86 |
|
break;
|
89 |
|
}
|
|
87 |
|
}
|
90 |
|
|
|
88 |
|
|
91 |
|
cr
eateUserDa
taFile( $p
_arr['ID']
);
|
|
89 |
|
cr
eateUserDa
taFile( $p
_arr['ID']
);
|
92 |
|
re
parseObjTa
gs( 'profi
le', $memb
er['ID'] )
;
|
|
90 |
|
re
parseObjTa
gs( 'profi
le', $memb
er['ID'] )
;
|
93 |
|
|
|
91 |
|
|
94 |
|
$p
_arr = get
ProfileInf
o( $member
['ID'] );
|
|
92 |
|
$p
_arr = get
ProfileInf
o( $member
['ID'] );
|
95 |
|
}
|
|
93 |
|
}
|
96 |
|
|
|
94 |
|
|
97 |
|
echo "
<table wid
th=\"100%\
" cellpadd
ing=4 cell
spacing=4>
<td align=
center cla
ss=text2>"
;
|
|
95 |
|
echo "
<table wid
th=\"100%\
" cellpadd
ing=4 cell
spacing=4>
<td align=
center cla
ss=text2>"
;
|
98 |
|
|
|
96 |
|
|
99 |
|
echo _
t( "_Profi
le status"
);
|
|
97 |
|
echo _
t( "_Profi
le status"
);
|
100 |
|
|
|
98 |
|
|
101 |
|
?>: <b><fo
nt class=p
rof_stat_<
? echo $p_
arr['Statu
s']; ?>>&n
bsp;<? ech
o _t( "__$
p_arr[Stat
us]" ); ?>
</fo
nt></b><br
/>
|
|
99 |
|
?>: <b><fo
nt class=p
rof_stat_<
? echo $p_
arr['Statu
s']; ?>>&n
bsp;<? ech
o _t( "__$
p_arr[Stat
us]" ); ?>
</fo
nt></b><br
/>
|
102 |
|
<?
|
|
100 |
|
<?
|
103 |
|
switch
( $p_arr[
'Status']
)
|
|
101 |
|
switch
( $p_arr[
'Status']
)
|
104 |
|
{
|
|
102 |
|
{
|
105 |
|
case '
Active':
|
|
103 |
|
case '
Active':
|
106 |
|
ec
ho _t( "_P
ROFILE_CAN
_SUSPEND"
);
|
|
104 |
|
ec
ho _t( "_P
ROFILE_CAN
_SUSPEND"
);
|
107 |
|
?>
|
|
105 |
|
?>
|
108 |
|
<br /><br
/><form ac
tion="<? e
cho $_SERV
ER['PHP_SE
LF']; ?>"
method=pos
t>
|
|
106 |
|
<br /><br
/><form ac
tion="<? e
cho $_SERV
ER['PHP_SE
LF']; ?>"
method=pos
t>
|
109 |
|
<input typ
e=hidden n
ame=CHANGE
_STATUS va
lue=SUSPEN
D>
|
|
107 |
|
<input typ
e=hidden n
ame=CHANGE
_STATUS va
lue=SUSPEN
D>
|
110 |
|
<center><i
nput class
=no type=s
ubmit valu
e="<? echo
_t( "_Sus
pend accou
nt" ); ?>"
></center>
|
|
108 |
|
<center><i
nput class
=no type=s
ubmit valu
e="<? echo
_t( "_Sus
pend accou
nt" ); ?>"
></center>
|
111 |
|
</form>
|
|
109 |
|
</form>
|
112 |
|
<?
|
|
110 |
|
<?
|
113 |
|
br
eak;
|
|
111 |
|
br
eak;
|
114 |
|
|
|
112 |
|
|
115 |
|
case '
Suspended'
:
|
|
113 |
|
case '
Suspended'
:
|
116 |
|
ec
ho _t( "_P
ROFILE_CAN
_ACTIVATE"
);
|
|
114 |
|
ec
ho _t( "_P
ROFILE_CAN
_ACTIVATE"
);
|
117 |
|
?>
|
|
115 |
|
?>
|
118 |
|
<br /><br
/><form ac
tion="<? e
cho $_SERV
ER['PHP_SE
LF']; ?>"
method=pos
t>
|
|
116 |
|
<br /><br
/><form ac
tion="<? e
cho $_SERV
ER['PHP_SE
LF']; ?>"
method=pos
t>
|
119 |
|
<input typ
e=hidden n
ame=CHANGE
_STATUS va
lue=ACTIVA
TE>
|
|
117 |
|
<input typ
e=hidden n
ame=CHANGE
_STATUS va
lue=ACTIVA
TE>
|
120 |
|
<center><i
nput class
=no type=s
ubmit valu
e="<? echo
_t( "_Act
ivate acco
unt" ); ?>
"></center
>
|
|
118 |
|
<center><i
nput class
=no type=s
ubmit valu
e="<? echo
_t( "_Act
ivate acco
unt" ); ?>
"></center
>
|
121 |
|
</form>
|
|
119 |
|
</form>
|
122 |
|
<?
|
|
120 |
|
<?
|
123 |
|
br
eak;
|
|
121 |
|
br
eak;
|
124 |
|
defaul
t:
|
|
122 |
|
defaul
t:
|
125 |
|
ec
ho _t( "_P
ROFILE_CAN
T_ACTIVATE
/SUSPEND"
);
|
|
123 |
|
ec
ho _t( "_P
ROFILE_CAN
T_ACTIVATE
/SUSPEND"
);
|
126 |
|
br
eak;
|
|
124 |
|
br
eak;
|
127 |
|
}
|
|
125 |
|
}
|
128 |
|
|
|
126 |
|
|
129 |
|
echo "
</td></tab
le>";
|
|
127 |
|
echo "
</td></tab
le>";
|
130 |
|
|
|
128 |
|
|
131 |
|
$ret =
ob_get_co
ntents();
|
|
129 |
|
$ret =
ob_get_co
ntents();
|
132 |
|
ob_end
_clean();
|
|
130 |
|
ob_end
_clean();
|
133 |
|
|
|
131 |
|
|
134 |
|
return
$ret;
|
|
132 |
|
return
$ret;
|
135 |
|
}
|
|
133 |
|
}
|
136 |
|
|
|
134 |
|
|
137 |
|
?>
|
|
135 |
|
?>
|