lilalo
diff l3-frontend @ 112:da65f1cbaf3a
l3prompt added
author | igor |
---|---|
date | Sat Mar 08 22:36:44 2008 +0200 (2008-03-08) |
parents | 3cd466f35ad6 |
children | 658b4ea105c1 |
line diff
1.1 --- a/l3-frontend Wed Feb 13 02:41:57 2008 +0200 1.2 +++ b/l3-frontend Sat Mar 08 22:36:44 2008 +0200 1.3 @@ -425,7 +425,7 @@ 1.4 } 1.5 $tigra_hints{$$cl->{"time"}} = $hint; 1.6 1.7 - $$cl->{hint}=""; 1.8 + #$$cl->{hint}=""; 1.9 1.10 # Выводим <head_lines> верхних строк 1.11 # и <tail_lines> нижних строк, 1.12 @@ -466,6 +466,11 @@ 1.13 1.14 if ($$cl->{cline} =~ /l3shot/) { 1.15 if ($$cl->{output} =~ m@Screenshot is written to.*/(.*)\.xwd@) { 1.16 + $$cl->{screenshot}="$1".$Config{l3shot_suffix}; 1.17 + } 1.18 + } 1.19 + if ($$cl->{cline} =~ /l3upload/) { 1.20 + if ($$cl->{output} =~ m@Uploaded file name is (.*)@) { 1.21 $$cl->{screenshot}="$1"; 1.22 } 1.23 } 1.24 @@ -739,18 +744,20 @@ 1.25 # COMMAND 1.26 my $cline; 1.27 $prompt_hint = join (" ", map("$_=$cl->{$_}", grep (!/^(output|diff)$/, sort(keys(%{$cl}))))); 1.28 - $cline = "<span title='$prompt_hint'>".$cl->{"prompt"}."</span>".$cl->{"cline"}; 1.29 + $cline = "<span title='$prompt_hint'>".$cl->{"prompt"}."</span>" 1.30 + ."<span onmouseover=\"myHint.show('".$cl->{time}."')\" onmouseout=\"myHint.hide()\">".$cl->{"cline"}."</span>"; 1.31 $cline =~ s/\n//; 1.32 1.33 if ($cl->{"hint"}) { 1.34 - $cline = "<span title='$cl->{hint}' class='with_hint'>$cline</span>" ; 1.35 +# $cline = "<span title='$cl->{hint}' class='with_hint'>$cline</span>" ; 1.36 + $cline = "<span class='with_hint'>$cline</span>" ; 1.37 } 1.38 else { 1.39 $cline = "<span class='without_hint'>$cline</span>"; 1.40 } 1.41 1.42 $this_day_result .= "<DIV class='fixed_div'><table cellpadding='0' cellspacing='0'><tr><td>\n<div class='cblock_$cl->{class}'>\n"; 1.43 - $this_day_result .= "<div class='cline' onmouseover=\"myHint.show('".$cl->{time}."')\" onmouseout=\"myHint.hide()\">\n" . $cline ; #cline 1.44 + $this_day_result .= "<div class='cline'>" . $cline ; #cline 1.45 $this_day_result .= "<span title='Код завершения ".$cl->{"err"}."'>\n" 1.46 . "<img src='".$Config{frontend_ico_path}."/error.png'/>\n" 1.47 . "</span>\n" if $cl->{"err"}; 1.48 @@ -773,7 +780,6 @@ 1.49 $this_day_result .= "<img src='" 1.50 .$Config{l3shot_path} 1.51 .$cl->{"screenshot"} 1.52 - .$Config{l3shot_suffix} 1.53 ."' alt ='screenshot id ".$cl->{"screenshot"} 1.54 ."'/>" 1.55 if ( $Config{"show_screenshots"} =~ /^y/i && $cl->{"screenshot"}); 1.56 @@ -1814,7 +1820,7 @@ 1.57 <p> 1.58 <a href='http://xgu.ru/lilalo/'>LiLaLo</a> (L3) расшифровывается как Live Lab Log.<br/> 1.59 Программа разработана для повышения эффективности обучения Unix/Linux-системам.<br/> 1.60 - (c) Игорь Чубин, 2004-2006<br/> 1.61 + (c) Игорь Чубин, 2004-2008<br/> 1.62 </p> 1.63 ABOUT 1.64 $Html_About.='$Id$ </p>';