1.1 --- a/l3-agent	Sat Feb 04 00:54:17 2006 +0200
     1.2 +++ b/l3-agent	Tue Feb 07 12:51:03 2006 +0200
     1.3 @@ -489,9 +489,9 @@
     1.4  
     1.5          my $output="";
     1.6  
     1.7 -        if (!grep ($_ eq $cl{"last_command"}, @{$Config{"full_output_commands"}})
     1.8 +        if (!grep ($_ eq $cl->{"last_command"}, @{$Config{"full_output_commands"}})
     1.9              && ($Config{"head_lines"} 
    1.10 -            || $Config{"tail_lines"})) 
    1.11 +            || $Config{"tail_lines"})) { 
    1.12              # Partialy output
    1.13              my @lines = split '\n', $cl->{"output"};
    1.14              # head
    1.15 @@ -510,7 +510,7 @@
    1.16                  $mark=0;
    1.17              }   
    1.18              $output .= $Config{"skip_text"}."\n" if $mark;
    1.19 -            for (my $i=$start; $i<= $#lines; $i++) {
    1.20 +            for ($i=$start; $i<= $#lines; $i++) {
    1.21                  $output .= $lines[$i]."\n";
    1.22              }
    1.23          } 

     2.1 --- a/l3-frontend	Sat Feb 04 00:54:17 2006 +0200
     2.2 +++ b/l3-frontend	Tue Feb 07 12:51:03 2006 +0200
     2.3 @@ -301,6 +301,8 @@
     2.4  
     2.5          next if !$cl;
     2.6  
     2.7 +        $$cl->{id} = $$cl->{"time"};
     2.8 +
     2.9          $$cl->{err} ||=0;
    2.10  
    2.11          # Класс команды
    2.12 @@ -310,7 +312,8 @@
    2.13                          :   $$cl->{"err"}        ?  "wrong"
    2.14                          :                           "normal";
    2.15  
    2.16 -        if ($$cl->{"cline"} =~ /[^|`]\s*sudo/
    2.17 +        if ($$cl->{"cline"} && 
    2.18 +            $$cl->{"cline"} =~ /[^|`]\s*sudo/
    2.19              || $$cl->{"uid"} eq 0) {
    2.20              $$cl->{"class"}.="_root";
    2.21          }
    2.22 @@ -504,7 +507,8 @@
    2.23          if ($cl->{"last_command"} eq "cat" && !$cl->{"err"} && !($cl->{"cline"} =~ /</)) {
    2.24              my $filename = $cl->{"cline"};
    2.25              $filename =~ s/.*\s+(\S+)\s*$/$1/;
    2.26 -            $Files{$filename} = $cl->{"output"};
    2.27 +            $Files{$filename}->{"content"} = $cl->{"output"};
    2.28 +            $Files{$filename}->{"source_command_id"} = $cl->{"id"}
    2.29          }
    2.30          my @lines = split '\n', $cl->{"output"};
    2.31          if ((
    2.32 @@ -604,7 +608,7 @@
    2.33                               .  "</td></tr>\n";
    2.34          }
    2.35  
    2.36 -        $this_day_result .= "<tr class='command'>\n";
    2.37 +        $this_day_result .= "<tr class='command' id='command:".$cl->{"id"}."'>\n";
    2.38                          
    2.39  
    2.40  # CONSOLE CHANGE
    2.41 @@ -1052,11 +1056,12 @@
    2.42      my $result = qq(); 
    2.43      my @toc;
    2.44      for my $file (sort keys %Files) {
    2.45 -          my $div_id = $file;
    2.46 +          my $div_id = "file:$file";
    2.47            $div_id =~ s@/@_@g;
    2.48            push @toc, "<a href='#$div_id'>$file</a>";
    2.49            $result .= "<div class='filename' id='$div_id'>".$file."</div>\n"
    2.50 -                  .  "<div class='filedata'><pre>".$Files{$file}."</pre></div>";
    2.51 +                  .  "<div class='file_navigation'><a href='#command:".$Files{$file}->{source_command_id}."'>"."&gt;"."</a></div>"
    2.52 +                  .  "<div class='filedata'><pre>".$Files{$file}->{content}."</pre></div>";
    2.53      }
    2.54      return "<div class='files_toc'>".collapse_list(\@toc)."</div>".$result;
    2.55  }