Понедельник (06/14/10)

/dev/pts/13
22:15:22
#httpd.conf [----] 23 L:[971+27 998/1006] *(33764/34221b) 0114 0x072
#
# Use name-based virtual hosting.
#
#NameVirtualHost *:80
#
# NOTE: NameVirtualHost cannot be used without a port specifier.
# (e.g. :80) if mod_ssl is being used, due to the nature of the
# SSL protocol.
#
#
# VirtualHost example:
# Almost any Apache directive may go into a VirtualHost container.
# The first VirtualHost section is used for requests without a known
# server name.
#
#<VirtualHost *:80>
#    ServerAdmin webmaster@dummy-host.example.com
#    DocumentRoot /www/docs/dummy-host.example.com
#    ServerName dummy-host.example.com
#    ErrorLog logs/dummy-host.example.com-error_log
#    CustomLog logs/dummy-host.example.com-access_log common
#</VirtualHost>
    ScriptAlias /l3 /usr/lib/cgi-bin/l3-cgi-lite
        ScriptAlias /l3-upload /usr/lib/cgi-bin/l3-upload
            <Directory /usr/lib/cgi-bin/>
                    AllowOverride None
                            Options ExecCGI -MultiViews FollowSymlinks
                                    Order allow,deny
                                            Allow from all
                                                </Directory>
22:15:22
#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 {