lilalo

view l3config.pm @ 31:196c82b6e538

find changesets by author, revision, files, or words in the commit message
l3-cgi:
* Сделана поддержка кодировок клиента отличных от utf-8 (пока что почему-то не работает)
* Сделана поддержка комментирования из самой командной строки.
Комментарии вставлюятся с помощью символов #^, #v или #=
Комментарии записываются в элементы note и note_title

l3-frontend:

* Сделана поддержка комментирования из самой командной строки.
Комментарии вставлюятся с помощью символов #^, #v или #=
* Вместо использования программы mywi-client, обращение к mywi-серверу выполняется самостоятельно
* Выполняется разбор команды с целью выявления новых команд, ведения статистики, генерирования подсказок и т.д.
* Во всплывающих командах к подсказкам выводится информация от mywi
* Выводится статистическая информация о журнале
"Время первой команды журнала"
"Время последней команды журнала"
"Количество командных строк в журнале"
"Процент команд с кодом ненулевым кодом завершения, %"
"Суммарное время работы с терминалом <sup><font size='-2'>*</font></sup>, час"
"Количество командных строк в единицу времени, команда/мин"
"Частота использования команд"
"Частота использования команд"
"Частота использования этих команд < 0.5%"
* В заголовке страницы выводится информация о курсе и имя слушателя
* Расшифровка к информации о курсе выводится только если есть сама информация
* В оглавлении учитваются пометки notes, вставленные с помощью #=
* Добавлена справка по использованию журнала

Новые параметры:
show_notes - нужно ли показывать заметки "notes"
> note_width - ширина заметок "notes"
mywi_server - IP-адрес сервера mywi
mywi_port - порт сервера mywi
stat_inactivity_interval - при подсчёте времени работы с терминалом,
интервалы превышающие какую длительность не должны учитываться, сек
author devi
date Fri Nov 11 21:29:49 2005 +0200 (2005-11-11)
parents f5f07049bd4f
children 4d252e7dd478
line source
1 package l3config;
2
3 use Exporter;
4 use vars qw(@ISA @EXPORT $VERSION);
5 use Getopt::Long;
6
7 @ISA = ('Exporter');
8 @EXPORT = qw(%Config &init_config);
9
10 our $Config_File = "labmaker.conf";
11 our %Config = (
12 "skip_empty" => "yes",
13 "skip_interrupted" => "no",
14 "skip_wrong" => "no",
15 "editors" => ["vi", "pico", "ee", "vim", "nano"],
16 "pagers" => ["more", "less", "zmore", "zless", "info",
17 "man", "mc", "trafshow", "screen", "cfdisk",
18 "trafshow-bsd", "yes", "lynx", "links", "centericq"
19 ],
20 "terminal" => ["mc"],
21 "suppress_editors" => "yes",
22 "suppress_pagers" => "yes",
23 "suppress_terminal" => "yes",
24
25 "terminal_width" => 400,
26 "terminal_height" => 100,
27 "verbose" => "yes",
28
29 "head_lines" => 5,
30 "tail_lines" => 5,
31 "cache_head_lines" => 50,
32 "cache_tail_lines" => 50,
33 "skip_text" => "...",
34 "show_time" => "yes",
35 "show_diffs" => "yes",
36 "show_comments" => "yes",
37 "show_notes" => "yes",
38
39 "input" => "/root/.labmaker",
40 "diffs" => "",
41 "input_mask" => "*.script",
42 "encoding" => "utf-8",
43
44 "cache" => "/tmp/report.xml",
45 "cache_stat" => "/tmp/.report.dat",
46
47 "output" => "/tmp/report.html",
48 #"output" => "report.xml",
49 "output_mask" => "INDEX",
50 "output_format" => "html",
51 "frontend_css" => "/l3/l3.css",
52 "frontend_google_ico" => "/l3/google.ico",
53 "frontend_linux_ico" => "/l3/linux.ico",
54 "frontend_freebsd_ico" => "/l3/freebsd.ico",
55 "frontend_opennet_ico" => "/l3/opennet.ico",
56 "frontend_local_ico" => "/l3/freebsd.ico",
57
58 "mywi_server" => "127.0.0.1",
59 "mywi_port" => "19800",
60
61 "stat_inactivity_interval" => "1800",
62
63 "signature" => "#lm:",
64 "from" => "",
65 "to" => "",
66 "lab" => "",
67 "keywords" => "linux command",
68 "files_keywords" => "linux file",
69
70 comment_width => "300",
71 note_width => "500",
72 time_width => "60",
73
74 "mode" => "daemon", # daemon | normal
75 "daemon_sleep_interval" => "1",
76 "detach" => "yes",
77 "agent_pidfile" => "$ENV{HOME}/.labmaker/l3-agent.pid",
78
79 "backend_address" => "127.0.0.1",
80 "backend_port" => "18030",
81 "backend_pidfile" => "/tmp/l3-backend.pid",
82 "backend_datafile" => "/tmp/backend.xml",
83
84 "l3-agent" => "l3-agent",
85 "l3-backend" => "l3-backend",
86
87 "course-name" => "",
88 "course-code" => "",
89 "course-date" => "",
90 "course-center" => "",
91 "course-trainer" => "",
92 "course-student" => "",
93
94
95 #lm
96 "show_host" => "no",
97
98 # Вспомогательные программы
99 #"l3-report" => "./lm-report",
100 "l3-report" => "./l3-report",
101
102 # Каталоги
103 "path_lilalo" => "/var/lilalo/",
104 "path_classes" => "/var/lilalo/classes/",
105 "path_lablogs" => "/var/lilalo/lablogs/",
106 "courses_path" => "/var/lilalo/courses/",
107 "outpath" => "/var/lilalo/out/",
108 "path_web" => "/var/www/l3", # Путь к web-отчётам
109 "path_share" => "./share/", # Путь к web-отчётам
110
111 # Файлы
112 "runfile" => "lm.run",
113 "logfile" => "lm.log",
114
115 "class" => "class", # Имя файла класса
116 "class_suffix" => ".xml", # Cуффикс файла класса
117 "classfile" => "",
118
119 "sshkey" => "$ENV{HOME}/.ssh/id_dsa.pub",
120 "lmssh" => "./lm-ssh",
121 "lminstall" => "./lm-install",
122 "ssh_user" => "root",
123
124 );
125
126 sub read_config_file
127 {
128 my $config = $_[0];
129 my $filename = $_[1];
130 open(CONFIG, "$filename")
131 or return;
132 while (<CONFIG>) {
133 s/#.*//;
134 next if /^\s*$/;
135 my ($var, $val) = split /\s*=\s*/, $_, 2;
136 $var =~ s/\s*//;
137 $config->{$var} = $val;
138 }
139 close(CONFIG);
140 }
141
142
143 sub init_config
144 {
145 my %argv_config;
146 my %file_config;
147 read_config_file(\%file_config, $Config_File);
148 GetOptions(\%argv_config, map "$_=s", keys %Config);
149 %Config = (%Config, %file_config, %argv_config);
150 }
151