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",