lilalo

changeset 99:05e99d32f1f5

$1 заменена на \1
Иначе не работало
Странно.... Проверить
author devi
date Mon Jun 12 09:32:18 2006 +0300 (2006-06-12)
parents 4c02cf4123ee
children 2c00c61f2d7b
files l3-backend l3-frontend l3config.pm
line diff
     1.1 --- a/l3-backend	Sun Jun 11 22:07:42 2006 +0300
     1.2 +++ b/l3-backend	Mon Jun 12 09:32:18 2006 +0300
     1.3 @@ -102,7 +102,16 @@
     1.4  		}
     1.5  		close(OUT);
     1.6  
     1.7 -        while ($saved_data =~ m@<(session|command)>(.*)</$1>@sg) {
     1.8 +            #open(LOG, ">>", "/tmp/l3-backend.log");
     1.9 +            #print LOG "Saved data:$saved_data\n";
    1.10 +            #close(LOG);
    1.11 +
    1.12 +        while ($saved_data =~ m@<(session|command)>(.*)</\1>@sg) {
    1.13 +
    1.14 +            #open(LOG, ">>", "/tmp/l3-backend.log");
    1.15 +            #print LOG "Found element $1\n";
    1.16 +            #close(LOG);
    1.17 +            
    1.18              my $element_name = $1;
    1.19              my $element = $2;
    1.20              if ($element =~ m@<l3cd>(.*?)</l3cd>@msg) {
     2.1 --- a/l3-frontend	Sun Jun 11 22:07:42 2006 +0300
     2.2 +++ b/l3-frontend	Mon Jun 12 09:32:18 2006 +0300
     2.3 @@ -1191,6 +1191,11 @@
     2.4      $control_form .= "</form>\n"
     2.5                    .  "</div>\n";
     2.6  
     2.7 +
     2.8 +    # Управляющая форма отключена
     2.9 +    # Она слишеком сильно мешает, нужно что-то переделать
    2.10 +    $control_form = "";
    2.11 +
    2.12      my $result;
    2.13      $result = <<HEADER;
    2.14      <html>
     3.1 --- a/l3config.pm	Sun Jun 11 22:07:42 2006 +0300
     3.2 +++ b/l3config.pm	Mon Jun 12 09:32:18 2006 +0300
     3.3 @@ -84,7 +84,7 @@
     3.4      "detach"            => "yes",
     3.5      "agent_pidfile"     => "$ENV{HOME}/.lilalo/l3-agent.pid",
     3.6  
     3.7 -    "backend_address"   => "192.168.18.254",
     3.8 +    "backend_address"   => "192.168.15.254",
     3.9      "backend_port"      => "18030",
    3.10      "backend_pidfile"   => "/tmp/l3-backend.pid",
    3.11      "backend_datafile"  => "/var/lilalo/lablogs-xml/backend.xml",