lilalo

annotate lm-report @ 104:77f033a04361

find changesets by author, revision, files, or words in the commit message
Пофиксил приглашение
author devi
date Tue Jun 27 10:58:57 2006 +0300 (2006-06-27)
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 В последнем случае комментарий может содержать