line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/local/bin/perl -w |
2
|
|
|
|
|
|
|
package CircaConf; |
3
|
|
|
|
|
|
|
|
4
|
11
|
|
|
11
|
|
69
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); |
|
11
|
|
|
|
|
25
|
|
|
11
|
|
|
|
|
3618
|
|
5
|
|
|
|
|
|
|
require Exporter; |
6
|
|
|
|
|
|
|
@ISA = qw(Exporter); |
7
|
|
|
|
|
|
|
@EXPORT = qw(); |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
#-------- A MODIFIER --------# |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
# Utilisateur Mysql |
12
|
|
|
|
|
|
|
$CircaConf::User = "root"; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
# Password Mysql |
15
|
|
|
|
|
|
|
$CircaConf::Password = ""; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
# Adresse DNS du serveur DNS |
18
|
|
|
|
|
|
|
$CircaConf::Host = "localhost"; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
# Nom de la base de donnée |
21
|
|
|
|
|
|
|
$CircaConf::Database = "circa"; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
# Repertoire ou creer / lire les fichier d'export / import |
24
|
|
|
|
|
|
|
# (droit en ecriture pour user apache necessaire si export en mode cgi) |
25
|
|
|
|
|
|
|
$CircaConf::export = "/tmp"; |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
# Repertoire des masques HTML |
28
|
|
|
|
|
|
|
$CircaConf::TemplateDir = "//circa/templates/"; |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
# Repertoire des librairies de Circa si non installe par root |
31
|
|
|
|
|
|
|
$CircaConf::CircaDir = "/lib"; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
# optional now. Circa can run without change this |
34
|
|
|
|
|
|
|
# some values ... |
35
|
|
|
|
|
|
|
%CircaConf::conf= |
36
|
|
|
|
|
|
|
( |
37
|
|
|
|
|
|
|
'author' => 'circa.com', # Responsable du moteur |
38
|
|
|
|
|
|
|
'temporate' => 0, # Temporise les requetes sur le serveur de 8s. |
39
|
|
|
|
|
|
|
'facteur_keyword' => 15, #
|
40
|
|
|
|
|
|
|
'facteur_description' => 10, #
|
41
|
|
|
|
|
|
|
'facteur_titre' => 10, # |
42
|
|
|
|
|
|
|
'facteur_full_text' => 1, # reste |
43
|
|
|
|
|
|
|
'facteur_url' => 10, # |
44
|
|
|
|
|
|
|
'nb_min_mots' => 3, # facteur min pour garder un mot |
45
|
|
|
|
|
|
|
'niveau_max' => 10, # Niveau max à indexer |
46
|
|
|
|
|
|
|
'indexCgi' => 0 # follow link for CGI (ex: ?nom=toto&riri=eieiei |
47
|
|
|
|
|
|
|
); |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
# HTML Template for display |
50
|
|
|
|
|
|
|
# Warning: all HTML '"' must be translate to '"' |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
# For link, you can use : |
53
|
|
|
|
|
|
|
# - $url : ? |
54
|
|
|
|
|
|
|
# - $titre : () |
55
|
|
|
|
|
|
|
# - $description : (
|
56
|
|
|
|
|
|
|
# - $facteur : ratio |
57
|
|
|
|
|
|
|
# - $langue : From HTTP header field |
58
|
|
|
|
|
|
|
# - $last_update : From HTTP header field |
59
|
|
|
|
|
|
|
$CircaConf::templateS ='" |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
$description |
63
|
|
|
|
|
|
|
Url: $url |
64
|
|
|
|
|
|
|
Score: $facteur |
65
|
|
|
|
|
|
|
Last update: $last_update |
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
"'; |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
# For categorie, you can use: |
70
|
|
|
|
|
|
|
# - $links : Url to print this categorie |
71
|
|
|
|
|
|
|
# - $nom_complet : Name with other categorie |
72
|
|
|
|
|
|
|
# - $nom : Short name |
73
|
|
|
|
|
|
|
$CircaConf::templateC='" |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
$nom_complet
|
76
|
|
|
|
|
|
|
"'; |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
# Fin |