lilalo

diff l3-frontend @ 113:8287cb3530de

sever files added
author igor
date Sun Mar 09 02:34:52 2008 +0200 (2008-03-09)
parents 3cd466f35ad6
children 658b4ea105c1
line diff
     1.1 --- a/l3-frontend	Wed Feb 13 02:41:57 2008 +0200
     1.2 +++ b/l3-frontend	Sun Mar 09 02:34:52 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 ("&#10;", 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>';