lilalo
annotate lm-report @ 48:568bab7090fc
l3-cgi:
Журналы могут быть сохранены в файл,
l3:
Отправка файлов журналов по электронной почте.
l3 do send-logs
Новые параметры:
cgi2file - имя файла, в который будет выполняться запись
cgi_path_info - путь к странице, которая должна быть записана в файл
(то что вводится в браузер после l3/location)
Журналы могут быть сохранены в файл,
l3:
Отправка файлов журналов по электронной почте.
l3 do send-logs
Новые параметры:
cgi2file - имя файла, в который будет выполняться запись
cgi_path_info - путь к странице, которая должна быть записана в файл
(то что вводится в браузер после l3/location)
| author | devi |
|---|---|
| date | Sat Nov 26 16:15:52 2005 +0200 (2005-11-26) |
| parents | ab8d2a28fc86 |
| children |
| rev | line source |
|---|---|
| devi@0 | 1 #!/usr/bin/perl -w |
| devi@0 | 2 |
| devi@0 | 3 # |
| devi@20 | 4 # (c) Igor Chubin, imchubin@mail.ru, 2004-2005 |
| devi@0 | 5 # |
| devi@0 | 6 |
| devi@0 | 7 use strict; |
| devi@0 | 8 use Getopt::Long; |
| devi@0 | 9 use Term::VT102; |
| devi@0 | 10 use Text::Iconv; |
| devi@0 | 11 use Data::Dumper; |
| devi@0 | 12 |
| devi@0 | 13 our $Config_File = "labmaker.conf"; |
| devi@0 | 14 our %Config = ( |
| devi@0 | 15 "skip_empty" => "yes", |
| devi@0 | 16 "skip_interrupted" => "no", |
| devi@0 | 17 "skip_wrong" => "no", |
| devi@0 | 18 "editors" => ["vi", "pico", "ee", "vim"], |
| devi@0 | 19 "pagers" => ["more", "less", "zmore", "zless", "info", |
| devi@0 | 20 "man", "mc", "trafshow", "screen", "cfdisk", |
| devi@0 | 21 "trafshow-bsd", "yes", "lynx", "links", "centericq" |
| devi@0 | 22 ], |
| devi@0 | 23 "terminal" => ["mc"], |
| devi@0 | 24 "suppress_editors" => "yes", |
| devi@0 | 25 "suppress_pagers" => "yes", |
| devi@0 | 26 "suppress_terminal" => "yes", |
| devi@0 | 27 |
| devi@0 | 28 "terminal_width" => 100, |
| devi@0 | 29 "terminal_height" => 100, |
| devi@0 | 30 "verbose" => "yes", |
| devi@0 | 31 |
| devi@0 | 32 "head_lines" => 5, |
| devi@0 | 33 "tail_lines" => 5, |
| devi@0 | 34 "skip_text" => "...", |
| devi@0 | 35 "show_time" => "yes", |
| devi@0 | 36 "show_diffs" => "yes", |
| devi@0 | 37 "show_comments" => "yes", |
| devi@0 | 38 |
| devi@0 | 39 "input" => "/root/.labmaker", |
| devi@0 | 40 "diffs" => "", |
| devi@0 | 41 "input_mask" => "*.script", |
| devi@0 | 42 "encoding" => "utf-8", |
| devi@0 | 43 |
| devi@0 | 44 "output" => "/var/www/lm/reportINDEX.html", |
| devi@0 | 45 #"output" => "report.xml", |
| devi@0 | 46 "output_mask" => "INDEX", |
| devi@0 | 47 "output_format" => "html", |
| devi@0 | 48 |
| devi@0 | 49 "signature" => "#lm:", |
| devi@0 | 50 "from" => "", |
| devi@0 | 51 "to" => "", |
| devi@0 | 52 "lab" => "", |
| devi@0 | 53 "keywords" => "linux command", |
| devi@0 | 54 "files_keywords" => "linux file", |
| devi@0 | 55 |
| devi@0 | 56 comment_width => "300", |
| devi@0 | 57 time_width => "60", |
| devi@0 | 58 |
| devi@6 | 59 "course-name" => "", |
| devi@6 | 60 "course-code" => "", |
| devi@6 | 61 "course-date" => "", |
| devi@6 | 62 "course-center" => "", |
| devi@6 | 63 "course-trainer" => "", |
| devi@6 | 64 "course-student" => "", |
| devi@6 | 65 |
| devi@0 | 66 ); |
| devi@0 | 67 |
| devi@0 | 68 our @Command_Lines; |
| devi@0 | 69 our @Command_Lines_Index; |
| devi@0 | 70 our @Diffs; |
| devi@0 | 71 |
| devi@0 | 72 our %Commands_Stat; # Statistics about commands usage |
| devi@0 | 73 our %Files_Stat; # Statistics about commands usage |
| devi@0 | 74 |
| devi@0 | 75 our %Search_Machines = ( |
| devi@0 | 76 "google" => { "query" => "http://www.google.com/search?q=" , |
| devi@0 | 77 "icon" => "google.ico" }, |
| devi@0 | 78 "freebsd" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=", |
| devi@0 | 79 "icon" => "freebsd.ico" }, |
| devi@0 | 80 "linux" => { "query" => "http://man.he.net/?topic=", |
| devi@0 | 81 "icon" => "linux.ico"}, |
| devi@0 | 82 "opennet" => { "query" => "http://www.opennet.ru/search.shtml?words=", |
| devi@0 | 83 "icon" => "opennet.ico"}, |
| devi@0 | 84 "local" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=", |
| devi@0 | 85 "icon" => "freebsd.ico" }, |
| devi@0 | 86 |
| devi@0 | 87 ); |
| devi@0 | 88 |
| devi@0 | 89 our %Elements_Visibility = ( |
| devi@0 | 90 "note" => "замечания", |
| devi@0 | 91 "diff" => "редактор", |
| devi@0 | 92 "time" => "время", |
| devi@0 | 93 "ttychange" => "терминал", |
| devi@0 | 94 "wrong_output wrong_cline wrong_root_output wrong_root_cline" |
| devi@0 | 95 => "команды с ошибками", |
| devi@0 | 96 "interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" |
| devi@0 | 97 => "прерванные команды", |
| devi@0 | 98 "tab_completion_output tab_completion_cline" |
| devi@0 | 99 => "продолжение с помощью tab" |
| devi@0 | 100 ); |
| devi@0 | 101 |
| devi@6 | 102 sub init_variables; |
| devi@6 | 103 our $Html_Help; |
| devi@6 | 104 our $Html_About; |
| devi@6 | 105 |
| devi@0 | 106 |
| devi@0 | 107 sub load_diff_files |
| devi@0 | 108 { |
| devi@0 | 109 my @pathes = @_; |
| devi@0 | 110 |
| devi@0 | 111 for my $path (@pathes) { |
| devi@0 | 112 my $template = "*.diff"; |
| devi@0 | 113 my @files = <$path/$template>; |
| devi@0 | 114 my $i=0; |
| devi@0 | 115 for my $file (@files) { |
| devi@0 | 116 my %diff; |
| devi@0 | 117 |
| devi@0 | 118 $diff{"path"}=$path; |
| devi@0 | 119 $diff{"uid"}="SET THIS"; |
| devi@0 | 120 |
| devi@0 | 121 # Сейчас UID определяется из названия каталога |
| devi@0 | 122 # откуда берутся diff-файлы |
| devi@0 | 123 # Это неправильно |
| devi@0 | 124 # |
| devi@0 | 125 # ВАРИАНТ: |
| devi@0 | 126 # К файлам жураналам должны прилагаться ситемны файлы, |
| devi@0 | 127 # мз которых и будет определяться соответствие |
| devi@0 | 128 # имён пользователей их uid'ам |
| devi@0 | 129 # |
| devi@0 | 130 $diff{"uid"} = 0 if $path =~ m@/root/@; |
| devi@0 | 131 |
| devi@0 | 132 $diff{"bind_to"}=""; |
| devi@0 | 133 $diff{"time_range"}=-1; |
| devi@0 | 134 |
| devi@0 | 135 next if not $file=~m@/(D?[0-9][0-9]?[0-9]?)[^/]*?([0-9]*):([0-9]*):?([0-9]*)@; |
| devi@0 | 136 $diff{"day"}=$1 || ""; |
| devi@0 | 137 $diff{"hour"}=$2; |
| devi@0 | 138 $diff{"min"}=$3; |
| devi@0 | 139 $diff{"sec"}=$4 || 0; |
| devi@0 | 140 |
| devi@0 | 141 $diff{"index"}=$i; |
| devi@0 | 142 |
| devi@0 | 143 print "diff loaded: $diff{day} $diff{hour}:$diff{min}:$diff{sec}\n"; |
| devi@0 | 144 |
| devi@0 | 145 local $/; |
| devi@0 | 146 open (F, "$file") |
| devi@0 | 147 or return "Can't open file $file ($_[0]) for reading"; |
| devi@0 | 148 my $text = <F>; |
| devi@0 | 149 if ($Config{"encoding"} && $Config{"encoding"} !~ /^utf-8$/i) { |
| devi@0 | 150 my $converter = Text::Iconv->new($Config{"encoding"}, "utf-8"); |
| devi@0 | 151 $text = $converter->convert($text); |
| devi@0 | 152 } |
| devi@0 | 153 close(F); |
| devi@0 | 154 $diff{"text"}=$text; |
| devi@0 | 155 #print "$file loaded ($diff{day})\n"; |
| devi@0 | 156 |
| devi@0 | 157 push @Diffs, \%diff; |
| devi@0 | 158 $i++; |
| devi@0 | 159 } |
| devi@0 | 160 } |
| devi@0 | 161 } |
| devi@0 | 162 |
| devi@0 | 163 |
| devi@0 | 164 sub bind_diff |
| devi@0 | 165 { |
| devi@0 | 166 # my $path = shift; |
| devi@0 | 167 # my $pid = shift; |
| devi@0 | 168 # my $day = shift; |
| devi@0 | 169 # my $lab = shift; |
| devi@0 | 170 |
| devi@0 | 171 print "Trying to bind diff...\n"; |
| devi@0 | 172 |
| devi@0 | 173 my $cl = shift; |
| devi@0 | 174 my $hour = $cl->{"hour"}; |
| devi@0 | 175 my $min = $cl->{"min"}; |
| devi@0 | 176 my $sec = $cl->{"sec"}; |
| devi@0 | 177 |
| devi@0 | 178 my $min_dt = 10000; |
| devi@0 | 179 |
| devi@0 | 180 for my $diff (@Diffs) { |
| devi@0 | 181 # Check here date, time and user |
| devi@0 | 182 next if ($diff->{"day"} && $cl->{"day"} && ($cl->{"day"} ne $diff->{"day"})); |
| devi@0 | 183 #next if (!$diff->{"uid"} && $cl->{"euid"} != $diff->{"uid"}); |
| devi@0 | 184 |
| devi@0 | 185 my $dt=($diff->{"hour"}-$hour)*3600 +($diff->{"min"}-$min)*60 + ($diff->{"sec"}-$sec); |
| devi@0 | 186 if ($dt >0 && $dt < $min_dt && ($diff->{"time_range"} <0 || $dt < $diff->{"time_range"})) { |
| devi@0 | 187 print "Approppriate diff found: dt=$dt\n"; |
| devi@0 | 188 if ($diff->{"bind_to"}) { |
| devi@0 | 189 undef $diff->{"bind_to"}->{"diff"}; |
| devi@0 | 190 }; |
| devi@0 | 191 $diff->{"time_range"}=$dt; |
| devi@0 | 192 $diff->{"bind_to"}=$cl; |
| devi@0 | 193 |
| devi@0 | 194 $cl->{"diff"} = $diff->{"index"}; |
| devi@0 | 195 $min_dt = $dt; |
| devi@0 | 196 } |
| devi@0 | 197 |
| devi@0 | 198 } |
| devi@0 | 199 } |
| devi@0 | 200 |
| devi@0 | 201 |
| devi@0 | 202 sub extract_from_cline |
| devi@0 | 203 # Разобрать командную строку $_[1] и возвратить хэш, содержащий |
| devi@0 | 204 # номер первого появление команды в строке: |
| devi@0 | 205 # команда => первая позиция |
| devi@0 | 206 { |
| devi@0 | 207 my $what = $_[0]; |
| devi@0 | 208 my $cline = $_[1]; |
| devi@0 | 209 my @lists = split /\;/, $cline; |
| devi@0 | 210 |
| devi@0 | 211 |
| devi@0 | 212 my @commands = (); |
| devi@0 | 213 for my $list (@lists) { |
| devi@0 | 214 push @commands, split /\|/, $list; |
| devi@0 | 215 } |
| devi@0 | 216 |
| devi@0 | 217 my %commands; |
| devi@0 | 218 my %files; |
| devi@0 | 219 my $i=0; |
| devi@0 | 220 for my $command (@commands) { |
| devi@0 | 221 $command =~ /\s*(\S+)\s*(.*)/; |
| devi@0 | 222 if ($1 && $1 eq "sudo" ) { |
| devi@0 | 223 $commands{"$1"}=$i++; |
| devi@0 | 224 $command =~ s/\s*sudo\s+//; |
| devi@0 | 225 } |
| devi@0 | 226 $command =~ /\s*(\S+)\s*(.*)/; |
| devi@0 | 227 if ($1 && !defined $commands{"$1"}) { |
| devi@0 | 228 $commands{"$1"}=$i++; |
| devi@0 | 229 }; |
| devi@0 | 230 if ($2) { |
| devi@0 | 231 my $args = $2; |
| devi@0 | 232 my @args = split (/\s+/, $args); |
| devi@0 | 233 for my $a (@args) { |
| devi@0 | 234 $files{"$a"}=$i++ |
| devi@0 | 235 if !defined $files{"$a"}; |
| devi@0 | 236 }; |
| devi@0 | 237 |
| devi@0 | 238 |
| devi@0 | 239 } |
| devi@0 | 240 } |
| devi@0 | 241 |
| devi@0 | 242 if ($what eq "commands") { |
| devi@0 | 243 return %commands; |
| devi@0 | 244 } else { |
| devi@0 | 245 return %files; |
| devi@0 | 246 } |
| devi@0 | 247 |
| devi@0 | 248 } |
| devi@0 | 249 |
| devi@0 | 250 sub load_command_lines |
| devi@0 | 251 { |
| devi@0 | 252 my $lab_scripts_path = $_[0]; |
| devi@0 | 253 my $lab_scripts_mask = $_[1]; |
| devi@0 | 254 |
| devi@0 | 255 my $cline_re_base = qq' |
| devi@0 | 256 (?:\\^?([0-9]*C?)) # exitcode |
| devi@0 | 257 (?:_([0-9]+)_)? # uid |
| devi@0 | 258 (?:_([0-9]+)_) # pid |
| devi@0 | 259 (...?) # day |
| devi@19 | 260 (.?.?) # lab |
| devi@0 | 261 \\s # space separator |
| devi@0 | 262 ([0-9][0-9]):([0-9][0-9]):([0-9][0-9]) # time |
| devi@0 | 263 .\\[50D.\\[K # killing symbols |
| devi@0 | 264 (.*?([\$\#]\\s?)) # prompt |
| devi@0 | 265 (.*) # command line |
| devi@0 | 266 '; |
| devi@0 | 267 #my $cline_re = qr/$cline_re_base(?:$cline_re_base|$)/x; |
| devi@0 | 268 #my $cline_re = qr/(?:$cline_re_base)*$cline_re_base$/x; |
| devi@0 | 269 my $cline_re = qr/$cline_re_base/sx; |
| devi@0 | 270 my $cline_re1 = qr/$cline_re_base\x0D/sx; |
| devi@0 | 271 my $cline_re2 = qr/$cline_re_base$/sx; |
| devi@0 | 272 |
| devi@0 | 273 my $vt = Term::VT102->new ( 'cols' => $Config{"terminal_width"}, |
| devi@0 | 274 'rows' => $Config{"terminal_height"}); |
| devi@0 | 275 my $cline_vt = Term::VT102->new ('cols' => $Config{"terminal_width"}, |
| devi@0 | 276 'rows' => $Config{"terminal_height"}); |
| devi@0 | 277 |
| devi@0 | 278 my $converter = Text::Iconv->new($Config{"encoding"}, "utf-8") |
| devi@0 | 279 if ($Config{"encoding"} && $Config{"encoding"} !~ /^utf-8$/i); |
| devi@0 | 280 |
| devi@0 | 281 print "Loading lm-scripts...\n" if $Config{"verbose"} =~ /y/; |
| devi@0 | 282 |
| devi@0 | 283 my @lab_scripts = <$lab_scripts_path/$lab_scripts_mask>; |
| devi@0 | 284 my $file; |
| devi@0 | 285 my $files_number = $#lab_scripts; |
| devi@0 | 286 my $ii = 0; |
| devi@0 | 287 my $skip_info; |
| devi@0 | 288 |
| devi@0 | 289 my $commandlines_loaded =0; |
| devi@0 | 290 my $commandlines_processed =0; |
| devi@0 | 291 |
| devi@0 | 292 for $file (@lab_scripts){ |
| devi@0 | 293 #printf "\t%i %3.2f\n", $ii, (100*$ii++/$files_number) if $Config{"verbose"} =~ /y/; |
| devi@0 | 294 |
| devi@0 | 295 open (FILE, "$file"); |
| devi@0 | 296 binmode FILE; |
| devi@0 | 297 $file =~ m@.*/(.*?)-.*@; |
| devi@0 | 298 |
| devi@0 | 299 my $tty = $1; |
| devi@0 | 300 my $first_pass = 1; |
| devi@0 | 301 my %cl; |
| devi@0 | 302 my $last_output_length=0; |
| devi@0 | 303 while (<FILE>) { |
| devi@0 | 304 $commandlines_processed++; |
| devi@0 | 305 # time |
| devi@0 | 306 |
| devi@0 | 307 if (/[0-9][0-9]:[0-9][0-9]:[0-9][0-9].\[[0-9][0-9]D.\[K/ && m/$cline_re/) { |
| devi@0 | 308 s/.*\x0d(?!\x0a)//; |
| devi@0 | 309 # print "!!!",$_,"!!!\n"; |
| devi@0 | 310 # next; |
| devi@0 | 311 # while (m/$cline_re1/gs) { |
| devi@0 | 312 # } |
| devi@0 | 313 m/$cline_re2/gs; |
| devi@0 | 314 |
| devi@0 | 315 $commandlines_loaded++; |
| devi@0 | 316 $last_output_length=0; |
| devi@0 | 317 |
| devi@0 | 318 # Previous command |
| devi@0 | 319 my %last_cl = %cl; |
| devi@0 | 320 my $err = $1 || ""; |
| devi@0 | 321 |
| devi@21 | 322 |
| devi@21 | 323 =cut |
| devi@21 | 324 |
| devi@21 | 325 ТАБЛИЦА КОМАНД |
| devi@21 | 326 |
| devi@21 | 327 uid |
| devi@21 | 328 Идентификатор пользователя |
| devi@21 | 329 |
| devi@21 | 330 tty |
| devi@21 | 331 Идентификатор терминала, на котором была вызвана команда |
| devi@21 | 332 |
| devi@21 | 333 pid |
| devi@21 | 334 PID-процесса командного интерпретатора, |
| devi@21 | 335 в котором была вызвана команда |
| devi@21 | 336 |
| devi@21 | 337 lab |
| devi@21 | 338 лабораторная работа, к которой относится команда. |
| devi@21 | 339 Идентификатор текущей лабораторной работы |
| devi@21 | 340 хранится в файле ~/.labmaker/lab |
| devi@21 | 341 |
| devi@21 | 342 pwd (!) |
| devi@21 | 343 текущий каталог, из которого была вызвана команда |
| devi@21 | 344 |
| devi@21 | 345 day |
| devi@21 | 346 время вызова, день |
| devi@21 | 347 В действительности здесь хранится не время вызова команды, |
| devi@21 | 348 а с момента появления приглашения командного интерпретатора |
| devi@21 | 349 для ввода команды |
| devi@21 | 350 |
| devi@21 | 351 |
| devi@21 | 352 hour |
| devi@21 | 353 время вызова, час |
| devi@21 | 354 |
| devi@21 | 355 min |
| devi@21 | 356 время вызова, минута |
| devi@21 | 357 |
| devi@21 | 358 sec |
| devi@21 | 359 время вызова, секунда |
| devi@21 | 360 |
| devi@21 | 361 time (!) |
| devi@21 | 362 время вызова команды в Unix-формате. |
| devi@21 | 363 Предпочтительнее использовать этот формат чем hour:min:sec, |
| devi@21 | 364 использовавшийся в Labmaker |
| devi@21 | 365 |
| devi@21 | 366 fullprompt |
| devi@21 | 367 Приглашение командной строки |
| devi@21 | 368 |
| devi@21 | 369 prompt |
| devi@21 | 370 Сокращённое приглашение командной строки |
| devi@21 | 371 |
| devi@21 | 372 cline |
| devi@21 | 373 Командная строка |
| devi@21 | 374 |
| devi@21 | 375 output |
| devi@21 | 376 Результат выполнения команды |
| devi@21 | 377 |
| devi@21 | 378 diff |
| devi@21 | 379 Указатель на ассоциированный с командой diff |
| devi@21 | 380 |
| devi@21 | 381 note (!) |
| devi@21 | 382 Текстовый комментарий к команде. |
| devi@21 | 383 Может генерироваться из самого лога с помощью команд |
| devi@21 | 384 #^ Комментарий |
| devi@21 | 385 #v Комментарий |
| devi@21 | 386 в том случае, если для комментирования достаточно одной строки, |
| devi@21 | 387 или с помощью команд |
| devi@21 | 388 cat > /dev/null #^ Заголовок |
| devi@21 | 389 Текст |
| devi@21 | 390 ^D |
| devi@21 | 391 в том случае, если комментарий развёрнутый. |
| devi@21 | 392 В последнем случае комментарий может содержать |
| devi@21 | 393 заголовок, абзацы и несложное форматирование. |
| devi@21 | 394 |
| devi@21 | 395 Символ ^ или v после знака комментария # обозначает, |
| devi@21 | 396 к какой команде относится комментарий: |
| devi@21 | 397 к предыдущей (^) или последующей (v) |
| devi@21 | 398 |
| devi@21 | 399 err |
| devi@21 | 400 Код завершения командной строки |
| devi@21 | 401 |
| devi@21 | 402 histnum (!) |
| devi@21 | 403 Номер команды в истории командного интерпретатора |
| devi@21 | 404 |
| devi@21 | 405 status (!) |
| devi@21 | 406 Является ли данная команда вызванной (r), запомненной (s) |
| devi@21 | 407 или это подсказка completion (c). |
| devi@21 | 408 |
| devi@21 | 409 Команды, которые были вызваны и обработаны интерпретатором |
| devi@21 | 410 имеют состояние "r". К таким командам относится большинство |
| devi@21 | 411 команд вводимых в интерпретатор. |
| devi@21 | 412 |
| devi@21 | 413 Если команда набрана, но вызывать её по какой-либо причине |
| devi@21 | 414 не хочется (например, команда может быть не полной, вредоносной |
| devi@21 | 415 или просто бессмысленной в текущих условиях), |
| devi@21 | 416 её можно сбросить с помощью комбинации клавиш Ctrl-C |
| devi@21 | 417 (не путайте с прерыванием работающей команды! здесь она даже |
| devi@21 | 418 не запускается!). |
| devi@21 | 419 В таком случае она не выполняется, но попадает в журнал |
| devi@21 | 420 со статусом "s". |
| devi@21 | 421 |
| devi@21 | 422 Если команда появилась в журнале благодаря автопроолжению |
| devi@21 | 423 -- когда было показано несколько вариантов -- |
| devi@21 | 424 она имеет статус "c". |
| devi@21 | 425 |
| devi@21 | 426 euid |
| devi@21 | 427 Идентификатор пользователя от имени которого будет |
| devi@21 | 428 выполняться команда. |
| devi@21 | 429 Может отличаться от реального uid в том случае, |
| devi@21 | 430 если вызывается с помощью sudo |
| devi@21 | 431 |
| devi@21 | 432 |
| devi@21 | 433 version (!) |
| devi@21 | 434 Версия lilalo-prompt использовавшаяся при записи |
| devi@21 | 435 команды. |
| devi@21 | 436 |
| devi@21 | 437 0 - версия использовавшая в labmaker. |
| devi@21 | 438 Отсутствует информация о текущем каталоге и номере в истории. |
| devi@21 | 439 Информация о версии также не указана в приглашении. |
| devi@21 | 440 |
| devi@21 | 441 |
| devi@21 | 442 1 - версия использующаяся в lilalo |
| devi@21 | 443 |
| devi@21 | 444 raw_file (*) |
| devi@21 | 445 Имя файла, в котором находится бинарное представление журнала. |
| devi@21 | 446 Может содержать ключевое слово HERE, |
| devi@21 | 447 обозначающее что бинарное представление хранится |
| devi@21 | 448 непосредственно в базе данных в атрибуте raw_data |
| devi@21 | 449 |
| devi@21 | 450 raw_start (*) |
| devi@21 | 451 Начало блока командной строки в файле бинарного представления |
| devi@21 | 452 |
| devi@21 | 453 raw_end (*) |
| devi@21 | 454 Конец блока командной строки в файле бинарного представления |
| devi@21 | 455 |
| devi@21 | 456 raw_cline (*) |
| devi@21 | 457 Необработанная командная строка в бинарном виде |
| devi@21 | 458 |
| devi@21 | 459 raw_data (*) |
| devi@21 | 460 Бинарное представление команды и результатов её выполнения |
| devi@21 | 461 |
| devi@21 | 462 |
| devi@21 | 463 |
| devi@21 | 464 |
| devi@21 | 465 ТАБЛИЦА SESSION |
| devi@21 | 466 |
| devi@21 | 467 Информация о сеансах |
| devi@21 | 468 |
| devi@21 | 469 |
| devi@21 | 470 |
| devi@21 | 471 |
| devi@21 | 472 =cut |
| devi@21 | 473 |
| devi@0 | 474 # Parse new command |
| devi@0 | 475 $cl{"uid"} = $2; |
| devi@0 | 476 $cl{"euid"} = $cl{"uid"}; # Если в команде обнаружится sudo, euid поменяем на 0 |
| devi@0 | 477 $cl{"pid"} = $3; |
| devi@0 | 478 $cl{"day"} = $4; |
| devi@0 | 479 $cl{"lab"} = $5; |
| devi@0 | 480 $cl{"hour"} = $6; |
| devi@0 | 481 $cl{"min"} = $7; |
| devi@0 | 482 $cl{"sec"} = $8; |
| devi@0 | 483 $cl{"fullprompt"} = $9; |
| devi@0 | 484 $cl{"prompt"} = $10; |
| devi@0 | 485 $cl{"raw_cline"} = $11; |
| devi@0 | 486 |
| devi@0 | 487 $cl{"err"} = 0; |
| devi@0 | 488 $cl{"output"} = ""; |
| devi@0 | 489 $cl{"tty"} = $tty; |
| devi@0 | 490 |
| devi@0 | 491 $cline_vt->process($cl{"raw_cline"}."\n"); |
| devi@0 | 492 $cl{"cline"} = $cline_vt->row_plaintext (1); |
| devi@0 | 493 $cl{"cline"} =~ s/\s*$//; |
| devi@0 | 494 $cline_vt->reset(); |
| devi@0 | 495 |
| devi@0 | 496 my %commands = extract_from_cline("commands", $cl{"cline"}); |
| devi@0 | 497 $cl{"euid"}=0 if defined $commands{"sudo"}; |
| devi@0 | 498 my @comms = sort { $commands{$a} cmp $commands{$b} } keys %commands; |
| devi@0 | 499 $cl{"last_command"} = $comms[$#comms] || ""; |
| devi@0 | 500 |
| devi@0 | 501 if ( |
| devi@0 | 502 $Config{"suppress_editors"} =~ /^y/i |
| devi@0 | 503 && grep ($_ eq $cl{"last_command"}, @{$Config{"editors"}}) || |
| devi@0 | 504 $Config{"suppress_pagers"} =~ /^y/i |
| devi@0 | 505 && grep ($_ eq $cl{"last_command"}, @{$Config{"pagers"}}) || |
| devi@0 | 506 $Config{"suppress_terminal"}=~ /^y/i |
| devi@0 | 507 && grep ($_ eq $cl{"last_command"}, @{$Config{"terminal"}}) |
| devi@0 | 508 ) { |
| devi@0 | 509 $cl{"suppress_output"} = "1"; |
| devi@0 | 510 } |
| devi@0 | 511 else { |
| devi@0 | 512 $cl{"suppress_output"} = "0"; |
| devi@0 | 513 |
| devi@0 | 514 } |
| devi@0 | 515 $skip_info = 0; |
| devi@0 | 516 |
| devi@0 | 517 |
| devi@0 | 518 print " ",$cl{"last_command"}; |
| devi@0 | 519 |
| devi@0 | 520 # Processing previous command line |
| devi@0 | 521 if ($first_pass) { |
| devi@0 | 522 $first_pass = 0; |
| devi@0 | 523 next; |
| devi@0 | 524 } |
| devi@0 | 525 |
| devi@0 | 526 # Error code |
| devi@0 | 527 $last_cl{"err"}=$err; |
| devi@0 | 528 $last_cl{"err"}=130 if $err eq "^C"; |
| devi@0 | 529 |
| devi@0 | 530 if (grep ($_ eq $last_cl{"last_command"}, @{$Config{"editors"}})) { |
| devi@0 | 531 bind_diff(\%last_cl); |
| devi@0 | 532 } |
| devi@0 | 533 |
| devi@0 | 534 # Output |
| devi@0 | 535 if (!$last_cl{"suppress_output"} || $last_cl{"err"}) { |
| devi@0 | 536 for (my $i=0; $i<$Config{"terminal_height"}; $i++) { |
| devi@0 | 537 my $line= $vt->row_plaintext($i); |
| devi@0 | 538 next if !defined ($line) || $line =~ /^\s*$/; |
| devi@0 | 539 $line =~ s/\s*$//; |
| devi@0 | 540 $last_cl{"output"} .= $line."\n"; |
| devi@0 | 541 } |
| devi@0 | 542 } |
| devi@0 | 543 else { |
| devi@0 | 544 $last_cl{"output"}= ""; |
| devi@0 | 545 } |
| devi@0 | 546 |
| devi@0 | 547 $vt->reset(); |
| devi@0 | 548 |
| devi@0 | 549 |
| devi@0 | 550 # Classifying the command line |
| devi@0 | 551 |
| devi@0 | 552 |
| devi@0 | 553 # Save |
| devi@0 | 554 if (!$Config{"lab"} || $cl{"lab"} eq $Config{"lab"}) { |
| devi@0 | 555 # Changing encoding |
| devi@0 | 556 for (keys %last_cl) { |
| devi@0 | 557 $last_cl{$_} = $converter->convert($last_cl{$_}) |
| devi@0 | 558 if ($Config{"encoding"} && |
| devi@0 | 559 $Config{"encoding"} !~ /^utf-8$/i); |
| devi@0 | 560 } |
| devi@0 | 561 push @Command_Lines, \%last_cl; |
| devi@0 | 562 } |
| devi@0 | 563 next; |
| devi@0 | 564 } |
| devi@0 | 565 $last_output_length+=length($_); |
| devi@0 | 566 #if (!$cl{"suppress_output"} || $last_output_length < 5000) { |
| devi@18 | 567 if ($last_output_length < 50000) { |
| devi@0 | 568 #print "(",length($_),")" if (length($_) > 2000) ; |
| devi@0 | 569 $vt->process("$_"."\n") |
| devi@0 | 570 } |
| devi@0 | 571 else |
| devi@0 | 572 { |
| devi@0 | 573 if (!$skip_info) { |
| devi@0 | 574 print "($cl{last_command})"; |
| devi@0 | 575 $skip_info = 1; |
| devi@0 | 576 } |
| devi@0 | 577 } |
| devi@0 | 578 } |
| devi@0 | 579 close(FILE); |
| devi@0 | 580 |
| devi@0 | 581 } |
| devi@0 | 582 if ($Config{"verbose"} =~ /y/) { |
| devi@0 | 583 print "...finished." ; |
| devi@0 | 584 print "Lines loaded: $commandlines_processed\n"; |
| devi@0 | 585 print "Command lines: $commandlines_loaded\n"; |
| devi@0 | 586 } |
| devi@0 | 587 } |
| devi@0 | 588 |
| devi@0 | 589 sub search_by |
| devi@0 | 590 { |
| devi@0 | 591 my $sm = shift; |
| devi@0 | 592 my $topic = shift; |
| devi@0 | 593 $topic =~ s/ /+/; |
| devi@0 | 594 |
| devi@0 | 595 return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='". |
| devi@0 | 596 $Search_Machines{$sm}->{"icon"}."' border='0'/></a>"; |
| devi@0 | 597 } |
| devi@0 | 598 |
| devi@0 | 599 sub make_comment |
| devi@0 | 600 { |
| devi@0 | 601 my $commands = $_[0]; |
| devi@0 | 602 my $files = $_[1]; |
| devi@0 | 603 chomp $commands; |
| devi@0 | 604 chomp $files; |
| devi@0 | 605 return if (!$commands && !$files); |
| devi@0 | 606 |
| devi@0 | 607 my $comment=""; |
| devi@0 | 608 |
| devi@0 | 609 # Commands |
| devi@0 | 610 for my $command (split /\s+/,$commands) { |
| devi@0 | 611 $command =~ s/'//g; |
| devi@0 | 612 my $description=""; |
| devi@0 | 613 eval { $description=`mywi-client '$command'`; } ; |
| devi@0 | 614 $description = join ("<br>\n", grep(/\([18]\)/, split(/\n/, $description))); |
| devi@0 | 615 $description =~ s/.*?-//; |
| devi@0 | 616 next if $description =~ /^\s*$/; |
| devi@0 | 617 |
| devi@0 | 618 my $query=$command." ".$Config{"keywords"}; |
| devi@0 | 619 $query =~ s/\ /+/g; |
| devi@0 | 620 my $search= search_by("opennet",$query). |
| devi@0 | 621 search_by("local",$command). |
| devi@0 | 622 search_by("google",$query); |
| devi@0 | 623 |
| devi@0 | 624 $comment .= "<tr><td class='note_title'>$command</td>". |
| devi@0 | 625 "<td class='note_search'>$search</td>". |
| devi@0 | 626 "</tr><tr><td width='100%' colspan='2' class='note_text'>". |
| devi@0 | 627 "$description</td></tr><tr/>"; |
| devi@0 | 628 } |
| devi@0 | 629 |
| devi@0 | 630 # Files |
| devi@0 | 631 for my $file (split /\s+/,$files) { |
| devi@0 | 632 $file =~ s@.*/@@; |
| devi@0 | 633 $file =~ s/'//g; |
| devi@0 | 634 next if $file =~ /^\s*$/; |
| devi@0 | 635 next if $file =~ /^-/; |
| devi@0 | 636 |
| devi@0 | 637 my $description=`mywi '$file'`; |
| devi@0 | 638 $description = join ("<br>\n", grep(/\(5\)/, split(/\n/, $description))); |
| devi@0 | 639 next if $description =~ /^\s*$/; |
| devi@0 | 640 |
| devi@0 | 641 my $query=$file." ".$Config{"files_keywords"}; |
| devi@0 | 642 $query =~ s/\ /+/g; |
| devi@0 | 643 my $search= search_by("opennet",$query). |
| devi@0 | 644 search_by("local",$file). |
| devi@0 | 645 search_by("google",$query); |
| devi@0 | 646 |
| devi@0 | 647 $comment .= "<tr><td class='note_title'>$file</td>". |
| devi@0 | 648 "<td class='note_search'>$search</td>". |
| devi@0 | 649 "</tr><tr><td width='100%' colspan='2' class='note_text'>". |
| devi@0 | 650 "$description</td></tr><tr/>"; |
| devi@0 | 651 } |
| devi@0 | 652 |
| devi@0 | 653 |
| devi@0 | 654 return $comment; |
| devi@0 | 655 } |
| devi@0 | 656 |
| devi@0 | 657 sub printq |
| devi@0 | 658 { |
| devi@0 | 659 my $TO = shift; |
| devi@0 | 660 my $text = join "", @_; |
| devi@0 | 661 $text =~ s/&/&/g; |
| devi@0 | 662 $text =~ s/</</g; |
| devi@0 | 663 $text =~ s/>/>/g; |
| devi@0 | 664 print $TO $text; |
| devi@0 | 665 } |
| devi@0 | 666 |
| devi@0 | 667 |
| devi@0 | 668 sub sort_command_lines |
| devi@0 | 669 { |
| devi@0 | 670 print "Sorting command lines...\n" if $Config{"verbose"} =~ /y/; |
| devi@0 | 671 |
| devi@0 | 672 # Sort Command_Lines |
| devi@0 | 673 # Write Command_Lines to Command_Lines_Index |
| devi@0 | 674 |
| devi@0 | 675 my @index; |
| devi@0 | 676 for (my $i=0;$i<=$#Command_Lines;$i++) { |
| devi@0 | 677 $index[$i]=$i; |
| devi@0 | 678 } |
| devi@0 | 679 |
| devi@0 | 680 @Command_Lines_Index = sort { |
| devi@0 | 681 $Command_Lines[$index[$a]]->{"day"} cmp $Command_Lines[$index[$b]]->{"day"} || |
| devi@0 | 682 $Command_Lines[$index[$a]]->{"hour"} <=> $Command_Lines[$index[$b]]->{"hour"} || |
| devi@0 | 683 $Command_Lines[$index[$a]]->{"min"} <=> $Command_Lines[$index[$b]]->{"min"} || |
| devi@0 | 684 $Command_Lines[$index[$a]]->{"sec"} <=> $Command_Lines[$index[$b]]->{"sec"} |
| devi@0 | 685 } @index; |
| devi@0 | 686 |
| devi@0 | 687 print "...finished\n" if $Config{"verbose"} =~ /y/; |
| devi@0 | 688 |
| devi@0 | 689 } |
| devi@0 | 690 |
| devi@0 | 691 sub process_command_lines |
| devi@0 | 692 { |
| devi@0 | 693 my $lab_scripts_path = $_[0]; |
| devi@0 | 694 |
| devi@0 | 695 for my $i (@Command_Lines_Index) { |
| devi@0 | 696 |
| devi@0 | 697 my $cl = \$Command_Lines[$i]; |
| devi@0 | 698 @{${$cl}->{"new_commands"}} =(); |
| devi@0 | 699 @{${$cl}->{"new_files"}} =(); |
| devi@0 | 700 $$cl->{"class"} = ""; |
| devi@0 | 701 |
| devi@0 | 702 if ($$cl->{"err"}) { |
| devi@0 | 703 $$cl->{"class"}="wrong"; |
| devi@0 | 704 $$cl->{"class"}="interrupted" |
| devi@0 | 705 if ($$cl->{"err"} eq 130); |
| devi@0 | 706 } |
| devi@0 | 707 if (!$$cl->{"euid"}) { |
| devi@0 | 708 $$cl->{"class"}.="_root"; |
| devi@0 | 709 } |
| devi@0 | 710 |
| devi@0 | 711 #tab# my @tab_words=split /\s+/, $$cl->{"output"}; |
| devi@0 | 712 #tab# my $last_word= $$cl->{"cline"} =~ /(\S*)$/; |
| devi@0 | 713 #tab# $last_word =~ s@.*/@@; |
| devi@0 | 714 #tab# my $this_is_tab=1; |
| devi@0 | 715 #tab# |
| devi@0 | 716 #tab# if ($last_word && @tab_words >2) { |
| devi@0 | 717 #tab# for my $tab_words (@tab_words) { |
| devi@0 | 718 #tab# if ($tab_words !~ /^$last_word/) { |
| devi@0 | 719 #tab# $this_is_tab=0; |
| devi@0 | 720 #tab# last; |
| devi@0 | 721 #tab# } |
| devi@0 | 722 #tab# } |
| devi@0 | 723 #tab# } |
| devi@0 | 724 #tab# $$cl->{"class"}="tab" if $this_is_tab; |
| devi@0 | 725 |
| devi@0 | 726 |
| devi@0 | 727 if ( !$$cl->{"err"}) { |
| devi@0 | 728 # Command does not contain mistakes |
| devi@0 | 729 |
| devi@0 | 730 my %commands = extract_from_cline("commands", ${$cl}->{"cline"}); |
| devi@0 | 731 my %files = extract_from_cline("files", ${$cl}->{"cline"}); |
| devi@0 | 732 |
| devi@0 | 733 # Searching for new commands only |
| devi@0 | 734 for my $command (keys %commands) { |
| devi@0 | 735 if (!defined $Commands_Stat{$command}) { |
| devi@0 | 736 push @{$$cl->{new_commands}}, $command; |
| devi@0 | 737 } |
| devi@0 | 738 $Commands_Stat{$command}++; |
| devi@0 | 739 } |
| devi@0 | 740 |
| devi@0 | 741 for my $file (keys %files) { |
| devi@0 | 742 if (!defined $Files_Stat{$file}) { |
| devi@0 | 743 push @{$$cl->{new_files}}, $file; |
| devi@0 | 744 } |
| devi@0 | 745 $Files_Stat{$file}++; |
| devi@0 | 746 } |
| devi@0 | 747 } |
| devi@0 | 748 } |
| devi@0 | 749 |
| devi@0 | 750 } |
| devi@0 | 751 |
| devi@6 | 752 |
| devi@6 | 753 =cut |
| devi@6 | 754 Вывести результат обработки журнала. |
| devi@6 | 755 =cut |
| devi@6 | 756 |
| devi@6 | 757 |
| devi@0 | 758 sub print_command_lines |
| devi@0 | 759 { |
| devi@0 | 760 my $output_filename=$_[0]; |
| devi@0 | 761 my $format = $Config{"output_format"}; |
| devi@6 | 762 |
| devi@6 | 763 my $course_name = $Config{"course-name"}; |
| devi@6 | 764 my $course_code = $Config{"course-code"}; |
| devi@6 | 765 my $course_date = $Config{"course-date"}; |
| devi@6 | 766 my $course_center = $Config{"course-center"}; |
| devi@6 | 767 my $course_trainer = $Config{"course-trainer"}; |
| devi@6 | 768 my $course_student = $Config{"course-student"}; |
| devi@0 | 769 |
| devi@0 | 770 open(OUT, ">", $output_filename) |
| devi@0 | 771 or die "Can't open $output_filename for writing\n"; |
| devi@0 | 772 |
| devi@0 | 773 |
| devi@0 | 774 |
| devi@0 | 775 if ($format eq "html") { |
| devi@0 | 776 # vvvv HTML Header |
| devi@0 | 777 print OUT <<HEADER; |
| devi@0 | 778 <html> |
| devi@0 | 779 <head> |
| devi@0 | 780 <meta content='text/html; charset=utf-8' http-equiv='Content-Type' /> |
| devi@0 | 781 <link rel='stylesheet' href='labmaker.css' type='text/css'/> |
| devi@0 | 782 </head> |
| devi@0 | 783 <body> |
| devi@0 | 784 <script> |
| devi@0 | 785 function getElementsByClassName(Class_Name) |
| devi@0 | 786 { |
| devi@0 | 787 var Result=new Array(); |
| devi@0 | 788 var All_Elements=document.all || document.getElementsByTagName('*'); |
| devi@0 | 789 for (i=0; i<All_Elements.length; i++) |
| devi@0 | 790 if (All_Elements[i].className==Class_Name) |
| devi@0 | 791 Result.push(All_Elements[i]); |
| devi@0 | 792 return Result; |
| devi@0 | 793 } |
| devi@0 | 794 function ShowHide (name) |
| devi@0 | 795 { |
| devi@0 | 796 elements=getElementsByClassName(name); |
| devi@0 | 797 for(i=0; i<elements.length; i++) |
| devi@0 | 798 if (elements[i].style.display == "none") |
| devi@0 | 799 elements[i].style.display = ""; |
| devi@0 | 800 else |
| devi@0 | 801 elements[i].style.display = "none"; |
| devi@0 | 802 //if (elements[i].style.visibility == "hidden") |
| devi@0 | 803 // elements[i].style.visibility = "visible"; |
| devi@0 | 804 //else |
| devi@0 | 805 // elements[i].style.visibility = "hidden"; |
| devi@0 | 806 } |
| devi@0 | 807 function filter_by_output(text) |
| devi@0 | 808 { |
| devi@0 | 809 |
| devi@0 | 810 var jjj=0; |
| devi@0 | 811 |
| devi@0 | 812 elements=getElementsByClassName('command'); |
| devi@0 | 813 for(i=0; i<elements.length; i++) { |
| devi@0 | 814 subelems = elements[i].getElementsByTagName('pre'); |
| devi@0 | 815 for(j=0; j<subelems.length; j++) { |
| devi@0 | 816 if (subelems[j].className = 'output') { |
| devi@0 | 817 var str = new String(subelems[j].nodeValue); |
| devi@0 | 818 if (jjj != 1) { |
| devi@0 | 819 alert(str); |
| devi@0 | 820 jjj=1; |
| devi@0 | 821 } |
| devi@0 | 822 if (str.indexOf(text) >0) |
| devi@0 | 823 subelems[j].style.display = "none"; |
| devi@0 | 824 else |
| devi@0 | 825 subelems[j].style.display = ""; |
| devi@0 | 826 |
| devi@0 | 827 } |
| devi@0 | 828 |
| devi@0 | 829 } |
| devi@0 | 830 } |
| devi@0 | 831 |
| devi@0 | 832 } |
| devi@0 | 833 </script> |
| devi@6 | 834 <h2>Журнал лабораторных работ</h2> |
| devi@6 | 835 |
| devi@6 | 836 <p> |
| devi@6 | 837 Выполнил $course_student<br/> |
| devi@6 | 838 Проверил $course_trainer <br/> |
| devi@6 | 839 Курс $course_name ($course_code), |
| devi@6 | 840 $course_date<br/> |
| devi@6 | 841 Учебный центр $course_center <br/> |
| devi@6 | 842 </p> |
| devi@6 | 843 |
| devi@6 | 844 <ul> |
| devi@6 | 845 <li><a href='#log'>Журнал</a></li> |
| devi@6 | 846 <li><a href='#stat'>Статистика</a></li> |
| devi@6 | 847 <li><a href='#help'>Справка</a></li> |
| devi@6 | 848 <li><a href='#about'>О программе</a></li> |
| devi@6 | 849 </ul> |
| devi@6 | 850 |
| devi@12 | 851 <h3 id="log">Журнал</h3> |
| devi@0 | 852 HEADER |
| devi@0 | 853 print OUT "<table class='visibility_form'><tr><td><form>\n"; |
| devi@0 | 854 for my $element (keys %Elements_Visibility) |
| devi@0 | 855 { |
| devi@0 | 856 my @e = split /\s+/, $element; |
| devi@0 | 857 my $showhide = join "", map { "ShowHide('$_');" } @e ; |
| devi@0 | 858 print OUT "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>", |
| devi@0 | 859 $Elements_Visibility{$element}, |
| devi@0 | 860 "</input><br>\n"; |
| devi@0 | 861 } |
| devi@0 | 862 #print OUT "<input type='text' size='10' name=\"by_command\"/>". |
| devi@0 | 863 #"<input type='button' value='фильтр по командам' onclick=\"filter_by_command()\"/> <br>\n"; |
| devi@0 | 864 #print OUT "<input type='text' size='10' name=\"by_output\"/>". |
| devi@0 | 865 #"<input type='button' value='фильтр по результату' ". |
| devi@0 | 866 #"onclick=\"filter_by_output(this.form.by_output.value)\"/> <br>\n"; |
| devi@0 | 867 |
| devi@0 | 868 print OUT "</form></td></tr></table>\n"; |
| devi@0 | 869 print OUT "<table width='100%'>\n"; |
| devi@0 | 870 # ^^^^ HTML Header |
| devi@0 | 871 } |
| devi@0 | 872 else { |
| devi@0 | 873 # XML Header |
| devi@0 | 874 print OUT "<script>\n" |
| devi@0 | 875 } |
| devi@0 | 876 |
| devi@0 | 877 my $cl; |
| devi@0 | 878 my $last_tty=""; |
| devi@13 | 879 my $last_day=""; |
| devi@0 | 880 my $in_range=0; |
| devi@0 | 881 for my $i (@Command_Lines_Index) { |
| devi@0 | 882 |
| devi@13 | 883 |
| devi@0 | 884 $cl = $Command_Lines[$i]; |
| devi@0 | 885 |
| devi@0 | 886 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) { |
| devi@0 | 887 $in_range=1; |
| devi@0 | 888 next; |
| devi@0 | 889 } |
| devi@0 | 890 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) { |
| devi@0 | 891 $in_range=0; |
| devi@0 | 892 next; |
| devi@0 | 893 } |
| devi@0 | 894 next if ($Config{"from"} && $Config{"to"} && !$in_range) |
| devi@0 | 895 || |
| devi@0 | 896 ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ ) |
| devi@0 | 897 || |
| devi@0 | 898 ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0) |
| devi@0 | 899 || |
| devi@0 | 900 ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130); |
| devi@0 | 901 |
| devi@0 | 902 my @new_commands=@{$cl->{"new_commands"}}; |
| devi@0 | 903 my @new_files=@{$cl->{"new_files"}}; |
| devi@0 | 904 |
| devi@0 | 905 my $cl_class="cline"; |
| devi@0 | 906 my $out_class="output"; |
| devi@0 | 907 if ($cl->{"class"}) { |
| devi@0 | 908 $cl_class = $cl->{"class"}."_".$cl_class; |
| devi@0 | 909 $out_class = $cl->{"class"}."_".$out_class; |
| devi@0 | 910 } |
| devi@0 | 911 |
| devi@0 | 912 my $output=""; |
| devi@0 | 913 if ($Config{"head_lines"} || $Config{"tail_lines"}) { |
| devi@0 | 914 # Partialy output |
| devi@0 | 915 my @lines = split '\n', $cl->{"output"}; |
| devi@0 | 916 # head |
| devi@0 | 917 my $mark=1; |
| devi@0 | 918 for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) { |
| devi@0 | 919 $output .= $lines[$i]."\n"; |
| devi@0 | 920 } |
| devi@0 | 921 # tail |
| devi@0 | 922 my $start=$#lines-$Config{"tail_lines"}+1; |
| devi@0 | 923 if ($start < 0) { |
| devi@0 | 924 $start=0; |
| devi@0 | 925 $mark=0; |
| devi@0 | 926 } |
| devi@0 | 927 if ($start < $Config{"head_lines"}) { |
| devi@0 | 928 $start=$Config{"head_lines"}; |
| devi@0 | 929 $mark=0; |
| devi@0 | 930 } |
| devi@0 | 931 $output .= $Config{"skip_text"}."\n" if $mark; |
| devi@0 | 932 for (my $i=$start; $i<= $#lines; $i++) { |
| devi@0 | 933 $output .= $lines[$i]."\n"; |
| devi@0 | 934 } |
| devi@0 | 935 } |
| devi@0 | 936 else { |
| devi@0 | 937 # Full output |
| devi@0 | 938 $output .= $cl->{"output"}; |
| devi@0 | 939 } |
| devi@0 | 940 $output .= "^C\n" if ($cl->{"err"} eq "130"); |
| devi@0 | 941 |
| devi@0 | 942 |
| devi@0 | 943 # Printing out |
| devi@0 | 944 |
| devi@0 | 945 # <command> |
| devi@0 | 946 print OUT $format eq "html" |
| devi@0 | 947 ? "<tr class='command'>\n" |
| devi@0 | 948 : "\n<action time='$cl->{hour}:$cl->{min}:$cl->{sec}' tty='$cl->{tty}'>\n"; |
| devi@0 | 949 |
| devi@0 | 950 |
| devi@0 | 951 if ($format eq "html") { |
| devi@13 | 952 |
| devi@13 | 953 # DAY CHANGE |
| devi@13 | 954 if ( $last_day ne $cl->{"day"}) { |
| devi@13 | 955 print OUT "<td colspan='6'><p></p><h3>День ",$cl->{"day"},"</h4></td></tr><tr>"; |
| devi@13 | 956 $last_day=$cl->{"day"}; |
| devi@13 | 957 } |
| devi@13 | 958 |
| devi@0 | 959 # CONSOLE CHANGE |
| devi@0 | 960 if ( $last_tty ne $cl->{"tty"}) { |
| devi@0 | 961 print OUT "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>",$cl->{"tty"},"</td><td/></tr></table></td></tr><tr>"; |
| devi@0 | 962 $last_tty=$cl->{"tty"}; |
| devi@0 | 963 } |
| devi@0 | 964 |
| devi@0 | 965 # TIME |
| devi@0 | 966 if ($Config{"show_time"} =~ /^y/i) { |
| devi@0 | 967 print OUT "<td valign='top' class='time' width='$Config{time_width}'><pre>", |
| devi@0 | 968 $cl->{"hour"}, ":", $cl->{"min"}, ":", $cl->{"sec"}, |
| devi@0 | 969 "</td>"; |
| devi@0 | 970 } else { |
| devi@0 | 971 print OUT "<td width='0'/>" |
| devi@0 | 972 } |
| devi@0 | 973 } |
| devi@0 | 974 |
| devi@0 | 975 # COMMAND |
| devi@0 | 976 |
| devi@0 | 977 |
| devi@0 | 978 if ($format eq "html") { |
| devi@0 | 979 print OUT "<td class='script'>\n"; |
| devi@0 | 980 print OUT "<pre class='$cl_class'>\n"; |
| devi@0 | 981 my $cline = $cl->{"cline"}; |
| devi@0 | 982 $cline =~ s/\n//; |
| devi@0 | 983 printq(\*OUT,$cl->{"prompt"},$cl->{"cline"}); |
| devi@0 | 984 # printq(\*OUT,"(sudo ".$cl->{"last_command"}.")\n") if !$cl->{"euid"}; |
| devi@0 | 985 print OUT "</pre>\n"; |
| devi@0 | 986 } |
| devi@0 | 987 else { |
| devi@0 | 988 print OUT "<line class='$cl_class'>\n"; |
| devi@0 | 989 print OUT "<prompt>"; |
| devi@0 | 990 printq(\*OUT,$cl->{"prompt"}); |
| devi@0 | 991 print OUT "</prompt>"; |
| devi@0 | 992 print OUT "<command>"; |
| devi@0 | 993 printq(\*OUT,$cl->{"cline"}); |
| devi@0 | 994 print OUT "</command>"; |
| devi@0 | 995 print OUT "\n</line>\n"; |
| devi@0 | 996 } |
| devi@0 | 997 |
| devi@0 | 998 my $last_command = $cl->{"last_command"}; |
| devi@0 | 999 if (!( |
| devi@0 | 1000 $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) || |
| devi@0 | 1001 $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) || |
| devi@0 | 1002 $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}}) |
| devi@0 | 1003 )) { |
| devi@0 | 1004 |
| devi@0 | 1005 if ($format eq "html") { |
| devi@0 | 1006 print OUT "<pre class='$out_class'>"; |
| devi@0 | 1007 printq(\*OUT,$output); |
| devi@0 | 1008 print OUT "</pre>\n"; |
| devi@0 | 1009 } |
| devi@0 | 1010 else { |
| devi@0 | 1011 print OUT "<output class='$out_class'>\n"; |
| devi@0 | 1012 printq(\*OUT,$output); |
| devi@0 | 1013 print OUT "</output>\n"; |
| devi@0 | 1014 } |
| devi@0 | 1015 } |
| devi@0 | 1016 |
| devi@0 | 1017 # DIFF |
| devi@0 | 1018 if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) { |
| devi@0 | 1019 if ($format eq "html") { |
| devi@0 | 1020 #print Dumper(%{$cl->{"diff"}}); |
| devi@0 | 1021 print OUT "<table><tr><td width='5'/><td class='diff'><pre>"; |
| devi@0 | 1022 printq(\*OUT,${$Diffs[$cl->{"diff"}]}{"text"}); |
| devi@0 | 1023 print OUT "</pre></td></tr></table>"; |
| devi@0 | 1024 } |
| devi@0 | 1025 else { |
| devi@0 | 1026 print OUT "<diff>\n"; |
| devi@0 | 1027 printq(\*OUT,${$Diffs[$cl->{"diff"}]}{"text"}); |
| devi@0 | 1028 print OUT "</diff>\n"; |
| devi@0 | 1029 } |
| devi@0 | 1030 } |
| devi@0 | 1031 |
| devi@0 | 1032 # COMMENT |
| devi@0 | 1033 if ( $Config{"show_comments"} =~ /^y/i) { |
| devi@0 | 1034 my $comment = make_comment(join(" ",@new_commands), join (" ",@new_files)); |
| devi@0 | 1035 if ($comment) { |
| devi@0 | 1036 if ($format eq "html") { |
| devi@0 | 1037 print OUT "<table width='$Config{comment_width}'>". |
| devi@0 | 1038 "<tr><td width='5'/><td>"; |
| devi@0 | 1039 print OUT "<table class='note' width='100%'>"; |
| devi@0 | 1040 print OUT $comment; |
| devi@0 | 1041 print OUT "</table>\n"; |
| devi@0 | 1042 print OUT "</td></tr></table>"; |
| devi@0 | 1043 } |
| devi@0 | 1044 # else { |
| devi@0 | 1045 # print OUT "<comment>"; |
| devi@0 | 1046 # printq(\*OUT,$comment); |
| devi@0 | 1047 # print OUT "</comment>"; |
| devi@0 | 1048 # } |
| devi@0 | 1049 } |
| devi@0 | 1050 } |
| devi@0 | 1051 |
| devi@0 | 1052 if ($format eq "html") { |
| devi@0 | 1053 print OUT "</td>\n"; |
| devi@0 | 1054 print OUT "</tr>\n"; |
| devi@0 | 1055 } |
| devi@0 | 1056 else { |
| devi@0 | 1057 print OUT "</action>\n"; |
| devi@0 | 1058 } |
| devi@0 | 1059 |
| devi@0 | 1060 } |
| devi@0 | 1061 if ($format eq "html") { |
| devi@0 | 1062 print OUT "</table>\n"; |
| devi@6 | 1063 |
| devi@6 | 1064 print OUT "<hr/>"; |
| devi@6 | 1065 print OUT "<h3 id='stat'>Статистика</h4>"; |
| devi@6 | 1066 print OUT "Статистическая информация о журнале<br/>"; |
| devi@6 | 1067 print OUT "<hr/>"; |
| devi@6 | 1068 print OUT "<h3 id='help'>Справка</h4>"; |
| devi@6 | 1069 print OUT "$Html_Help<br/>"; |
| devi@6 | 1070 print OUT "<hr/>"; |
| devi@6 | 1071 print OUT "<h3 a='about'>О программе</h4>"; |
| devi@6 | 1072 print OUT "$Html_About"; |
| devi@0 | 1073 print OUT "</body>\n"; |
| devi@0 | 1074 print OUT "</html>\n"; |
| devi@0 | 1075 } |
| devi@0 | 1076 else { |
| devi@0 | 1077 print OUT "</script>\n"; |
| devi@0 | 1078 } |
| devi@0 | 1079 close(OUT); |
| devi@0 | 1080 } |
| devi@0 | 1081 |
| devi@0 | 1082 sub read_config_file |
| devi@0 | 1083 { |
| devi@0 | 1084 my $config = $_[0]; |
| devi@0 | 1085 my $filename = $_[1]; |
| devi@0 | 1086 open(CONFIG, "$filename") |
| devi@0 | 1087 or return; |
| devi@0 | 1088 while (<CONFIG>) { |
| devi@0 | 1089 s/#.*//; |
| devi@0 | 1090 next if /^\s*$/; |
| devi@0 | 1091 my ($var, $val) = split /\s*=\s*/, $_, 2; |
| devi@0 | 1092 $var =~ s/\s*//; |
| devi@0 | 1093 $config->{$var} = $val; |
| devi@0 | 1094 } |
| devi@0 | 1095 close(CONFIG); |
| devi@0 | 1096 } |
| devi@0 | 1097 |
| devi@18 | 1098 |
| devi@18 | 1099 sub print_command_lines2 |
| devi@18 | 1100 { |
| devi@18 | 1101 my $output_filename=$_[0]; |
| devi@18 | 1102 open(OUT, ">", $output_filename) |
| devi@18 | 1103 or die "Can't open $output_filename for writing\n"; |
| devi@18 | 1104 |
| devi@18 | 1105 |
| devi@18 | 1106 print OUT <<OUT; |
| devi@18 | 1107 <log> |
| devi@18 | 1108 OUT |
| devi@18 | 1109 |
| devi@18 | 1110 my $cl; |
| devi@18 | 1111 for my $i (@Command_Lines_Index) { |
| devi@18 | 1112 |
| devi@18 | 1113 |
| devi@18 | 1114 $cl = $Command_Lines[$i]; |
| devi@18 | 1115 |
| devi@18 | 1116 |
| devi@18 | 1117 # Printing out |
| devi@18 | 1118 print OUT <<OUT; |
| devi@18 | 1119 <command> |
| devi@18 | 1120 <day>$cl->{day}</day> |
| devi@18 | 1121 <hour>$cl->{hour}</hour> |
| devi@18 | 1122 <min>$cl->{min}</min> |
| devi@18 | 1123 <sec>$cl->{sec}</sec> |
| devi@18 | 1124 <tty>$cl->{tty}</tty> |
| devi@18 | 1125 <uid>$cl->{uid}</uid> |
| devi@18 | 1126 <euid>$cl->{euid}</euid> |
| devi@18 | 1127 <prompt>$cl->{prompt}</prompt> |
| devi@18 | 1128 <cline>$cl->{cline}</cline> |
| devi@18 | 1129 <status>$cl->{err}</cline> |
| devi@18 | 1130 <output> |
| devi@18 | 1131 $cl->{output}</output> |
| devi@18 | 1132 </command> |
| devi@18 | 1133 OUT |
| devi@18 | 1134 } |
| devi@18 | 1135 |
| devi@18 | 1136 for my $diff (@Diffs) { |
| devi@18 | 1137 |
| devi@18 | 1138 print OUT <<OUT; |
| devi@18 | 1139 <diff> |
| devi@18 | 1140 <path>$diff->{path}</path> |
| devi@18 | 1141 <uid>$diff->{uid}</uid> |
| devi@18 | 1142 <day>$diff->{day}</day> |
| devi@18 | 1143 <hour>$diff->{hour}</hour> |
| devi@18 | 1144 <min>$diff->{min}</min> |
| devi@18 | 1145 <sec>$diff->{sec}</sec> |
| devi@18 | 1146 <text> |
| devi@18 | 1147 $diff->{text}</text> |
| devi@18 | 1148 </diff> |
| devi@18 | 1149 OUT |
| devi@18 | 1150 } |
| devi@18 | 1151 |
| devi@18 | 1152 print OUT <<OUT; |
| devi@18 | 1153 </log> |
| devi@18 | 1154 OUT |
| devi@18 | 1155 } |
| devi@18 | 1156 |
| devi@18 | 1157 |
| devi@0 | 1158 $| = 1; |
| devi@0 | 1159 |
| devi@0 | 1160 my %file_config; |
| devi@0 | 1161 my %argv_config; |
| devi@6 | 1162 init_variables; |
| devi@0 | 1163 read_config_file(\%file_config, $Config_File); |
| devi@0 | 1164 GetOptions(\%argv_config, map "$_=s", keys %Config); |
| devi@0 | 1165 %Config = (%Config, %file_config, %argv_config); |
| devi@0 | 1166 |
| devi@0 | 1167 my $i=0; |
| devi@0 | 1168 |
| devi@0 | 1169 for my $lab_log (split (/\s+/, $Config{"diffs"} || $Config{"input"})) |
| devi@0 | 1170 { |
| devi@0 | 1171 load_diff_files($lab_log); |
| devi@0 | 1172 } |
| devi@0 | 1173 |
| devi@0 | 1174 for my $lab_log (split /\s+/, $Config{"input"}) |
| devi@0 | 1175 { |
| devi@0 | 1176 my $tofile=$Config{"output"}; |
| devi@0 | 1177 $tofile =~ s/$Config{"output_mask"}/$i/; |
| devi@0 | 1178 #load_diff_files($lab_log); |
| devi@0 | 1179 load_command_lines($lab_log, $Config{"input_mask"}); |
| devi@0 | 1180 sort_command_lines; |
| devi@0 | 1181 process_command_lines($lab_log); |
| devi@0 | 1182 print_command_lines($tofile); |
| devi@0 | 1183 $i++; |
| devi@0 | 1184 } |
| devi@0 | 1185 |
| devi@6 | 1186 |