'.$_[0].
+'
@gs; + $tigra_hints{$hint_id} =~ s@ - @ — @gs; + $tigra_hints{$hint_id} =~ s@'@\\'@gs; +# $tigra_hints_items .= "'$hint_id' : mywrap('".$tigra_hints{$hint_id}."'),"; + $tigra_hints_items .= "'$hint_id' : '".mywrap($tigra_hints{$hint_id})."',"; + } + $tigra_hints_items =~ s/,$//; + return <
'+s_+
+'
".$Day_Name[$last_wday]."
"; +# Выводим предыдущий день + + $result .= "".$Day_Name[$last_wday]." ($human_readable_time)
"; for my $entry_class (sort keys %new_entries_of) { my $table_caption = "Таблица ".$table_number++.".".$Day_Name[$last_wday] .". Новые ".$new_entries_of{$entry_class}; @@ -623,7 +695,12 @@ $result .= $this_day_result; } - push @toc, "".$Day_Name[$wday]."\n"; +# Добавляем текущий день в оглавление + + $human_readable_time = strftime "%D", localtime($first_command_of_the_day_unix_time); + push @toc, "".$Day_Name[$wday]." ($human_readable_time)\n"; + + $last_day=$day; $last_wday=$wday; $this_day_result = q(); @@ -672,8 +749,8 @@ $cline = "$cline"; } - $this_day_result .= "| \n \n";
- $this_day_result .= " \n" . $cline ; #cline
+ $this_day_result .= "
|
![](".$Config{frontend_ico_path}."/error.png)
\n"
. "".$Day_Name[$last_wday]."
"; + $prev_unix_time=$first_command_of_the_day_unix_time; + $first_command_of_the_day_unix_time = $cl->{time}; + $human_readable_time = strftime "%D", localtime($prev_unix_time); + + $result .= "".$Day_Name[$last_wday]." ($human_readable_time)
"; for my $entry_class (keys %new_entries_of) { my $table_caption = "Таблица ".$table_number++.".".$Day_Name[$last_wday] @@ -1120,7 +1201,8 @@ my ($command_lines,$toc) = print_command_lines_html; my $files_section = print_files_html; - $result = print_header_html($toc); + $result = $debug_output; + $result .= print_header_html($toc); # $result.= join "", keys %Sessions; @@ -1195,9 +1277,11 @@ # Управляющая форма отключена - # Она слишеком сильно мешает, нужно что-то переделать + # Она слишком сильно мешает, нужно что-то переделать $control_form = ""; + my $tigra_hints_array=tigra_hints_generate; + my $result; $result = <
[ править ]
@@ -1824,3 +1936,199 @@
$Search_Machines{$sm}->{"icon"}."' border='0'/>";
}
+
+
+
+########################################################################################
+#
+# mywi
+#
+#
+#
+#
+#
+#
+#
+
+
+
+sub mywi_init
+{
+ our $MyWiFile = "/home/devi/mywi/mywi.txt";
+ our $MyWiLog = "/home/devi/mywi/mywi.log";
+ our $section="";
+
+ our @MywiTXT; # Массив текстовых записей mywi
+ our %MywiHASH; # Хэш массивов записей
+ our %Query;
+
+ load_mywitxt($MyWiFile, \@MywiTXT, \%MywiHASH);
+}
+
+sub mywi_process_query($)
+#
+# Сделать подсказку по заданному запросу
+# $_[0] - тема для подсказки
+#
+# Возвращает:
+# строку-подсказку
+#
+{
+ my $query = shift;
+ parse_query($query, \%Query);
+ $result = search_in_txt(\%Query, \@MywiTXT, \%MywiHASH);
+
+ if (!$result) {
+ #add_to_log(\%Query, $MyWiLog);
+ return "$query nothing appropriate. Logged. ".join (";",%Query);
+ }
+
+ return $result;
+}
+
+####################################################################################
+# private section
+####################################################################################
+
+sub load_mywitxt
+#
+# Загрузить файл с записями Mywi_TXT
+# в массив
+# $_[0] - указатель на массив для загрузки
+# $_[1] - имя файла для загрузки
+#
+{
+ my $MyWiFile = $_[0];
+ my $MywiTXT = $_[1];
+ my $MywiHASH = $_[2];
+
+ open (MW, "$MyWiFile") or die "Can't open $MyWiFile for reading";
+ binmode MW, ":utf8";
+ @{$MywiTXT} = ;
+ close (MWF);
+
+ for my $mywi_line (@{$MywiTXT}) {
+ my $topic = $mywi_line;
+ $topic =~ s@\s*\(.*\n@@;
+ push @{$$MywiHASH{"$topic"}}, $mywi_line;
+# $MywiHASH{"$topic"} .= $mywi_line;
+ }
+}
+
+sub parse_query
+#
+# Строка запроса:
+# [format:]topic[(section)]
+# Элементы format и topic являются не обязательными
+#
+# $_[0] - строка запроса
+# $_[1] - ссылка на хэш запроса
+#
+{
+ my $query_string = shift;
+ my $query_hash = shift;
+
+ %{$query_hash} = (
+ "format" => "txt",
+ "section" => "",
+ "topic" => "",
+ );
+
+ if ($query_string =~ s/^([^:]*)://) {
+ $query_hash->{"format"} = $1 || "txt";
+ }
+ if ($query_string =~ s/\(([^(]*)\)$//) {
+ $query_hash->{"section"} = $1 || "";
+ }
+ $query_hash->{"topic"} = $query_string;
+}
+
+
+sub search_in_txt
+#
+# Выполнить поиск в текстовой базе
+# по известному запросу
+# $_[0] -- ссылка на хэш запроса
+# $_[1] -- ссылка на массив текстовых записей
+# $_[2] -- ссылка на хэш массивов текстовых записей
+# Результат:
+# найденная текстовая запись в заданном формате
+#
+{
+ my %Query = %{$_[0]};
+ my %MywiHASH = %{$_[2]};
+
+ my $topic = $Query{"topic"};
+ my $section = $Query{"section"};
+ my $result = "";
+
+ return join("\n",@{$MywiHASH{"$topic"}})."\n";
+
+ for my $l (@{$$_[2]{$topic}}) {
+# for my $l (@{$_[1]}) {
+ my $line = $l;
+ if (
+ ($section and $line =~ /^\s*\Q$topic\E\s*\($section*\)\s*-/ )
+ or (not $section and $line =~ /^\s*\Q$topic\E\s*(\([^)]*\)?)\s*-/) ) {
+ $line =~ s/^.* -//mg if ($Config{"short"});
+ $result .= "$line ";
+ }
+ }
+ return $result;
+}
+
+
+sub add_to_log($$)
+#
+# Если в базе отсутствует информация по данной теме,
+# сделать предположение доступным способом
+# и добавить его в базу
+# или просто сделать отметку о необходимости
+# расширения базы
+#
+# Добавить запись в журнал
+# $_[0] - запись (ссылка на хэш)
+# $_[1] - имя файла-журнала
+#
+{
+ my $query = $_[0];
+ my $MyWiLog = $_[1];
+
+ open (MWF, ">>:utf8", $MyWiLog) or die "Can't open $MyWiLog for writing";
+ my $my_guess = mywi_guess($query);
+ print MWF "$my_guess\n";
+ close(MWF);
+}
+
+sub mywi_guess($)
+# Сформировать исходную строку для журнала по заданному запросу
+# Если секция принадлежит 0..9, в качестве основы для результирующего текста использовать whatis
+# $_[0] - запись (ссылка на хэш)
+#
+# Возвращает:
+# строку-предположение
+{
+ my %query = %{$_[0]};
+
+ my $topic = $query{"topic"};
+ my $section = $query{"section"};
+
+ my $result = "$topic($section)";
+ if (!$section or $section =~ /^[1-9]$/)
+ {
+ # Запрос из категории 1-9
+ # Об этом может знать whatis
+ $result = `LANG=C whatis -- "$topic"`;
+ if ($result =~ /nothing appropriate/i) {
+ $result = $topic;
+ $result .= "($section)" if $section;
+ }
+ else {
+ 1 while ($result =~ s/(\s+)-(\s+)/$1+$2/sg);
+ $result =~ s/\s+\(/(/;
+ chomp $result;
+ }
+ }
+ return $result;
+}
+
diff -r 0d49f33696b3 -r 3cd466f35ad6 l3bashrc
--- a/l3bashrc Sun Nov 12 17:34:47 2006 +0200
+++ b/l3bashrc Wed Feb 13 02:41:57 2008 +0200
@@ -151,11 +151,9 @@
old_file=\"/tmp/l3-saved-\$\$.\$RANDOM.\$RANDOM\"
/bin/cp -- \"\$1\" \"\$old_file\" 2> /dev/null
$editor_file \"\$@\" || ERR=\$?
- [ -e \"\$old_file\" ] && diff \"\$old_file\" \"\$1\" > \"\$L3_HOME/\$DIFFNAME\" 2> /dev/null
- if [ "$?" == 2 ]
- then
- diff /dev/null \"\$1\" > \"\$L3_HOME/\$DIFFNAME\" 2> /dev/null
- fi
+ [ -e \"\$old_file\" ] \
+ && diff -u \"\$old_file\" \"\$1\" > \"\$L3_HOME/\$DIFFNAME\" 2> /dev/null \
+ || diff -u /dev/null \"\$1\" > \"\$L3_HOME/\$DIFFNAME\" 2> /dev/null
/bin/rm \"\$old_file\" 2> /dev/null
return \$ERR
fi
@@ -238,8 +236,26 @@
grep ^l3cd= ~/.l3rc | sed s/[^=]*=//
;;
*)
- echo /usr/local/bin/l3
+ cat < "",
"year" => "2006",
+ "commands_to_show_at_a_go" => "100",
+ "start_from_command" => "0",
);
sub read_config_file