#l3-cgi-lite [----] 0 L:[ 1+ 0 1/247] *(0 /6822b) 0035 0x023
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use utf8; 86 35 121 3819 032 0x020
# В каталоге есть файл $data_file
# Если существуют html и xml файлы,
# Отлично! Сейчас будем показывать журнал
# html файл новее чем xml,
# иunless ( -e "$real_path/$data_file"
&& -e "$real_path/index.html".
# используем html файл, иначе перегенируем его
&& (stat("$real_path/index$page_id.html"))[9] > (stat("$real_path/$data_file"))[9]) {
}
elsif ($filter !~ /filter=/) {
}
# else {
if ($l3config::Config{"command_id"}) {
ub coun}_co$fragment_options = " --start_from_command $start_from_command ";
$fragment_options = " --command_id ".$l3config::Config{"command_id"};
my $l3_frontend = "l3-fronten$fragment_options.le $real_path/$data_file".
" --filter '$filter'";
system($l3_frontend) == 0
or error("Файл журнала найден, но возникла ошибка при его обработке:<br/> $!");
}
{
local $/;
open(HTML, "<:utf8", "$real_path/index$page_id.html");
my $html = <HTML>;
# Добавим в начало документа навигационную строку
my $nav_bar = nav_bar;
$html =~ s/(<body[^>]*>)/$1$nav_bar/;
$print .= $html;
or error ("Путь $path содержит недопустимые символы или комбинации символов.");
}
my $data_file = "data.xml"
my $commands_to_show_at_a_go = $l3config::Config{"commands_to_show_at_a_go"};
my $start_from_command = "0";
my $this_page_number=0;
my $page_id;
if ($path =~ s/:(.*)//) {
$this_page_number = $1;
$start_from_command = $this_page_number*$commands_to_show_at_a_go;
}
$page_id=$this_page_number;
1Help 2Save 3Mark 4Replac 5Copy 6Move 7Search 8Delete 9PullDn 10Quit
Left File Command Options Right
close(HTML);
}
}
}
# В этом каталоге нет файла data.xml
# Но в нём должны быть подкаталоги!
Hint: To use the mouse cut and paste may require holding the shift key
else {