# HG changeset patch
# User igor@chub.in
# Date 1216647851 -10800
# Node ID c48bd05dca853a87aaf2d9dccd5429a4571b5226
# Parent  da99089532ca1ea005129f40000c4e7af4d6ffc9
Восстановлена поддержка сеансов и начальная поддержка правок


Теперь можно посмотреть на команды одного
сеанса; для этого нужно воспользоваться ссылкой,
на строке в начале открытия терминала.

Появилась начальная поддержка правок.
Кнопка [ править ] на странице
открывает окно, где можно редактировать
текстовое представление журнала.
Правда, оно пока что не сохраняется.

diff -r da99089532ca -r c48bd05dca85 l3-cgi-lite
--- a/l3-cgi-lite	Mon Jul 21 12:29:05 2008 +0300
+++ b/l3-cgi-lite	Mon Jul 21 16:44:11 2008 +0300
@@ -37,6 +37,15 @@
 my $style_files = $l3config::Config{"frontend_files"} ;
 my $frontend_css = $l3config::Config{"frontend_css"} ;
 
+my $filter=$ENV{QUERY_STRING};
+if ($filter !~ /filter=/) {
+#    $filter="";
+}
+else {
+    $filter =~ s@.*filter=@@;
+    $filter =~ s@\&.*@@;
+}
+
 my $data_file = "data.xml";
 
 path_is_correct($path)
@@ -65,10 +74,12 @@
              && -e "$real_path/index.html" 
              && (stat("$real_path/index.html"))[9] > (stat("$real_path/$data_file"))[9] && 0!=0 ) {
 
-        my $l3_frontend = "l3-frontend --backend_datafile $real_path/$data_file --output $real_path/index.html --start_from_command $start_from_command ";
+        my $l3_frontend = "l3-frontend --backend_datafile $real_path/$data_file".
+                                     " --output $real_path/index.html".
+                                     " --start_from_command $start_from_command ".
+                                     " --filter '$filter'";
         system($l3_frontend) == 0
             or error("Файл журнала найден, но возникла ошибка при его обработке:<br/> $!");
-        #$print .= "(перегенирован)<br/>";
     }
 
     {
@@ -192,7 +203,8 @@
         }
         $i++;
     }
-    return "<table class='nav_bar' cellpadding='0' cellspacing='0' width='100%'><tr><td>$nav_bar</td></tr></table>";
+    $filter = "($filter)" if $filter;
+    return "<table class='nav_bar' cellpadding='0' cellspacing='0' width='100%'><tr><td>$nav_bar $filter</td></tr></table>";
 }
 
 sub count_command_lines($)
diff -r da99089532ca -r c48bd05dca85 l3-frontend
--- a/l3-frontend	Mon Jul 21 12:29:05 2008 +0300
+++ b/l3-frontend	Mon Jul 21 16:44:11 2008 +0300
@@ -103,12 +103,12 @@
 {
     if ($Config{filter}) {
         # Инициализация фильтра
-        for (split /&/,$Config{filter}) {
-            my ($var, $val) = split /=/;
+        for (split /;;/,$Config{filter}) {
+            my ($var, $val) = split /::/;
             $filter{$var} = $val || "";
         }
     }
-    $filter_url = join ("&", map("$_=$filter{$_}", keys %filter));
+    $filter_url = join (";;", map("$_::$filter{$_}", keys %filter));
 }
 
 # extract_from_cline
@@ -754,7 +754,7 @@
         if ( $last_session ne $cl->{"local_session_id"}) {
             my $tty;
             if (defined $Sessions{$cl->{"local_session_id"}}->{"tty"}) {
-                $this_day_result .= "<div class='ttychange'><a href='?local_session_id=".$cl->{"local_session_id"}."'>"
+                $this_day_result .= "<div class='ttychange'><a href='?filter=local_session_id::".$cl->{"local_session_id"}."'>"
                                 . $Sessions{$cl->{"local_session_id"}}->{"tty"}
                                 ."</a></div>";
             }
@@ -996,7 +996,7 @@
     if ($Config{filter}) {
         # Инициализация фильтра
         for (split /&/,$Config{filter}) {
-            my ($var, $val) = split /=/;
+            my ($var, $val) = split /::/;
             $filter{$var} = $val || "";
         }
     }
@@ -1380,7 +1380,7 @@
 
 
     <div class='edit_link'>
-    [ <a href='?action=edit&$filter_url'>править</a> ]
+    [ <a href='?filter=action::edit;;$filter_url'>править</a> ]
     </div>
     <h1 onmouseover="myHint.show('1')" onmouseout="myHint.hide()" class='lined_header'>Журнал лабораторных работ</h1>
 HEADER