lilalo
annotate lm-report @ 111:99ea38e538c9
Добавил:
* l3upload
Исправил:
* хинт теперь всплывает только при наведении непосредственно на команду
(а не на приглашение и не на символ кода завершения)
* подсветка неизвестных команд не такая сильная
* l3upload
Исправил:
* хинт теперь всплывает только при наведении непосредственно на команду
(а не на приглашение и не на символ кода завершения)
* подсветка неизвестных команд не такая сильная
author | igor |
---|---|
date | Sat Feb 16 13:41:48 2008 +0200 (2008-02-16) |
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 в том случае, если комментарий развёрнутый. |