lilalo
diff l3-frontend @ 24:4b86595adb4b
Написал что нового в 0.2.2
| author | devi |
|---|---|
| date | Wed Nov 02 19:25:39 2005 +0200 (2005-11-02) |
| parents | |
| children | ba4d6515b8fd |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/l3-frontend Wed Nov 02 19:25:39 2005 +0200 1.3 @@ -0,0 +1,493 @@ 1.4 +#!/usr/bin/perl -w 1.5 + 1.6 +use lib '.'; 1.7 +use l3config; 1.8 + 1.9 +our @Command_Lines; 1.10 + 1.11 +# vvv Инициализация переменных выполняется процедурой init_variables 1.12 +our @Day_Name; 1.13 +our @Month_Name; 1.14 +our @Of_Month_Name; 1.15 +our %Search_Machines; 1.16 +our %Elements_Visibility; 1.17 +# ^^^ 1.18 + 1.19 +sub search_buy; 1.20 +sub make_comment; 1.21 +sub load_command_lines_from_xml; 1.22 +sub print_command_lines; 1.23 +sub init_variables; 1.24 +sub main; 1.25 + 1.26 +main(); 1.27 + 1.28 +sub main 1.29 +{ 1.30 + $| = 1; 1.31 + 1.32 + init_variables(); 1.33 + init_config(); 1.34 + 1.35 + load_command_lines_from_xml($Config{"cache"}); 1.36 + print_command_lines($Config{"output"}); 1.37 +} 1.38 + 1.39 + 1.40 +sub search_by 1.41 +{ 1.42 + my $sm = shift; 1.43 + my $topic = shift; 1.44 + $topic =~ s/ /+/; 1.45 + 1.46 + return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='". 1.47 + $Search_Machines{$sm}->{"icon"}."' border='0'/></a>"; 1.48 +} 1.49 + 1.50 +sub make_comment 1.51 +{ 1.52 + my $commands = $_[0]; 1.53 + my $files = $_[1]; 1.54 + chomp $commands; 1.55 + chomp $files; 1.56 + return if (!$commands && !$files); 1.57 + 1.58 + my $comment=""; 1.59 + 1.60 + # Commands 1.61 + for my $command (split /\s+/,$commands) { 1.62 + $command =~ s/'//g; 1.63 + my $description=""; 1.64 + eval { $description=`mywi-client '$command'`; } ; 1.65 + $description = join ("<br>\n", grep(/\([18]\)/, split(/\n/, $description))); 1.66 + $description =~ s/.*?-//; 1.67 + next if $description =~ /^\s*$/; 1.68 + 1.69 + my $query=$command." ".$Config{"keywords"}; 1.70 + $query =~ s/\ /+/g; 1.71 + my $search= search_by("opennet",$query). 1.72 + search_by("local",$command). 1.73 + search_by("google",$query); 1.74 + 1.75 + $comment .= "<tr><td class='note_title'>$command</td>". 1.76 + "<td class='note_search'>$search</td>". 1.77 + "</tr><tr><td width='100%' colspan='2' class='note_text'>". 1.78 + "$description</td></tr><tr/>"; 1.79 + } 1.80 + 1.81 + # Files 1.82 + for my $file (split /\s+/,$files) { 1.83 + $file =~ s@.*/@@; 1.84 + $file =~ s/'//g; 1.85 + next if $file =~ /^\s*$/; 1.86 + next if $file =~ /^-/; 1.87 + 1.88 + my $description=`mywi '$file'`; 1.89 + $description = join ("<br>\n", grep(/\(5\)/, split(/\n/, $description))); 1.90 + next if $description =~ /^\s*$/; 1.91 + 1.92 + my $query=$file." ".$Config{"files_keywords"}; 1.93 + $query =~ s/\ /+/g; 1.94 + my $search= search_by("opennet",$query). 1.95 + search_by("local",$file). 1.96 + search_by("google",$query); 1.97 + 1.98 + $comment .= "<tr><td class='note_title'>$file</td>". 1.99 + "<td class='note_search'>$search</td>". 1.100 + "</tr><tr><td width='100%' colspan='2' class='note_text'>". 1.101 + "$description</td></tr><tr/>"; 1.102 + } 1.103 + 1.104 + 1.105 + return $comment; 1.106 +} 1.107 + 1.108 +=cut 1.109 +Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта 1.110 +из XML-документа в переменную @Command_Lines 1.111 + 1.112 +Предупреждение! 1.113 +Процедура не в состоянии обрабатывать XML-документ любой структуры. 1.114 +В действительности файл cache из которого загружаются данные 1.115 +просто напоминает XML с виду. 1.116 +=cut 1.117 +sub load_command_lines_from_xml 1.118 +{ 1.119 + my $datafile = $_[0]; 1.120 + 1.121 + open (CLASS, $datafile) 1.122 + or die "Can't open file of the class ",$datafile,"\n"; 1.123 + local $/; 1.124 + $data = <CLASS>; 1.125 + close(CLASS); 1.126 + 1.127 + for $command ($data =~ m@<command>(.*?)</command>@sg) { 1.128 + my %cl; 1.129 + while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) { 1.130 + $cl{$1} = $2; 1.131 + } 1.132 + push @Command_Lines, \%cl; 1.133 + } 1.134 +} 1.135 + 1.136 +=cut 1.137 +Процедура print_command_lines выводит HTML-представление 1.138 +разобранного lab-скрипта. 1.139 + 1.140 +Разобранный lab-скрипт должен находиться в массиве @Command_Lines 1.141 +=cut 1.142 + 1.143 +sub print_command_lines 1.144 +{ 1.145 + my $output_filename=$_[0]; 1.146 + 1.147 + my $course_name = $Config{"course-name"}; 1.148 + my $course_code = $Config{"course-code"}; 1.149 + my $course_date = $Config{"course-date"}; 1.150 + my $course_center = $Config{"course-center"}; 1.151 + my $course_trainer = $Config{"course-trainer"}; 1.152 + my $course_student = $Config{"course-student"}; 1.153 + 1.154 + 1.155 + # Результат выполнения процедуры равен 1.156 + # join("", @Result{header,body,stat,help,about,footer}) 1.157 + my %Result; 1.158 + my $toc =""; # Хранит оглавление по дням 1.159 + 1.160 + $Result{"body"} = "<table width='100%'>\n"; 1.161 + 1.162 + my $cl; 1.163 + my $last_tty=""; 1.164 + my $last_day=""; 1.165 + my $in_range=0; 1.166 + 1.167 + for my $cl (@Command_Lines) { 1.168 + 1.169 + if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) { 1.170 + $in_range=1; 1.171 + next; 1.172 + } 1.173 + if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) { 1.174 + $in_range=0; 1.175 + next; 1.176 + } 1.177 + next if ($Config{"from"} && $Config{"to"} && !$in_range) 1.178 + || 1.179 + ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ ) 1.180 + || 1.181 + ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0) 1.182 + || 1.183 + ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130); 1.184 + 1.185 + #my @new_commands=@{$cl->{"new_commands"}}; 1.186 + #my @new_files=@{$cl->{"new_files"}}; 1.187 + 1.188 + my $cl_class="cline"; 1.189 + my $out_class="output"; 1.190 + if ($cl->{"class"}) { 1.191 + $cl_class = $cl->{"class"}."_".$cl_class; 1.192 + $out_class = $cl->{"class"}."_".$out_class; 1.193 + } 1.194 + 1.195 + my @new_commands; 1.196 + my @new_files; 1.197 + @new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"}; 1.198 + @new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"}; 1.199 + 1.200 + my $output=""; 1.201 + if ($Config{"head_lines"} || $Config{"tail_lines"}) { 1.202 + # Partialy output 1.203 + my @lines = split '\n', $cl->{"output"}; 1.204 + # head 1.205 + my $mark=1; 1.206 + for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) { 1.207 + $output .= $lines[$i]."\n"; 1.208 + } 1.209 + # tail 1.210 + my $start=$#lines-$Config{"tail_lines"}+1; 1.211 + if ($start < 0) { 1.212 + $start=0; 1.213 + $mark=0; 1.214 + } 1.215 + if ($start < $Config{"head_lines"}) { 1.216 + $start=$Config{"head_lines"}; 1.217 + $mark=0; 1.218 + } 1.219 + $output .= $Config{"skip_text"}."\n" if $mark; 1.220 + for (my $i=$start; $i<= $#lines; $i++) { 1.221 + $output .= $lines[$i]."\n"; 1.222 + } 1.223 + } 1.224 + else { 1.225 + # Full output 1.226 + $output .= $cl->{"output"}; 1.227 + } 1.228 + #$output .= "^C\n" if ($cl->{"err"} eq "130"); 1.229 + 1.230 + # 1.231 + ## 1.232 + ## Начинается собственно вывод 1.233 + ## 1.234 + # 1.235 + 1.236 + # <command> 1.237 + 1.238 + my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time}); 1.239 + # Добавляем спереди 0 для удобочитаемости 1.240 + $min = "0".$min if $min =~ /^.$/; 1.241 + $hour = "0".$hour if $hour =~ /^.$/; 1.242 + $sec = "0".$sec if $sec =~ /^.$/; 1.243 + 1.244 + $class=$cl->{"out_class"}; 1.245 + $class =~ s/output$//; 1.246 + 1.247 + 1.248 + $Result{"body"} .= "<tr class='command'>\n"; 1.249 + 1.250 + 1.251 + # DAY CHANGE 1.252 + if ( $last_day ne $day) { 1.253 + #$Result{"body"} .= "<td colspan='6'><p></p><h3>День ",$day,"</h4></td></tr><tr>"; 1.254 + $Result{"body"} .= "<td colspan='6'><p></p><h3 id='day$day'>".$Day_Name[$wday]."</h4></td></tr><tr>"; 1.255 + $toc .= "<li><a href='#day$day'>".$Day_Name[$wday]."</a></li>\n"; 1.256 + $last_day=$day; 1.257 + } 1.258 + 1.259 + # CONSOLE CHANGE 1.260 + if ( $last_tty ne $cl->{"tty"}) { 1.261 + $Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$cl->{"tty"}."</td><td/></tr></table></td></tr><tr>"; 1.262 + $last_tty=$cl->{"tty"}; 1.263 + } 1.264 + 1.265 + # TIME 1.266 + if ($Config{"show_time"} =~ /^y/i) { 1.267 + $Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>". 1.268 + $hour. ":". $min. ":". $sec. 1.269 + "</td>"; 1.270 + } else { 1.271 + $Result{"body"} .= "<td width='0'/>" 1.272 + } 1.273 + 1.274 + # COMMAND 1.275 + $Result{"body"} .= "<td class='script'>\n"; 1.276 + $Result{"body"} .= "<pre class='${class}cline'>\n"; 1.277 + my $cline = $cl->{"cline"}; 1.278 + $cline =~ s/\n//; 1.279 + $Result{"body"} .= $cl->{"prompt"}.$cl->{"cline"}; 1.280 + $Result{"body"} .= "</pre>\n"; 1.281 + 1.282 + my $last_command = $cl->{"last_command"}; 1.283 + if (!( 1.284 + $Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) || 1.285 + $Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) || 1.286 + $Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}}) 1.287 + )) { 1.288 + 1.289 + $Result{"body"} .= "<pre class='".$cl->{out_class}."'>"; 1.290 + $Result{"body"} .= $output; 1.291 + $Result{"body"} .= "</pre>\n"; 1.292 + } 1.293 + 1.294 + # DIFF 1.295 + if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) { 1.296 + $Result{"body"} .= "<table><tr><td width='5'/><td class='diff'><pre>"; 1.297 + $Result{"body"} .= $cl->{"diff"}; 1.298 + $Result{"body"} .= "</pre></td></tr></table>"; 1.299 + } 1.300 + 1.301 + # COMMENT 1.302 + if ( $Config{"show_comments"} =~ /^y/i) { 1.303 + my $comment = make_comment(join(" ",@new_commands), join (" ",@new_files)); 1.304 + if ($comment) { 1.305 + $Result{"body"} .= "<table width='$Config{comment_width}'>". 1.306 + "<tr><td width='5'/><td>"; 1.307 + $Result{"body"} .= "<table class='note' width='100%'>"; 1.308 + $Result{"body"} .= $comment; 1.309 + $Result{"body"} .= "</table>\n"; 1.310 + $Result{"body"} .= "</td></tr></table>"; 1.311 + } 1.312 + else { 1.313 + $Result{"body"} .= "<table width='$Config{comment_width}'>". 1.314 + "<tr><td width='5'/><td>"; 1.315 + $Result{"body"} .= "<table class='note' width='100%'>"; 1.316 + $Result{"body"} .= "commands ".join(" ",@new_commands)."<br/>"; 1.317 + $Result{"body"} .= "files ".join(" ",@new_files)."<br/>"; 1.318 + $Result{"body"} .= "</table>\n"; 1.319 + $Result{"body"} .= "</td></tr></table>"; 1.320 + } 1.321 + } 1.322 + 1.323 + # Вывод очередной команды окончен 1.324 + $Result{"body"} .= "</td>\n"; 1.325 + $Result{"body"} .= "</tr>\n"; 1.326 + } 1.327 + 1.328 + $Result{"body"} .= "</table>\n"; 1.329 + 1.330 + $Result{"stat"} = "<hr/>"; 1.331 + $Result{"stat"} .= "<h2 id='stat'>Статистика</h2>"; 1.332 + $Result{"stat"} .= "Статистическая информация о журнале<br/>"; 1.333 + $Result{"help"} .= "<hr/>"; 1.334 + $Result{"help"} .= "<h2 id='help'>Справка</h2>"; 1.335 + $Result{"help"} .= "$Html_Help<br/>"; 1.336 + $Result{"about"} .= "<hr/>"; 1.337 + $Result{"about"} .= "<h2 id='about'>О программе</h2>"; 1.338 + $Result{"about"} .= "$Html_About"; 1.339 + $Result{"footer"} .= "</body>\n"; 1.340 + $Result{"footer"} .= "</html>\n"; 1.341 + 1.342 + # Заголовок генерируется позже всего 1.343 + # Тогда, когда известно уже, что должно быть написано в 1.344 + # оглавлении 1.345 + $Result{"header"} = <<HEADER; 1.346 + <html> 1.347 + <head> 1.348 + <meta content='text/html; charset=utf-8' http-equiv='Content-Type' /> 1.349 + <link rel='stylesheet' href='labmaker.css' type='text/css'/> 1.350 + </head> 1.351 + <body> 1.352 + <script> 1.353 + $Html_JavaScript 1.354 + </script> 1.355 + <h2>Журнал лабораторных работ</h2> 1.356 + 1.357 + <p> 1.358 + Выполнил $course_student<br/> 1.359 + Проверил $course_trainer <br/> 1.360 + Курс $course_name ($course_code), 1.361 + $course_date<br/> 1.362 + Учебный центр $course_center <br/> 1.363 + </p> 1.364 + 1.365 + <ul> 1.366 + <li><a href='#log'>Журнал</a></li> 1.367 + <ul>$toc</ul> 1.368 + <li><a href='#stat'>Статистика</a></li> 1.369 + <li><a href='#help'>Справка</a></li> 1.370 + <li><a href='#about'>О программе</a></li> 1.371 + </ul> 1.372 + 1.373 + <h2 id="log">Журнал</h2> 1.374 +HEADER 1.375 + $Result{"header"} .= "<table class='visibility_form'><tr><td><form>\n"; 1.376 + for my $element (keys %Elements_Visibility) 1.377 + { 1.378 + my @e = split /\s+/, $element; 1.379 + my $showhide = join "", map { "ShowHide('$_');" } @e ; 1.380 + $Result{"header"} .= "<input type='checkbox' name='$e[0]' onclick=\"$showhide\" checked>". 1.381 + $Elements_Visibility{$element}. 1.382 + "</input><br>\n"; 1.383 + } 1.384 + 1.385 + $Result{"header"} .= "</form></td></tr></table>\n"; 1.386 + 1.387 + open(OUT, ">", $output_filename) 1.388 + or die "Can't open $output_filename for writing\n"; 1.389 + print OUT $Result{"header"}, $Result{"body"}, $Result{"stat"}, $Result{"help"}, $Result{"about"}, $Result{"footer"}; 1.390 + close(OUT); 1.391 +} 1.392 + 1.393 + 1.394 + 1.395 + 1.396 + 1.397 + 1.398 +sub init_variables 1.399 +{ 1.400 +$Html_Help = <<HELP; 1.401 + Справка по использованию журнала 1.402 +HELP 1.403 + 1.404 +$Html_About = <<ABOUT; 1.405 + <p> 1.406 + LiLaLo (L3) расшифровывается как Live Lab Log.<br/> 1.407 + Программа разработана для повышения эффективности обучения<br/> 1.408 + Unix/Linux-системам.<br/> 1.409 + (c) Игорь Чубин, 2004-2005<br/> 1.410 + </p> 1.411 +ABOUT 1.412 +$Html_About.='$Id$ </p>'; 1.413 + 1.414 +$Html_JavaScript = <<JS; 1.415 + function getElementsByClassName(Class_Name) 1.416 + { 1.417 + var Result=new Array(); 1.418 + var All_Elements=document.all || document.getElementsByTagName('*'); 1.419 + for (i=0; i<All_Elements.length; i++) 1.420 + if (All_Elements[i].className==Class_Name) 1.421 + Result.push(All_Elements[i]); 1.422 + return Result; 1.423 + } 1.424 + function ShowHide (name) 1.425 + { 1.426 + elements=getElementsByClassName(name); 1.427 + for(i=0; i<elements.length; i++) 1.428 + if (elements[i].style.display == "none") 1.429 + elements[i].style.display = ""; 1.430 + else 1.431 + elements[i].style.display = "none"; 1.432 + //if (elements[i].style.visibility == "hidden") 1.433 + // elements[i].style.visibility = "visible"; 1.434 + //else 1.435 + // elements[i].style.visibility = "hidden"; 1.436 + } 1.437 + function filter_by_output(text) 1.438 + { 1.439 + 1.440 + var jjj=0; 1.441 + 1.442 + elements=getElementsByClassName('command'); 1.443 + for(i=0; i<elements.length; i++) { 1.444 + subelems = elements[i].getElementsByTagName('pre'); 1.445 + for(j=0; j<subelems.length; j++) { 1.446 + if (subelems[j].className = 'output') { 1.447 + var str = new String(subelems[j].nodeValue); 1.448 + if (jjj != 1) { 1.449 + alert(str); 1.450 + jjj=1; 1.451 + } 1.452 + if (str.indexOf(text) >0) 1.453 + subelems[j].style.display = "none"; 1.454 + else 1.455 + subelems[j].style.display = ""; 1.456 + 1.457 + } 1.458 + 1.459 + } 1.460 + } 1.461 + 1.462 + } 1.463 +JS 1.464 + 1.465 +%Search_Machines = ( 1.466 + "google" => { "query" => "http://www.google.com/search?q=" , 1.467 + "icon" => "google.ico" }, 1.468 + "freebsd" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=", 1.469 + "icon" => "freebsd.ico" }, 1.470 + "linux" => { "query" => "http://man.he.net/?topic=", 1.471 + "icon" => "linux.ico"}, 1.472 + "opennet" => { "query" => "http://www.opennet.ru/search.shtml?words=", 1.473 + "icon" => "opennet.ico"}, 1.474 + "local" => { "query" => "http://www.freebsd.org/cgi/man.cgi?query=", 1.475 + "icon" => "freebsd.ico" }, 1.476 + 1.477 + ); 1.478 + 1.479 +%Elements_Visibility = ( 1.480 + "note" => "замечания", 1.481 + "diff" => "редактор", 1.482 + "time" => "время", 1.483 + "ttychange" => "терминал", 1.484 + "wrong_output wrong_cline wrong_root_output wrong_root_cline" 1.485 + => "команды с ошибками", 1.486 + "interrupted_output interrupted_cline interrupted_root_output interrupted_root_cline" 1.487 + => "прерванные команды", 1.488 + "tab_completion_output tab_completion_cline" 1.489 + => "продолжение с помощью tab" 1.490 +); 1.491 + 1.492 +@Day_Name = qw/ Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота /; 1.493 +@Month_Name = qw/ Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь /; 1.494 +@Of_Month_Name = qw/ Января Февраля Марта Апреля Мая Июня Июля Августа Сентября Октября Ноября Декабря /; 1.495 +} 1.496 +