lilalo

diff l3-frontend @ 74:a10db759e587

Перешёл на новый формат приглашения.
Ура Ура Ура!

Теперь в нём есть информация
о номере строки в истории (history),
текущем каталоге (pwd),
времени появления приглашения (time)

Давно пора было!
author devi
date Thu Feb 09 18:47:04 2006 +0200 (2006-02-09)
parents 1e1422588716
children 58ea78973bbb
line diff
     1.1 --- a/l3-frontend	Tue Jan 31 20:18:54 2006 +0200
     1.2 +++ b/l3-frontend	Thu Feb 09 18:47:04 2006 +0200
     1.3 @@ -301,6 +301,8 @@
     1.4  
     1.5          next if !$cl;
     1.6  
     1.7 +        $$cl->{id} = $$cl->{"time"};
     1.8 +
     1.9          $$cl->{err} ||=0;
    1.10  
    1.11          # Класс команды
    1.12 @@ -310,7 +312,8 @@
    1.13                          :   $$cl->{"err"}        ?  "wrong"
    1.14                          :                           "normal";
    1.15  
    1.16 -        if ($$cl->{"cline"} =~ /[^|`]\s*sudo/
    1.17 +        if ($$cl->{"cline"} && 
    1.18 +            $$cl->{"cline"} =~ /[^|`]\s*sudo/
    1.19              || $$cl->{"uid"} eq 0) {
    1.20              $$cl->{"class"}.="_root";
    1.21          }
    1.22 @@ -504,7 +507,8 @@
    1.23          if ($cl->{"last_command"} eq "cat" && !$cl->{"err"} && !($cl->{"cline"} =~ /</)) {
    1.24              my $filename = $cl->{"cline"};
    1.25              $filename =~ s/.*\s+(\S+)\s*$/$1/;
    1.26 -            $Files{$filename} = $cl->{"output"};
    1.27 +            $Files{$filename}->{"content"} = $cl->{"output"};
    1.28 +            $Files{$filename}->{"source_command_id"} = $cl->{"id"}
    1.29          }
    1.30          my @lines = split '\n', $cl->{"output"};
    1.31          if ((
    1.32 @@ -604,7 +608,7 @@
    1.33                               .  "</td></tr>\n";
    1.34          }
    1.35  
    1.36 -        $this_day_result .= "<tr class='command'>\n";
    1.37 +        $this_day_result .= "<tr class='command' id='command:".$cl->{"id"}."'>\n";
    1.38                          
    1.39  
    1.40  # CONSOLE CHANGE
    1.41 @@ -1052,11 +1056,12 @@
    1.42      my $result = qq(); 
    1.43      my @toc;
    1.44      for my $file (sort keys %Files) {
    1.45 -          my $div_id = $file;
    1.46 +          my $div_id = "file:$file";
    1.47            $div_id =~ s@/@_@g;
    1.48            push @toc, "<a href='#$div_id'>$file</a>";
    1.49            $result .= "<div class='filename' id='$div_id'>".$file."</div>\n"
    1.50 -                  .  "<div class='filedata'><pre>".$Files{$file}."</pre></div>";
    1.51 +                  .  "<div class='file_navigation'><a href='#command:".$Files{$file}->{source_command_id}."'>"."&gt;"."</a></div>"
    1.52 +                  .  "<div class='filedata'><pre>".$Files{$file}->{content}."</pre></div>";
    1.53      }
    1.54      return "<div class='files_toc'>".collapse_list(\@toc)."</div>".$result;
    1.55  }