1 |
3 |
ahitrov@rambler.ru |
package Contenido::Globals; |
2 |
|
|
|
3 |
|
|
# ---------------------------------------------------------------------------- |
4 |
|
|
# ����� ����� ��������� ��� ���������������� ������ Contenido... |
5 |
|
|
# ��� �� ������, ��� ������ ����� � �����������... |
6 |
|
|
# ---------------------------------------------------------------------------- |
7 |
|
|
|
8 |
|
|
use strict; |
9 |
|
|
use vars qw($VERSION @ISA @EXPORT |
10 |
|
|
$DEBUG_SQL $DEBUG_CORE $DEBUG $state $project $keeper $request $user $session $rpc_client $store_method $DB_TIME $CORE_TIME $DB_COUNT $HTML $log |
11 |
|
|
$RPC_TIME |
12 |
|
|
); |
13 |
|
|
|
14 |
|
|
use Exporter; |
15 |
|
|
@ISA = qw(Exporter); |
16 |
|
|
@EXPORT = qw($DEBUG_SQL $DEBUG_CORE $DEBUG $state $project $keeper $request $user $session $rpc_client $store_method $HTML $log); |
17 |
|
|
|
18 |
|
|
$VERSION = '1.0'; |
19 |
|
|
|
20 |
|
|
$state=undef; |
21 |
|
|
$project=undef; |
22 |
|
|
$keeper=undef; |
23 |
|
|
$request=undef; |
24 |
|
|
$user=undef; |
25 |
|
|
$session=undef; |
26 |
|
|
$rpc_client=undef; |
27 |
|
|
$DEBUG=undef; |
28 |
|
|
$DEBUG_SQL=undef; |
29 |
|
|
$DEBUG_CORE=undef; |
30 |
|
|
$store_method = undef; |
31 |
|
|
$log = undef; |
32 |
|
|
|
33 |
|
|
$DB_TIME = undef; |
34 |
|
|
$DB_COUNT = undef; |
35 |
|
|
$CORE_TIME = undef; |
36 |
|
|
$RPC_TIME = undef; |
37 |
|
|
|
38 |
|
|
1; |